Dasar 6. Combo Box, List Box dan Option Button

1. Buatlah sebuah form baru.
2. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
Label1	Pilih Barang	Label
CboBarang	-	ComboBox
List1	-	ListBox
OptBuku	Buku	OptionButton
OptKertas	Kertas	OptionButton
OptBenang	Benang	OptionButton
TxtHarga	-	TextBox
TxtSatuan	-	TextBox
Label2	Harga	Label
Label3	Satuan	Label

3. Listing Programnya :

Private Sub Form_Load()
CBOBARANG.AddItem "BUKU"
CBOBARANG.AddItem "KERTAS"
CBOBARANG.AddItem "BENANG"

List1.AddItem "BUKU"
List1.AddItem "KERTAS"
List1.AddItem "BENANG"
End Sub

 

Private Sub CBOBARANG_Click()
If CBOBARANG.Text = "BUKU" Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
Else
If CBOBARANG.Text = "KERTAS" Then
TXTHARGA.Text = 500
TXTSATUAN.Text = "LEMBAR"
Else
If CBOBARANG.Text = "BENANG" Then
TXTHARGA.Text = 1500
TXTSATUAN.Text = "HELAI"
End If
End If
End If
End Sub

 

Private Sub List1_Click()
If List1.Text = "BUKU" Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
Else
If List1.Text = "KERTAS" Then
TXTHARGA.Text = 500
TXTSATUAN.Text = "LEMBAR"
Else
If List1.Text = "BENANG" Then
TXTHARGA.Text = 1500
TXTSATUAN.Text = "HELAI"
End If
End If
End If
End Sub

 

Private Sub OPTBUKU_Click()
If OPTBUKU.Value = True Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
End If
End Sub

Private Sub OPTKERTAS_Click()
If OPTKERTAS.Value = True Then
TXTHARGA.Text = 500
TXTSATUAN.Text = "LEMBAR"
End If
End Sub

Private Sub OPTBENANG_Click()
If OPTBENANG.Value = True Then
TXTHARGA.Text = 1500
TXTSATUAN.Text = "HELAI"
End If
End Sub
    

4. Penjelasan dari Listing Program tersebut :

A. COMBO BOX
CBOBARANG.AddItem "BUKU" digunakan untuk memunculkan tulisan "BUKU" pada ComboBox (CBOBARANG).
If CBOBARANG.Text = "BUKU" Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
Else ………… END IF
Maksudnya jika pada CBOBARANG dipilih tulisan "BUKU", maka isi dari TXTHARGA adalah 3000 dan isi dari TXTSATUAN adalah BUAH.
selain itu …………… dan seterusnya hingga diakhiri dengan END IF.

B. LIST BOX
List1.AddItem "BUKU" digunakan untuk memunculkan tulisan "BUKU" pada ListBox (List1).
If List1.Text = "BUKU" Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
Else ………….. END IF
Maksudnya jika pada LIST1 dipilih tulisan "BUKU", maka isi dari TXTHARGA adalah 3000 dan isi dari TXTSATUAN adalah BUAH.
selain itu …………… dan seterusnya hingga diakhiri dengan END IF.

C. OPTION BUTTON
If OPTBUKU.Value = True Then
TXTHARGA.Text = 3000
TXTSATUAN.Text = "BUAH"
End If
Maksudnya jika OPTBUKU dipilih, maka isi dari TXTHARGA adalah 3000 dan isi dari TXTSATUAN adalah BUAH.
begitu juga penjelasan untuk OPTKERTAS dan OPTBENANG hanya berbeda isinya saja.

Selesai Juga Dech Tutorialnya....
Terimakasih Atas Kunjungannya....
Semoga Ilmu Yang Sedikit Ini Bermanfaat....
Jangan Lupa Like Post Ini Ya.... Terimakasih....

Print this page

Posted in: Visual Basic 6.0