Private Sub cbokode_Click()
Dim MERK As String
Dim HS As Currency
Select Case cbokode.Text
Case “Asus A43SA”
txtmerk.Text = “ASUS A43SA-VX090D”
txths.Text = “5500000”
Case “Asus A43SD”
txtmerk.Text = “ASUS A43SJ-VX052D”
txths.Text = “4500000”
Case “Asus A43SJ”
txtmerk.Text = “ASUS A43SJ-VX792D”
txths.Text = “4300000”
Case “Asus A43TA”
txtmerk.Text = “ASUS A43TA-VX034D”
txths.Text = “4900000”
Case “Asus N43SL”
txtmerk.Text = “ASUS N43SL-VX264D”
txths.Text = “4300000”
Case “Asus U36SD”
txtmerk.Text = “APPLE MACBOOK AIR MC965”
txths.Text = “6600000”
Case “APPLE MC965”
txtmerk.Text = “APPLE MACBOOK AIR MC965”
txths.Text = “12800000”
Case “APPLE MC966”
txtmerk.Text = “APPLE MACBOOK AIR MC966”
txths.Text = “15800000”
Case “APPLE MC969”
txtmerk.Text = “APPLE MACBOOK AIR MC966”
txths.Text = “11900000”
Case “APPLE MC700”
txtmerk.Text = “APPLE MACBOOK PRO MC700”
txths.Text = “10800000”
Case “APPLE MC723”
txtmerk.Text = “APPLE MACBOOK PRO MC723”
txths.Text = “19300000”
Case “APPLE MD311”
txtmerk.Text = “APPLE MACBOOK PRO MD311”
txths.Text = “24200000”
Case “APPLE MD313”
txtmerk.Text = “APPLE MACBOOK PRO MD313”
txths.Text = “11900000”
Case “APPLE MD314”
txtmerk.Text = “APPLE MACBOOK PRO MD314”
txths.Text = “14700000”
Case “APPLE MD322”
txtmerk.Text = “APPLE MACBOOK PRO MD322”
txths.Text = “21300000”
End Select
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”
txtterbilang.Text = “”
End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 140000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 135000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp.Text > 130000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp.Text > 125000000 Then
txtdis.Text = Val(txthp.Text) * 0.02
End If
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
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 “Asus U56SD”
cbokode.AddItem “Apple MC965”
cbokode.AddItem “Apple MC966”
cbokode.AddItem “Apple MC969”
cbokode.AddItem “Apple MC700”
cbokode.AddItem “Apple MC723”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
End Sub

Iklan