Kode Program Toko Ceria

kode program   hitung nomer

Private Sub cmbnomor_Click()

If cmbnomor.Text = "1" Then

txtnbarang.Text = "sabun"

txtharga.Text = "2000"

ElseIf cmbnomor.Text = "2" Then

txtnbarang.Text = "rinso"

txtharga.Text = "1000"

ElseIf cmbnomor.Text = "3" Then

txtnbarang.Text = "shampo"

txtharga.Text = "3000"

ElseIf cmbnomor.Text = "4" Then

txtnbarang.Text = "pena"

txtharga.Text = "4000"

End If

txtjumlah.SetFocus

End Sub

Kode hitung

Private Sub cmdhitung_Click()

txtbayar.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

End Sub

 h

 Kode Htung Lagi

Private Sub cmdhitunglagi_Click()

txtnama.Text = " "

cmbnomor.Text = " "

txtnbarang.Text = " "

txtharga.Text = " "

txtjumlah.Text = " "

txtbayar.Text = "  "

txtnama.SetFocus

End Sub

Kode Keluar

Private Sub cmdselesai_Click()

Unload Me

End Sub

Kode Menampilakan Nomor

Private Sub Form_Load()

cmbnomor.AddItem "1"

cmbnomor.AddItem "2"

cmbnomor.AddItem "3"

cmbnomor.AddItem "4"

End Sub