tugas 3.3

Private Sub cbokode_Click()
Dim mt, hs As String
Select Case Right(cbokode, 5)
Case Is = "mc965"
mt = "aplle macbook air mc965"
hs = "12800000"
Case Is = "mc965"
mt = "aplle macbook air mc966"
hs = "15800000"
Case Is = "mc968"
mt = "aplle macbook air mc968"
hs = "9900000"
Case Is = "mc969"
mt = "aplle macbook air mc969"
hs = "11900000"
Case Is = "mc700"
mt = "aplle macbook pro mc700"
hs = "10800000"
Case Is = "mc721"
mt = "aplle macbook pro mc721"
hs = "15900000"
Case Is = "mc723"
mt = "aplle macbook pro mc723"
hs = "19300000"
Case Is = "mc724"
mt = "aplle macbook pro mc724"
hs = "13700"
Case Is = "mc311"
mt = "aplle macbook pro mc311"
hs = "24200000"
Case Is = "mc313"
mt = "aplle macbook pro mc313"
hs = "11900000"
Case Is = "mc314"
mt = "aplle macbook pro mc314"
hs = "14700000"
Case Is = "mc318"
mt = "aplle macbook pro mc318"
hs = "17600000"
Case Is = "mc322"
mt = "aplle macbook pro mc322"
hs = "21300000"
Case Is = "mc965"
mt = "aplle macbook air mc965"
hs = "12800000"
Case Is = "mc96"
mt = "aplle macbook air mc966"
hs = "15800000"
End Select
txtmerk.Text = mt
txths.Text = hs
txtjj.SetFocus



End Sub

Private Sub cmdhitunglagi_Click()
txtkode = ""
txtmerk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttb = ""


End Sub

Private Sub cmdkluar_Click()
Unload Me
End Sub



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

End Sub

Private Sub Form_Load()
cbokode.AddItem "aplle macbook air mc965"
cbokode.AddItem "aplle macbook air mc966"
cbokode.AddItem "aplle macbook air mc968"
cbokode.AddItem "aplle macbook air mc969"
cbokode.AddItem "aplle macbook pro mc700"
cbokode.AddItem "aplle macbook pro mc721"
cbokode.AddItem "aplle macbook pro mc723"
cbokode.AddItem "aplle macbook pro mc724"
cbokode.AddItem "aplle macbook pro mc311"
cbokode.AddItem "aplle macbook pro mc313"
cbokode.AddItem "aplle macbook pro mc314"
cbokode.AddItem "aplle macbook pro mc318"
cbokode.AddItem "aplle macbook pro mc322"
cbokode.AddItem "aplle macbook air mc965"
cbokode.AddItem "aplle macbook air mc966"
End Sub