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

 

Semoga Bermanfaat....!!!

 

Sumber:www.tiforu.org

Bagikan Artikel ini