Minggu, 09 Juni 2013

File 'Pascal'


TUGAS
‘Implementasi Pemrosesan File pada Pascal’

“Khayun Pujo Wijoyo/2212002/SI”

“FILE (BERKAS)”

 

File adalah kumpulan byte-byte yang disimpan dalam media penyimpanan. Merupakan komponen yang bertipe data sama, yang jumlahnya tidak tentu, yang dapat ditambah atau dikurangi jika dibutuhkan.

 

Pointer file adalah bagian yang menunjuk ke komponen file yang akan diakses (dibaca atau direkam) untuk keperluan pengaksesan file (akan dibahas kemudian).

 

File pada Pascal dikenal dalam 3 jenis, yaitu :

1.      File Text

2.      File  bertipe
3.      File tidak bertipe

Selain kita akan mempelajari tentang bagaimana membuat sebuah file atau menambahkan isi suatu file, kita dapat pula melakukan manipulasi File, yaitu :
1.      Menggunakan parameter
2.      Mengenai Atribut File
3.      Menghapus file
4.      Mengubah nama file
5.      Mengenai tanggal dan waktu file
6.      Mencari file
7.      Mengecek keberadaan file
8.      Memberikan directory file



1. File Text


1.1. Karakteristik

·         Berisi data karakter ASCII
·         Tiap record boleh memiliki panjang yang bervariasi
·         Setiap record diakhiri tanda EOL (end of Line)
·         Hanya dapat diakses secara sequensial (berurutan).
·         Isi filenya dapat dilihat oleh perintah dos type atau editor text


1.2. Membuat file text

Urutan Prosesnya :

1.      Mendeklarasikan variabel file
Var NmVar:TEXT;
Dengan :
NmVar                  : Nama variabel file text
2.      Menghubungkan variabel file dengan nama file
Assign (NmVar, nama file);
Dengan :
NmVar                  : Nama variabel file text
nama file               : Nama file dalam bentuk string, format 8:3 penamaan dos, ditulis
dalam bentuk string.

3.      Membuat file text aktif
Rewrite(NmVar);
Dengan :
NmVar                  : Nama variabel file text  yang sudah di- assign

4.      Menulis ke dalam file text
Write / writeln (NmVar, data item1, data item 2, …)
Dengan :
NmVar                  : Nama variabel file text
Data item              : text / string yang akan dituliskan, atau bisa juga berupa isi suatu
variabel


5.      Menutup file
Close (NmVar);
Dengan:
NmVar                  : Nama variabel file text


Contoh :

Program membuat_file_text_namafile_HALLO_TXT;
Uses crt;
Var var_teks:TEXT;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Rewrite(var_teks);
Writeln(var_teks,’Hallo… ini program pertamaku!’);
Writeln(var_teks,’Contoh file teks’);
Writeln(var_teks,’---------------------------------------’);
Close(var_teks);
End.

 

 

1.3. Membaca File Text


Urutan Prosesnya :
1.      Mendeklarasikan variabel file
Var NmVar:TEXT;

2.      Menghubungkan variabel file dengan nama file
Assign (NmVar, nama file)

3.      Membaca isi file dan menampilkannya di layar
While not eof (NmVar) do
Begin
Read / readln ( NmVar, data item 1, data item 2, … );
Write / writeln ( data item1, data item 2, … );
End;

 

4.      Menutup file

Close (NmVar);

 

Contoh :

Program membaca_file_HALLO_TXT;
Uses crt;
Var var_teks:TEXT;
Pesan:string;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Reset(var_teks);

While not eof (var_teks) do

Begin
Readln ( var_teks, pesan );
Writeln (pesan);
End;
Close(var_teks);
End.

1.4. Menambah isi File Text

Urutan Prosesnya :
1.      Mendeklarasikan variabel file
Var NmVar:TEXT;

2.      Menghubungkan variabel file dengan nama file
Assign (NmVar, nama file)

3.      Menambah isi file
Append(NmVar)

 

