PROGRAM QBASIC “DAFTAR PERJALANAN WISATA”

Analisa Program QBASIC :

DO

CLS

NAMA$ = ""

KODE$ = ""

FASILITAS$ = ""

PERORANG& = 0

PESERTA% = 0

PAKET$ = ""

DISKON& = 0

TANYA$ = ""

PEMBAYARAN& = 0

COLOR 12, 0

PRINT " DAFTAR PERJALANAN WISATA"

PRINT " _AGEN PERJALANAN LANCAR_"

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

PRINT

COLOR 10, 0

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

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 " *RIZKY ELIA PAMBUDI / 0039*"

END

KET.
*Untuk tulisan yang berwarna merah, bertujuan untuk memberi warna pada setiap tulisan.
*Untuk tulisan yang berwarna hujau, bertujuan untuk mengulang perhitungan kembali jika memilih "Y" dan berakhir program jika memilih "T".
*Untuk tulisan yang berwarna biru, merupakan rumus untuk mencari Nama Tujuan, Fasilitas, dan Biaya Perorang.
*Untuk tulisan yang berwarna ungu, merupakan rumus untuk mencari Diskon.
*Untuk tulisan yang bercetak tebal, bertujuan untuk memasukkan data sesuai perintah.
*Untuk tulisan yang becetak miring, bertujuan untuk menampilkan data / program.

Flowchart :

Program Flowchart untuk mencari Nama Tujuan, Fasilitas, dan Biaya Perorang.

Program Flowchart untuk mencari Diskon.

Hasil dari program QBasic :