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