Private Sub cbokode_Click()
Dim merk, satuan As String
Select Case cbokode.Text
Case “Asus A43SA”
merk = “Asus A43SA-VX090D”
satuan = “5500000”
Case “Asus A43SD”
merk = “Asus A43SD-VX052D”
satuan = “4500000”
Case “Asus A43SJ”
merk = “Asus A43SJ-VX792D”
satuan = “4300000”
Case “Asus A43TA”
merk = “Asus A43TA-VX034D”
satuan = “4900000”
Case “Asus A43SL”
merk = “Asus A43Sl-VX264D”
satuan = “4300000”
Case “Apple MD311”
merk = “Apple MacBook Pro MD311”
satuan = “19300000”
Case “Apple MD313”
merk = “Apple MacBook Pro MD313”
satuan = “24200000”
Case “Apple MD314”
merk = “Apple MacBook Pro MD314”
satuan = “11900000”
Case “Apple MD322”
merk = “Apple MacBook Pro MD322”
satuan = “14700000”
Case “Apple MC965”
merk = “Apple MacBook Air MC965”
satuan = “21300000”
End Select
txtmerk.Text = merk
txths.Text = satuan
txtjj.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
cbokode.SetFocus
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttb = “”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.SetFocus
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
End If
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp.Text) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp.Text) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp.Text) * 0.5
Case Is > 125000000
txtdis.Text = Val(txthp.Text) * 0.2
End Select
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub
Private Sub cmdproses_Click()
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp.Text) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp.Text) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp.Text) * 0.5
Case Is > 125000000
txtdis.Text = Val(txthp.Text) * 0.2
End Select
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 A43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”
End Sub
rizkiwidastmikpringsewu 