PROGRAM COBOL PENGISIAN KRS DAN PERHITUNGAN SEDERHANA

Leave a comment

November 22, 2012 by evo3cx

program ini adalah tugas dari dosen teknik pemograman terstruktur untuk membuat program input output serta perhitungan menggunakan bahasa cobol, program ini saya buat sendiri jadi tidak mungkin ada copas, dan saya akan mejelaskan singkat  logika pemograman.

coding program

  IDENTIFICATION DIVISION.

       PROGRAM-ID. PENGISIAN-KRS.

       ENVIRONMENT DIVISION;

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 RECORD-DATA.

           02 NPM PIC 9(8).

           02 NAMA-MHS PIC A(25).

           02 KELAS PIC X(5).

           02 ALAMAT PIC X(40).

           02 JML-SKS PIC 9(2).

           02 JURUSAN PIC A(20).

           02 JENJANG PIC A(2).

           02 SATU PIC 999.

           02 DUA PIC 999.

           02 HASIL PIC 999.

       01 PILIH PIC 9.

       01 BENAR-SALAH PIC X VALUE SPACE.

           88 BENAR VALUE ‘Y’.

           88 SALAH VALUE ‘T’.

       01 LAGI-SUDAH PIC X VALUE SPACE.

           88 LAGI VALUE ‘Y’.

           88 SUDAH VALUE ‘T’.

       SCREEN SECTION.

       01 BLANK-SCREEN.

           02 BLANK SCREEN.

       01 LAYAR-ISI-EXIT.

           02 LINE 2 COLUMN 10 VALUE ‘1 MENGISI KRS’.

           02 LINE 4 COLUMN 10 VALUE ‘2 PERHITUNGAN’.

           02 LINE 6 COLUMN 10 VALUE ‘3 EXIT’.

           02 LINE 8 COLUMN 10 VALUE ‘ MASUKAN ANGKA ? ‘.

       01 LAYAR-BETUL-SALAH.

           06 LINE 18 COLUMN 10 VALUE ‘SUDAH BENAR(Y/T)?’ HIGHLIGHT.

           06 COLUMN PLUS 1 PIC X USING BENAR-SALAH.

       01 LAYAR-LAGI-SUDAH.

           06 LINE 10 COLUMN 15 VALUE ‘APA ADA LAGI(Y/T)? ‘ HIGHLIGHT.

           06 COLUMN PLUS 1 PIC X USING LAGI-SUDAH.

       01 LAYAR-PERHITUNGAN.

           04 LINE 2 COLUMN 15 VALUE ‘PERHITUNGAN SEDERHANA’.

           04 LINE 4 COLUMN 10 VALUE ‘1.PENJUMLAHAN’.

           04 LINE 6 COLUMN 10 VALUE ‘2.PERKALIAN’.

           04 LINE 8 COLUMN 10 VALUE ‘3.PEMBAGIAN’.

           04 LINE 8 COLUMN 10 VALUE ‘3.EXIT’.

           04 LINE 10 COLUMN 10 VALUE ‘MASUKAN ANGKA ?’.

       01 LAYAR-TAMBAH.

           05 LINE 2 COLUMN 15 VALUE ‘TAMBAH’.

           05 LINE 4 COLUMN 10 PIC 999 TO SATU.

           05 COLUMN PLUS 1 VALUE ‘+’.

           05 COLUMN PLUS 1 PIC 999 TO DUA.

       01 LAYAR-KURANG.

           05 LINE 2 COLUMN 15 VALUE ‘KURANG’.

           05 LINE 4 COLUMN 10 PIC 999 TO SATU.

           05 COLUMN PLUS 1 VALUE ‘-‘.

           05 COLUMN PLUS 1 PIC 999 TO DUA.

       01 LAYAR-KALI.

           05 LINE 2 COLUMN 15 VALUE ‘KALI’.

           05 LINE 4 COLUMN 10 PIC 999 TO SATU.

           05 COLUMN PLUS 1 VALUE ‘*’.

           05 COLUMN PLUS 1 PIC 999 TO DUA.

       01 LAYAR-MENGISI-KRS.

           05 LINE 2 COLUMN 15 VALUE ‘PENGISIAN KRS U.GUNADARMA’.

           05 LINE 4 COLUMN 10 VALUE ‘NPM            :’.

           05 COLUMN PLUS 1 PIC 9(8) TO NPM.

           05 LINE 6 COLUMN 10 VALUE ‘NAMA MAHASISWA :’.

           05 COLUMN PLUS 1 PIC A(25) TO NAMA-MHS.

           05 LINE 8 COLUMN 10 VALUE ‘KELAS          :’.

           05 COLUMN PLUS 1 PIC X(5) TO KELAS.

           05 LINE 10 COLUMN 10 VALUE ‘ALAMAT         :’.

           05 COLUMN PLUS 1 PIC X(40) TO ALAMAT.

           05 LINE 12 COLUMN 10 VALUE ‘SKS            :’.

           05 COLUMN PLUS 1 PIC 9(2) TO JML-SKS.

           05 LINE 14 COLUMN 10 VALUE ‘JURUSAN        :’.

           05 COLUMN PLUS 1 PIC A(20) TO JURUSAN.

           05 LINE 16 COLUMN 10 VALUE ‘JENJANG        :’.

           05 COLUMN PLUS 1 PIC A(2) TO JENJANG.

       PROCEDURE DIVISION.

       MULAI.

           DISPLAY BLANK-SCREEN.

           DISPLAY LAYAR-ISI-EXIT.

           ACCEPT LAYAR-ISI-EXIT.

           ACCEPT PILIH.

           IF PILIH = 1 GO TO ISI-KRS.

           IF PILIH = 2 GO TO PERHITUNGAN.

           IF PILIH = 3 GO TO SELESAI.

       ISI-KRS.

           DISPLAY BLANK-SCREEN.

           DISPLAY LAYAR-MENGISI-KRS.

           ACCEPT LAYAR-MENGISI-KRS.

           DISPLAY LAYAR-BETUL-SALAH.

           ACCEPT LAYAR-BETUL-SALAH.

           IF SALAH

              GO TO ISI-KRS.

           DISPLAY BLANK-SCREEN.

           DISPLAY LAYAR-LAGI-SUDAH.

           ACCEPT LAYAR-LAGI-SUDAH.

           IF LAGI

              GO TO ISI-KRS

           ELSE IF SUDAH

              GO TO SELESAI.

       PERHITUNGAN.

           DISPLAY BLANK-SCREEN.

           DISPLAY LAYAR-PERHITUNGAN.

           ACCEPT LAYAR-PERHITUNGAN.

           ACCEPT PILIH.

           IF PILIH = 1 GO TO TAMBAH.

           IF PILIH = 2 GO TO KALI.

           IF PILIH = 3 GO TO KURANG.

           IF PILIH = 4 GO TO SELESAI.

       TAMBAH.

           DISPLAY BLANK-SCREEN.

           DISPLAY LAYAR-TAMBAH.

           ACCEPT LAYAR-TAMBAH.

           COMPUTE HASIL = SATU + DUA.

           DISPLAY (10,10)  VALUE ‘=’.

           DISPLAY (10,11) HASIL.

           DISPLAY LAYAR-LAGI-SUDAH.

           ACCEPT LAYAR-LAGI-SUDAH.

           IF LAGI

              GO TO PERHITUNGAN

           ELSE IF SUDAH

              GO TO SELESAI.

       KURANG.

           DISPLAY BLANK-SCREEN.

           DISPLAY LAYAR-KURANG.

           ACCEPT LAYAR-KURANG.

           COMPUTE HASIL = SATU * DUA.

           DISPLAY (10,10)  VALUE ‘=’.

           DISPLAY (10,11) HASIL.

           DISPLAY LAYAR-LAGI-SUDAH.

           ACCEPT LAYAR-LAGI-SUDAH.

           IF LAGI

              GO TO PERHITUNGAN

           ELSE IF SUDAH

              GO TO SELESAI.

       KALI.

           DISPLAY BLANK-SCREEN.

           DISPLAY LAYAR-KALI.

           ACCEPT LAYAR-KALI.

           COMPUTE HASIL = SATU + DUA.

           DISPLAY (10,10)  VALUE ‘=’.

           DISPLAY (10,11) HASIL.

           DISPLAY LAYAR-LAGI-SUDAH.

           ACCEPT LAYAR-LAGI-SUDAH.

           IF LAGI

              GO TO PERHITUNGAN

           ELSE IF SUDAH

              GO TO SELESAI.

       SELESAI.

           STOP RUN.

