TUGAS D

Private Sub cbokode_Click()
Dim m, h As String
Select Case cbokode
Case "Asus A43SA"
m = "Asus A43SA - VX090D"
h = "5500000"
Case "Asus A43SD"
m = "Asus A43SD - VX052D"
h = "4500000"
Case "Asus A43SJ"
m = "Asus A43SJ - VX792D"
h = "4300000"
Case "Asus A43TA"
m = "Asus A43TA - VX034D"
h = "4900000"
Case "Asus N43SL"
m = "Asus N43SL - VX264D"
h = "4300000"
Case "Apple MD311"
m = "Apple MacBook Pro MD311"
h = "19300000"
Case "Apple MD313"
m = "Apple MacBook Pro MD313"
h = "24200000"
Case "Apple MD314"
m = "Apple MacBook Pro MD314"
h = "11900000"
Case "Apple MD322"
m = "Apple MacBook Pro MD322"
h = "14700000"
Case "Apple MC965"
m = "Apple MacBook Pro MC965"
h = "21300000"
End Select
txtmerk = m
txths = h
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode = "Pilih Kode Laptop"
txtmerk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttb = ""
End Sub

Private Sub cmdproses_Click()
txthp = Val(txths) * Val(txtjj)
If txthp >= 14000000 Then
txtdis = 0.15 * Val(txthp)
ElseIf txthp >= 13500000 Then
txtdis = 0.1 * Val(txthp)
ElseIf txthp >= 13000000 Then
txtdis = 0.05 * Val(txthp)
ElseIf txthp >= 12500000 Then
txtdis = 0.02 * Val(txthp)
End If
txttb = Val(txthp) - Val(txtdis)
End Sub

Private Sub Form_Load()
cbokode.AddItem "Asus A43SA"
cbokode.AddItem "Asus A43SD"
cbokode.AddItem "Asus A43SJ"
cbokode.AddItem "Asus A43TA"
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