4.      Menampilkannya di layar

Write / writeln (NmVar, data item1, data item 2, …)


5.      Menutup file

Close (NmVar);

 


Contoh :

Program menambah_isi_file_HALLO_TXT;
Uses crt;
Var var_teks:TEXT;
Pesan:string;
Begin
Clrscr;
Assign(var_teks,’Hallo.txt’);
Append(var_teks);
Writeln(var_teks,’Ini penambahan data file hallo.txt!’);
Writeln(var_teks,’Contoh file teks’);
Writeln(var_teks,’-----------------------------------------’);
Close(var_teks);
End.


1.5. Metode Pembacaan file oleh Turbo Pascal

q  Menggunakan statemen operasi READ / READLN
q  Bergantung pada tipe data variabel yang digunakannya :
¨   Variabel berjenis numerik (byte,integer, real)
Ø  Tanda batas akhir pembacaan variabel jika ditemui blank(spasi), EOL (end of line), EOF (End of File) atau TAB.
Ø  Jika sebelum membaca data (atau dengan kata lain tidak ada datanya) pointer pascal menemukan EOL / EOF, maka variabel tersebut akan diisi NOL.
Ø  Jika string yang dibaca oleh variabel numerik tidak sah, maka terjadi kesalahan I/O : Invalid numerik format.
¨   Variabel berjenis string
Karakter-karakter file aakan dibaca sampai ditemui EOL / EOF tercapai atau lebih besar dari ukuran stringnya.
¨   Variabel berjenis Char
Yang dibaca hanya satu karakter saja.
q  Agar pembacaan file sesuai dengan yang diharapkan, kadangkala perlu kita deklarasikan secara jelas jumlah byte yang disediakan untuk suatu variabel, atau mesti kita selipkan pencetakan spasi diantara dua variabel yang akan dibaca.
q  Perlu diperhatikan kesesuaian tipe data, antara yang dituliskan dengan metode WRITE/WRITELN dan dengan yang akan kita baca.



2. File Bertipe


2.1. Karakteristik

·         Berisi data format biner, ukurannya lebih kecil dari file teks.
·         Tiap record memiliki tipe dan panjang yang sama. Bisa saja memiliki berbagai tipe asalkan dikelompokkan dalam RECORD.
·         Dapat diakses secara random, elemen-elemennya bisa dibaca secara acak yang keberapa saja.

2.2. Membuat file Bertipe

Urutan Prosesnya :
1.      Mendeklarasikan variabel file
Var NmVar:FILE OF TypeVariabel;
Dengan :
NmVar                  : Nama variabel file bertipe
TypeVariabel         : Char, variabel tipe RECORD, variabel tipe array, real, variabel
array tipe record. Untuk satu file satu tipe elemen.

Contoh :
Type DaftarBarang            = Array [1..100] of integer;
DataKonsumen         = RECORD
Nama            :string[15];
Alamat          :string[30];
Kode :1..3;
DaftarKonsumen      = Array [1..100] of Datakonsumen ;
Var
FileBarang : File of Daftarbarang;
FileJumlah : File of  integer;
FileData     : File of DataKonsumen;
FileKode    : File of Char;

2.      Menghubungkan variabel file dengan nama file
Assign (NmVar, nama file);
Dengan :
NmVar                  : Nama variabel file bertipe
nama file               : Nama file dalam bentuk string, format 8:3 penamaan dos, ditulis
dalam bentuk string.


3.      Membuat /membuka file bertipe

Rewrite(NmVar);  => untuk membuat

Reset(NmVar);     => untuk membuka


4.      Menulis / membaca file Bertipe

 Write (NmVar, data item1, data item 2, …)  => untuk menulis

 Read (NmVar, data item1, data item 2, …)  => untuk membaca

Data item1, data item 2 dan seterusnya, harus berupa variabel, tidak bisa dituliskan secara langsung dalam bentuk konstanta. Variabelnya harus sama dengan deklarasi tipe file-nya.
Fungsi Writeln dan Readln tidak dapat digunakan pada file bertipe.

