Pemerograman Visual Basis 1
Private Sub cmbkobarang_Click()
If cmbkobarang.Text = "CO1" Then
txtmerk.Text = "Pepsodent"
txtharga.Text = "6000"
txtstok.Text = "100"
ElseIf cmbkobarang = "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 form_activate()
With Me.cmbkobarang
.AddItem
("CO1")
.AddItem
("CO2")
.AddItem
("CO3")
End With
End Sub
Private Sub cmdbeli_Click()
txtmerk.Text = ""
txtharga.Text = ""
txtstok.Text = ""
txtjumbel.Text = ""
txttotal.Text = ""
txtuangbayar.Text = ""
End Sub
Private Sub cmdhitungtotal_Click()
txttotal.Text = Val(txtjumbel.Text) * Val(txtharga.Text)
End Sub
Private Sub cmdkeluar_Click()
ido = MsgBox("yakin akan keluar dari form ",
vbQuestion + vbYesNo, "Keluar")
If ido = vbYes Then
Unload Me
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 List1_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 Timer1_Timer()
Text1.Text = Format(Date, "dddd dd mmmm yyyy")
Text2.Text = Format(Time, "h:m:s")
End Sub
Private Sub txtuangbayar_Change()
txtuangkembali.Text = Val(txtuangbayar.Text) -
Val(txttotal.Text)
End Sub