Halaman

Senin, 21 Oktober 2013

Membuat Program Biodata Beserta Nilai Hasil Kalkulasi Dari Data Uts Dan Uas

buka cmd di start menu kemudian pada kotak isian search ketik cmd lalu ok maka akan muncul command promt seperti gambar dibawah :
Masuk ke program cobol dengan cara masuk ke folder cobol melalui command promt lalu bila sudah masuk ke folder cobol ketik edit lat2.cob untuk mencreate cobol lat2
Jika sudah muncul seperti kotak di atas maka ketikan kode program seperti di bawah ini, dengan menspasi 8 x terlebih dahulu
Keterangan :
IDENTIFICATION DIVISION. Berfungsi untuk memberikan informasi mengenai program yang dibuat.
PROGRAM-ID. INPUT. Berfungsi untuk memberi nama sebuah program yang akan dibuat.
AUTHOR. NASHCHAN. Berfungsi untuk memberi nama pembuat program/programmer.
YANG WAJIB DI TULIS DI IDENTIFICATION DIVISION ADALAH  IDENTIFICATION DIVISION dan PROGRAM-ID.
ENVIRONMENT DIVISION. Berfungsi untuk memberikan informasi peralatan yang di gunakan dalam program.
DATA DIVISION. Berfungsi untuk memberikan penjelasan tentang input data dan output yang di pergunakan. Isi dari divisi ini adalah semua keterangan tentang file, record, nama-data, serta bentuk format yang akan digunakan di Procedure  Division.
WORKING – STORAGE SECTION. Berfungsi untuk  Sifatnya optional, ada bilamana diperlukan pemesanan tempat di internal memori yang diperlukan oleh pekerjaan proses program.
01 MHS. Befungsi untuk mengawali keterangan dari record yang akan di buat dan keterangannya MHS.
02 NAMA PIC A(20). Berfungsi untuk mengawali keterangan dari data item.
02 NPM PIC X(8). Berfungsi untuk mengawali keterangan dari data item.
02 KELAS PIC X(5). Berfungsi untuk mengawali keterangan dari data item.
02 UTS PIC 99. Berfungsi untuk mengawali keterangan dari data item.
02 UAS PIC 99. Berfungsi untuk mengawali keterangan dari data item.
02 NILAI PIC 99. Berfungsi untuk mengawali keterangan dari data item.
 Keterangan : A(20) Punya arti tipe data yang akan di input nanti berupa huruf dan memiliki panjang 20 karakter.
                           X(8)/X(5) Punya arti tipe data yang digunakana yang akan di input nanti berupa angka dan memiliki panjang 8/5 karakter.
                           99 Punya arti tipe data yang di gunakan nantinya akan di kalkulasikan dan memilik panjang 9 karakter.
SCREEN SECTION. Berfungsi untuk menunjukkan bentuk format dari layar terminal untuk menampilkan data atau memasukkan data.
01 HAPUS. Befungsi untuk mengawali keterangan dari record yang akan di buat dan keterangannya HAPUS.
BLANK SCRREN. Berfungsi untuk membersihkan layar dan menempatkan kursor pada baris1, kolom1 pada posisi kiri atas.
PROCEDURE DIVISION. Berfungsi untuk tempat menaruh instruksi-instruksi dimana dilakukan prosedur pekerjaan proses dari input data menjadi output data.
MULAI. Berfungsi untuk perintah memulai instruksi – instruksi oleh programmer.
DISPLAY HAPUS. Berfungsi untuk menampilkan hasil di layar.
DISPLAY(9 , 9)”MASUKKAN NAMA :”. Berfungsi untuk menampilkan MASUKKAN NAMA : di baris 9 kolom 9 di layar.
ACCEPT( , )NAMA. Berfungsi untuk memasukan data NAMA : ke layar saat program di jalan kan,
DISPLAY(10 , 9)”MASUKKAN NPM :”. Berfungsi untuk menampilkan MASUKKAN NPM : di baris 10 kolom 9 di layar.
ACCEPT( , )NPM. Berfungsi untuk memasukan data NPM : ke layar saat program di jalan kan,
DISPLAY(11 , 9)” MASUKKAN KELAS :”. Berfungsi untuk menampilkan MASUKKAN KELAS : di baris 11 kolom 9 di layar.
ACCPET( , )KELAS. Berfungsi untuk memasukan data KELAS : ke layar saat program di jalan kan,
DISPLAY(12 , 9)” MASUKKAN NILAI UTS :”. Berfungsi untuk menampilkan MASUKKAN NILAI UTS : di baris 12 kolom 9 di layar.
ACCEPT( , )UTS. Berfungsi untuk memasukan data UTS : ke layar saat program di jalan kan,
DISPLAY(13 , 9)” MASUKKAN NILAI UAS :”. Berfungsi untuk menampilkan MASUKKAN NILAI UAS : di baris 13 kolom 9 di layar.
ACCEPT( , )UAS. Berfungsi untuk memasukan data UAS : ke layar saat program di jalan kan,
COMPUTE NILAI = (UTS *0.7) + (UAS *0.3). Berfungsi untuk mengkalkulasi sebuah nilai disini kita akan mengkalkulasi nilai dengan cara UTS di kalikan dengan 0,7 ditambahkan dengan UAS dikalikan 0,3 desimal harus pake titik (.)
DISPLAY(15 , 9)”NAMA SAYA :”NAMA. Berfungsi untuk menampilkan NAMA SAYA : pada baris 15 kolom 9 di layar dan kemudian memamnggil ACCEPT( , ) NAMA di samping NAMA SAYA :.
DISPLAY(16 , 9)”NPM SAYA :”NPM. Berfungsi untuk menampilkan NPM SAYA : pada baris 16 kolom 9 di layar dan kemudian memamnggil ACCEPT( , ) NPM di samping NPM SAYA :.
DISPLAY(17 , 9)”KELAS SAYA :”KELAS. Berfungsi untuk menampilkan KELAS SAYA : pada baris 17 kolom 9 di layar dan kemudian memamnggil ACCEPT( , ) KELAS di samping KELAS SAYA :.
DISPLAY(18 , 9)”NILAI SAYA :”NILAI. Berfungsi untuk menampilkan NILAI SAYA : pada baris 18 kolom 9 di layar dan kemudian memamnggil ACCEPT( , ) NILAI di samping NILAI SAYA :.
STOP RUN. Berfungsi untuk menghentikan program secara permanen.
Jika sudah mengetik kode program seperti diatas, jalankan kode program tersebut dengan langkah dibawah ini
-          Save file terlebih dahulu dengan cara klik file lalu save jika sudah ikuti langkah berikutnya
Klik file lalu exit pada table diatas maka muncul tabell seperti dibawah :
Lalu kita compiler dahulu file yang tadi kita buat dengan cara ketik cobol lat2.cob dan tekan enter sebanyak 3x. seperti gambar di bawah :
Kemudian ketik runcobol lat2.cob untuk menjalankan program seperti gambar di bawah jika masih errors periksa kembali kode program yang di buat tadi dengan ccara edit lat2.cob kemudian Ketik kembali runcobol lat2.cob jika jalan akan muncul seperti table dibawah ini :
Program pun telah jadi dan selesai.








Tidak ada komentar:

Posting Komentar