5.      Menutup file
Close (NmVar);


2.3. Fungsi-fungsi yang digunakan dalam file Bertipe


Seek (VarFile,N);
Menempatkan pointer ke posisi record ke-N
Contoh :
Seek(namafile,4); {pointer akan  menunjuk posisi record ke-4, dengan nomor record 3}

FilePOS (VarFile);
Untuk menunjuk nomor record (nomor record dimulai dari record 0)
Contoh :
Posisi:=Filepos(Varfile);         {mengetahui posisi pointer aktual di record mana, dan
hasilnya diletakkan pada variabel posisi}.

Filesize(VarFile);
Mengukur besar file bertipe, yaitu mengetahui jumlah record yang berada dalam suatu file (jika file baru dibuat = 0)

Contoh :
..
Begin
Write(‘input nomor record yang ingin dilihat’);readln(NoRec);dec(NoRec)
If NoRec >=filesize(VarFile) then
Writeln(‘Nomor record terlalu besar’);
Else
begin
seek(VarFile,NoRec);  {Pointer menuju nomor record yang dimaksud}
Read(VarFile,data);
End;
..
end.

EOF(VarFile);
Untuk menunjuk akhir dari file.
Truncate(VarFile);
Untuk menghapus sebagian file
Contoh :
Seek(varfile,5);         {pointer menuju record nomor 5}
Truncate(VarFile);    {menghapus mulai record nomor 5 sampai habis }


Contoh Program File Bertipe :

Program menambah_dan_membuat_file_bertipe
Uses crt;
Type mhs = Record
NPM : string[8];
Nama: string[25];
Alamat : string[20];
End;
Var vfilemhs    : FILE of mhs;
Recmhs      : mhs;
I                 : integer;
Oke            : char;
Begin
Clrscr;
Assign (vfilemhs,’Dataku.dat’);
{$I-}reset(vfilemhs);{$I+}
if IOResult <>0 then rewrite(vfilemhs);
I:=filesize(vfilemhs);
With recmhs do
Begin
Write(‘NPM :’);readln(NPM);
While NPM <>’ ‘ do
begin
Write(‘Nama :’);readln(Nama);
Write(‘Alamat :’);readln(Alamat);
repeat
Write(‘Save file…(Y/N)?’);readln(oke);
Until oke in [‘Y’,’y’,’n’,’N’];
If oke in [‘Y’,’y’] then
Begin
Seek(vfilemhs,I);
Write(vfilemhs,recmhs);
I:=I+1;
End;
Writeln;
Write(‘NPM:’);readln(NPM);
End;
End;
Close(vfilemhs);

End.

Program_Melihat_file_bertipe
Uses crt;
Type mhs = Record
NPM : string[8];
Nama: string[25];
Alamat : string[20];
End;

Var vfilemhs: FILE of mhs;
Recmhs:mhs;
I: integer;

Begin
Clrscr;
Assign(vfilemhs,’dataku.dat’);
Reset(vfilemhs);
Writeln(‘----------------------------------------------------------------------‘);
Writeln(‘No.          NPM              Nama                 Alamat          ‘);
Writeln(‘----------------------------------------------------------------------‘);

With recmhs
Begin
For I:=1 to filesize(vfilemhs) do
Begin
Seek(vfilemhs),I-1);
Read(vfilemhs),recmhs);
Writeln(I:2,’ ‘,NPM:8,Nama:25,Alamat:20);
End;
End;
Close(vfilemhs);
End.


3. File Tidak Bertipe


3.1. Karakteristik

·         File yang mengakses langsung ke media penyimpanan tanpa adanya pengenalan record dan sebagainya.
·         Digunakan untuk tugas-tugas yang berhubungan dengan file biner yang dapat diproses tanpa mengenal jenis recordnya.


3.2. Membuat file Tidak Bertipe


