Contoh Coding Cover Menu Bahasa Pemrogaman Basic

Bonvisa Satu Hati

 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

0 comments "Contoh Coding Cover Menu Bahasa Pemrogaman Basic ", Baca atau Masukkan Komentar

Post a Comment