SENO PURHARYANTO
Minggu, 12 Oktober 2014
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 Combo1_Change()
End Sub
Private Sub Form_Load()
Txttotal.Enabled = False
Me.txtmerk.Enabled = False
Me.txtharga.Enabled = False
Me.txtstock.Enabled = False
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Timer1_Timer()
Txttanggal.Text = Format(Date, "dddd dd mmmm yyyy")
txtjam.Text = Format(Time, "h:m:s")
End Sub
Private Sub txtubay_Change()
txtukem.Text = Val(txtubay.Text) - Val(Txttotal.Text)
End Sub
Langganan:
Postingan (Atom)