Q BASIC

Membuat Program Dengan Statement Select Case

1 CLS
DIM a AS INTEGER
PRINT ; "--------PROGRAM MENU--------"
PRINT
PRINT ; "1. Program Biodata"
PRINT ; "2. Program For-Next"
PRINT ; "3. Program Do Until"
PRINT ; "4. Program Do While"
PRINT ; "5. EXIT"
PRINT
PRINT ; "----------------------------"
INPUT "Masukkan Pilihan Anda (angka) : ", a
SELECT CASE a

CASE 1
CLS
PRINT "------Program Biodata------"
PRINT
INPUT "Masukan Nama Anda  : ", nama$
INPUT "Masukan Kelas Anda : ", kelas$
INPUT "Masukan NPM Anda   : ", npm$
CLS
PRINT "-----BIODATA ANDA-----"
PRINT
PRINT "Nama Anda : "; nama$
PRINT "Kela Anda : "; kelas$
PRINT "NPM Anda  : "; npm$
2 INPUT "", q
INPUT "Tekan Enter untuk kembali ke menu", r
GOTO 1
END

CASE 2
CLS
PRINT "Program FOR - NEXT"
PRINT "------------------"
PRINT
INPUT "Masukan Angka : ", a
PRINT
FOR b = 1 TO a
FOR c = 1 TO b
PRINT ""; c;
NEXT c
PRINT
NEXT b
PRINT
GOTO 2

CASE 3
CLS
PRINT "-----Program Do Until------"
PRINT
INPUT "Masukan Angka : ", j
PRINT
DO UNTIL j >= 50
PRINT j
j=j+2
LOOP
PRINT
PRINT "Proses Selesai"
GOTO 2

CASE 4
CLS
PRINT "------Proram Do While------"
PRINT
INPUT "Masukan Angka : ", h
PRINT
DO WHILE i >= 1
i = i - 2
PRINT i;
LOOP
PRINT
PRINT
GOTO 2

CASE 5
CLS
LOCATE 8
PRINT , , "-------Harus Keluar Yah-------"
PRINT
END
CASE ELSE
PRINT
PRINT "Angka Yang Anda Masukkan Salah"
INPUT "", o
GOTO 1
END SELECT