Aplikasi Penjualan Barang Php Bisnis Tiket Pesawat. Laporan data Tiket Pesawat selama ini memang sudah terkomputerisasi makalah Tugas Akhir dengan. Ingin usaha menjadi agen tiket pesawat?? Membuat Aplikasi Pemesanan Tiket Pesawat; Free Download Software MiniLyric. Membuat Aplikasi Penjualan.

Ini Soalnya: Buat aplikasi Pemesanan Tiket Pesawat seperti tampak di bawah ini 1. User terlebih dahulu memilih asal keberangkatan pada cboAsal dan tujuan pada cboTujuan. Download Iflix To Blackberry Download Preactivated Version there. Asal dan tujuan tidak boleh sama. Tampilkan harga tiket pada txtHrgTiket setelah user memilih salah satu kelas apakah kelas bisnis (OptBisnis) atau kelas ekonomi (OptEkonomi). Isi tanggal pada LstTgl_B dan LstTgl_K, bulan pada LstBulan_B dan LstBulan_K, tahun pada LstThn_B dan LstThn_K.

Validasi tanggal berangkat dan tanggal kembali, tanggal kembali tidak boleh melebihi tanggal berangkat. Lakukan perhitungan sub total (sub total = (jumlah penumpang dewasa * harga tiket)+(jumlah penumpang bayi * harga tiket)). Harga tiket untuk bayi sebesar 15% dari harga tiket orang dewasa. Lakukan perhitungan total bayar (total bayar = sub total + bagasi).

Tombol cmdCancel digunakan untuk membatalkan transaksi (bersihkan form) dan tombol cmdExit digunakan untuk keluar dari program 8. DESAIN FORM Anda Penyelesaian Program menurut saya: 1.

Kita buad desaign awal aplikasi ini, seperti ini: 2. Kemudian Kita atur propertiesnya label 1 caption: Dari label 2 caption:Ke label 3 caption: Kelas label 4 caption:Harga label 5 caption:Berangkat label 6 caption: Kembali label 7 caption:Dewasa label 8 caption: Bayi label 9 caption: Sub Total Rp. Label 10 caption: Total Bayar: Rp.

Private Sub OptBisnis_Click() If CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 1 Then TxtHarga.Text = 1855000 ElseIf CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 2 Then TxtHarga.Text = 1200000 ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 0 Then TxtHarga.Text = 1700000 ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 0 Then TxtHarga.Text = 1055000 Else MsgBox 'Kota Asal dan Kota Tujuan Tidak Boleh Sama', vbInformation, 'WARNING!' End If End Sub Private Sub OptEkonomi_Click() If CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 1 Then TxtHarga.Text = 1050000 ElseIf CboAsal.ListIndex = 0 And CboTujuan.ListIndex = 2 Then TxtHarga.Text = 750000 ElseIf CboAsal.ListIndex = 1 And CboTujuan.ListIndex = 0 Then TxtHarga.Text = 900000 ElseIf CboAsal.ListIndex = 2 And CboTujuan.ListIndex = 0 Then TxtHarga.Text = 600000 Else MsgBox 'Kota Asal dan Kota Tujuan Tidak Boleh Sama', vbInformation, 'WARNING!'

End If End Sub Lakukan perhitungan sub total (sub total = (jumlah penumpang dewasa * harga tiket)+(jumlah penumpang bayi * harga tiket)). Harga tiket untuk bayi sebesar 15% dari harga tiket orang dewasa. Lakukan perhitungan total bayar (total bayar = sub total + bagasi). Saya asumsikan perhitungan di mulai ketika user melakukan check box pada bagasi. Pertama kita inilisasikan dulu.