Ini adalah Soal B Ujian Tengah Semester saya, dan taukah anda saya cuma bisa menyelesaikan cuma soal no 1,2,3,7,8 saja dalam waktu 2 jam. Sangat menggenaskan, untuk menebusnya setidaknya saya perlu waktu 2 hari untuk menyelesaikannya soal ini. Huyuuuu pusiang kepala saya. Soal dan Jawaban bisa di download di 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. Asal dan tujuan tidak boleh sama.

Situs web pemesan tiket bioskop online juga sangat banyak tersedia di internet, bagi anda yang ingin membangun sebuah sistem pemesanan tiket online maka anda dapat memulainya saat ini. Anda dapat mengambil referensi souce kode aplikasi pemesan tiket Bioskop disini. Script aplikasi pemesanan tiket bioskop dapat anda download di SINI mudah sekali untuk anda permak sesuai dengan keinginan dan. Traveloka.com memberikan solusi kebutuhan wisata Anda, tiket pesawat, hotel & penginapan, kereta api, bus, rental mobil, kuliner, pembayaran dll.

Terjemahan naruto eps 76ers. 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.