contoh program menu Nama, Kelas, NPM, dan CETAK DENGAN QBASIC
02.00AM
comments
*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:)
0 komentar:
Posting Komentar