Pertama membuat record data pada WORKING-STORAGE SECTION.   Di isi  tentang npm,nama-mhs,kelas,alamat,jml-sks,jurusan,jenjang yang masing-masing akan di gunakan pada layar mengisi-krs. Lalu record benar-salah dan  lagi-sudah adalah sebuat conditional yg akan di gunakan.

Pada SCREEN SECTION. Saya mendeklarsikan beberapa record di ataranya:

  • BLANK-SCREEN :  untuk membersihkan layar.
  • layar-salah-betul & layar-lagi-sudah:  di gunakan  utuk pemilihan conditional terlihat di layar
  • Layar-mengisi-krs: pada record ini pengaturan bagimana form pengisian KRS terlihat.
  • LAYAR-ISI-EXIT.:conditional untuk pemilihan form.

Procedure Division.

Logika Pemograman pertama   membuat layar blank screen dengan memanggil Display blank-screen.lalu membuat conditional statmen yang menanyakan “PILIHAN MENU KRS,PERHITUNGAN ”

PROCEDURE DIVISION.

MULAI.

DISPLAY BLANK-SCREEN.

DISPLAY LAYAR-ISI-EXIT.

ACCEPT LAYAR-ISI-EXIT.

ACCEPT PILIH.

IF PILIH = 1 GO TO ISI-KRS.

IF PILIH = 2 GO TO PERHITUNGAN.

IF PILIH = 3 GO TO SELESAI.

Pertama program akan menampilkan tampilan blank, lalu ada menu pilihan jika 1 maka program akan mengalihkan program ke form pengisian krs jika 2 maka program mengalihkan ke menu perhitungan. (gambar 1)

