Tugas 3 Program 4

Private Sub Cbokode_Click()

Dim merk, harga As String

Select Case Cbokode

Case "MC965"

merk = "Apple MacBook Air MC965"

harga = "12800000"

Case "MC966"

merk = "Apple MacBook Air MC966"

harga = "15800000"

Case "MC968"

merk = "Apple MacBook Air MC968"

harga = "9900000"

Case "MC969"

merk = "Apple MacBook Air MC969"

harga = "11900000"

Case "MC700"

merk = "Apple MacBook Pro MC700"

harga = "10800000"

Case "MC721"

merk = "Apple MacBook Pro MC721"

harga = "15900000"

Case "MC723"

merk = "Apple MacBook Pro MC723"

harga = "19300000"

Case "MC724"

merk = "Apple MacBook Pro MC724"

harga = "13700000"

Case "MC311"

merk = "Apple MacBook Pro MC311"

harga = "24200000"

Case "MC313"

merk = "Apple MacBook Pro MC313"

harga = "11900000"

Case "MC314"

merk = "Apple MacBook Pro MC314"

harga = "14700000"

Case "MC318"

merk = "Apple MacBook Pro MC318"

harga = "17600000"

Case "MC322"

merk = "Apple MacBook Pro MC322"

harga = "21300000"

Case "MC965"

merk = "Apple MacBook Air MC965"

harga = "12800000"

Case "MC966"

merk = "Apple MacBook Air MC966"

harga = "15800000"

End Select

Txtmerk = merk

Txths = harga

Txtjj.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Kosong

End Sub

Public Sub Kosong()

Cbokode.SetFocus

Txtmerk = ""

Txths = ""

Cbokode = ""

Txtjj = ""

Txthp = ""

Txtdis = ""

Txttb = ""

End Sub

Private Sub Cmdproses_Click()

Txthp = Val(Txtjj) * Val(Txths)

If Txthp > "140000000" Then

Txtdis = (0.15) * Val(Txthp)

ElseIf Txthp > "135000000" Then

Txtdis = (0.1) * Val(Txthp)

ElseIf Txthp > "130000000" Then

Txtdis = (0.05) * Val(Txthp)

ElseIf Txthp > "125000000" Then

Txtdis = (0.02) * Val(Txthp)

Else

End If

Txttb = Val(Txthp) - Val(Txtdis)

End Sub

Private Sub Form_Load()

Cbokode.AddItem "MC965"

Cbokode.AddItem "MC966"

Cbokode.AddItem "MC968"

Cbokode.AddItem "MC969"

Cbokode.AddItem "MC700"

Cbokode.AddItem "MC721"

Cbokode.AddItem "MC723"

Cbokode.AddItem "MC724"

Cbokode.AddItem "MC311"

Cbokode.AddItem "MC313"

Cbokode.AddItem "MC314"

Cbokode.AddItem "MC318"

Cbokode.AddItem "MC322"

Cbokode.AddItem "MC965"

Cbokode.AddItem "MC966"

End Sub