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 "
0 comments:
Posting Komentar