ENTRI PENJUALAN KOMPUTER

Private Sub cmdbtal_Click()
Form2.Hide
Form1.Show
End Sub

Private Sub cmdps_Click()
Form2.Hide
Form1.Hide
End Sub

Private Sub cmbkk_click()
Dim jk, hs As String
Select Case cmbkk.Text
Case “P205”
txtjk.Text = “Pentium II 500 MG Hz”
txths.Text = “1500000”
Case “P308”
txtjk.Text = “Pentium III 800 MG Hz”
txths.Text = “2100000”
Case “P310”
txtjk.Text = “Pentium III 1.0 GB Hz”
txths.Text = “3500000”
Case “P415”
txtjk.Text = “Pentium IV 1.5 GB Hz”
txths.Text = “4000000”
Case “P417”
txtjk.Text = “Pentium IV 1.7 GB Hz”
txths.Text = “4200000”
Case “P419”
txtjk.Text = “Pentium IV 1.9 GB Hz”
txths.Text = “5500000”
End Select
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdproses_Click()
Dim hs, jj, hp, ds As Integer
Dim kk As String
hs = Val(txths.Text)
jj = Val(txtjj.Text)
hp = Val(txthp.Text)
ds = Val(txtds.Text)
hp = hs * jj
txthp.Text = hp
Select Case txthp.Text
Case Is > 30000000
txtds.Text = (hp * 15) / 100
Case Is > 25000000
txtds.Text = (hp * 10) / 100
Case Is > 20000000
txtds.Text = (hp * 5) / 100
Case Is > 15000000
txtds.Text = (hp * 2) / 100
End Select
txthb.Text = Val(txthp.Text) – Val(txtds.Text)
End Sub

Private Sub cmdulang_Click()
cmbkk.SetFocus
cmbkk = “”
txtjk = “”
txths = “”
txtjj = “”
txthp = “”
txtds = “”
txthb = “”
End Sub

Private Sub Form_Load()
cmbkk.AddItem “P205”
cmbkk.AddItem “P308”
cmbkk.AddItem “P310”
cmbkk.AddItem “P415”
cmbkk.AddItem “P417”
cmbkk.AddItem “P419”
End Sub
Private Sub cmdbtal_Click()
Form2.Hide
Form1.Show
End Sub

Private Sub cmdps_Click()
Form2.Hide
Form1.Hide
End Sub

Private Sub cmbkk_click()
Dim jk, hs As String
Select Case cmbkk.Text
Case “P205”
txtjk.Text = “Pentium II 500 MG Hz”
txths.Text = “1500000”
Case “P308”
txtjk.Text = “Pentium III 800 MG Hz”
txths.Text = “2100000”
Case “P310”
txtjk.Text = “Pentium III 1.0 GB Hz”
txths.Text = “3500000”
Case “P415”
txtjk.Text = “Pentium IV 1.5 GB Hz”
txths.Text = “4000000”
Case “P417”
txtjk.Text = “Pentium IV 1.7 GB Hz”
txths.Text = “4200000”
Case “P419”
txtjk.Text = “Pentium IV 1.9 GB Hz”
txths.Text = “5500000”
End Select
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdproses_Click()
Dim hs, jj, hp, ds As Integer
Dim kk As String
hs = Val(txths.Text)
jj = Val(txtjj.Text)
hp = Val(txthp.Text)
ds = Val(txtds.Text)
hp = hs * jj
txthp.Text = hp
Select Case txthp.Text
Case Is > 30000000
txtds.Text = (hp * 15) / 100
Case Is > 25000000
txtds.Text = (hp * 10) / 100
Case Is > 20000000
txtds.Text = (hp * 5) / 100
Case Is > 15000000
txtds.Text = (hp * 2) / 100
End Select
txthb.Text = Val(txthp.Text) – Val(txtds.Text)
End Sub

Private Sub cmdulang_Click()
cmbkk.SetFocus
cmbkk = “”
txtjk = “”
txths = “”
txtjj = “”
txthp = “”
txtds = “”
txthb = “”
End Sub

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

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