Contoh Program menggunakan objek CheckBox pada Microsoft Visual Basic 6.0

Kegunaan objek CheckBox hampir sama dengan OptionButton. Perbedaannya adalah OptionButton hanya dapat dipilih satu pilihan dari beberapa pilihan (group pilihan), sedangkan CheckBox dapat dipilih beberapa pilhan sekaligus dari beberapa pilhan (group pilihan)

Langkah – langkah pembuatan program dengan menggunakan objek CheckBox adalah sbb :

·     Buka proyek Standard EXE yang baru

·     Disain tampilan form seperti gambar berikut dengan menggunakan objek Label, TextBox, CommandButton, Frame dan CheckBox

 Gbr 1

·    Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Caption      Font ForeColor	txt_harga (dikosongkan) MS Sans Serif, Bold, 10 &H00FF0000&
CommandButton1	Name         Caption	cmd_hitung &Hitung
CommandButton1	Name         Caption	cmd_exit E&xit
Label1	Caption Font ForeColor	Harga Barang MS Sans Serif, Bold, 10 &H00FF0000&
Label2	Caption Font ForeColor	Discount MS Sans Serif, Bold, 10 &H00FF0000&
Label3	Caption Font ForeColor	Total Harga (Harga Barang - Discount)   : MS Sans Serif, Bold, 10 &H00FF0000&
Frame	Name Caption	Frame1 Discount
CheckBox1	Name Caption	Chk_KartuAnggota Kartu Anggota
CheckBox2	Name Caption	Chk_Cash Bayar Tunai

Form1

Name Caption

frm_CheckBox Program Penjualan Dengan Menggunakan Objek CheckBox

·     DoubleClick pada  CommandButton cmd_hitung lalu ketik Kode Program dibawah ini :

Private Sub cmd_hitung_Click()

Dim DiscAnggota, DiscCash, Discount As Integer

DiscAnggota = 0

DiscCash = 0

If Me.Chk_KartuAnggota.Value = 1 Then

    DiscAnggota = 0.1

End If

If Me.Chk_Cash.Value = 1 Then

    DiscCash = 0.05

End If

Discount = DiscAnggota + DiscCash

Me.lbl_discount.Caption = (DiscAnggota * Me.txt_harga.Text) + (DiscCash * Me.txt_harga.Text)

Me.lbl_total.Caption = Me.txt_harga.Text - Me.lbl_discount.Caption

End Sub

·     DoubleClick pada  CommandButton cmd_exit lalu ketik Kode Program dibawah ini :

Private Sub cmd_exit_Click()

End

End Sub

·     Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

 

Download Program Penjualan Dengan Menggunakan Objek CheckBox  disini