ISI-KRS.

DISPLAY BLANK-SCREEN.

DISPLAY LAYAR-MENGISI-KRS.

ACCEPT LAYAR-MENGISI-KRS.

DISPLAY LAYAR-BETUL-SALAH.

ACCEPT LAYAR-BETUL-SALAH.

IF SALAH

GO TO ISI-KRS.

DISPLAY BLANK-SCREEN.

DISPLAY LAYAR-LAGI-SUDAH.

ACCEPT LAYAR-LAGI-SUDAH.

IF LAGI

GO TO ISI-KRS

ELSE IF SUDAH

GO TO SELESAI.

Pada procedure ini bagiamana menu screen terlihat sebagaimana kita telah atur di LAYAR-MENGISI-KRS di bagian SCREEN SECTION dan kita memanggilnya dengan cara  DISPLAY LAYAR-MENGISI-KRS. ACCEPT LAYAR-MENGISI-KRS.  (gambar 2)

a.Jika pengisian sudah selesai maka user akan di yakinkan apakah program sudah benar atau tidak jika tidak maka program akan menampilkan form krs lagi, (gambar no 3)

b.selanjutnya program akan menanyakan apakah user ingin mengisi data krs lagi  jika user ingin mengisi data lagi program akan menampilkan halaman form lagi jika tidak maka program selesai.(gambar 4)

PERHITUNGAN.

DISPLAY BLANK-SCREEN.

DISPLAY LAYAR-PERHITUNGAN.

ACCEPT LAYAR-PERHITUNGAN.

ACCEPT PILIH.

IF PILIH = 1 GO TO TAMBAH.

IF PILIH = 2 GO TO KALI.

IF PILIH = 3 GO TO BAGI.

IF PILIH = 4 GO TO SELESAI.

Jika pada menu pertama user mengetik 2 maka menu  inilah yang akan terlihat 1 untuk PROGRAM pertambahan, 2 kali dan 3 untuk pembagian  dan 4 untuk exit program (gambar 5)

TAMBAH.

DISPLAY BLANK-SCREEN.

DISPLAY LAYAR-TAMBAH.

ACCEPT LAYAR-TAMBAH.

COMPUTE HASIL = SATU + DUA.

DISPLAY (10,10)  VALUE ‘=’.

DISPLAY (10,11) HASIL.

DISPLAY LAYAR-LAGI-SUDAH.

ACCEPT LAYAR-LAGI-SUDAH.

IF LAGI

GO TO PERHITUNGAN

ELSE IF SUDAH

GO TO SELESAI.

Ini adalah procedure menu form tambah  jika user sudah selesai melakukan perhitungan maka program akan menanyakan apakah user ingin melakukan perthitungan lagi jika ya user akan di  menu perhitungan lagi jika tidak program akan selesai( gambar 6)

BAGI.

DISPLAY BLANK-SCREEN.

DISPLAY LAYAR-KURANG.

ACCEPT LAYAR-KURANG.

COMPUTE HASIL = SATU/DUA.

DISPLAY (10,10)  VALUE ‘=’.

DISPLAY (10,11) HASIL.

DISPLAY LAYAR-LAGI-SUDAH.

ACCEPT LAYAR-LAGI-SUDAH.

IF LAGI

GO TO PERHITUNGAN

ELSE IF SUDAH

GO TO SELESAI.

Ini adalah procedure menu form BAGI  jika user sudah selesai melakukan perhitungan maka program akan menanyakan apakah user ingin melakukan perthitungan lagi jika ya user akan di  menu perhitungan lagi jika tidak program akan selesai (gambar 7)

KALI.

DISPLAY BLANK-SCREEN.

DISPLAY LAYAR-KALI.

ACCEPT LAYAR-KALI.

COMPUTE HASIL = SATU * DUA.

DISPLAY (10,10)  VALUE ‘=’.

DISPLAY (10,11) HASIL.

DISPLAY LAYAR-LAGI-SUDAH.

ACCEPT LAYAR-LAGI-SUDAH.

IF LAGI

GO TO PERHITUNGAN

ELSE IF SUDAH

GO TO SELESAI.

Ini adalah procedure menu form KALI jika user sudah selesai melakukan perhitungan maka program akan menanyakan apakah user ingin melakukan perthitungan lagi jika ya user akan di  menu perhitungan lagi jika tidak program akan selesai (gambar 8)


(GAMBAR 1)

(GAMBAR 2)

(GAMBAR 3)

(GAMBAR 4)

(GAMBAR 5)

(GAMBAR 6)

(GAMBAR 7)

(GAMBAR 8)

(GAMBAR 9)

 

masih banyak kekurangan dari program ini seperti setiap pilihan/coditional statment harus menggunkan HURUF BESAR jika tidak maka program akan berhenti ya sekian dari saya semoga membatu teman-teman yg sedang sulit mengerjakan tugas cobol

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Gunadarma Logo

Categories

About Me

Reza Aditya Saputra 3ka07

visitor stats


%d bloggers like this: