free tutorial Programming

seluruh yang ada di situs ini bebas untuk disebarluaskan selama menyertakan situs ini/sumber

Spesial Gempa Yogyakarta 27 Mei 2006 Klik di sini

Tutorial


 Windows -
   -> Registry
   -> Virus

 Linux -
   -> File Server
   -> Shell Scripting

 Pemrograman -
   -> Visual Basic
   -> Visual C++
   -> Java
   -> Pascal
   -> C / C++

 Web Design -
   -> HTML
   -> Javascript
   -> PHP
   -> ASP

 Lain-Lain -
   -> Konf/Instalasi
   -> Miscellaneous
   -> Gempa
   -> djChanger

Lain - Lain


 Interaktif
   -> Kirim Tutorial
   -> Forum Diskusi
   -> Blogger
   -> Ulas Web

Pascal

- by : dj/mideis -

Program database ini adalah contoh-contoh penggunaan fungsi dan prosedur dari Tutorial 6. Perhatikan contoh berikut:

 1: Program BuatFile;
 2: var fText : text; data: string;
 3: begin
 4:   writeln('MENGISI DATA');
 5:   writeln('------------');
 6:   assign(fText, 'nama.txt');
 7:   rewrite(fText); {gunakan reset(fText)
bila filesudah ada}
 8:   writeln(fText, 'dijas');
 9:   writeln(fText, 'dian');
10:   writeln(fText, 'cecep');
11:   close(fText);
12:   readln;
13: end.

Prosedur yang digunakan di atas adalah prosedur no. 1 sampai 5 yang ada di Tutorial 6. Untuk membaca databasenya gunakan reset (jangan rewrite) dan gunakan prosedur no 6. Perhatikan contoh di bawah ini:

assign(fText, 'bil.dat');
reset(fText);
read(fText, data);
writeln(data);

Sekarang kita gunain fungsi nomor 7 yachh... Fungsi ini biasa digunakan untuk membaca data yang ada dari awal/posisi tertentu sampai akhir. eof kepanjangan end of file

while not eof(fText) do
begin
  readln(fText, data);
  writeln(data);
end;

Bagaimana caranya jika ingin mengedit data yang sudah ada? Gunakan prosedur seek, perintahnya: Seek(fText, filesize(fText));. Setelah menempatkan kursor ditempat yang diinginkan, gunakan perintah write untuk mengedit atau prosedur Truncate untuk menghapus (perintahnya Truncate(fText)). Tapi hati-hati mengunakan Truncate, soalnya mulai dari posisi yang dimaksud sampai akhir file akan dihapus. Fungsi dan prosedur lainnya bisa dicoba-coba sendiri yaaa....

Huuff... akhirnya kelar juga ngebahas dasar-dasar pascal. Kalo kalian udah paham seluruh tutorial dan program yang ada di sini, berarti kalian sudah melewati level basic. Untuk pengembangannya coba cari program-program open source, terutama mengenai database. Selamat mencoba...

<< kembali

Language:

Klik disini untuk login

%polling%

Untuk tampilan terbaik gunakan ie 4.0, Netscape 5.0 atau versi di atasnya dengan resolusi 1024 x 768
Bogor, 2005