Tugas 6.1

rd 6.1

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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s