tugas 12 program penjualan laptop

JDVFD cats

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 MD314”

Cbokode.AddItem “Apple MD322”

Cbokode.AddItem “Apple MC965”

End Sub

 

Private Sub Cbokode_Click()

Dim merk, HS As String

Select Case Cbokode.Text

Case “Asus A43SA”

merk = “Asus A43SA-VX090D”

HS = “5500000”

Case “Asus A43SD”

merk = “Asus A43SD-VX052D”

HS = “4500000”

Case “Asus A43SJ”

merk = “Asus A43SJ-VX792D”

HS = “4300000”

Case “Asus A43TA”

merk = “Asus A43TA-VX034D”

HS = “4900000”

Case “Asus N43SL”

merk = “Asus N43SL-VX264D”

HS = “4300000”

Case “Apple MD311”

merk = “Apple MacBook Pro MD311”

HS = “19300000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD313”

HS = “24200000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD314”

HS = “11900000”

Case “Apple MD322”

merk = “Apple MacBook Pro MD322”

HS = “14700000”

Case “Apple MC965”

merk = “Apple MacBook Air MC965”

HS = “21300000”

End Select

Txtmerk.Text = merk

Txths.Text = HS

Txtjj.SetFocus

End Sub

 

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths) * Val(Txtjj)

If Val(Txthp) > 140000000 Then

Txtdiskon = Txthp.Text * 0.15

Txttb = Txthp.Text – Txtdiskon.Text

Else

If Val(Txthp) > 135000000 Then

Txtdiskon = Txthp.Text * 0.1

Txttb = Txthp.Text – Txtdiskon.Text

Else

If Val(Txthp) > 130000000 Then

Txtdiskon = Txthp.Text * 0.05

Txttb = Txthp.Text – Txtdiskon.Text

Else

If Val(Txthp) > 125000000 Then

Txtdiskon = Txthp.Text * 0.02

Txttb = Txthp.Text – Txtdiskon.Text

Else

If Val(Txthp) <= 125000000 Then

Txtdiskon = “0”

Txttb = Txthp.Text – Txtdiskon.Text

End If

End If

End If

End If

End If

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtmerk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdiskon.Text = “”

Txttb.Text = “”

End Sub

 

Iklan

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 )

Foto Google+

You are commenting using your Google+ 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 )

Connecting to %s