Copy File With VB 6.0

DESCRIPTION : you can easily copy a file * with this application because the application I created to facilitate my copy files, to copy files from different drives makes me dizzy clicking Arm-time ^ _ ^, before I apologize if my language bad Britain and was also assisted by google translate ^ _ ^ please try yourself.

Public NamaFile, Tujuan As String

Private Sub CmdCopy_Click()
    If NamaFile = "" Or Tujuan = "" Then
        Beep
        MsgBox "Tidak dapat dicopy, file belum dipilih!", vbQuestion, "Mengcopy File"
        Exit Sub
    End If
    FileCopy NamaFile, Tujuan
    MsgBox "File sudah dicopy dengan sukses!", vbInformation, "Mengcopy File"
End Sub

Private Sub CmdKeluar_Click()
    End
End Sub

Private Sub Drive2_Change()
    Dir2.Path = UCase(Drive2.Drive)
End Sub

Private Sub Dir2_Change()
    Tujuan = Dir2.Path + "\" + File1.FileName
    If Mid$(Tujuan, 4, 1) = "\" Then
        Tujuan = Dir2.Path + File1.FileName
    End If
    Label2.Caption = Tujuan
End Sub

Private Sub Drive1_Change()
    Dir1.Path = UCase(Drive1.Drive)
End Sub

Private Sub Dir1_Change()
    File1.Pattern = "*.*"
    File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
    NamaFile = Dir1.Path + "\" + File1.FileName
    If Mid$(NamaFile, 4, 1) = "\" Then
        NamaFile = Dir1.Path + File1.FileName
    End If
    Label1.Caption = NamaFile
    Dir2_Change
End Sub

 

DOWNLOAD SOUCE HERE “and help develop their own”

Structure Select Case

 

DESCRIPTION  : food menu sample program below is how the structure of the "select case" is used in Visual Basic 6.0,

“Open VB 6.0, Copy paste source code and save project program is runing “

Private Sub Form_Load()
    List1.AddItem "Mie Ayam"
    List1.AddItem "Mie Goreng"
    List1.AddItem "Cumi Goreng"
    List1.AddItem "Tempe"
End Sub

Private Sub Command1_Click()
    Dim Harga As Currency, Total As Currency
    Dim jumlah As Integer
    Dim Diskon As Single
    Dim satuan As String
    If List1.Text = "" Then
        MsgBox "Anda belum memilih barang !!"
        List1.ListIndex = 0
        Exit Sub
    End If
    If Text1.Text = "" Then
        MsgBox "Anda belum mengisi jumlah barang !!"
        Text1.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(Text1.Text) Then
        MsgBox "Isi jumlah barang harus angka !!"
        Text1.SetFocus
        Exit Sub
    End If
    Select Case List1.Text
    Case "Tempe"
        Harga = 35000
        satuan = "Porsi"
    Case "Mie Ayam"
        Harga = 20000
        satuan = "Porsi"
    Case "Mie Goreng"
        Harga = 25000
        satuan = "Porsi"
    Case "Cumi Goreng"
        Harga = 10000
        satuan = "Porsi"
    End Select
    lblBarang.Caption = "Barang : " & List1.Text
    lblHarga.Caption = "Harga : " & Format(Harga, "Currency") & "/" & satuan
    lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan

    jumlah = Text1.Text
    Select Case jumlah
    Case Is < 10
        Diskon = 0
    Case 10 To 20
        Diskon = 0.15
    Case Else
        Diskon = 0.2
    End Select
    Total = jumlah * (Harga * (1 - Diskon))
    lblDiskon.Caption = "Diskon : " & Format(Diskon, "0 %")
    lblTotal.Caption = "Total Bayar : " & Format(Total, "Currency")
End Sub

Neon Lights Text

Description: Bring the age old technique of attracting attention on the streets to your webpage! This DHTML script applies a neon light effect to any text...very cool.

<h2>
<script language="JavaScript1.2">

var message="Welcome to Echo Site!"
var neonbasecolor="gray"
var neontextcolor="yellow"
var flashspeed=100  //in milliseconds

///No need to edit below this line/////

var n=0
if (document.all||document.getElementById){
document.write('<font color="'+neonbasecolor+'">')
for (m=0;m<message.length;m++)
document.write('<span id="neonlight'+m+'">'+message.charAt(m)+'</span>')
document.write('</font>')
}
else
document.write(message)

function crossref(number){
var crossobj=document.all? eval("document.all.neonlight"+number) : document.getElementById("neonlight"+number)
return crossobj
}

