Contoh Program Menu Pada Cobol

     ketik koding dibawah ini dan perhatikan spasi nya.
untuk penulisan awal di mulai dari space 8 kolom.
untuk '02' dimulai dari space 12 kolom.
untuk '77' dimulai dari space 8 kolom.
selanjutnya sama , jika tulisannya rata dengan yang atas berarti tinggal mengikuti kolom yang sama .
selamat mengerjakan contoh program menu pada cobol dan selamat berpusing-pusing ria. :D bisa juga download file nya disini

       IDENTIFICATION DIVISION.
       PROGRAM-ID. MENU.
       AUTHOR. SAYA.
       ENVIRONTMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       SCREEN SECTION.
       01 BILANGAN.
           02 BIL1 PIC9(6).
           02 BIL2 PIC(6).
           02 HASIL PIC9(6).         
       77 PIL PIC 9.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLACK SCREEN.   
       01 LAYAR-KELUAR.
           02 LINE 5 COLUMN 3 VALUE '---> MENU MAKANAN HARI INI <---'.
           02 LINE 7 COLUMN 3 VALUE '       1.MASAKAN PADANG        '.
           02 LINE 9 COLUMN 3 VALUE '       2.MASAKAN SUNDA         '.
           02 LINE 13 COLUMN 3 VALUE '       3.KELUAR                '.
           02 LINE 15 COLUMN 3 VALUE 'MASUKAN PILIHAN ANDA [1-3] : '.
           02 COLUMN PLUS 1 PIC 9 TO PIL.
       01 MENU1.
          02 LINE 5 COLUMN 3 VALUE 'HARGA/PORSI:Rp. 10000'.
          02 LINE 7 COLUMN 3 VALUE 'JUMLAH PESANAN :'.
          02 COLUMN PLUS 2 PIC 9(6) TO BIL1.
       01 MENU1-OUT.
          02 LINE 9 COLUMN 3 VALUE 'TOTAL HARGA : Rp. '.
          02 COLUMN PLUS 2 PIC 9(6) FROM HASIL.
       01 MENU2.
          02 LINE 5 COLUMN 3 VALUE 'HARGA/PORSI:Rp. 8000'.
          02 LINE 7 COLUMN 3 VALUE 'JUMLAH PESANAN :'.
          02 COLUMN PLUS 2 PIC 9(6) TO BIL2.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-KELUAR.
           ACCEPT LAYAR-KELUAR.
           IF PIL = 1.
           GO TO PILIHAN-SATU.
           IF PIL = 2.
           GO TO PILIHAN-DUA.
           ELSE IF PIL = 3.
           GO TO SELESAI.
           ELSE
           GO TO SALAH.
       PILIHAN-SATU.
           DISPLAY HAPUS-LAYAR.
           DISPLAY MENU1.
           ACCEPT MENU1.
           COMPUTE HASIL = BIL1 * 10000.
           DISPLAY MENU1-OUT.
           GO TO SELESAI.
       PILIHAN-DUA.
           DISPLAY HAPUS-LAYAR.
           DISPLAY MENU2.
           ACCEPT MENU2.
           COMPUTE HASIL = BIL2 * 8000.
           DISPLAY MENU1-OUT.
           GOTO SELESAI.
       SALAH.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (10,5) 'PILIHAN ANDA SALAH'.
           GO TO MULAI.          
       SELESAI.
           STOP RUN.
      
          
      
      

Posted in: