Contoh Input Menu Pada Qbasic

CLS

menu:

PRINT "========MENU========"

PRINT "1. Biodata"

PRINT "2. Luas Segitiga"

PRINT "3. Exit"

INPUT "Pilihan menu? [1 s/d 3]: ", Pil

SELECT CASE Pil

CASE 1

PRINT
INPUT "Masukkan Nama : ", nama$

INPUT "Masukkan NPM : ", npm$

INPUT "Masukkan Kelas : ", kelas$

PRINT

PRINT "Nama anda adalah"; nama$; "Dengan NPM"; npm$; "dan berada dikelas"; kelas$

PRINT

INPUT "Mau kembali ke menu? [y/t]", p$

CLS

IF p$ = "y" THEN GOTO Menu

PRINT "Terimakasih"

CASE 2

PRINT
INPUT "Masukkan alas : ", a

INPUT "Masukkan tinggi : ", t

Luas = (a*t)/2

PRINT

PRINT "Luas segitiga adalah "; luas

PRINT

INPUT "Mau kembali ke menu? [y/t]", p$

CLS

IF p$ = "y" THEN GOTO menu

PRINT "Terimakasih"

CASE 3

PRINT

INPUT "Anda yakin ingin keluar? [y/t] ", p$

CLS

IF p$ = "y" THEN GOTO keluar

GOTO menu

CASE ELSE

PRINT "menu tidak ada,karena hanya ada 1 s/d 3 menu"

INPUT "Mau kembali ke menu? [y/t]", p$

CLS

IF p$ = "y" THEN GOTO menu

PRINT "Terimakasih"

END

keluar:

PRINT "anda sudah keluar dari program"

END
END SELECT