Malem semua....
gak terasa ya.. sudah mau pergantian tahun, hehehe
gimana nih sobat tytanisme...untuk acara tahun baruan kali ini, pasti menyenagkan kan?...
yaaah malam-malam gini sampai saya sempetin buat posting tugas kuliah ni...
s'moga aja bisa bermanfaat buat kalian di tahun baru ini. Terimaksih. ^_^
Pada postingan kali ini saya mencoba membuat bentuk flowchart dan QBasic untuk program wisata, berikut detailnya....
Gambar disamping contoh untuk bentuk flowchartnya,.
Sedangkan untuk QBasicnya disini kita dapat membuat programnya untuk mengetahui berapa total harga yang harus dibayar, karena secara otomatis sudah dijalankan termasuk diskonya.
Sebelumya tuliskan sintax seperti berikut ini:
DO
CLS
Nama$ = ""
kode$ = ""
Fasilitas$ = ""
Paket$ = ""
Perorang& = 0
Peserta% = 0
Diskon& = 0
Pembayaran& = 0
Tanya$ = ""
COLOR 12, 0
PRINT " DAFTAR PERJALANAN WISATA "
PRINT " DAFTAR PERJALANAN WISATA "
PRINT " _AGEN PERJALANAN LANCAR_ "
PRINT " ************************ "
PRINT
COLOR 10, 0
INPUT " Masukan Kode Tujuan : ", kode$
INPUT " Masukan Jumlah Peserta : ", Peserta%
INPUT " Masukan Jumlah Peserta : ", Peserta%
INPUT " Masukkan Jenis Paket : ", Paket$
IF kode$ = "BTR" OR kode$ = "btr" THEN
Nama$ = "Baturraden"
Fasilitas$ = "Angkot Ijo"
Perorang& = 20000
ELSEIF kode$ = "BAL" OR kode$ = "bal"
THEN
Nama$ = "Bali"
Fasilitas$ = "Hotel+Akomodasi"
Perorang& = 500000
ELSEIF kode$ = "PND" OR kode$ = "pnd"
THEN
Nama$ = "Pangandaran"
Fasilitas$ = "Pakaian Renang"
Perorang& = 150000
ELSE
Nama$ = "Borobudur"
Fasilitas$ = "Bus AC + TV"
Perorang& = 250000
END IF
IF Paket$ = "A" OR Paket$ = "a" THEN
IF Peserta% > 20 THEN Diskon& = 20 ELSE IF pesrta%
> 15 THEN Diskon& = 10 ELSE Diskon& = 5
ELSE Diskon& = 0
END IF
PRINT " Tujuan Wisata : "; Nama$
PRINT " Fasilitas : "; Fasilitas$
PRINT " Biaya Perorang :Rp."; Perorang&
PRINT " Total Biaya :Rp."; Perorang& *
Peserta%
PRINT " Diskon :Rp."; Diskon& *
Perorang& * Peserta% / 100
PRINT " Total Bayar
:Rp.";
Perorang& * Peserta% - Diskon& * Perorang& * Peserta% / 100
PRINT
COLOR 15, 0
INPUT " Pembayaran :Rp.", Pembayaran&
PRINT " Kembali :Rp."; Pembayaran& -
Perorang& * Peserta% + Diskon& * Perorang& * Peserta% / 100
PRINT
COLOR 13, 0
INPUT " Menghitung lagi? [Y/T] : ", Tanya$
LOOP UNTIL Tanya$ = "T"
PRINT
PRINT
COLOR 11, 0
PRINT " TERIMAKASIH TELAH MENGGUNAKAN JASA KAMI. "
PRINT " *SEE YOU LATER* "
Berikut gambarnya, karena tidak cukup, jadi saya pisahkan.
Ket:
- Statement ClS, untuk menghapus layar output yang sudah lama sehingga output program tidak bertumpuk.
- Statement PRINT, digunakan untuk menampilkan data dari hasil pengolahan pada layar tampilan/layar output.
- Statement END digunakan untuk keluar dari program QBasic
- statement COLOR untuk memberikan warna pada tulisan
Ok dechh... setelah proses yang panjang, berikut hasilnya setelah di run > star :
Selamat mencoba!, semoga bermanfaat... :)