Urutan Prosesnya :
1.      Mendeklarasikan variabel file
Var NmVar:FILE;
2.      Menghubungkan variabel file dengan nama file
Assign (NmVar, nama file);
Dengan :
NmVar                  : Nama variabel file bertipe
nama file               : Nama file dalam bentuk string, format 8:3 penamaan dos, ditulis
dalam bentuk string.

3.      Membuka file bertipe

Rewrite(NmVar[,brec]);  => untuk membuat

Reset(NmVar[,brec]);       => untuk membuka
Dengan :
Brec           : Menunjukkan besar file dalam byte, opsional, boleh ditulis, boleh tidak,
dan besarnya kita tentukan sendiri. Defaultnya 128 Byte.
 

4.      Menulis / membaca file tidak Bertipe

 Blockwrite (NmVar, Buffer, jumlah[,jumtulis])  => untuk menulis
Dengan :
Buffer       : daerah penyimpanan data yang akan ditulis ke dalam file. Buffer dapat
berupa suatu variabel dengan tipe apa saja sesuai dengan ukuran data yang akan ditulis di file.
Jumlah       : jumlah data yang akan ditulis ke file dalam ukuran byte.
Jumtulis     : suatu parameter yang tidak tetap yang boleh digunakan dan boleh juga
tidak digunakan, bila digunakan akan berisi jumlah byte yang dapat ditulis ke file.


 Read (NmVar, data item1, data item 2, …)  => untuk membaca
Dengan :
Buffer       : daerah penyimpanan yang tipe variabelnya disesuaikan dengan jumlah
data yang dibaca.
Jumlah       : jumlah byte yang akan dibaca dari file, dapat merupakan suatu variabel
dengan tipe word. Jumlah harus sama dengan besar buffer yang diberikan dan tidak boleh lebih dari 64 Kilobyte.
Jumbaca    : merupakan variabel yang berisi laporan jumlah byte yang dapat dibaca
dari file.



Contoh File tidak bertipe ::

Program menyalin_file
Uses crt;
Var
Fileasal, filetuju     :file;
Besar                     :real;
Buf                        :array [1..10240] of char;
Hbaca, Hatulis      :word;
nfile1,nfile2           :string;

Begin
besar:=0;
clrscr;
write (‘Input nama file asal     :’);readln(nfile1);
write (‘Input nama file tujuan :’);readln(nfile2);
{$I-}
Assign(fileasal,nfile1);
Assign(filetuju,nfile2);
Reset(fileasal,1);
If IOResult <>0 then
Begin
Writeln(‘File asal tidak ada !’);
Halt(0);
End;
Rewrite(filetuju,1);
If IOResult <>0 then
Begin
Writeln(‘File tujuan tidak bisa dibuat !’);
Halt(0);
End;
{$I+}
 Repeat
Blockread(fileasal,buf,10240,hbaca);
Besar:=besar + hbaca;
Blockwrite(filetuju,buf,hbaca,htulis);
If hbaca <> htulis then
Begin
Writeln(‘Tujuan tidak bisa menampung besar file’);
Halt(0);
End;
Until hbaca <>10240;
Close (fileasal);
Close (filetuju);
Writeln (‘Besar file yang dipindahkan :‘,besar:10:0);
End.



4. Menangani Kesalahan I/O pada File


Beberapa operasi pada file yang dapat mengalami kesalahan I/O :
Reset, rewrite, read, readln, write, writeln, close, append, seek

Agar program tidak berhenti, maka harus digunakan Compiler Directive Fungsi I/O result
Untuk pengecekan I/O file tersebut.

Bentuk Umum :
{$ Kode Kondisi}
Dengan :
·         Kode                        : Karakter kode, untuk fungsi I/O result adalah I.
·         Kondisi                    : OFF (-) / ON (+)
·         Secara default {$I+} => ON
·         I/O Result  => bernilai 0 jika operasi berhasil
·         Isi nilai selalu dihapus sendiri setiap kali dipanggil
·         Penulisannya mengapit operasi-operasi yang rentan kesalahan

Contoh :

