QBasic, contoh program menu Nama, Kelas, NPM, dan CETAK

Penjelasan tentang QBasic**
kalau belum punya QBasic bisa download disini:QBasic Download

PROGRAM:










HASIL:
pil 1










pil 2










pil 3










pil 4










sedangkan jika kita pil 5 maka program akan langsung keluar "Press any key to continue"

codingnya:
CLS
DIM P AS INTEGER
10 PRINT "Menu"
PRINT "1.Input Nama"
PRINT "2.Input NPM"
PRINT "3.Input Kelas"
PRINT "4.Cetak Semua"
PRINT "5.EXIT"
INPUT "Pilihan Anda?", P
SELECT CASE P
CASE 1
CSL
DIM NM AS STRING
INPUT "Nama :", NM
GOSUB 10
CASE 2
CLS
DIM NPM AS LONG
INPUT "NPM :", NPM
GOSUB 10
CASE 3
CLS
DIM KLS AS STRING
INPUT "Kelas :", KLS
GOSUB 10
CASE 4
CLS
PRINT "Nama :"; NM
PRINT "NPM :"; NPM
PRINT "Kelas :"; KLS
GOSUB 10
CASE 5
CLS
PRINT "Exit"
END SELECT
END

selamat mencoba:)