Pemrograman Struktural Dan Olah File

BASIC LAGI NEEEH... Masih mengunakan Ms. QuicBASIC, kita bisa membuat sub program agar program lebih tampak terstruktur dan mudah untuk pengeditannya. Selain itu materi berikutnya tentang pengolahan file teks sederhana dengan operasi file sequential dengan printah OPEN, WRITE dan CLOSE. Silakan disimak materi berikut. Pemrograman Terstruktur atau Prosedural dengan QuickBASIC Pemrograman terstruktur adalah pembagian suatu kode pemrograman ke dalam beberapa sub program. Istilah lain untuk sub program adalah prosedur (procedure), oleh karenanya pemrograman terstruktur dikenal juga sebagai pemrograman prosedural. Prosedur dapat berisi rumus, perintah ataupun fungsi buatan sendiri. Perintah untuk membuat prosedur adalah: • SUB untuk membuat prosedur berupa sub program • FUNCTION untuk membuat prosedur berupa fungsi (function). Untuk membuat prosedur, cukup ketikkan SUB lalu nama prosedur lalu tekan Enter. Setelah itu kode program diketikkan diantara baris SUB dan END SUB pada jendela yang baru. Demikian halnya dengan perintah FUNCTION. Cara lain adalah melalui menu Edit  New SUB… atau Edit  New FUNCTION… Untuk melihat prosedur apa saja yang telah ada, gunakan tombol F2 atau melalui menu View  SUBs... hingga mucul kotak dialog SUBs. Pada kotak dialog tersebut kita dapat membuka prosedur lainnya (Edit inActive) dan menghapus prosedur yang telah ada (Delete). Prosedur harus dideklarasikan terlebih dahulu. Perintah pendeklarasian adalah: • DECLARE SUB nama (parameter) • DECLARE FUNCTION nama (parameter) Nama adalah nama prosedur yang dapat kita tentukan sendiri mengikuti aturan pemberian nama variabel. Parameter adalah kumpulan variabel yang disertakan dan diolah dalam prosedur. Contoh program dengan prosedur sub program (SUB01.BAS) DECLARE SUB jumlah (a, b) DECLARE SUB kali (a, b)

‘deklarasi sub program perkalian ‘deklarasi sub program penjumlahan

CLS INPUT "a = ", a INPUT "b = ", b CALL kali (a, b) CALL jumlah (a, b)

‘hapus layar ‘mengisi variabel a dengan bilangan ‘mengisi variabel b dengan bilangan ‘panggil sub program perkalian ‘panggil sub program penjumlahan

SUB kali (a, b) hasil = a * b PRINT "a * b ="; hasil END SUB

‘sub program perkalian

SUB jumlah (a, b) hasil = a + b PRINT "a + b ="; hasil END SUB

‘sub program penjumlahan

Main Module

‘cetak hasil perkalian

Procedure

‘cetak hasil penjumlahan

Contoh program dengan prosedur fungsi (FUNGSI01.BAS) DECLARE FUNCTION jumlah (a, b) DECLARE FUNCTION kali (a, b)

‘deklarasi fungsi penjumlahan ‘deklarasi fungsi perkalian

CLS INPUT INPUT PRINT PRINT

‘mengisi variabel a ‘mengisi variabel b ‘cetak hasil penjumlahan ‘cetak hasil perkalian

"a "b "a "a

= = + *

", a ", b b ="; jumlah(a, b) b ="; kali(a, b)

FUNCTION jumlah (a, b) jumlah = a + b END FUNCTION

‘fungsi penjumlahan

FUNCTION kali (a, b) kali = a * b END FUNCTION

‘fungsi perkalian

Main Module

Procedure

Pemrograman dengan Pengolahan File Pengolahan file berarti menggunakan perintah-perintah bahasa BASIC untuk membuat file yang berisi data, memanggilnya maupun menghapusnya. Perintah-perintah dalam pengolahan file adalah: OPEN, WRITE, CLOSE, FILES dan KILL. Perhatikan listing program berikut dan ketikkan di jendela editor / Untitled kemudian jalankan dengan tombol F5. DECLARE SUB DataBaru () DECLARE SUB DataLama () DECLARE SUB hapus () DECLARE SUB lihat () 10 CLS 20 PRINT 30 PRINT "1 untuk masukkan data" 40 PRINT "2 untuk memanggil data" 50 PRINT "3 untuk melihat file data" 60 PRINT "4 untuk menghapus file data" 70 PRINT "5 untuk selesai" 80 PRINT 90 INPUT "Pilihan anda (1/2/3/4/5) "; pilihan 100 IF pilihan = 5 THEN END 110 IF pilihan = 1 THEN CALL DataBaru 120 IF pilihan = 2 THEN CALL DataLama 130 IF pilihan = 3 THEN CALL lihat 140 IF pilihan = 4 THEN CALL hapus 150 GOTO 20 SUB DataBaru INPUT "Nama file : ", n$ IF n$ = "" THEN EXIT SUB OPEN n$ FOR OUTPUT AS #1 INPUT "Nama : ", nama$ INPUT "Alamat : ", alamat$ WRITE #1, nama$, alamat$ CLOSE END SUB SUB DataLama CALL lihat INPUT "Nama file : ", n$ IF n$ = "" THEN EXIT SUB OPEN n$ FOR INPUT AS #1 INPUT #1, nama$, alamat$ PRINT "Nama : "; nama$ PRINT "Alamat : "; al;amat$ CLOSE END SUB

Procedure Sub Program DataBaru

Procedure Sub Program DataLama

SUB hapus CALL lihat INPUT "Nama file yang akan dihapus : ", n$ IF n$ = "" THEN EXIT SUB KILL n$ END SUB SUB lihat PRINT FILES END SUB

Main Module

Procedure Sub Program lihat

Procedure Sub Program hapus