Membuat Aplikasi Loading sederhana menggunakan Free Pascal

Temen-temen disini aku kasih contoh syntak pembuatan app loading sederhana menggunakan fpc..disini aku menggunakan perulangan for dan fungsi gotoxy yang ada dalam fpc.. simplee kann!! semoga berguna buat temen temen...



uses crt;

var

l,g:integer;



procedure garis;

begin

for g:=1to 36 do

begin

gotoxy(g,5);write('|');

end;

end;



procedure loading;

begin

for l:=1 to 100 do

begin

gotoxy(13,4);

delay(50);

write(l,' %');writeln;garis;

end;

end;








begin

clrscr;

writeln('welcome in my apll');

writeln('====================================');

writeln;

write('loading :');loading;
{memanggil prosedur loading yang udah kita buat}
writeln;writeln;writeln;writeln;

write('press any key....!');

readkey;

end.





di cobaa yahhh!!!! have fun!!