kalau belum punya QBasic bisa download disini:QBasic Download
pada kesempatan kali ini saya mau ngasih contoh program wisata pada QBasic
ok langsung aja ke contohnya,untuk membuat programnya,silahkan tulis syntax di bawah ini….
DO
CLS
NAMA$ = “”
KODE$ = “”
FASILITAS$ = “”
PERORANG& = 0
PESERTA% = 0
PAKET$ = “”
DISKON& = 0
TANYA$ = “”
PEMBAYARAN& = 0
PRINT ”                      >> DAFTAR PERJALANAN WISATA<<”
PRINT ”                        >>AGEN PERJALANAN LANCAR<<”
PRINT
INPUT ” MASUKKAN KODE TUJUAN    : “, KODE$
INPUT ” MASUKKAN 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 PESERTA% > 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
INPUT ” PEMBAYARAN              : RP. “, PEMBAYARAN&
PRINT ” KEMBALI                 : RP.”; PEMBAYARAN& – PERORANG& * PESERTA% + DISKON& * PERORANG& * PESERTA% / 100
PRINT
INPUT ” MENGHITUNG LAGI? [Y/T]  : “, TANYA$
LOOP UNTIL TANYA$ = “T”
PRINT
PRINT
COLOR 11, 0
PRINT ” TERIMAKASIH TELAH MENGGUNAKAN JASA KAMI.”
END
tampilanya seperti dibawah ini
New Picture-vert
Selanjutnya cuma  tinggal PILIH RUN > START atau bisa juga dengan menekan tombol F5
Setelah di RUN atau menekan tombol F5 akan muncul gambar seperti di bawah
b
keterangan:
CLS, atau clear screen dimana setiap kita menjalankan program yang dibuat selalu dengan layar yang bersih tidak ada sisa angka dari sebelumnya.
PRINT, adalah perintah yang digunakan untuk mencetak hasil program yang dibuat.
INPUT, adalah perintah untuk memasukan sebuah variabel yang ingin ditambahkan.
END, adalah untuk mengakhiri.
LOOP UNTIL ,melakukan perulangan
DO,untuk kembali ke awal pemesanan DO
COLOR,untuk memberikan warna
bentuk flowchartnya seperti gambar di bawah ini :
New Picture
2
Nah mungkin sedikit dlu yang saya share, semoga bermanfaat untuk kalian yang sudah membaca dan menyimak serta mencobanya, jika ingin menambahkan silahkan berkomentar nanti akan saya update
Wassalamualaikum wr wb