Mengenal Fungsi (function) Visual Basic 6 bagian pertama

Mengenal Fungsi (function) Visual Basic 6 bagian pertama

Ketik Visual Basic! - Pada kesempatan kali ini akan dibahas mengenai  Mengenal Fungsi (function) Visual Basic 6 yang akan dibagi dalam beb... 15.01

Ketik Visual Basic! - Pada kesempatan kali ini akan dibahas mengenai Mengenal Fungsi (function) Visual Basic 6 yang akan dibagi dalam beberapa bagian. Bisa dikatakan bahwa fungsi atau akan kita tulis function adalah sebuah prosedur biasa tetapi mempunyai sebuah tujuan utama mengolah data dan menampilkannya sesuai dengan hasil olahan fungsi tersebut. Ada dua macam fungsi di dalam visual basic yaitu built-in functions (atau internal functions) dan fungsi yang dibuat oleh seorang programmer untuk tujuan tertentu.

Fungsi visual basic ditulis dalam bentuk

                  NamaFungsi (argument)

Argumen adalah nilai yang akan dilewatkan kedalam fungsi untuk diolah menjadi sebuah keluaran (output). Pada kesempatan kali ini, kita akan belajar dua macam bentuk dasar internal function yaitu MsgBox() dan InputBox().

MsgBox ( ) Function

MsgBox ( ) function mempunyai fungsi utama adalah menampilkan kotak pesan atau peringatan yang berisi sebuah tombol pilihan sebelum lanjut menuju langkah berikutnya. MsgBox ( ) function mempunyai format sebagai berikut:

                   PesanAnda = MsgBox (Prompt, StyleValue, Title)

Untuk penjelasannya adalah sebagai berikut, argumen pertama adalah Prompt yang akan menampilkan pesan di dalam kotak pesan dan disinilah informasi dapat diberikan kepada user (pengguna), StyleValue adalah jenis kotak pesan (MsgBox) yang akan ditampilkan, untuk lebih jelasnya silahkan lihat table macam-macm MsgBox, dan terakhir adalah Title yaitu bagian yang akan menampilkan judul kotak pesan.

Style Value	Name Constant	Button Displayed
0	vbOKOnly	OK button
1	vbOKCancel	OK dan Cancel button
2	vbAbortRetryIgnore	Abort, Retry dan Ignore button
3	vbYesNoCancel	Yes, No dan Cancel button
4	vbYesNo	Yes dan No button
5	vbRetryCancel	Retry dan Cancel button

Kita dapat mengganti nilai StyleValue dengan sebuah nama konstanta (name constant) agar lebih mudah pembacaannya. Beriktu adalah contoh penggunaannnya Pesan = MsgBox ("Klik OK untuk proses selanjutnya" , 1, "Proses verifikasi") atau  Pesan = MsgBox ("Klik OK untuk proses selanjutnya" , vbOKCancel, "Proses verifikasi"). Pesan adalah sebuah variabel yang menyimpan nilai ketika kita mengoperasikan MsgBox ( ) function. Besarnya nilai ditentukan oleh tipe button atau tombol yang diklik oleh user dan dideklarasikan didalam bentuk tipe data integer. Untuk mengetahui nilai masing-masing tipe tombol atau button bisa melihat tabel berikut ini.

Value	Name Constant	Button Clicked
1	vbOK	OK button
2	vbCancel	Cancel button
3	vbAbort	Abort button
4	vbRetry	Retry button
5	vbIgnore	Ignore button
6	vbYes	Yes button
7	vbNo	No button

Contoh penggunaan MsgBox ( ) function

1. Buat sebuah user interface sebagai berikut

2. Buat sebuah kode program seperti berikut,

Private Sub Command1_Click()

Dim pesan As Integer

pesan = MsgBox("Tekan Ok untuk proses selanjutnya", vbOKCancel, "Aplikasi MsgBox (Title)")

If pesan = 1 Then

    Label1.Caption = "Anda baru saja menekan tombol OK - Succesful"

Else

    Label1.Caption = "Anda baru saja menekan tombol Cancel - Fail"

End If

End Sub

3. Coba jalankan dengan menekan tombol F5 dan test aplikasi diatas maka akan muncul sebuah MsgBox seperti gambar berikut

4. Agar kotak pesan dapat menampilkan sifat kepentingannya maka kita dapat menambahkan beberapa icon seperti berikut ini

5. Untuk melihat aplikasinya silahkan modifikasi program pada langkah ke 2 menjadi seperti berikut,

Private Sub Command1_Click()

Dim pesan As Integer

pesan = MsgBox("Tekan Ok untuk proses selanjutnya", vbYesNoCancel + vbExclamation, "Aplikasi MsgBox (Title)")

If pesan = 6 Then

    Label1.Caption = "Anda baru saja menekan tombol Yes"

ElseIf pesan = 7 Then

    Label1.Caption = "Anda baru saja menekan tombol No"

Else

    Label1.Caption = "Anda baru saja menekan tombol Cancel - Fail"

End If

End Sub

6. Dan kotak pesan akan menjadi lebih informatif seperti gambar berikut

InputBox ( ) Function

InputBox ( ) function mempunyai tugas utama untuk menampilkan sebuah window yang berisi sebuah inputan nilai. Format dasar InputBox ( ) adalah sebagai berikut,

                         PesanAnda = InputBox (Prompt, Title, default_text, x-position, y-position)

PesanAnda adalah sebuah variabel data yang dapat berbentuk berbagai macam tipe data dan tetapi secara default dideklarasikan sebagai tipe data string yang menerima masukan dari seorang user. Argument InputBox ( ) dapat dijelaskan sebagai berikut,

• Prompt adalah pesan yang ditampilkan dalam kotak input
• Title adalah judul kotak input
• default_text berisi sebuah text yang akan tampil pada awal kotak input dijalankan
• x-position dan y-position adalah letak kotak input di dalam sebuah layar komputer

Contoh Penggunaan InputBox ( )

1. Buat sebuah user interface seperti berikut,

2. Buat sebuah kode program seperti berikut,

Private Sub Command1_Click()

Dim pesan As String

pesan = InputBox("Masukkan pesan Anda", "Aplikasi InputBox (Title)", "Masukkan pesan Anda di sini", 1400, 600)

If pesan <> "" Then

    Label1.Caption = pesan

Else

    Label1.Caption = "Tidak Ada Pesan"

End If

End Sub

3. Coba jalankan aplikasi dengan menekan tombol F5 dan lakukan testing terhadap input pesan seperti gambar berikut (Klik tombol Input Pesan >> Masukkan Pesan >> Klik OK)

4. Maka akan ditampilkan sebuah pesan di dalam user interface seperti berikut (sesuai dengan algoritma program)

5. Selesai, Selamat mencoba.

Sekian posting blog atau sharing informasi mengenai Mengenal Fungsi (function) Visual Basic 6 bagian pertama yang dapat disampaikan. Jika masih terdapat ketidak jelasan materi atau tulisan maka bisa berbagi informasi melalui form komentar yang ada di bawah ini. Dan tidak lupa kami ucapkan banyak terimakasih karena telah berkunjung dan berbagi melalui blog ini.