TUGAS 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 cmdkeluar_Click()
Unload Me
End Sub

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

Private Sub cmdproses_Click()
txthp = Val(txths) * Val(txtjj)
If txthp >= 400000 Then
txtdis = 0.15 * Val(txthp)
ElseIf txthp >= 350000 Then
txtdis = 0.1 * Val(txthp)
ElseIf txthp >= 300000 Then
txtdis = 0.05 * Val(txthp)
ElseIf txthp >= 250000 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