Program Animasi Text Berjalan

Sebelum kita memasuki Programnya, Seharusnnya Sobat harus tau apa arti ANIMASI..!

Animasi adalah suatu text, grafik, dan gambar yang bergerak pada koordinat yang sudah ditentukan..

Naahhh!! sekarang Sobat dah tau kan apa itu ANIMASI..

Contoh:

mungkin Sobat sering Melihat di Mal, di Jalan Raya, di Swalayan, dan lain-lainnya Tesk Berjalan yang menuliskan "SELAMAT DATANG"

Sekarang kita membuat Programnya Pada Turbo Pascal.

Caranya Gampang kog:

program teksberjalan;

uses crt;

var

x,y : integer;

begin

clrscr;

x := 1;

for Y := 1 to 30 do

begin

gotoxy(X,Y);

WRITE('SELAMAT DATANG');

X := X + 0;

TEXTCOLOR(Y);

delay(300);

end;

readkey;

end.

Bagaimana Sobat?? Berhasilkan??

Jika Sobat Butuh Bantuan, Puji Tuhan saya bisa membantu. :) ;)
Terimah kasih....