Fungsi-Fungsi Dalam Visual Basic 6.0

Pada tugas kali ini, saya akan menjelasakan tentang Fungsi ( Function ) yang berada pada Visual Basic 6.0. Dengan menggunakan functions bawaan Visual Basic 6.0 Anda bisa menggunakan perintah coding lebih pendek dan tidak memusingkan. Jadi functions dalam Visual Basic 6.0 sangat bisa meperkecil ukuran file dari sebuah program. Selamat belajar.
 
Function IIF
 
Rumus:
IIF (Expression, TruePart, FalsePart)
Fungsi IIF berguna untuk membandingkan 2 ekspresi yang berbeda. Sebagai contoh. Saya membuat 1 TextBox (txtIif) dan 1 CommandButton (cmdIif), seperti gambar di bawah :
Lalu memberi coding pada cmdIif :
Private Sub cmdIif_Click()
MsgBox IIf(txtIif.Text >= 81, “Nilai A”, “Tidak Nilai A”), vbOKOnly, “Iif” End Sub
 
Saat program dijalankan, lalu Anda memasukkan nomor di txtiIf, lalu menekan tombol cmdiIf, maka muncul MessageBox :
 
Function InputBox
 
Rumus:
InputBox(Prompt, [Title], [Default], [XPos], [YPos], [HelpFile], [Context]) As String
Fungsi InputBox berguna untuk menampilkan kotak Input. Sebagai contoh.
Saya membuat 1 CommandButton (cmdInputBox), seperti gambar di bawah :
Lalu memberi coding pada cmdInputBox :
Private Sub cmdInputBox_Click()
InputBox “Masukkan Kata atau Kalimat”, “Input Box”,
“Masukkan Kata Disini….”, 1212, 777 End Sub
Saat program dijalankan, lalu menekan tombol cmdInputBox maka muncul kotak Input Box :
Anda bisa melihat sendiri apa maksud dari coding:
  • Masukkan Kata atau Kalimat = memberikan pernyataan pada form
  • Input Box = memberikan judul di TitleBar
  • Masukkan Kata Disini… = memberikan pernyataan pada TextBox  1222 & 777 = menempatkan InputBox di koordinat yang diinginkan

 

Function InStr
 
Rumus:
InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
Fungsi InStr berguna untuk mengetahui string pada sebuah variabel berada pada posisi ke-X. Sebagai contoh. Saya membuat 1 CommandButton (cmdInStr), seperti gambar di bawah :
Lalu memberi coding pada cmdInStr :
Private Sub cmdInStr_Click()
MsgBox InStr(“Imam Ciptarjo”, “Ciptarjo”), vbOKOnly, “InStr”
MsgBox InStr(“Imam Ciptarjo”, “a”), vbOKOnly, “InStr”
MsgBox InStr(5, “Imam Ciptarjo”, “a”), vbOKOnly, “InStr” End Sub
Saat program dijalankan, lalu Anda menekan tombol cmdInStr, maka muncul MessageBox :
Penjelasan :
MessageBox 1 = MsgBox InStr(“Imam Ciptarjo”, “Ciptarjo”), vbOKOnly, “InStr”
Menghasilkan nilai=6 karena Ciptarjo pada Imam Ciptarjo, terdapat pada posisi ke 6.
MessageBox 2 = MsgBox InStr(“Imam Ciptarjo”, “a”), vbOKOnly, “InStr” Menghasilkan nilai=3 karena a pada Imam Ciptarjo, terdapat pada posisi ke 3.
MessageBox 3 = MsgBox InStr(5, “Imam Ciptarjo”, “a”), vbOKOnly, “InStr” Menghasilkan nilai=10 karena a pada Imam Ciptarjo, terdapat pada posisi ke 10, tetapi dimulai dari posisi 5. Jadi a pada posisi 3 diabaikan.
 
 
Function Int
 
Rumus: Int(Number)
Fungsi Int berguna untuk mengetahui isi dari objek atau variabel ini number atau bukan number. Sebagai contoh. Saya membuat 1 CommandButton (cmdInt), seperti gambar di bawah :
Lalu memberi coding pada cmdInt : Private Sub cmdInt_Click()
If Int(999) Then
MsgBox “Number”, vbOKOnly, “Int”
Else
MsgBox “Bukan Number”, vbOKOnly, “Int”
End If
End Sub
Saat program dijalankan, lalu Anda menekan tombol cmdInt, maka muncul MessageBox :
 
Function IsArray
 
Rumus:
IsArray(VarName) As Boolean
Fungsi IsArray berguna untuk mengetahui isi dari objek atau variabel Array atau bukan Array. Sebagai contoh. Saya membuat 1 CommandButton (cmdIsArray), seperti gambar di bawah :
Lalu memberi coding pada cmdIsArray:
Private Sub cmdIsArray_Click()
Dim x As Variant Dim y As Variant
x = Array(“NRP”, “Nama”, “Kelas”) y = “imam cakep”
If IsArray(x) = True Then
MsgBox “Array”, vbOKOnly, “IsArray”
Else
MsgBox “Bukan Array”, vbOKOnly, “IsArray” End If
End Sub
 
