QBasic Perpustakaan

CLS
PRINT "==========================="
PRINT "PERPUSTAKAAN POLTEK COLLEGE"
PRINT "==========================="

DIM nis AS STRING
DIM nm AS STRING
DIM jns AS STRING
DIM tp AS STRING
DIM lp AS INTEGER
DIM jb AS INTEGER
DIM jd AS INTEGER
DIM tipe AS STRING
DIM byr AS INTEGER
DIM jml AS INTEGER

INPUT "Masukkan NIS=", nis
INPUT "Masukkan Nama=", nm
INPUT "Masukkan Jenis(a/b/c)=", jns
INPUT "Masukkan Tanggal Pinjam=", tp
INPUT "Masukkan Lama Pinjam (hari)=", lp

PRINT "Nomor Induk Siswa=", nis
PRINT "Nama Siswa=", nm
PRINT "Jenis Buku=", jns

IF jns = "a" THEN
tipe = "MAJALAH"
byr = 1500
ELSEIF jns = "b" THEN
tipe = "NOVEL"
byr = 1200
ELSEIF jns = "c" THEN
tipe = "KOMIK"
byr = 1000
END IF

PRINT "Tipe=", tipe
PRINT "Tanggal Pinjam=", tp
PRINT "Lama pinjam (hari)=", lp

IF lp > 3 THEN
jml = (lp - 3) * 75 + byr
ELSE
jml = byr
END IF

PRINT "Jumlah Bayar (Rp.)=", jml