Belajar Rumus Dasar Q-BASIC

1. MEMBUAT PENGHITUNGAN CEPAT DALAM PERKALIAN
PRINT " ==================================="
PRINT " MASUKAN NILAI YANG AKAN DI HITUNG"
PRINT " ==================================="
INPUT "PANJANG  :", PANJANG
INPUT "LEBAR    :", LEBAR
INPUT "TINGGI   :", TINGGI
HASIL = PANJANG * LEBAR * TINGGI
PRINT " ==================================="
PRINT "HASIL :", HASIL
PRINT " ==================================="
END

1. RUN (TAMPILAN HASIL)
===================================
 MASUKAN NILAI YANG AKAN DI HITUNG
===================================
PANJANG  : ?
LEBAR       : ?
TINGGI      : ?
===================================
HASIL : (Hasil akan keluar setelah anda isi yg di atas)
===================================

2. MEMBUAT BIODATA
PRINT "============================"
PRINT "PROGRAM BIODATA MAHASISWA"
PRINT "============================"
INPUT "MASUKAN NAMA ANDA :", NAMA$
INPUT "MASUKAN KELAS ANDA:", KELAS$
INPUT "MASUKAN NPM ANDA  :", NPM$
PRINT "============================="
PRINT "NAMA ANDA  :", NAMA$
PRINT "KELAS ANDA :", KELAS$
PRINT "NPM ANDA   :", NPM$
PRINT "============================="
END

2. RUN (TAMPILAN HASIL)
==============================
PROGRAM BIODATA MAHASISWA
==============================
MASUKAN NAMA ANDA   : ?
MASUKAN KELAS ANDA  : ?
MASUKAN NPM ANDA      : ?
=============================
NAMA ANDA  : (nama akan keluar setelah anda isi yg di atas)
KELAS ANDA  :(nama akan keluar setelah anda isi yg di atas)
NPM ANDA      :(nama akan keluar setelah anda isi yg di atas)
=============================

3. MEMBUAT NAMA LANGSUNG
NAMA$ = "ABDURROHMAN"
KELAS$ = "1DB01"
NPM$ = "30114065"
PRINT NAMA$, KELAS$, NPM$,
END

3. RUN (TAMPILAN HASIL)
ABDURROHMAN                1DB01                30114065

4. EDISI PERTANYAAN
20 CLS
PRINT "[][][][][][]][][][][][][][][[[][]][][][][]"
PRINT "    JAWAB LAH PERTANYAAN DI BAWAH INI"
PRINT "[][][][][][]][][][][][][][][[[][]][][][][]"
PRINT "  "
PRINT "1.DIMANA KAH KOTA KARAWANG BERADA.?"
PRINT "   A. JAWA TIMUR"
PRINT "   B. JAWA TENGAH"
PRINT "   C. JAWA BARAT"
PRINT "   D. JAWA SELATAN"
INPUT A$
IF A$ = "C" THEN
    PRINT " SELAMAT JAWABAN ANDA BENAR"
    PRINT "TEKAN ENTER UNTUK LANJUTKAN" ELSE
    PRINT "  MAAF JAWABAN ANDA SALAH"
    PRINT "   TEKAN N UNTUK KEMBALI"
    PRINT "TEKAN ENTER UNTUK LANJUTKAN"
END IF
INPUT A$
IF A$ = "N" THEN GOTO 20

30 CLS
PRINT "2. DIMANA KAH KOTA MAGELANG BERADA"
PRINT "   A.JAWA BARAT"
PRINT "   B.JAWA TENGAH"
PRINT "   C.JAWA TIMUR"
PRINT "   D.JAWA SELATAN"
INPUT A$
IF A$ = "B" THEN
    PRINT " SELAMAT JAWABAN ANDA BENAR"
    PRINT "TEKAN ENTER UNTUK LANJUTKAN" ELSE
    PRINT "  MAAF JAWABAN ANDA SALAH"
    PRINT "   TEKAN N UNTUK KEMBALI"
    PRINT "TEKAN ENTER UNTUK LANJUTKAN"
END IF
INPUT A$
IF A$ = "N" THEN GOTO 30
40 CLS
PRINT "3. SIAPA KAH TOKOH PALING GANTENG SEDUNIA.?"
PRINT "   A.AKU"
PRINT "   B.KAMU"
PRINT "   C.DIA"
PRINT "   D.TIDAK ADA"
INPUT A$
IF A$ = "A" THEN
    PRINT " SELAMAT JAWABAN ANDA BENAR"
    PRINT "TEKAN ENTER UNTUK LANJUTKAN" ELSE
    PRINT "  MAAF JAWABAN ANDA SALAH"
    PRINT "   TEKAN N UNTUK KEMBALI"
    PRINT "TEKAN ENTER UNTUK LANJUTKAN"
END IF
INPUT A$
IF A$ = "N" THEN GOTO 40


END

4. RUN (TAMPILAN HASIL)
[][][][][][]][][][][][][][][[[][]][][][][]
JAWAB LAH PERTANYAAN DI BAWAH INI
[][][][][][]][][][][][][][][[[][]][][][][]

PRINT "1.DIMANA KAH KOTA KARAWANG BERADA.?"
PRINT "   A. JAWA TIMUR"
PRINT "   B. JAWA TENGAH"
PRINT "   C. JAWA BARAT"
PRINT "   D. JAWA SELATAN"
? (tulis jawaban menurut anda)
(bila salah akan muncultekan N untuk kembali)
(bila benar akan muncul kata ENTER untuk lanjutkan)

DAN SETERUS NYA.... ^_^

5. MEMBUAT DASAR PASWORD
 PRINT "INPUT YOUR PASSWORD"
A$ = "COBA"
INPUT A$
IF A$ = "COBA" THEN
    PRINT "LOGIN SUCCESS!,THANKS YOU!" ELSE GOTO 20
    20 PRINT "LOGIN ERROR!"
END IF
END

5. RUN (TAMPILAN HASIL)
(ini bila pasword nya benar)

INPUT YOUR PASSWORD
? COBA
LOGIN SUCCESS!,THANKS YOU

(ini bila pasword nya salah)

INPUT YOUR PASSWORD
? TIDAK TAHU
LOGIN ERROR!