Thursday 28 October 2010

Animasi Teks pada Pascal

uses crt;

var i :integer;
kata, genap, ganjil: string[9];{agar hasil yang bagus karakter string di batasi 9
karakter}

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.

Delay adalah seberapa cepat gerak animasi tertangkap oleh mata, semakin dikit delay.
maka semakin tak terlihat gerakan animasinya, dan text color adalah untuk tulisan
pada animasi yang berwarna .

Posting Terkait

0 comments:

Post a Comment

Mikail Alfith Amarullah

↑ Grab this Headline Animator

IKLAN

  © Blogger Tamplates

Back to TOP