6.1

abi 6

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 MD313″
cbokode.AddItem “Apple MD322″
cbokode.AddItem “Apple MC965″
End Sub

Private Sub Cbokode_Click()
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 Cmdlagi_Click()
cbokode.SetFocus
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttb = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Advertisements