Private Sub cbokode_Click()
Dim mt, hs As String
Select Case cbokode
Case “ASUS A43SA”
mt = “ASUS A43SA-VXO90D”
hs = “5500000”
Case “ASUS A43SD”
mt = “ASUS A43SD-VXO532D”
hs = “4500000”
Case “ASUS A435J”
mt = “ASUS A435J-VX792J”
hs = “4900000”
Case “ASUS N43L”
mt = “ASUS N43L-VX264D”
hs = “4300000”
Case “APPLE MD311”
mt = “APPLE MACBOOCK PRO MD311”
hs = “19300000”
Case “APPLE MD313”
mt = “APPLE MACBOOCK PRO MD313”
hs = “24200000”
Case “APPLE MD314”
mt = “APPLE MACBOOCK PRO MD314”
hs = “11900000”
Case “APPLE MD322”
mt = “APPLE MACKBOOCK PRO MD322 ”
hs = “14700000”
Case “APPLE MC95”
mt = “APPLE MACBOOK AIR MC965”
hs = “21300000”
End Select
txtmerk.Text = mt
txtharga.Text = hs
txtjumlah.SetFocus
End Sub
Private Sub Command1_Click()
txthargapen.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
Select Case txthargapen.Text
Case Is > 14000000
txtdis.Text = Val(txthargapen.Text) * 15 / 100
Case Is > 135000000
txtdis.Text = Val(txthargapen.Text) * 10 / 100
Case Is > 130000000
txtdis.Text = Val(txthargapen.Text) * 5 / 100
Case Is > 125000000
txtdis.Text = Val(txthargapen.Text) * 2 / 100
End Select
txttotal.Text = Val(txthargapen.Text) – Val(txtdis.Text)
End Sub
Private Sub Command2_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command3_Click()
cbokode.SetFocus
cbokode = “”
txtmerk = “”
txtharga = “”
txtjumlah = “”
txthargapen = “”
txtdis = “”
txttotal = “”
End Sub
Private Sub Command4_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command5_Click()
Data1.Recordset.Delete
End Sub
Private Sub Command6_Click()
Form2.Show
End Sub
Private Sub Form_Load()
cbokode.AddItem “ASUS A43SA”
cbokode.AddItem “ASUS A43SD”
cbokode.AddItem “ASUS N43SL”
cbokode.AddItem “APPLE MD311”
cbokode.AddItem “APPLE MD313”
cbokode.AddItem “APPLE MD314”
cbokode.AddItem “APPLE MD322”
cbokode.AddItem “APPLE MC965”
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
End
End Sub