Contoh animasi teks sederhana dengan PASCAL

Berikut adalah contoh animasi sederhana untuk menggerakkan karakter dari teks secara vertical dengan menggunakan PASCAL.

Langsung liat contohnya saja ya :

uses crt;

var
teks : string[15];
posisiKar : integer;
x, y, temp : integer;

begin
clrscr;
teks := 'Belajar Pascal';

x := 12;
y := 3;

gotoxy(12, 1);write(':: Contoh Animasi Sederhana ::');

for posisiKar := 1 to length(teks) do
begin
gotoxy(x,3);write(teks[posisiKar]);
delay(60);
x := x + 1; { Mengapa X harus ditambah dengan 1 pada saat perulangan berjalan ?? }
end;

x := 12;

{animasi vertical}
for posisiKar := 1 to length(teks) do
begin
for y := 3 to 17 do
begin
gotoxy(x, y); write(teks[posisiKar]);
gotoxy(x, y - 1); write(' '); { Mengapa bagian ini nilai y harus dikurangi dengan 1 dan dicetak adalah spasi ?? }
delay(20);
gotoxy(1,1);
end;

x := x + 1;
delay(60);
end;

readkey;
end.

Advertisement