Pemograman Visual 1

 

Private Sub cmb_kode_click()

Select Case cmb_kode

Case "C01"

merk.Text = "Pepsodent"

hrg = 6000

stock = 100

Case "C02"

merk.Text = "Close Up"

hrg = 5000

stock = 200

Case Else

merk.Text = "Enzim"

hrg = 8000

stock = 400

End Select

End Sub

Private Sub cmd_beli_Click()

tgl.Text = " "

jam.Text = " "

cmb_kode.Text = " "

merk.Text = " "

hrg.Text = " "

stock.Text = " "

jumbel.Text = " "

total.Text = " "

uabay.Text = " "

uakem.Text = " "

tgl.SetFocus

End Sub

Private Sub cmd_keluar_Click()

p = MsgBox("Anda Yakin Keluar", vbQuestion + vbOKCancel, "Informasi")

If p = vbOK Then

End

End If

End Sub

Private Sub Command2_Click()

total = Val(jumbel) * Val(hrg)

total.SetFocus

End Sub

Private Sub uabay_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

uakem = Val(uabay) - (Val(jumbel) * Val(hrg))

uabay.SetFocus

End If

End Sub