Program Menciptakan File Karakter ASCII Dengan TPW

Nah Program ini pernah aq buat (compile) hasilnya bisa diliat.

Program berikut akan membuat file text (.txt) dan akan dibuat di direktori tempat file ini dieksekusi.

Sebelumnya maaf jika di dalam tulisan ini banyak kesalahannya, maklum penulisnya masih newbie, masi belajar.
Semoga tulisan ini bisa membantu terlebih buat yang masih belajar seperti saya.

Untuk mendowload program, anda bisa download di http://students.ukdw.ac.id/~22074273/index.html bagian download (hehehe sorry sekalian nampang),

Code program ditulis oleh Nicolas novendra dan dicompile dengan turbo pascal for windows (TPW) versi 1.5

Sebenarnya programnya simple banget, gak susah. Keliatan yang nulis masi amatir. ^_^
Oh ya kommentarnya yah,, kritik, saran, pendapat, perbaikan, pertanyaan boleh diampirkan ke sini.

Berikut code program :

-------------------------- Mulai -----------------------------------------------
program KarAscii;
Uses Wincrt;
var n : byte;
kar : char;

procedure buat;
var teks : text;
n : byte;
begin
clrscr;
writeln('mulai membuat file...');
writeln;
Assign(teks, 'ASCII1.txt');
Rewrite(teks);
begin
writeln(teks, 'ASCII 1 Text created by nicolas');
writeln(teks, '--------------------------------');
for n:= 1 to 255 do
begin
writeln(teks, n ,'=', char(n));
end;
end;
close(teks);
writeln('----------------------');
writeln('complete');
writeln('----------------------');
end;

begin
writeln('buat text karakter ascii? (y/n)');
readln(kar);
if (kar = 'y') or (kar = 'Y') then buat;
for n:= 1 to 255 do
begin
writeln(n ,'=', char(n));
readln;
end;
end.
---------------------- Akhir --------------------------------------------


procedure buat;
var teks : text;
n : byte;

- di sini kita bikin sebuah prosedur untuk membuat file text ascii (sebenarnya tidak pakai prosedur juga bisa, di sini prosedur dipakai untuk memudahkan penulis saja ^_^ ); nama prosedurnya adalah buat
- variable yang digunakan ada 2, yaitu : teks (type text) dan var n (type byte, untuk looping)

begin
clrscr;
writeln('mulai membuat file...');
writeln;
Assign(teks, 'ASCII1.txt');

- Perintah assign adalah prosedur yang dipakai untuk mengaitkan variabel file dengan nama file (bingung ya? saya juga, hehehe, maklum masi newbie) intinya : file teksnya harus didaftarkan ke program pakai assign ini
- deklarasi assign intinya : Procedure Assign(VAR x; NamaFile: STRING); ---> VAR x = variabel filenya (disini variabelnya: teks) ; Namafile = Nama File di disk (disini ASCII1.txt)

Rewrite(teks);
begin
writeln(teks, 'ASCII 1 Text created by nicolas');
writeln(teks, '--------------------------------');
for n:= 1 to 255 do
begin
writeln(teks, n ,'=', char(n));
end;
end;
close(teks);
writeln('----------------------');
writeln('complete');
writeln('----------------------');
end;

- Nah bagian ini buat bikin filenya.
- Rewrite ini prosedur unutk membuat file, deklarasinya: Procedure Rewrite(var x); ---> var x = variabel filenya (disini variablenya: teks)
- Catatan buat rewrite : kalau file yang akan dibuat belum ada, maka filenya akan dibuat (ya,, iya,, lah..); Tapi kalau filenya udah ada, file yang lama akan dihapus lalu direplace file baru.
- Trus nulis karakter asciinya, pasti banyak yang dah tau. Perintah utamanya: Writeln(teks, n ,'=' char(n)); Variabel n dilooping 255 kali, (karakter asciinya dari 0 s/d 255).
- Dengan perintah itu, variabel n yang typenya byte akan ditulis dalam bentuk char. Gampangnya nilai n berupa angka, tapi yang ditulis characternya (asciinya).
- Perintah close ini prosedur untuk nutup file, deklarasinya: Procedure Close(var x); ---> var x = variabel filenya (disini variabelnya: teks)

begin
writeln('buat text karakter ascii? (y/n)');
readln(kar);
if (kar = 'y') or (kar = 'Y') then buat;
for n:= 1 to 255 do
begin
writeln(n ,'=', char(n));
readln;
end;
end.

- Perintah ini akan menampilkan pertanyaan : "buat text karakter ascii? (y/n)" ; jika kita menekan huruf y, maka file karakter ascii (ASCII1.txt) akan dibuat. Kerennya dengan mencet tombol y, maka prosedur buat (liat penjelasan paling atas) akan dijalankan.
- Jika yang ditekan adalah tombol lain, procedurnya tidak dijalankan.
- Setelah ditanyai untuk buat file, program akan nulis Karakter ascii di program langsung (user harus menekan enter untuk melihat karakter selanjutnya)

Nah Syntaxnya segitu aja, simple khan. Kalau syntaxnya ada yang salah n programnya ndak jalan, maaf bgt. Cz waktu aq nulis ini, dah lama gak dibaca syntaxnya n dicompile lagi. Trus versi TPWnya juga mungkin beda.

Sekian dulu dan Terimakasih. Qta berjumpa di artikel laen.
Salam Penulis

Artikel ditulis oleh Nicolas novendra Copyright©2008.

Hak Cipta dilindungi Undang-undang

Referensi Penulis : Pemrograman Pascal Buku 1, oleh Abdul Kadir, Penerbit Andi