TUGAS PROGRAM E

Private Sub cbokode_Click()
Dim j, h As String
Select Case cbokode
Case "P205"
j = "Pentium II 500 Mega Hz"
h = "1500000"
Case "P308"
j = "Pentium III 800 Mega Hz"
h = "2100000"
Case "P310"
j = "Pentium III 1.0 Giga Hz"
h = "3500000"
Case "P415"
j = "Pentium IV 1.5 Giga Hz"
h = "4000000"
Case "P417"
j = "Pentium IV 1.7 Giga Hz"
h = "4200000"
Case "P419"
j = "Pentium IV 1.9 Giga Hz"
h = "5500000"
End Select
txtjk = j
txths = h
txtjj.SetFocus
End Sub

Private Sub cmdhl_Click()
cbokode.SetFocus
cbokode = "Pilih Kode Komputer"
txtjj = ""
txtjk = ""
txths = ""
txthp = ""
txtdis = ""
txttb = ""
End Sub

Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdproses_Click()
txthp = Val(txths) * Val(txtjj)
If txthp >= 40000000 Then
txtdis = 0.15 * Val(txthp)
ElseIf txthp >= 35000000 Then
txtdis = 0.1 * Val(txthp)
ElseIf txthp >= 30000000 Then
txtdis = 0.05 * Val(txthp)
ElseIf txthp >= 25000000 Then
txtdis = 0.02 * Val(txthp)
End If
txttb = Val(txthp) - Val(txtdis)
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