Private Sub cbokode_Click()
Dim jenis, hs As String
Select Case cbokode
Case “P205”
jenis = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jenis = “Pentium III 800 Mega Hz ”
hs = “2100000 ”
Case “P310”
jenis = “pentium III 1.0 Giga Hz”
hs = “3500000 ”
Case “P415”
jenis = “Pentium IV 1.5 Giga Hz”
hs = “4000000 ”
Case “P417”
jenis = “Pentium IV 1.7 Giga Hz ”
hs = “4200000 ”
Case “P419”
jenis = “Pentium IV 1.9 Giga Hz”
hs = “5500000 ”
End Select
txtjk = jenis
txths = hs
txtjj.SetFocus
End Sub
Private Sub cmdhitunglagi_Click()
cbokode.SetFocus
cbokode = “”
txtjk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txthb = “”
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdproses_Click()
txthp = Val(txtjj) * Val(txths)
If Val(txthp) > “30000000” Then
txtdis = Val(txthp) * 15 / 100
ElseIf Val(txthp) > “25000000” Then
txtdis = Val(txthp) * 10 / 100
ElseIf Val(txthp) > “20000000” Then
txtdis = Val(txthp) * 5 / 100
ElseIf Val(txthp) > “15000000” Then
txtdis = Val(txthp) * 2 / 100
End If
txthb = Val(txthp) – Val(txtdis)
End Sub
Private Sub Command1_Click()
Data1.Recordset.Update
End Sub
Private Sub Command2_Click()
Data1.Recordset.AddNew
cbokode.SetFocus
End Sub
Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub
Private Sub Form_Activate()
cbokode.SetFocus
cbokode = “”
txtjk = “”
txths = “”
txtjj = “”
txtdis = “”
txthb = “”
End Sub
Private Sub Form_Load()
cbokode.AddItem “P205”
cbokode.AddItem “P308”
cbokode.AddItem “P310”
cbokode.AddItem “P415”
cbokode.AddItem “P417”
cbokode.AddItem “P419”
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
gitastmikpringsewu 