1 / 22

PERTEMUAN KE 10

PERTEMUAN KE 10. MENU BERLAPIS . SISTEM MENU BERLAPIS. Apabila membuat sebuah sistem aplikasi program maka Menu yang dipakai berbentuk Menu Berlapis Pada Lapisan Pertama merupakan MENU UTAMA Pada Lapisan Kedua merupakan MENU

topper
Download Presentation

PERTEMUAN KE 10

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. PERTEMUAN KE 10 MENU BERLAPIS

  2. SISTEM MENU BERLAPIS • Apabilamembuatsebuahsistemaplikasi program maka Menu yang dipakaiberbentuk Menu Berlapis • PadaLapisanPertamamerupakan MENU UTAMA • PadaLapisanKeduamerupakan MENU • PadaLapisanKetigamerupakanFungsi Program yang berfungsimenjalankan program sesuaidenganfungsinyaseperti INPUT , EDIT , LIHAT , TAMBAH, LAPORAN dan CETAK. • Inicontoh menu berlapisdengan Sub Procedure

  3. MENU BERLAPIS SUSUNAN HIERARCHI SEPERTI INI : MENU UTAMA MENU SUB MENU FUNGSI PROGRAM

  4. CONTOH MENU BERLAPIS

  5. CLS • SUB MENU • Color 14,0 • Locate 10,14 : ? "ﾉﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍｻ" • Locate 11,14 : ? "ｺSekolahTinggiManajemendanInformatikaKomputerｺ" • Locate 12,14 : ? "ｺ B A N J A R B A R U ｺ" • Locate 13,14 : ? "ﾈﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍｼ" • Color 28,0 • Locate 23,40 : ? "Tekansembarangtomboluntukterus....!" • input,r • Color 1,1 • E1=1 • E2=22 • For I=1 to 12

  6. Color 9,7 • Locate E1,02 : ? string$(76,chr$(177)) • Locate E2,02 : ? string$(76,chr$(177)) • E1=E1+1 • E2=E2-1 • Delay 0.1 • next i • Color 1,0 • Locate 01,01 : ? string$(78,chr$(220)) • Locate 23,01 : ? string$(78,chr$(223)) • For I=2 to 22 • Locate I,01 : ? chr$(219) • Locate I,78 : ? chr$(219) • next I

  7. COLOR 31,4 • LOCATE 3,20 : PRINT " -- >> M E N U U T A M A << -- " • FOR I=6 TO 17 • COLOR 11,3 • LOCATE I,20 : PRINT STRING$(40," ") • DELAY 0.1 • NEXT I • COLOR 14,1 • LOCATE 07,27 : PRINT " [ 1 ]. MENU P E R T A M A" • LOCATE 09,27 : PRINT " [ 2 ]. MENU K E D U A " • LOCATE 11,27 : PRINT " [ 3 ]. MENU K E T I G A " • LOCATE 13,27 : PRINT " [ 4 ]. SELESAI "

  8. COLOR 15,3 • LOCATE 07,53 : PRINT CHR$(220) • LOCATE 08,28 : PRINT STRING$(26,CHR$(223)) • LOCATE 09,53 : PRINT CHR$(220) • LOCATE 10,28 : PRINT STRING$(26,CHR$(223)) • LOCATE 11,53 : PRINT CHR$(220) • LOCATE 12,28 : PRINT STRING$(26,CHR$(223)) • LOCATE 13,53 : PRINT CHR$(220) • LOCATE 14,28 : PRINT STRING$(26,CHR$(223)) • COLOR 15,0 • LOCATE 16,27 : PRINT " PilihanAnda 1..4 : [ ] "

  9. TEKS$=" Created by No Name - No Number - SistemInformasi -" • KOLOM%=41-LEN(TEKS$)\2 • Y%=21 • X%=KOLOM% • TUNDA=0.1 • LOCAL TEMP$,I% • TEMP$=TEKS$ • PANJANG%=LEN(TEMP$) • A=0 • B=1 • DO • WHILE NOT INSTAT • COLOR A,0

  10. LOCATE 21,12 : ? TEMP$ • DELAY TUNDA • TEMP$=RIGHT$(TEMP$,1)+LEFT$(TEMP$,PANJANG%-1) • A=A+1 • B=B+1 • DELAY .05 • IF A>15 THEN A=0 • IF B>8 THEN B=1 • WEND • PILIH$=INKEY$ • LOOP UNTIL INSTR("1234",PILIH$) • PRINT PILIH$ • SELECT CASE PILIH$

  11. LOCATE 17,26 : PRINT " AngkaPilihanAnda [1..5]: " • DO • WHILE NOT INSTAT:WEND • PILIH$=INKEY$ • LOOP UNTIL INSTR("12345",PILIH$) • PRINT PILIH$ • SELECT CASE PILIH$ • CASE "1" • CALL SATU1 • CASE "2" • CALL SATU2 • CASE "3" • CALL SATU3 • CASE "4" • CALL SATU4

  12. CASE "1" • CALL SATU • CASE "2" • CALL DUA • CASE "3" • CALL TIGA • CASE "4" • CALL SELESAI • END SELECT • END SUB • CALL MENU

  13. SUB SATU • CLS • COLOR 31,4 • LOCATE 3,20 : PRINT " -- >> MENU P E R T A M A << -- " • FOR I=6 TO 18 • COLOR 11,3 • LOCATE I,20 : PRINT STRING$(40," ") • NEXT I • COLOR 14,1 • LOCATE 07,26 : PRINT " [ 1 ]. Input Data Pertama " • LOCATE 09,26 : PRINT " [ 2 ]. Edit Data Pertama " • LOCATE 11,26 : PRINT " [ 3 ]. Tambah Data Pertama " • LOCATE 13,26 : PRINT " [ 4 ]. Laporan Data Pertama" • LOCATE 15,26 : PRINT " [ 5 ]. Main Menu " • COLOR 15,0

  14. CASE "5" • COLOR 7,0 : CLS : CALL MENU • END SELECT • END SUB • CALL SATU • SUB SATU1 • CLS • PRINT " PROGRAM FUNGSI INPUT" • DELAY 0.5 • CALL SATU • END SUB

  15. SUB SATU2 • CLS • PRINT " PROGRAM FUNGSI EDIT " • DELAY 0.05 • CALL SATU • END SUB • SUB SATU3 • CLS • PRINT " PROGRAM FUNGSI TAMBAH " • DELAY 0.05 • CALL SATU • END SUB

  16. SUB SATU4 • CLS • PRINT " PROGRAM LAPORAN DATA " • DELAY 0.05 • CALL SATU • END SUB • SUB DUA • CLS • COLOR 31,4 • LOCATE 3,20 : PRINT " -- >> MENU K E D U A << -- " • FOR I=6 TO 18 • COLOR 11,3 • LOCATE I,20 : PRINT STRING$(40," ") • NEXT I • COLOR 14,1

  17. LOCATE 08,25 : PRINT " [ 1 ]. Input Data Kedua " • LOCATE 10,25 : PRINT " [ 2 ]. Edit Data Kedua " • LOCATE 12,25 : PRINT " [ 3 ]. Lihat Data Kedua " • LOCATE 14,25 : PRINT " [ 4 ]. Main Menu " • COLOR 15,0 • LOCATE 17,25 : PRINT " AngkaPilihanAnda [1..4] : " • DO • WHILE NOT INSTAT:WEND • PILIH$=INKEY$ • LOOP UNTIL INSTR("1234",PILIH$) • PRINT PILIH$ • SELECT CASE PILIH$ • CASE "1" • CALL DUA1

  18. CASE "2" • CALL DUA2 • CASE "3" • CALL DUA3 • CASE "4" • COLOR 7,0 : CLS : CALL MENU • END SELECT • END SUB • CALL DUA • SUB DUA1 • CLS • CALL DUA • END SUB • SUB DUA2 • CLS • CALL DUA • END SUB

  19. SUB DUA3 • CLS • CALL DUA • END SUB • SUB TIGA • CLS • COLOR 31,4 • LOCATE 3,20 : PRINT " -- >> M E N U K E T I G A << -- " • FOR I=6 TO 18 • COLOR 11,3 • LOCATE I,20 : PRINT STRING$(40," ") • NEXT I • COLOR 14,1 • LOCATE 08,25 : PRINT " [ 1 ]. Input Data Ketiga "

  20. LOCATE 10,25 : PRINT " [ 2 ]. Tambah Data Ketiga " • LOCATE 12,25 : PRINT " [ 3 ]. Laporan Data Ketiga " • LOCATE 14,25 : PRINT " [ 4 ]. Main Menu " • COLOR 15,0 • LOCATE 17,25 : PRINT " AngkaPilihanAnda [1..4] : " • DO • WHILE NOT INSTAT:WEND • PILIH$=INKEY$ • LOOP UNTIL INSTR("1234",PILIH$) • PRINT PILIH$ • SELECT CASE PILIH$ • CASE "1" • CALL TIGA1 • CASE "2" • CALL TIGA2

  21. SUB TIGA3 • CLS • CALL TIGA • END SUB • SUB SELESAI • A=1 • B=24 • FOR I=1 TO 13 • COLOR 0,0 • LOCATE A,1 : ? SPACE$(79) • LOCATE B,A : ? SPACE$(79) • A=A+1 • B=B-1 • DELAY 0.1 • NEXT I

  22. COLOR 9 • LOCATE 20,02 : ?"ﾚﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ" • LOCATE 21,02 : ?"ｳｳ" • LOCATE 22,02 : ?"ｳｳ" • LOCATE 23,02 : ?"ﾀﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾙ" • COLOR 11 • LOCATE 21,10 : ?" Wassalam " • LOCATE 22,10 : ? ; Date$ • DELAY 1 • CLS:SYSTEM • END SUB • END

More Related