Soal program jual-beli sepeda motor.
Diketahui pembelian sepeda motor sbb:
Data yang diinput:
1. Nama pembei
2. Tanggal pembelian
3. Jumlah barang
4. Jenis barang
5. Harga barang
6. System pembayaran
Data yang di output:
1. Jumlah bayar
2. Diskon
Jika harga barang dibayar secara “cash” maka diskon 10% dari jumlah bayar.
Jika harga barang dibayar secara “credit” maka diskon 0.
Catatan:
Jenis barang dan system pembayaran menggunakan combo box.
Contoh tampilan program jual-beli sepeda motor
Private Sub Combo1_Click()
If Combo1 = "SUPRA X" Then
Text3 = 14000000
Else
If Combo1 = "REVO" Then
Text3 = 12000000
Else
If Combo1 = "VIXION" Then
Text3 = 21000000
Else
If Combo1 = "MIO" Then
Text3 = 11000000
Else
Text3 = 36000000
End If
End If
End If
End If
End Sub
Private Sub Combo2_Click()
If Combo2 = "CASH" Then
Text4 = Text2 * Text3
Text5 = Text3 / 10
Else
Text4 = Text2 * Text3 + Val(Text3) * 0.3
Text5 = 0
End If
Text6 = Text4 - Text5
End Sub
Private Sub Timer1_Timer()
Label12.Caption = Format(Now(), "HH:MM:SS")
Me.BackColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)
End Sub