Selasa, 30 April 2013

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... thumbnail 1 summary
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 ValueName ConstantButton Displayed
0vbOKOnlyOK button
1vbOKCancelOK dan Cancel button
2vbAbortRetryIgnoreAbort, Retry dan Ignore button
3vbYesNoCancelYes, No dan Cancel button
4vbYesNoYes dan No button
5vbRetryCancelRetry 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.

ValueName ConstantButton Clicked
1vbOKOK button
2vbCancelCancel button
3vbAbortAbort button
4vbRetryRetry button
5vbIgnoreIgnore button
6vbYesYes button
7vbNoNo button

Contoh penggunaan MsgBox ( ) function

1. Buat sebuah user interface sebagai berikut

Penggunaan Aplikasi Kotak Pesan

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

Aplikasi Kotak Pesan (MsgBox)

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

Penggunaan Aplikasi Kotak Pesan dengan Icon


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,

Penggunaan Aplikasi InputBox

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)

Aplikasi InputBox

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

Penggunaan Aplikasi InputBox

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.