PROGRAM H

Private Sub cbokode_Click()
Dim A, M As String
Select Case cbokode
Case "P205"
A = "Pentium II 500 Mega Hz"
M = "1500000"
Case "P308"
A = "Pentium III 800 Mega Hz"
M = "2100000"
Case "P310"
A = "Pentium III 1.0 Giga Hz"
M = "3500000"
Case "P415"
A = "Pentium IV 1.5 Giga Hz"
M = "4000000"
Case "P417"
A = "Pentium IV 1.7 Giga Hz"
M = "4200000"
Case "P419"
A = "Pentium IV 1.9 Giga Hz "
M = "5500000"
End Select
txtjk = A
txths = M
txtjj.SetFocus
End Sub
Private Sub Command1_Click()
txthp = Val(txtjj) * Val(txths)
If txthp >= 30000000 Then
txtdis = 0.15 * Val(txthp)
ElseIf txthp >= 25000000 Then
txtdis = 0.1 * Val(txthp)
ElseIf txthp >= 20000000 Then
txtdis = 0.05 * Val(txthp)
ElseIf txthp >= 15000000 Then
txtdis = 0.02 * Val(txthp)
End If
txthb = Val(txthp) - Val(txtdis)
End Sub
Private Sub Command2_Click()
cbokode.SetFocus
cbokode = "Pilih Kode Komputer"
txtjk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txthb = ""
End Sub
Private Sub Command3_Click()
Unload Me
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