Pemprograman Visual 1

Soal

Klik Hitung

klik Beli

Private Sub cmbbarang_Click()
If cmbbarang = "CO1" Then
txtmerk.Text = "Pepsodent"
txtharga.Text = "6000"
txtstok.Text = "100"
ElseIf cmbbarang = "CO2" Then
txtmerk.Text = "Close up"
txtharga.Text = "5000"
txtstok.Text = "200"
Else
txtmerk.Text = "Enzim"
txtharga.Text = "8000"
txtstok.Text = "400"
End If
End Sub
Private Sub cmdbeli_Click()
txtmerk.Text = ""
txtharga.Text = ""
txtstok.Text = ""
txtjumbel.Text = ""
txttotal.Text = ""
txtubay.Text = ""
End Sub


Private Sub cmdhitung_Click()
txttotal.Text = Val(txtjumbel.Text) * Val(txtharga.Text)
End Sub

Private Sub cmdkeluar_Click()
o = MsgBox("Anda yakin Akan Keluar ?", vbQuestion + vbYesNo, "Infomasi")
If o = vbYes Then
End
End If
End Sub

Private Sub Form_Load()
txttotal.Enabled = False
Me.txtmerk.Enabled = False
Me.txtharga.Enabled = False
Me.txtstok.Enabled = False

End Sub

Private Sub Timer1_Timer()
tanggal.Text = Format(Date, "dddd dd mmmm yyyy")
jam.Text = Format(Time, "h:m:s")
End Sub

Private Sub txtubay_Change()
txtukem.Text = Val(txtubay.Text) - Val(txttotal.Text)
End Sub