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