Permograman Terstruktur - Fungsi-fungsi Dalam Visual Basic - Isi (www.alonearea.com)

1

FUNGSI-FUNGSI DALAM VISUAL BASIC 6.0

P

ada 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... n_n

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 :

Input txtIif = 90

Input txtIif = 50

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 :

Imam Ciptarjo – 6307130 – 1.TI.1 TUGAS PRAKTEK PEMROGRAMAN TERSRUKTUR

2

FUNGSI-FUNGSI DALAM VISUAL BASIC 6.0

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

Imam Ciptarjo – 6307130 – 1.TI.1 TUGAS PRAKTEK PEMROGRAMAN TERSRUKTUR

3

FUNGSI-FUNGSI DALAM VISUAL BASIC 6.0

Saat program dijalankan, lalu Anda menekan tombol cmdInStr, maka muncul MessageBox :

MessageBox 1

MessageBox 2

MessageBox 3

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 : Imam Ciptarjo – 6307130 – 1.TI.1 TUGAS PRAKTEK PEMROGRAMAN TERSRUKTUR

4

FUNGSI-FUNGSI DALAM VISUAL BASIC 6.0

Int(999)

Jika Int(999) dirubah menjadi Int(abc)

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 :

IsArray(x)

Jika IsArray(x) dirubah menjadi IsArray(y) Imam Ciptarjo – 6307130 – 1.TI.1 TUGAS PRAKTEK PEMROGRAMAN TERSRUKTUR

5

FUNGSI-FUNGSI DALAM VISUAL BASIC 6.0

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 :

Input di txtIsDate : 12/12/2008

Input di txtIsDate : 32/32/2000

Function IsNumeric Rumus: IsNumeric(Expression) As Boolean 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 : Imam Ciptarjo – 6307130 – 1.TI.1 TUGAS PRAKTEK PEMROGRAMAN TERSRUKTUR

6

FUNGSI-FUNGSI DALAM VISUAL BASIC 6.0

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 :

Input di txtIsNumeric : 1234

Input di txtIsNumeric : abcd

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"

Imam Ciptarjo – 6307130 – 1.TI.1 TUGAS PRAKTEK PEMROGRAMAN TERSRUKTUR

7

FUNGSI-FUNGSI DALAM VISUAL BASIC 6.0

MsgBox CDate(366), vbOKOnly, "CDate" End Sub

Saat program dijalankan, lalu Anda menekan tombol cmdCDate, maka muncul MessageBox :

CDate(2)

CDate(366)

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 :

1 Desimal = 1 Hexadecimal

9 Desimal = 9 Hexadecimal

10 Desimal = A Hexadecimal

Imam Ciptarjo – 6307130 – 1.TI.1 TUGAS PRAKTEK PEMROGRAMAN TERSRUKTUR

8

FUNGSI-FUNGSI DALAM VISUAL BASIC 6.0

1 Desimal = F Hexadecimal

1 Desimal = 64 Hexadecimal

1 Desimal = 270F Hexadecimal

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 :

Space(15)

Space(100)

Penjelasan : Space(15) Menampilkan panjang MsgBox dengan 15 spasi Space(100) Menampilkan panjang MsgBox dengan 100 spasi

Imam Ciptarjo – 6307130 – 1.TI.1 TUGAS PRAKTEK PEMROGRAMAN TERSRUKTUR