Contoh Program Wisata untuk Flowchart dan QBasic

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 " _AGEN PERJALANAN LANCAR_ "

PRINT " ************************ "

PRINT

COLOR 10, 0

INPUT " Masukan Kode Tujuan      : ", kode$
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... :)