Saat program dijalankan, lalu Anda menekan tombol cmdIsArray, maka muncul MessageBox :
Penjelasan :
x = Array(“NRP”, “Nama”, “Kelas”)
Termasuk Array jadi, jika IsArray(x) = Array True
y = “imam cakep”
Tidak termasuk Array jadi, jika IsArray(y) = Array False

 

Function IsDate
 
Rumus:
IsDate(Expression) As Boolean
Fungsi IsDate berguna untuk mengetahui isi dari objek atau variabel berisi format Date (penanggalan) atau bukan Date. Sebagai contoh. Saya membuat 1 TextBox (txtIsDate) dan 1 CommandButton (cmdIsDate), seperti gambar di bawah :
Lalu memberi coding pada cmdIsDate:
Private Sub cmdIsDate_Click()
If IsDate(txtIsDate.Text) = True Then
MsgBox “Berisi Tanggal”, vbOKOnly, “IsDate”
Else
MsgBox “Tidak Berisi Tanggal”, vbOKOnly, “IsDate”
End If
End Sub
Saat program dijalankan, lalu Anda memasukkan format tanggal atau bukan format tanggal di txtIsDate lalu menekan tombol cmdIsDate, maka muncul MessageBox :
Function IsNumeric
 
Rumus:
IsNumeric(Expression) As Booleanm
Fungsi IsNumeric berguna untuk mengetahui isi dari objek atau variabel berisi angka (number) atau bukan angka. Sebagai contoh. Saya membuat 1 TextBox (txtIsNumeric) dan 1 CommandButton (cmdIsNumeric), seperti gambar di bawah :
Lalu memberi coding pada cmdIsNumeric:
Private Sub cmdIsNumeric_Click()
If IsNumeric(txtIsNumeric.Text) = True Then
MsgBox “Numeric Tao”, vbOKOnly, “IsNumeric”
Else
MsgBox “Bukan Numeric Tao”, vbOKOnly, “IsNumeric”
End If
End Sub
Saat program dijalankan, lalu Anda memasukkan angka atau bukan angka (ex:huruf) di txtIsNumeric lalu menekan tombol cmdIsNumeric, maka muncul MessageBox :
Penjelasan :
txtIsNumeric = 1234
Termasuk Angka atau Numerik, jadi jika txtIsNumeric = True
txtIsNumeric = abcd
Tidak termasuk Angka atau Numerik, jadi jika txtIsNumeric = False

 

Function CDate
 
Rumus:
CDate(Expression) As Date
Fungsi CDate berguna untuk mengkonversi atau merubah angka menjadi sebuah tanggal. Sebagai contoh. Saya membuat 1 CommandButton (cmdCDate), seperti gambar di bawah :
Lalu memberi coding pada cmdCDate:
Private Sub cmdCDate_Click()
MsgBox CDate(2), vbOKOnly, “CDate”
MsgBox CDate(366), vbOKOnly, “CDate” End Sub
Saat program dijalankan, lalu Anda menekan tombol cmdCDate, maka muncul MessageBox :
Jadi tanggal default atau tanggal awal adalah 31 Desember 1989 [CDate(1)].

 

Function Hex
 
Rumus: Hex(Number)
Fungsi Hex berguna untuk mengkonversi atau merubah angka desimal (basis 10) angka Hexadecimal atau Hex (basis 16). Sebagai contoh, 1 CommandButton (cmdHex), seperti gambar di bawah :
Lalu memberi coding pada cmdHex:
Private Sub cmdHex_Click()
MsgBox “1 Desimal = Hex ” & Hex(1), vbOKOnly, “Hex” MsgBox “9 Desimal = Hex ” & Hex(9), vbOKOnly, “Hex”
MsgBox “10 Desimal = Hex ” & Hex(10), vbOKOnly, “Hex”
MsgBox “15 Desimal = Hex ” & Hex(15), vbOKOnly, “Hex”
MsgBox “100 Desimal = Hex ” & Hex(100), vbOKOnly, “Hex”
MsgBox “9999 Desimal = Hex ” & Hex(9999), vbOKOnly, “Hex”
End Sub
Saat program dijalankan, lalu Anda menekan tombol cmdHex, maka muncul MessageBox :
Function Space
 
Rumus:
Space(Number As Long)
Fungsi Space berguna untuk memberikan jumlah spasi pada objek yang kita inginkan, kali ini saya memberikan contoh objek pada MessageBox. Sebagai contoh. Saya membuat 1 CommandButton (cmdSpace), seperti gambar di bawah :
Lalu memberi coding pada cmdSpace :
Private Sub cmdSpace_Click()
MsgBox Space(15) & “50 spasi”, vbOKOnly, “Space”
MsgBox Space(100) & “100 spasi”, vbOKOnly, “Space” End Sub
Jika program dijalankan, lalu Anda menekan tombol cmdSpace, maka muncul MessageBox :
 
Penjelasan :
Space(15)
Menampilkan panjang MsgBox dengan 15 spasi
Space(100)
Menampilkan panjang MsgBox dengan 100 spasi