Pascal - FileDirectory.txt - Notepad.pdf
0 likes25 views
I. File dan direktori digunakan untuk menyimpan data secara permanen. File terdiri dari komponen yang memiliki tipe data yang sama. Ada tiga jenis file: teks, bertipe, dan tidak bertipe. II. Prosedur standar seperti assign, rewrite, reset, dan close digunakan untuk mengelola file. Prosedur mkdir dan rmdir digunakan untuk membuat dan menghapus direktori. III. Fungsi seperti getdir dan chdir digunakan untuk mengubah l
![rewrite(f[:file;recsize:word]);
* f adalah File varibel yang sudah dihubungkan dengan external
file dgn P.S Assign
* Recsize adalah ukuran dari record yang digunakan
khusus pada untype file.
Ex :
assign(tipefile,'agung.txt');
rewrite(tipefile);
diatas menunjukkan suatu file baru di disk dengan nama file
agung.txt Jika di disk sudah ada file dengan nama tersebut maka
file tersebut akan dihapus(terganti).
„ III. Procedure standard reset
Berbeda dengan procedure standard rewrite, maka procedure standard
reset digunakan untuk membuka file yang sudah ada di disk.
Syntak :
Reset(F[:file;Recsize : word]);
ex :
assign(tipefile,'agung.txt');
reset(tipefile);
Ket :
contoh diatas membuka file agung.txt yang sudah ada disk . Jika
file tidak ada maka akan terjadi kesalahan.
„ IV. Procedure standard close
Procedure standard close() digunakan untuk menutup file yang telah
dibuka dengan procedure standard rewrite, reset atau append .
Procedure standard append khusus untuk membuka file text.
sintaks :
Close(f);
f adalah file variabel yang sudah di hubungkan dengan external
file dengan procedure standard assign
ex :
Assign(rekam,'A:mahasiswa.dat');
reset(rekam);
.
.
close(rekam);
„ V. Procedure standard erase](https://image.slidesharecdn.com/pascal-filedirectory-220809233432-0c49dc3b/85/Pascal-FileDirectory-txt-Notepad-pdf-2-320.jpg)
![procedure standard ini digunakan untuk menghapus suatu external
file dengan syntaks :
erase(f);
f adalah file variabel yang sudah dihubungkan dengan external file
dengan menggunakan procedure standard assign
file yang akan dihapus dengan procedure standard ini harus dalam
keadaan tertutup artinya harus sudah ditutup dahulu dengan proce
dure standard close().
ex :
assign(rekam,'A:mahasiswa.dat');
erase(rekam);
„ VI. Procedure standard rename
Procedure standard rename digunakan untuk untuk mengganti nama
dari suatu external file dengan syntaks :
rename(f;namabaru : string);
f adalah File variabel yang
sudah dihubungkan dengan external
file dengan assign
Catatan :
file yang akan diganti namanya harus dalam keadaan tertutup.
ex:
assign(rekam.'A:mahasiswa.dat');
rename(rekam,'A:Nilai.dat');
Procedure standard Getdir
digunakan untuk mengetahui posisi directori yang aktif pada suatu
drive.
syntaks :
getdir(d:byte;var s : string);
menunjukkan drive jika
d=0 maka drive yang aktif
d=1 maka drive A
d=2 maka drive B
dan seterusnya.
ex. Program :
uses crt;
var
drive : byte; directory : string[50];
begin
clrscr;](https://image.slidesharecdn.com/pascal-filedirectory-220809233432-0c49dc3b/85/Pascal-FileDirectory-txt-Notepad-pdf-3-320.jpg)
Pascal - FileDirectory.txt - Notepad.pdf
- 1. Penanganan File dan Directori „ ----------------------------- Pada kebanyakan program- program aplikasi, data harus disimpan agar dapat dipergunakan lagi. Yaitu pada penyimpanan external yang bersifat nonfolatil dan permanen. Karena jika disimpan pada varia bel baik dalam bentuk array sifatnya hanya sementara dan folatil. Suatu file terdiri dari urutan komponen yang mempunyai tipe sama, dan sifatnya fleksibel yaitu dapat ditambah dan dikurangi sewaktu- waktu. Ada 3 macam tipe dari file , yaitu : „ 1. Text file „ 2. File bertipe „ 3. File tidak bertipe Procedure dan function standard untuk penganan file secara umum Procedure standard Assign Jika suatu file akan digunakan, maka nama file itu harus dihubung kan dengan suatu variabel yang disebut dengan variabel file. Procedure standard assign digunakan untuk menghubungkan nama dari external file ke file variabel. Sintaks assign( f;name:string); ex: Assign(rekam,'A:mahasiswa.dat'); rekam = File variabel A: = directory mahasiswa.dat = External file berupa file di disk Contoh diatas menunjukkan suatu file baru di disk dengan nama file Maha mahasiswa.dat external file dipandang sebagai peralatan logic dan dapat diakses dengan menyebutkan peralatan logiknya. ex : assign(tipefile,'LPT1'); file variabel printer „ I. Procedure Standard Rewrite Setelah nama dari external file dihubungkan dengan file variabel, selanjutnya file dapat dibuka dengan menggunakan procedure stan dard rewrite. Procedure standard rewrite digunakan untuk membuka file yang baru atau belum pernah ada di disk. syntaks :
- 2. rewrite(f[:file;recsize:word]); * f adalah File varibel yang sudah dihubungkan dengan external file dgn P.S Assign * Recsize adalah ukuran dari record yang digunakan khusus pada untype file. Ex : assign(tipefile,'agung.txt'); rewrite(tipefile); diatas menunjukkan suatu file baru di disk dengan nama file agung.txt Jika di disk sudah ada file dengan nama tersebut maka file tersebut akan dihapus(terganti). „ III. Procedure standard reset Berbeda dengan procedure standard rewrite, maka procedure standard reset digunakan untuk membuka file yang sudah ada di disk. Syntak : Reset(F[:file;Recsize : word]); ex : assign(tipefile,'agung.txt'); reset(tipefile); Ket : contoh diatas membuka file agung.txt yang sudah ada disk . Jika file tidak ada maka akan terjadi kesalahan. „ IV. Procedure standard close Procedure standard close() digunakan untuk menutup file yang telah dibuka dengan procedure standard rewrite, reset atau append . Procedure standard append khusus untuk membuka file text. sintaks : Close(f); f adalah file variabel yang sudah di hubungkan dengan external file dengan procedure standard assign ex : Assign(rekam,'A:mahasiswa.dat'); reset(rekam); . . close(rekam); „ V. Procedure standard erase
- 3. procedure standard ini digunakan untuk menghapus suatu external file dengan syntaks : erase(f); f adalah file variabel yang sudah dihubungkan dengan external file dengan menggunakan procedure standard assign file yang akan dihapus dengan procedure standard ini harus dalam keadaan tertutup artinya harus sudah ditutup dahulu dengan proce dure standard close(). ex : assign(rekam,'A:mahasiswa.dat'); erase(rekam); „ VI. Procedure standard rename Procedure standard rename digunakan untuk untuk mengganti nama dari suatu external file dengan syntaks : rename(f;namabaru : string); f adalah File variabel yang sudah dihubungkan dengan external file dengan assign Catatan : file yang akan diganti namanya harus dalam keadaan tertutup. ex: assign(rekam.'A:mahasiswa.dat'); rename(rekam,'A:Nilai.dat'); Procedure standard Getdir digunakan untuk mengetahui posisi directori yang aktif pada suatu drive. syntaks : getdir(d:byte;var s : string); menunjukkan drive jika d=0 maka drive yang aktif d=1 maka drive A d=2 maka drive B dan seterusnya. ex. Program : uses crt; var drive : byte; directory : string[50]; begin clrscr;
- 4. drive:=0; { 0 -> menujukan drive mana yang aktif} getdir(drive,directory);{menunjukan directory yang aktif} writeln('directory yang aktif =',directory); write('akan dipindah ke directory ='); readln(directory); chdir(directory); getdir(drive,directory); writeln('directory yang aktif sekarang=',directory); readln; end. Hasil : akan tergantung directory mana yang aktif „ VI. Procedure standard chdir Procedure standard ini digunakan untuk merubahposisi dari direc tory sintaks : chdir(s : string); Nama directory baru, jika drive disebutkan maka drive juga akan berubah „ VII. Procedure standard mkdir digunakan untuk membuat suatu directory yang baru sintaks : mkdir(s : string); nama directori baru ex : var direc : string; begin write('Nama directory =');readln(direc); mkdir(direc); end. „ VIII. Procedure standard rmdir digunakan untuk menghapus suatu directory. syntak : rmdir(s:string); directory yang dapat dihapus hanya directory yang kosong. ex : var direc : string; begin direc :='c:pascal'; rmdir(direc);
- 5. end. „ IX. Fungsi standard eof() akan menghasilkan status apakah file sudah berada pada posisi akhir dari file atau tidak. syntak : eof(f) : boolean; contoh program untuk penangan directory : program contoh_penanganan_directory; uses crt; var drive : byte; directory,baru : string; begin clrscr; drive := 0; getdir(drive,directory); writeln('directory yang aktif sekarang =',directory); write('akan dipindahkan ke directory =');readln(directory); chdir(directory); writeln('directory yang aktif sekarang =',directory); write('directory yang akan dihapus =');readln(directory); rmdir(directory); directory:='programtp55'; getdir(drive,directory); readln; end.