PENGGUNAAN PROCEDUR DAN FUNCTION PADA VISUAL BASIC 6

Pada postingan saya sebelumnya, saya membahas tentang membuat program penjuaan tiket dengan menggunakan visual basic, serta menggunakan database dalam Visual Basic 6. Kali ini, saya akan memberikan contoh program yang menggunakan procedure dan function dalam Visual Basic.

Procedur adalah sebuah blok program yang didalamnya kita dapat menuliskan koding - koding program. Sedangkan Function adalah sebuah prosedur biasa tetapi mempunyai sebuah tujuan utama mengolah data dan menampilkannya sesuai dengan hasil olahan fungsi tersebut. Berikut ini saya akan menjelaskan langkah-langkah membuat program dengan menggunakan procedure dan function dalam Visual Basic 6

MEMBUAT FORM

Nama Toolbox	Keterangan Fungsi
Text1	Untuk menginput jumlah uang yang dibayarkan
Text2	Untuk menampilkan Harga Satuan barang
Text3	Utk tempat menginput banyaknya Jumlah Barang
Text4	Untuk menampilkan keseluruhan Total Bayar
Text5	Untuk menampilkan total Kembalian uang
Combo1	Untuk menampilkan menu pilihan Nama Barang
Command1	Untuk button Hitung
Command2	Untuk button Hapus
Command3	Untuk button Keluar
Command4	Untuk button Hitung Kembalian
Image1	Untuk menampilkan background

Langkah- langkahnya sebagai berikut berikut:

1.    Memasukkan nama barang (Combo1) dengan klik ganda form lalu pilih Form_Load(). Lalu tuliskan coding berikut :

2.    Untuk dapat menampilkan Harga Satuan (Text2), maka klik ganda pada Nama Barang (Combo1), lalu ketikkan coding berikut :

3.    Untuk dapat menghapus data yang telah diinput di program, maka kita harus klik ganda pada button Hapus  (Command2), lalu tambahkan coding berikut ini :

4.    Untuk dapat menghitung total bayar, maka kita harus membuat  Function hitung (saya beri nama Function jml()  ). Caranya klik ganda pada form lalu pilih general. Ketikkan codingan berikut  ini:

5.    Untung dapat menghitung uang kembalian, maka kita kembali membuat sebuah Function kembalian (saya beri nama function kembalian()  ). Caranya klik ganda pada form lalu pilih general. Kemudian Ketikkan codingan berikut 

6.    Untuk dapat menyelesaikan program, maka saya membuat sebuah Procedure keluar (saya beri nama sub keluar()  ). Caranya klik ganda pada form dan pilih general. Kemudian ketikkan codin berikut ini :

Sub keluar() pesan = MsgBox("Apakah anda yakin untuk keluar?", vbYesNo + vbQuestion, "Keluar") If pesan = vbYes Then Unload Me End If End Sub

 

7.    Untuk dapat menghitung total uang Kembalian (Command4), maka kita perlu memanggil Funtion kembalian yang sudah kita buat sebelumnya. Caranya dengan klik ganda pada Command4, lalu ketikkan codingan berikut:

8.    Untuk dapat menghitung Total Bayar (Command1), maka kita juga perlu memanggil Function hitung yang sudah kita buat sebelumnya. Caranya dengan klik ganda pada Command1, lalu ketikkan codingan berikut ini :

9.    Untuk dapat mengakhiri program (Command3), maka kita perlu menggil Procedure keluar yang sudah kita buat sebelumnya. Caranya dengan klik ganda pada Command3, lalu ketikkan codingan berikut ini :

Berikut merupakan tampilan program yang sudah di Run :