Pelajaran Visual Basic TimeSerial() & InputBox()

Pelajaran Visual Basic TimeSerial() & InputBox()
BAB TimeSerial()

Berfungsi untuk menggabungkan informasi waktu jam, menit dan detik
Contohnya;

Dim Jam As Integer
Dim Menit As Integer
Dim Detik As Integer
Dim Waktu_Jam As Date

Jam=Hour(Now)
Menit = Minute(Now)
Detik = Second(Now)
Waktu_Jam=TimeSerial(jam,Menit,Detik)
MsgBox Waktu_jam

BAB InputBox()

Berfungsi sebagai kotak dialog untuk memasukkan nilai tertentu yang dibutuhkan program
Syntax Dasar;
variable = InputBox (propmt[,tittle] [,default])

Contohnya:

Dim bil As integer
bil = InputBox("Masukkan bilangan bulat:","Input",1)
if bil Mod 2= 1 Then
MsgBox "bilangan ganjil"
Else
MsgBox "bilangan genap"
End If

BAB Dir$()

Berfungsi menyatakan sebuah direktori. Statemen ini Juga dapat digunakan untuk pencarian file.
Syntax Dasar
stringvar = Dir$(path[,attributes])
Contohnya:

if Dir$("C:/temp.log") =""then
Else
MsgBox "file ditemukan"
End If.

BAB File Copy

Berfungsi untk menyalin (copy) sebuah file untuk menjadi file lain
Syntax Dasar;
FileCopy Source, destination
Contohnya:

FileCopy "C:/temp.log", "C:/temp2.log"

BAB Kill

Berfungsi untuk menghapus(delete), membunuh sebuah file
Syntax dasar;
Kill pathname
Contohnya:

Kill "C:/temp2.log"

BAB Name

Berfungsi untuk mengubah nama (rename) sebuah file
Syntax Dasar;
Name oldpathname As newpathname

Contohnya:

Name "C:/Alfuaadfinurin.log As "C:/Alfuaadfinuurin.log"

Keterangan ada tambahan pada huruf "u"

BAB MkDir

Berfungsi untuk membuat folder baru
Syntax Dasar:
MkDir path

Contohnya:

MkDir "C:\DataVB\"

BAB RmDir

Berfungsi untuk menghapus folder
Syntax Dasar;
RmDir Path

Contohnya:

RmDir "c:\DataVB\"