LATIHAN SOAL

Listing Programnya:
Private Sub cmdclear_Click()
kodeoli = ""
jumlahbeli = ""
merkoli = ""
hargaoli = ""
pembayaran = ""
potongan = ""
ppn = ""
service = ""
totalbayar = ""
uangbayar = ""
uangkembali = ""
Combo1.Text = ""
Option1.Value = 0
Option2.Value = 0
End Sub

Private Sub cmdhitung_Click()
If Option1 Then
pembayaran = Val(jumlahbeli) * Val(hargaoli) + 5000
    Else
pembayaran = Val(jumlahbeli) * Val(hargaoli) + 3000
End If
If pembayaran > 80000 Then
potongan = 0.1 * Val(pembayaran)
Else
potongan = 0
End If
ppn = 0.5 * Val(pembayaran)
totalbayar = Val(pembayaran) - Val(potongan) + Val(ppn)

End Sub

Private Sub Combo1_Click()
Dim kode
kode = Combo1.Text
Select Case kode
Case "Penzoil"
    merkoli = "Penzoil"
    hargaoli = 35000
Case "Agip"
    merkoli = "Agip"
    hargaoli = 30000
Case "Top One"
    merkoli = "Top One"
    hargaoli = 27500
Case "4"
    merkoli = "Mesran"
    hargaoli = 20000
End Select


End Sub

Private Sub Form_Load()
Combo1.AddItem "Penzoil"
Combo1.AddItem "Agip"
Combo1.AddItem "Top One"

End Sub

Private Sub Option1_Click()
service = 5000

End Sub

Private Sub Option2_Click()
service = 3000
End Sub

Private Sub uangbayar_lostfocus()
uangkembali = Val(uangbayar) - Val(totalbayar)
End Sub