Assign(VarFile, ‘data.dat’);
{$I-}
Reset(VarFile);
{$I+}
fileada := IOResult = 0;
if fileada then
begin
writeln(‘file sudah ada…’);
end
else                                                      { Kondisi bila file tidak ada }
begin
rewrite(VarFile);                              { Buat file baru }        
write (VarFile, var1, var2, …);
close(VarFile);
end;


5. Manipulasi File


5.1. Parameter
Parameter disebut juga command tail, merupakan informasi tambahan bagi program utama yang dapat diketikkan sesuai keperluan, untuk menjalankan rutin khusus dalam program tersebut.
Contoh : program scan.exe
Biasanya dituliskan pada prompt :
C:\scan a: /clean
String ‘a:’ dan string ‘/clean’ merupakan parameter, yang akan membuat scan program ke drive a dan kemudian menjalankan prosedur CLEAN.

Ada dua perintah untuk membuat parameter :

Ø  ParamCount  : untuk mengetahui jumlah parameter yang diberikan
Bentuk Umumnya :
Var_word := ParamCount;

Ø  ParamString : untuk mengambil parameter tersebut dalam bentuk string
Bentuk Umumnya :
Var_string := ParamString(index);


5.2. Atribut File
Atribut file adalah satu byte data yang berisi keterangan dari suatu file. Karena bit –nya merupakan kode biner, maka dibuat lambang untuk mewakili bit-bit tersebut, sebagai berikut :

Lambang
Angka
ReadOnly
1
Hidden
2
SysFile
4
VolumeId
8
Directory
16
Archive
32


Ada 2 perintah yang berhubungan dengan atribut file, yaitu :

Ø  GetFAttr (Get File Atribut) : Mengambil informasi atribut file.
Bentuk umumnya :
GetFAttr(nm_var,attr);

Ø  SetFAttr (Set File Atribut) : Mengeset atribut file.
Bentuk umumnya :
GetFAttr(nm_var,attr);
Dengan :
Nm_var           : nama suatu file yang telah di-assign dengan tipe apa saja.
Attr                 : Bilangan atribut yang akan diambil/diketahui dari suatu file.

Catatan :
1.      File yang akan dilihat atau diset atributnya mesti di-assign terlebih dahulu.
2.      Kedua perintah ini berada pada unit DOS dan WINDOWS Turbo Pascal, maka perlu menggunakan ‘Uses DOS’ atau ‘Uses Windows;’ pada deklarasi unit.


5.3. Menghapus File
Untuk menghapus suatu file, file tersebut harus di-assign terlebih dahulu. Bentuk umum perintahnya :
Erase(nm_var);

Contoh :
Program hapus;
Uses crt;
Var f:file;
Begin
Clrscr;
Assign(f,paramstr(1));
Write( ‘File ‘,paramstr(1));
{$I-}
erase(f);
{$I+}
if IOResult <> 0 then writeln(‘Gagal mengapus’);
else writeln(‘Menghapus sukses …’);
end.


5.4. Mengubah nama file
Untuk mengubah nama file, file tersebut harus di-assign terlebih dahulu. Bentuk umum perintahnya :
Rename(nm_var,nm_baru);

Contoh :
Program Ubah_nama;
Uses crt;
Var f:file;
Begin
Clrscr;
Assign(f,paramstr(1));
Write( ‘File ‘,paramstr(1));
{$I-}
rename(f,ParamStr(2));
{$I+}
if IOResult <> 0 then writeln(‘Gagal mengubah nama’);
else writeln(‘Mengubah nama menjadi ’, ParamStr(2));
end.


5.5. Tanggal dan waktu File
Guna memanipulasi tanggal dan waktu file, Turbo Pascal menyediakan variabel khusus bernama DateTime dengan tipe data record dengan field-field sebagai berikut :

Type datetime = record;
Year, month,day,hour,min,sec:word;
End;

Setelah dideklarasikan, baru kita dapat mengambil dan menset informasi date dan time dengan menggunakan perintah :

