Berikut ini adalah contoh program animasi ( Tulisan bergerak ) di Turbo Pascal Windows 1.5, yang di buat dan diberikan oleh dosen KaMi tercinta Bpk. Tony Suryadi, S.Kom.

Silahkan teman-teman simak programnya, seperti berikut :

Start Program___________________________________________

Uses wintypes,winprocs,wincrt;

var
a : integer;

Procedure
Delay (msec : integer);

var
time : longint;
msg : tmsg;

Begin
time := gettickcount;
inc (time,msec);
while gettickcount < time do
Begin
If peekmessage (msg,0,0,0,pm_remove) then
Begin
If msg.message = wm_quit then
Begin
postquitmessage (msg.wparam);
exit
end;
translatemessage (msg);
dispatchmessage (msg)
end;
end;
end;

Begin
For A := 1 to 55 do
Begin
clrscr;
GotoXY(A,12);Write(’Kelas v1 AMIK CBI Sukabumi’);
Delay (100);
End;
For A := 55 Downto 27 do
Begin
clrscr;
GotoXY(A,12);Write(’Kelas v1 AMIK CBI Sukabumi’);
Delay (100);
End;
For A := 27 to 52 do
Begin
GotoXY(A,11);Write(’*');Delay (100);
GotoXY(A,13);Write(’*');Delay (100);
end;
For A := 20 to 20 do
Begin
GotoXY(A,15);Write(’Exercise Program by : Tony Suryadi, S.Kom’);
end;
End.

End Program_____________________________________________________

Nah… silahkan di run dan dipelajari oleh teman-teman semua, setelah itu mari kita diskusikan dan kita kembangkan pelajaran tersebut.

Terima kasih banyak Pak Tony, jangan kapok ya Pak.. untuk selalu bimbing KaMi

This entry was posted on Sabtu, Mei 24th, 2008 at 21:57 and is filed under Materi Kuliah, Pascal. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.