DATA :
· Nama penumpang.
· Tujuan (Bangkinang, Jakarta, Tembilahan).
· Harga tiket berdasarkan tujuan.
§ Jika tujuan ke Bangkinang maka harga tiket adalah Rp.50.000.
§ Jika tujuan ke Jakarta maka harga tiket adalah Rp. 70.000.
§ Jika tujjuan ke Tembilahan maka harga tiket adalah Rp.80.000.
· Kode mobil (02/SV, 01/MS, 03MK).
§ Jika tujuan ke Bangkinang maka kode mobil adalah 02/SV
§ Jika tujuan ke Jakarta maka kode mobil adalah 01/MS
§ Jika tujuan ke Tembilahan kode mobil tiket adalah 03/MK
· Total harga = harga tiket * jumlah tiket + asuransi
· Asuransi berdasarkan jenis penumpang
§ Jika penumpang anak-anak maka asuransi 5% dari harga tiket
§ Jika penumpang dewasa maka asuransi 7% dari harga tiket
§ Jika penumpang lansia maka asuransi 9% dari harga tiket
§ Jika penumpang veteran maka asuransi 8% dari harga tiket
RUMUS :
Private Sub Combo1_Click()
If Combo1 = "bangkinang" Then
Text2 = "02/SV"
Text3 = 50000
Else
If Combo1 = "jakarta" Then
Text2 = "01/MS"
Text3 = 70000
Else
Text2 = "03/MK"
Text3 = 80000
End If
End If
End Sub
Private Sub Combo2_Click()
If Combo2 = "anak-anak" Then
Text5 = 0.05 * Val(Text3)
Else
If Combo2 = "dewasa" Then
Text5 = 0.07 * Val(Text3)
Else
If Combo2 = "lansia" Then
Text5 = 0.09 * Val(Text3)
Else
Text5 = 0.08 * Val(Text3)
End If
End If
End If
End Sub
Private Sub Command1_Click()
MsgBox ("Selesai")
End
End Sub
Private Sub Text4_Change()
Text6 = Val(Text3) * Val(Text4) + Val(Text5)
End Sub
Private Sub Timer1_Timer()
Label11.Caption = Format(Now(), "hh:mm:ss")
Me.BackColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)
End Sub