Animasi kata dalam bahasa pascal

Animasi kata yang bergerak dari tengah. ke atas bawah, kanan kiri, kanan atas kiri bawah, dan kiri atas kanan bawah. dalam bahasa pascal :

Script :

uses crt;
var i,j,k,l:integer;
kata, genap, ganjil: string[9];


procedure Input;
begin
gotoxy(35, 13);
write('Input kata: ');
readln(kata);
end;


Procedure Insert;
Begin
genap := kata;
ganjil:= kata;
for i:=1 to length(kata) do
begin
if i mod 2 = 1 then
genap[i] := ' '
else
ganjil[i] := ' ';
end;


writeln(kata);
writeln(genap);
writeln(ganjil);
End;


Procedure gerak;
Begin
textcolor(6);
for i:=1 to 10 do
begin
clrscr;
gotoxy(35,13); write(kata); {tulis kata di tengah}


{dari tengah ke atas & bawah}
gotoxy(35, 13-i); write(genap);
gotoxy(35, 13+i); write(ganjil);


{dari tengah ke kiri & kanan}
gotoxy(35-length(kata)-i*2, 13); write(genap);
gotoxy(35+length(kata)+i*2, 13); write(ganjil);


{dari tengah ke serong kanan atas & kiri bawah }
gotoxy(35+length(kata)+i*2, 13-i); write(genap);
gotoxy(35-length(kata)-i*2, 13+i); write(ganjil);


{dari tengah ke serong kiri atas & kanan bawah}
gotoxy(35-length(kata)-i*2, 13-i); write(genap);
gotoxy(35+length(kata)+i*2, 13+i); write(ganjil);


delay(40000);
end;


for i:=1 to 10 do
begin
clrscr;
gotoxy(35, 13); write(kata);


{dari atas & bawah ke tengah}
gotoxy(35, 3+i); write(genap);
gotoxy(35, 23-i); write(ganjil);


{dari kiri & kanan ke tengah}
gotoxy(5+length(kata)+i*2, 13); write(genap);
gotoxy(65-length(kata)-i*2, 13); write(ganjil);


{dari serong kiri bawah & serong kanan atas ke tengah}
gotoxy(5+length(kata)+i*2, 23-i); write(genap);
gotoxy(65-length(kata)-i*2, 3+i); write(ganjil);


{dari serong kanan bawah & serong kiri atas ke tengah}
gotoxy(65-length(kata)-i*2, 23-i); write(genap);
gotoxy(5+length(kata)+i*2, 3+i); write(ganjil);


delay(40000);
end;
End;


Procedure gerakSebaliknya;
Begin
textcolor(9);
for i:=1 to 10 do
begin
clrscr;
gotoxy(35,13); write(kata);


gotoxy(35, 13-i); write(ganjil);
gotoxy(35, 13+i); write(genap);


gotoxy(35-length(kata)-i*2, 13); write(ganjil);
gotoxy(35+length(kata)+i*2, 13); write(genap);


gotoxy(35+length(kata)+i*2, 13-i); write(ganjil);
gotoxy(35-length(kata)-i*2, 13+i); write(genap);


gotoxy(35-length(kata)-i*2, 13-i); write(ganjil);
gotoxy(35+length(kata)+i*2, 13+i); write(genap);


delay(40000);
end;


for i:=1 to 10 do
begin
clrscr;
gotoxy(35,13); write(kata);


gotoxy(35, 3+i); write(ganjil);
gotoxy(35, 23-i); write(genap);


gotoxy(5+length(kata)+i*2, 13); write(ganjil);
gotoxy(65-length(kata)-i*2, 13); write(genap);


gotoxy(5+length(kata)+i*2, 23-i); write(ganjil);
gotoxy(65-length(kata)-i*2, 3+i); write(genap);


gotoxy(65-length(kata)-i*2, 23-i); write(ganjil);
gotoxy(5+length(kata)+i*2, 3+i); write(genap);


delay(40000);
end;
End;


Begin
clrscr;


textcolor(7);
Input;
Insert;


repeat
gerak;
gerakSebaliknya;
until keypressed;
end.

Keterangan : untuk delay dan text color dapat dirubah sesuai keinginan. dan script yang menggunakan kurung kurawal {} hanya sebagai deskripsi/penjelasan.


" Good Luck "

Artikel terkait :