function neon(){

//Change all letters to base color
if (n==0){
for (m=0;m<message.length;m++)
//eval("document.all.neonlight"+m).style.color=neonbasecolor
crossref(m).style.color=neonbasecolor
}

//cycle through and change individual letters to neon color
crossref(n).style.color=neontextcolor

if (n<message.length-1)
n++
else{
n=0
clearInterval(flashing)
setTimeout("beginneon()",1500)
return
}
}

function beginneon(){
if (document.all||document.getElementById)
flashing=setInterval("neon()",flashspeed)
}
beginneon()

</script>
</h2>

Always-on-top message

DESCRIPTION : This is a TV-like message banner script that creates a "always-on-top" message, centered at the bottom of the surfer's screen. Use it like its used on TV- to advertise your products, or anything else that requires special attention. The script comes with the following features:

• 
  
  Supports rich HTML
• Comes in multiple "display" modes:
  1) Display the message perpetually on screen
  2) Display the message for a set period of time, then disappear
  3) Display the message once per browser session
• Message background can be set to "flash."

Save with top.js

//enter the message you wish to be shown, including html tags
var message='Help us spread the word. Please link to us!'

//enter a color name or hex to be used as the background color of the message
var backgroundcolor="#FFFF8A"

//enter 1 for always display, 2 for ONCE per browser session
var displaymode=1

//Set duration message should appear on screen, in seconds (10000=10 sec, 0=perpetual)
var displayduration=0

//enter 0 for non-flashing message, 1 for flashing
var flashmode=1
//if above is set to flashing, enter the flash-to color below
var flashtocolor="lightyellow"


///////////////do not edit below this line////////////////////////////////////////
var ie=document.all
var ieNOTopera=document.all&&navigator.userAgent.indexOf("Opera")==-1

function regenerate(){
window.location.reload()
}

function regenerate2(){
if (document.layers)
setTimeout("window.onresize=regenerate",400)
}

var which=0

function flash(){
if (which==0){
if (document.layers)
topmsg_obj.bgColor=flashtocolor
else
topmsg_obj.style.backgroundColor=flashtocolor
which=1
}
else{
if (document.layers)
topmsg_obj.bgColor=backgroundcolor
else
topmsg_obj.style.backgroundColor=backgroundcolor
which=0
}
}

if (ie||document.getElementById)
document.write('



'+message+'
')

var topmsg_obj=ie? document.all.topmsg : document.getElementById? document.getElementById("topmsg") : document.topmsg

function positionit(){
var dsocleft=ie? document.body.scrollLeft : pageXOffset
var dsoctop=ie? document.body.scrollTop : pageYOffset
var window_width=ieNOTopera? document.body.clientWidth : window.innerWidth-20
var window_height=ieNOTopera? document.body.clientHeight : window.innerHeight

if (ie||document.getElementById){
topmsg_obj.style.left=parseInt(dsocleft)+window_width/2-topmsg_obj.offsetWidth/2
topmsg_obj.style.top=parseInt(dsoctop)+parseInt(window_height)-topmsg_obj.offsetHeight-4
}
else if (document.layers){
topmsg_obj.left=dsocleft+window_width/2-topmsg_obj.document.width/2
topmsg_obj.top=dsoctop+window_height-topmsg_obj.document.height-5
}
}

function setmessage(){
if (displaymode==2&&(!display_msg_or_not()))
return
if (document.layers){
topmsg_obj=new Layer(window.innerWidth)
topmsg_obj.bgColor=backgroundcolor
regenerate2()
topmsg_obj.document.write(message)
topmsg_obj.document.close()
positionit()
topmsg_obj.visibility="show"
if (displayduration!=0)
setTimeout("topmsg_obj.visibility='hide'",displayduration)
}
else{
positionit()
topmsg_obj.style.backgroundColor=backgroundcolor
topmsg_obj.style.visibility="visible"
if (displayduration!=0)
setTimeout("topmsg_obj.style.visibility='hidden'",displayduration)
}
setInterval("positionit()",100)
if (flashmode==1)
setInterval("flash()",1000)
}

function get_cookie(Name) {
var search = Name + "="
var returnvalue = ""
if (document.cookie.length > 0) {
offset = document.cookie.indexOf(search)
if (offset != -1) {
offset += search.length
end = document.cookie.indexOf(";", offset)
if (end == -1)
end = document.cookie.length;
returnvalue=unescape(document.cookie.substring(offset, end))
}
}
return returnvalue;
}

function display_msg_or_not(){
if (get_cookie("displaymsg")==""){
document.cookie="displaymsg=yes"
return true
}
else
return false
}

if (document.layers||ie||document.getElementById)
window.onload=setmessage

Copy Before< ;/head>

<script src="http://www.yourdomain.com/topmsg.js">

</script>