1 / 10

PERTEMUAN KE 9

PERTEMUAN KE 9. MENU TUNGGAL . SISTEM MENU. Sistem Informasi untuk pengelolaan data biasanya di Tawarkan dalam Sistem Menu. Menu tersebut dapat berbentuk MENU TUNGGAL dan MENU BERLAPIS Dalam Bahasa Basic Sistem Menu dapat dikerjakan Dengan SUB PROGRAM atau SUB PROCEDURE

habib
Télécharger la présentation

PERTEMUAN KE 9

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

More Related