NAMA FILE : Dbase1.Pas

NAMA PROGRAM : File_Text

INPUT / DEKLARASI :

1. Variabel :

Files : text

Nama, NPM, Nmf : String

Lagi,WJ : Char

2. Fungsi :

Uses crt = Clrscr

readkey

LOGIKA PROGRAM :

¨ Program File_Text;

Penjelasan :

Memberikan nama program dengan nama File_Text

¨ Uses Crt;

Penjelasan :

Menghidupkan fungsi yaitu pada clrscr yang fungsinya membersihkan layar tampilan

¨ Var

Files : text;

Nama, NPM, Nmf : String;

Lagi,WJ : Char;

Penjelasan :

Mendeklarasikan atau memberikan type data pada Files berupa Text untuk nama ,NPM,nmf bertype data string dan untuk lagi dan WJ bertype data char

¨ Begin

Clrscr;

Textcolor(cycan);writeln('');write(' ');

Write('Nama File :' );readln(Nmf);

Assign(Files,Nmf);

{$I-}reset (Files);

{$+}

Penjelasan :

Memulai program yaitu pertama kita memasukkan suatu nilai pada nama file yang telah diwakili oleh nmf yang bertype data string. Assign merupakan suatu fungsi untuk menyimpan suatu data atau file yaitu Files dan nmf dan kita dapat mereset kembali atau memanggil kembali Files

¨ if (ioresult=0) then

begin

WJ := ' ';

While not (Upcase(WJ)='y') do

Begin

Write (Chr(7));write(' ');

Write ('File Sudah Ada (Y/N) : ');

WJ := Readkey;

End;

If Upcase(WJ)='N' then Halt;

End;

Penjelasan :

Program diatas menjelaskan bahwa kita dihadapkan suatu keadaan yaitu apabila hasil sama dengan nama file yang pernah di input maka kita akan memilih suatu pertanya 'file sudah ada(Y/N)' bila kita menjawab y atau Y maka program berjalan terus dan apabila kita menjawab n atau N maka akan mengalami pengulangan pertanyaan itu karena file sudah ada dan oleh karena itu kita harus menjawab y atau Y agar program berjalan terus

¨ Rewrite (Files);

Lagi := 'Y';

While Upcase (Lagi)= 'Y' do

Begin

Clrscr;

Textcolor(green);writeln('');write(' ');

Writeln (' Data Mahasiswa ');write(' ');

Write(Nama);readln(Nama);write(' ');

Write (NPM);readln(NPM);

Writeln (Files, Nama :15, NPM:8);write(' ');

Write (' Tamabah Data Lagi (Y/N): ');

End;

Penjelasan :

Apabila kita menjawab y atau Y maka kita akan menginput data yang telah ditentukan yang antara lain nama dan NPM. Data yang telah di input tersebut telah dimasukkan lagi pada file Files .dijelaskan juga bila kita tambah data lagi kita tekan y atau Y maka akan kita tulis lagi atau penginputan lagi bila n atau N maka keluar dari file Files

¨ Close (Files);

Penjelasan :

Keluar dari file Files

¨ Readkey;

Penjelasan :

Readkey merupakan salah satu bagian dari type data yang digunakan apabila pada saat program dijalankan dan readkey berfungsi bila kita menekan sebuah character maka character tersebut akan tampil dan bisa keluar dari program apabila kita menekan enter atau space

¨ End.

Penjelasan :

Perintah bahwa program telah selesai karena dalan satu program end titik cuman ada satu

Analisa program :

Program diatas pada intinya hanyalah program yang digunakan untuk peninputan suatu data yang telah ada nama file nya jadi apabila kita ingin menambahkan data cukup memanggil nama file yang akan ditambahi datanya.

Dalam pembuatan program diatas pada deklarasi variabel kita memasukkan data harus sesuai denagn type data nya karena apabila berbeda dengan type datanya maka program tidak bisa dijalankan.

Pada deklarasi fungsi yaitu readkey kita dapat langsung keluar program atau juga kita bisa juga menekan suatu karakter maka kita tidak akan keluar dari program

Setiap penulisan program musti diakhiri tada titik koma dan adanya perbedaan kata writeln dengan write hanya ter letak pada penempatannya ln berarti pindah garis

LISTING PROGRAM

Program File_text;

Uses Crt;

Var

Files : text;

Nama,NPM,Nmf : String;

Lagi,WJ : Char;

Begin

Clrscr;

Textcolor(Cyan);writeln('');write(' ');

Write('Nama File:');Readln(Nmf);

Assign(Files,Nmf);

{$i-}Reset(Files);

{$i+}

If(ioResult=0) Then

Begin

WJ := ' ';

While not (Upcase(WJ)= 'Y') do

Begin

Write (Chr(7));write(' ');

Write ('File Sudah Ada (Y/N):');

WJ := Readkey;

End;

If Upcase(WJ)='N' Then Halt;

End;

Rewrite(Files);

Lagi:='Y';

While Upcase (Lagi)= 'Y' do

Begin

Clrscr;

Textcolor(Green);writeln('');write(' ');

Writeln('Data Mahasiswa');write(' ');

Write('Nama :');Readln(Nama);write(' ');

Write('NPM :');Readln(NPM);

Writeln(Files, Nama:20, NPM:20);write(' ');

Write('Tambah data lagi (Y/N):');

Lagi := Readkey;

End;

Close(Files);

Readkey;

End.