Ø  GetFTime : mengambil informasi tanggal dan jam file. Bentuk Umum :
GetFTime(nm_var,waktu);

Ø  SetFTime  : mengeset informasi tanggal dan jam file. Bentuk Umum :
SetFTime(nm_var,waktu);

Dengan :
Nm_var           : variabel file yang telah di-assign.
Waktu             : waktu yang akan diambil (dalam bentuk LongInt).

Keterangan :
1.      Pada saat GetFTime,  variabel waktu masih merupakan tipe data sistem(LongInt), maka perlu diubah terlebih dahulu sebelum ditampilkan, yaitu dengan perintah :
UnpackTime(waktu,var_datetime);

Waktu                   : dideklarasikan dalam bentuk longint

Var_datetime        : variabel dari record datetime.

2.      Sebelum melakukan SetFTime, variabel waktu masih merupakan variabel dari record datetime, maka perlu dikembalikan ke tipe data sistem(LongInt), yaitu dengan perintah :
PackTime(var_datetime, waktu);
Var_datetime        : variabel dari record datetime.
Waktu                   : dideklarasikan dalam bentuk tipe data sistem (longint).

3.      Harus menggunakan deklarasi unit  ‘Uses DOS;’ atau ‘Uses WinDOS;’




5.6. Mencari File
Menggunakan perintah :

Findfirst(path,attr,var_searchrec);
FindNext(var_searcRec);

Dengan :
path     : file yang akan dicari, dapat diisi dengan wildcard seperti ‘*’ dan ‘?’. Pada unit
DOS menggunakan tipe string. Harus deklarasi unit ‘Uses Dos;’.
Attr     : atribut file yang dicari
Var_searchrec : variabel dengan tipe searchrec sebagai berikut ini :
Type
Searchrec = record
Fill : array [1..2] of char;
Attr : byte;
Time : longint;
Size : longint;
Name : string;
End;

Contoh :
Program cari;
Uses crt,dos;
Var dirinfo :searchrec;
Begin
Clrscr;
Findfirst(paramstr(1),archive,dirinfo);
Writeln (‘File-file yang dicari adalah :’);
While doserror=0 do
Begin
Write(dirinfo.name:15, ‘ ‘);
Writeln(dirinfo.size:10);
Findnext(dirinfo);
End;
End.


5.8. Mengecek Keberadaan File
Menggunakan perintah :

Ø  Fsearch : untuk deklarasi unit DOS
Bentuk :
Var_pathstr := Fsearch(path,dirlist)
Dengan :
Path           : file yang akan dicari
Dirlist        : letak dimana akan dicari yang didefinisikan di path tersebut.

Ø  FileSearch : untuk deklarasi unit Windows
Bentuk :
FileSearch(var_string1, var_string2, var_string3)
Dengan :
Var_string1           : variabel tempat menaruh hasil proses.
Var_string2           : variabel tempat menaruh file yang dicari.
Var_string3           : variabel tempat melakukan pencarian file.



5.9. Memberikan directory File
Menggunakan 2 perintah di bawah ini:

Ø  FExpand
Bentuk umum :
Var_pathstr1 := FExpand(Var_pathstr2);
Dengan :
Var_pathstr1         : hasil dari proses dengan penulisan file secara panjang
Var_pathstr2         : nama file yang akan diperpanjang penulisannya
Fungsi ini tidak mengecek keberadaan file yang dimanipulasinya. Bila file tidak ada, maka tetap akan menghasilkan path yang sedang aktif.


Ø  FileExpand
Bentuk umum :
FileExpand(hasil,file_asal);
Dengan :
Hasil                      : merupakan hasil proses.
File_asal                : nama file yang akan diperpanjang penulisannya.




1 komentar:

  1. New Live Casino Site and Review (2021)
    New Live Casino Site and Review (2021). Find your favourite casino site here, luckyclub.live in the UK and in Ireland. Sign up to get £50 in casino bonus!

    BalasHapus