Kegiatan Praktikum :
Type Data Record &
7
File Pendahuluan : Pada pertemuan ke tujuh ini, anda akan belajar tentang type data record. Anda akan belajar tentang bagaimana cara menggunakan type data record pada Qbasic. Petunjuk Praktikum :
Tujuan : -
Praktikan dapat memahami penggunaan Record Type pada QBasic
-
Praktikan dapat memahami Penggunaan Variable Record Type pada QBasic
-
Praktikan dapat menggunakan Record Type dan Variable Record Type pada pemrograman Qbasic
-
Praktikan dapat memahami pengertian File
-
Praktikan dapat memahami pengolahan Sequential File
Kegiatan Praktikum : Apa yang dimaksud dengan Record Type dan Variable Record Type pada Qbasic dan bagaimana pendeklarasiannya ? 7.1 Record Type
Record Type merupakan type variabel yang terdiri dari kumpulan type-type variabel standar yang terdapat pada QBasic. Record Type banyak digunakan dalam pengolahan data, dan random file karena menawarkan fleksibilitas dan kemudahan dalam pemakaiannya.
Pendeklarasian
Type nama
AS AS ... End Type
Contoh :
Gambar 7.1 contoh pendeklarasian type record Mendeklarasikan type data Mahasiswa yang merupakan kumpulan dari data NPM, Nama, dan IPK. 7.2 Variable Record Type Variable
Record
Type
digunakan
untuk
mendeklarasikan
variabel
berdasarkan Record Type tertentu. Untuk mendeklarasikan variabel berdasarkan Record Type tertentu dengan menggunakan perintah DIM. Menggunakan Variabel Record Type pemakaian variabel Record Type sama saja dengan variabel biasa, dan kita juga dapat menyatakan masing-masing komponennya. Pendeklarasian :
Dim nama_var As type_record
Contoh:
Gambar 7.2 contoh pendeklarasian variable record Mendeklarasikan variabel datamhs yang memiliki type mahasiswa, sehingga variabel DataMHS memiliki komponen NPM, Nama dan IPK.
Apa itu File ? File merupakan fasilitas penyimpanan data pada external storage yang bersifat permanen. Dengan pemakaian file kita dapat menghemat pemakaian RAM komputer yang memiliki jumlah yang terbatas serta dapat melakukan dokumentasi untuk jangka waktu yang panjang. Pada QBasic pengolahan file dapat dibagi menjadi tiga jenis, yaitu : 1. SEQUENTIAL FILE 2. RANDOM FILE 3. BINARY FILE
Bagaimana cara kerja pengolahan Sequential File ? Pada Sequential file (file urut) proses pengolahannya dilakukan secara linier atau berurutan dari awal sampai akhir, tanpa bisa kembali kebagian sebelumnya, kecuali proses dimulai lagi dari awal lagi. Jadi dalam pengolahan datanya bersifat first in first out, artinya pembacaan data dari file ini harus dimulai dari data yang paling awal.
Bagaimana tahapan Input/Output pada pengolahan Sequential File ? Umumnya pengolahan data yang menggunakan file sebagai media INPUT atau OUTPUT memiliki tiga tahap, yaitu : 1. Tahap membuka file (OPEN)
2. Tahap memproses (INPUT/OUTPUT) 3. Tahap menutup file (CLOSE)
1. Membuka File SEQUENTIAL Untuk membuka file sequential yang akan diproses dapat digunakan sintaks sebagai berikut : Open filename [FOR mode] AS [#]filenum
dimana mode terdiri dari : INPUT, membuka file untuk proses INPUT OUTPUT, membuka file baru untuk proses OUTPUT APPEND, membuka file untuk untuk proses OUTPUT dimana data baru ditambahkan pada bagian akhir. Contoh : Open "Siswa.Dat" For Append AS #1
Akan membuka Siswa.Dat sebagai OUPUT dimana data baru ditambahkan pada bagian akhir. Jika file Siswa.Dat belum ada, maka akan dibuat yang baru.
2. Proses Input/Output Perintah proses INPUT/OUTPUT pada sequential file tergantung kepada bentuk perlakuan terhadap data. Untuk penulisan berorientasi baris, dapat digunakan perintah PRINT dan pembacaanya dapat menggunakan LINEINPUT. Untuk penulisan yang berorientasi pada data, dapat digunakan perintah WRITE dan INPUT untuk proses pembacaannya. Berikut sintaksnya:
PRINT #filenumber,[USING stringexpressin;]expression list LINEINPUT #filenumber, variable-string WRITE #filenumber[,expressionlist] INPUT #filenumber, variablelist
Contoh : Write #1, "920403024","Hendra",80,90
Untuk menulis ke file nomor 1.
Dan data dapat dibaca kembali dengan perintah : Input #1,Nim$,Nama$,Teori,Praktek
3. Proses Close Untuk menutup file dapat digunakan perintah CLOSE, berikut sintaksnya:
CLOSE #filenumber
Contoh : CLOSE #1
Untuk menutup file nomor 1.
Contoh Program :
'PROGRAM MENGISI DATA KE FILE SISWA.DAT OPEN "SISWA.DAT" FOR APPEND AS #1 DO PRINT "DATA SISWA KE -";I INPUT "NO.INDUK :",NOINDUK$ IF NOINDUK$ <> "" THEN INPUT "NAMA INPUT "TEORI
:",NAMA$ :",TEORI
INPUT "PRAKTEK :",PRAKTEK WRITE #1,NOINDUK$,NAMA$,TEORI ENDIF LOOP UNTIL NOINDUK$ = "" CLOSE #1 END
'PROGRAM BACA DATA DARI SISWA.DAT DAN MENCETAK KE LAYAR CLS OPEN "SISWA.DAT" FOR INPUT AS #1 PRINT "-------------------------------------------------------------------" PRINT "NO.INDUK NAMA
TEORI
PRAKTEK RATA-RATA
LULUS " PRINT "-------------------------------------------------------------------" POLA$="\
\\
\ ###.##
###.##
###.##
\
\"
VIEW PRINT 4 TO 23 WHILE NOT EOF(1) INPUT #1, NO_INDUK$,NAMA$,TEORI,PRAKTEK RATA = (TEORI+PRAKTEK)/2 IF RATA < 60 THEN LULUS$="TIDAK" ELSE LULUS$ = "YA" ENDIF PRINT USING POLA$;NO_INDUK$;NAMA$;TEORI;PRAKTEK;RATA;LULUS$ WEND CLOSE #1 END
