Ini adalah contoh pembuatan bahasa pemrogaman basic untuk pembuatan cover menu.kali ini saya akan share codingnya cukup sedikit anda ganti perintah-perintahnya sesuai dengan yang anda mau...selamat mencoba semoga membantu anda terima kasih.
CLS:KEY OFF
SUB MENU
FOR I=1 TO 24
COLOR 09,11
LOCATE I,01 :
?STRING$(79,CHR$(205))
DELAY 0.01
NEXT I
COLOR 03
LOCATE 5,16 : ?
"Sekolah Tinggi Manajemen Informatika & Komputer "
FOR I=7 TO 19
COLOR 10,09
LOCATE I,22 : ?
STRING$(35," ")
DELAY 0.1
NEXT I
COLOR 20,11
CLS
FOR I=7 TO 19
COLOR 08,11
LOCATE I,22 : ? STRING$(35,"
")
NEXT I
COLOR 17,09
LOCATE 06,27 : ? "
M E N U - U T A M A "
COLOR 13,09
LOCATE 08,27 : ? "
[1] I N P U T D A T A "
LOCATE 10,27 : ? "
[2] E D I T D A T A "
LOCATE 12,27 : ? "
[3] L I H A T D A T A "
LOCATE 14,27 : ? "
[4] T A M B A H D A T A "
LOCATE 16,27 : ? "
[5] L A P O R A N "
LOCATE 18,27 : ? "
[6] M A I N M E N U "
COLOR 07,11
LOCATE 08,52 : ?
CHR$(220)
LOCATE 09,28 : ? STRING$(25,CHR$(223))
LOCATE 10,52 : ?
CHR$(220)
LOCATE 11,28 : ?
STRING$(25,CHR$(223))
LOCATE 12,52 : ?
CHR$(220)
LOCATE 13,28 : ? STRING$(25,CHR$(223))
LOCATE 14,52 : ?
CHR$(220)
LOCATE 15,28 : ?
STRING$(25,CHR$(223))
LOCATE 16,52 : ?
CHR$(220)
LOCATE 17,28 : ?
STRING$(25,CHR$(223))
LOCATE 18,52 : ?
CHR$(220)
LOCATE 19,28 : ?
STRING$(25,CHR$(223))
COLOR 14,0 : LOCATE 21,32 : ? "PILIH [1 - 6] :"
DO
WHILE NOT INSTAT:WEND
PILIH$=INKEY$
LOOP UNTIL
INSTR("123456",PILIH$)
? PILIH$
SELECT CASE PILIH$
CASE "1"
CALL SATU
CASE "2"
CALL DUA
CASE "3"
CALL TIGA
CASE "4"
CALL EMPAT
CASE "5"
CALL LIMA
CASE "6"
CLS : SYSTEM
END SELECT
END SUB
CALL MENU
'MEMANGGIL SUB MENU
PILIHAN
SUB SATU
CLS
END SUB
CALL MENU
SUB DUA
END SUB
CALL MENU
SUB TIGA
END SUB
CALL MENU
SUB EMPAT
END SUB
CALL MENU
SUB LIMA
END SUB
CALL MENU
No comments:
Post a Comment