Visual Basic "Perhitungan Biaya Tiket Ferry"

Diketahui Perhitungan Biaya Kapal Ferry Sebagai Berikut:

Data :

-Nama Penumpang,

-Nomor Tiket,

-Tujuan (Tanjung Batu – Sungai Guntung), (Tanjung Batu – Pulau Burung), (Tanjung Batu – Batam).

-Harga Tiket berdasarkan Tujuan.

Jika Tujuan   Tanjung Batu – Sungai Guntung, maka    Harga Tiket = Rp. 55.000.-

                      Tanjung Batu – Pulau Burung, maka        Harga Tiket = Rp. 35.000.-

                      Tanjung Batu – Batam, maka                    Harga Tiket = Rp. 100.000.-

-Diskon, Asuransi, dan Pas Pelabuhan berdasarkan Jenis Penumpang.

Jika Jenis Penumpang Anak- anak, maka    Diskon = 50% dari harga tiket

                                                                     Asuransi = 4% dari harga tiket

                                                                     Pas Pelabuhan = 1000

Jika Jenis Penumpang Lansia, maka            Diskon = 20% dari harga tiket

                                                                     Asuransi = 5% dari harga tiket

                                                                     Pas Pelabuhan = 1500

Jika Jenis Penumpang Veteran, maka          Diskon = 30 % dari harga tiket.

                                                                      Asuransi = 5% dari harga tiket

                                                                     Pas Pelabuhan = 1500

Jika Jenis Penumpang Dewasa, maka          Diskon = 0% dari harga tiket.

                                                                     Asuransi = 8% dari harga tiket

                                                                     Pas Pelabuhan = 2000

-Biaya Angkutan Barang berdasarkan Berat Barang.

Jika Berat Barang lebih besar Sama Dengan dari 20 kg maka angkutan barang = 10.000.-

Jika Berat Barang kecil dari 20 kg maka angkutan barang = Rp.5.000.-

-Jumlah bayar = Harga Tiket – Diskon + Asuransi + Pas Pelabuhan + Biaya Angkutan Barang

JAWABAN :

 RUMUS :

 Private Sub Combo1_Click()
If Combo1 = "Tanjung Batu - Sungai Guntung" Then
    Text3 = 55000
Else
If Combo1 = "Tanjung Batu - Pulau Burung" Then
    Text3 = 35000
Else
    Text3 = 100000
End If
End If

End Sub
Private Sub Combo2_Click()
If Combo2 = "Anak - Anak" Then
    Text4 = 0.5 * Val(Text3)
    Text5 = 0.04 * Val(Text3)
    Text6 = 1000
Else
If Combo2 = "Lansia" Then
    Text4 = 0.2 * Val(Text3)
    Text5 = 0.05 * Val(Text3)
    Text6 = 1500
Else
If Combo2 = "Veteran" Then
    Text4 = 0.3 * Val(Text3)
    Text5 = 0.05 * Val(Text3)
    Text6 = 1500
Else
    Text4 = 0
    Text5 = 0.08 * Val(Text3)
    Text6 = 2000
End If
End If
End If

End Sub

Private Sub Form_Load()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
Text7 = Clear
Text8 = Clear
Text9 = Clear


End Sub

Private Sub Text7_Change()
If Val(Text7) >= 20 Then
    Text8 = 10000
Else
    Text8 = 5000
End If
Text9 = Val(Text3) - Val(Text4) + Val(Text5) + Val(Text6) + Val(Text8)
End Sub

Private Sub Timer1_Timer()
Label14.Caption = Format(Now(), "hh:mm:ss")
End Sub

OK.. SELESAI ...!!!

'''''''''''''''''''''GOOD LUCK''''''''''''''''''''''''''''