tugas penjualan komputer

Private Sub CmdClose_Click()
End
End Sub

Private Sub cmdLagi_Click()
coKode = “”
txtJk = “”
txtHk = “”
txtJp = “”
txtHp = “”
txtDs = “”
txtHb = “”
coKode.SetFocus
End Sub
Private Sub cmdproses_click()
txtHp.Text = Val(txtJp.Text) * Val(txtHk.Text)
If txtHp.Text > 30000000 Then
txtDs.Text = Val(txtHp.Text) * 0.15
ElseIf txtHp.Text > 25000000 Then
txtDs.Text = Val(txtHp.Text) * 0.1
ElseIf txtHp.Text > 20000000 Then
txtDs.Text = Val(txtHp.Text) * 0.05
ElseIf txtHp.Text > 15000000 Then
txtDs.Text = Val(txtHp.Text) * 0.02
End If
txtHb.Text = Val(txtHp.Text) – Val(txtDs.Text)
End Sub
Private Sub coKode_Click()
Dim Jk, Hk As String
Select Case coKode.Text
Case “P205”
Jk = “Pentium II 500 Mega Hz”
Hk = “1500000”
Case “P308”
Jk = “Pentium III 800 Mega Hz”
Hk = “2100000”
Case “P310”
Jk = “Pentium III 1.0 Giga Hz”
Hk = “3500000”
Case “P415”
Jk = “Pentium IV 1.5 Giga Hz”
Hk = “4000000”
Case “P217”
Jk = “Pentium IV 1.7 Giga Hz”
Hk = “4200000”
Case “P19”
Jk = “Pentium IV 1.9 Mega Hz”
Hk = “5500000”
End Select
txtJk.Text = Jk
txtHk.Text = Hk
txtJp.SetFocus
End Sub

Private Sub Form_Load()
coKode.AddItem “P205”
coKode.AddItem “P308”
coKode.AddItem “P310”
coKode.AddItem “P415”
coKode.AddItem “P417”
coKode.AddItem “P419”
End Sub

 

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 )

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s