NPM : 1406629276
Program ini bertujuan untuk mempermudah proses reservasi pesawat. Dalam pembuatan program ini saya menggunakan aplikasi Visual Basic 2013.
Nama : Nama penumpang yang melakukan reservasi
Tujuan Penerbangan : Berisi kota asal dan kota tujuan calon penumpang
Waktu Penerbangan : kapan calon penumpang ingin melakukan keberangkatan dan apakah itu sekali jalan atau pulang pergi
Jenis Pembayaran : Metode pembayaran yang ingin dilakukan
Jenis Pesawat : Pesawat apa yang ingin digunakan
Tiket : Berisi jumlah harga yang harus dibayar berdasarkan banyaknya pemesanan tiket
Berikut ini sistem reservasinya :
- Isi data nama pereservasi dan isi kota tujuan serta kota yang ingin dituju
- Pilih tanggal keberangkatan dan rencana keberangkatan
- Pilih jenis pembayaran yang ingin dilakukan
- Pilih jenis pesawat yang ingin digunakan
- Isilah berapa banyaknya tiket yang ingin ada pesan kemudian akan muncul harga total tiket yang harus dibayar
Jika sudah selesai melakukan reservasi, klik tombol konfirmasi, lalu klik ok
Source Coding :
Public Class Form1
Dim a, b, c, d As Integer
Private Sub RbGaruda_CheckedChanged(sender As Object, e As EventArgs) Handles RbGaruda.CheckedChanged
a = 4000000
TxtHargatiket.Text = a * Val(TxtJumlahpenumpang.Text)
PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Garuda.jpg")
If RbGaruda.Checked = False Then
TxtHargatiket.Text = ""
End If
End Sub
Private Sub RbCitilink_CheckedChanged(sender As Object, e As EventArgs) Handles RbCitilink.CheckedChanged
b = 2500000
TxtHargatiket.Text = b
TxtHargatiket.Text = b * Val(TxtJumlahpenumpang.Text)
PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Citilink.jpg")
If RbCitilink.Checked = False Then
TxtHargatiket.Text = ""
End If
End Sub
Private Sub RbSriwijaya_CheckedChanged(sender As Object, e As EventArgs) Handles RbSriwijaya.CheckedChanged
c = 1500000
TxtHargatiket.Text = c
TxtHargatiket.Text = c * Val(TxtJumlahpenumpang.Text)
PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Sriwijaya.jpg")
If RbSriwijaya.Checked = False Then
TxtHargatiket.Text = ""
End If
End Sub
Private Sub RbLion_CheckedChanged(sender As Object, e As EventArgs) Handles RbLion.CheckedChanged
d = 2000000
TxtHargatiket.Text = d
TxtJumlahpenumpang.Text = d * Val(TxtJumlahpenumpang.Text)
PicJenispesawat.Image = System.Drawing.Image.FromFile("C:\Users\Asus\Pictures\Lion.jpg")
If RbLion.Checked = False Then
TxtHargatiket.Text = ""
End If
End Sub
Private Sub BtnKonfirmasi_Click(sender As Object, e As EventArgs) Handles BtnKonfirmasi.Click
MsgBox("Terima Kasih Atas Reservasi Anda")
Close()
End Sub
End Class
