PERTEMUAN KE 9 - PowerPoint PPT Presentation

pertemuan ke 9 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
PERTEMUAN KE 9 PowerPoint Presentation
Download Presentation
PERTEMUAN KE 9

play fullscreen
1 / 10
PERTEMUAN KE 9
135 Views
Download Presentation
habib
Download Presentation

PERTEMUAN KE 9

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

  1. PERTEMUAN KE 9 MENU TUNGGAL

  2. SISTEM MENU SistemInformasiuntukpengelolaan data biasanyadi TawarkandalamSistem Menu. Menu tersebutdapatberbentuk MENU TUNGGAL dan MENU BERLAPIS DalamBahasa Basic Sistem Menu dapatdikerjakan Dengan SUB PROGRAM atau SUB PROCEDURE Fungsi Program dimulaidari INPUT sd LAPORAN

  3. MENU TUNGGAL CONTOH MENU TUNGGAL

  4. MENU UTAMA 1. INPUT 2. EDIT 3. LIHAT 4. TAMBAH 5. CETAK RECORD 6. LAPORAN 7. CETAK LAPORAN 8. HAPUS 9. SELESAI

  5. PraktikumMingguinimembuat Menu Tunggal • 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 05 • LOCATE 5,16 :? "SekolahTinggiManajemenInformatika & Komputer " • FOR I=7 TO 19 • COLOR 11,09 • LOCATE I,22 : ? STRING$(35," ") • DELAY 0.1 • NEXT I • COLOR 20,11

  6. CLS • FOR I=7 TO 19 • COLOR 09,11 • LOCATE I,22 : ? STRING$(35," ") • NEXT I • COLOR 20,09 • LOCATE 05,22 : ? " M E N U - U T A M A " • COLOR 14,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 "

  7. 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))

  8. COLOR 14,0 : LOCATE 21,32 : ? " PILIH [1 - 6] : " • DO • WHILE NOT INSTAT:WEND • PILIH$=INKEY$ • LOOP UNTIL INSTR("123456",PILIH$) • PRINT PILIH$ • SELECT CASE PILIH$ • CASE "1" • CALL ISI • CASE "2" • CALL EDIT • CASE "3" • CALL LIHAT • CASE "4" • CALL TAMBAH • CASE "5"

  9. CALL LAPOR • CASE "6" • CLS : SYSTEM  • END SELECT • END SUB • CALL MENU • SUB ISI • CLS • CALL MENU • END SUB • SUB EDIT • CLS • CALL MENU • END SUB

  10. SUB LIHAT • CLS : CALL MENU • END SUB • SUB TAMBAH • CLS : CALL MENU • END SUB • SUB LAPOR • CLS : CALL MENU • END SUB • END