entri penjualan komputer

 

Private Sub cbokk_Click()

Dim Jk, Hk As String

Select Case cbokk.Text
Case “P205”
Jk = “Pentium II 500 Mega Hz”
Hs = “1500000”Case “P308”
Jk = “Pentium III 800 Mega Hz”
Hs = “2100000”
Case “P310”
Jk = “Pentium III 1.0 Giga Hz”
Hs = “3500000”
Case “P415”
Jk = “Pentium IV 1.5 Giga Hz”
Case “P417”
Jk = “Pentium IV 1.7 Giga Hz”Hs = “4200000”
Case “P419”
Jk = “Pentium IV 1.9 Giga Hz”
Hs = “5500000”
End Select
txtjk.Text = Jk
txths.Text = Hs
txtjj.SetFocus
End Sub
Private Sub CmdProses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdiskon.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 25000000 Thentxtdiskon.Text = Val(txthp.Text) * 0.1
ElseIf txthp.Text > 20000000 Then
txtdiskon.Text = Val(txthp.Text) * 0.05
ElseIf txthp.Text > 15000000 Then
txtdiskon.Text = Val(txthp.Text) * 0.02
End If
txthb.Text = Val(txthp.Text) – Val(txtdiskon.Text)
End Sub

Private Sub cmdhitung_Click()cbokk.SetFocus
cbokk.Text = “”
txtjk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdiskon.Text = “”
txthb.Text = “”
End Sub

Private Sub cmdclose_Click()
Unload Me
End Sub

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: