source code animasi pake pascal buat loe….

lama sekali tdk liat pascal,,, maaf yg nanya blm bs jawab dl. ini catatan saat sy masih kuliah.

 

PROGRAM ANIMASI;

USES CRT;
VAR PANAH:STRING;
I:INTEGER;
BEGIN

FOR I:=1 TO 17 DO

BEGIN
CLRSCR;
TEXTCOLOR(0);
TEXTBACKGROUND(3);
WRITELN(‘======================= JET STEALTH =======================’);

BEGIN
GOTOXY(I,4);
WRITELN(‘   ===’);
GOTOXY(I,5);
WRITELN(‘     ===’);
GOTOXY(I,6);
WRITELN(‘       ===’);
GOTOXY(I,7);
WRITELN(‘ \—————\’);
GOTOXY(I,8);
WRITELN(‘ )===============|’);
GOTOXY(I,9);
WRITELN(‘ /—————/’);
GOTOXY(I,10);
WRITELN(‘       ===’);
GOTOXY(I,11);
WRITELN(‘      ===’);
GOTOXY(I,12);
WRITELN(‘     ===’);
GOTOXY(I,13);
WRITELN(‘   ===’);
GOTOXY(I+8,I+8);
WRITELN(‘>###>>’);

END;

DELAY(350);
END;
END.

jalannya program man………

gigi

===================================================================

nih ada lagi…..

{modified ‘n’ created by hadi@gila@komputer
date 27 may dini hari jam:02.00
original code ‘om boker…}

PROGRAM ANIMASI_HELIKOPTER;
USES CRT;
VAR
I:INTEGER;

BEGIN

FOR I:=1 TO 18 DO
BEGIN
CLRSCR;
textbackground(9);
textcolor(10);
writeln (‘|  HELIKOPTER CANGGIH TEMPUR  |’);

begin

GOTOXY(I,4);
WRITELN(‘   ====|==== ‘);

end;

begin
GOTOXY(I,5);
WRITELN(‘    /-]-[-\ ‘);
end;

begin
GOTOXY(I,6);
WRITELN(‘(—\_]|[_/ ‘);
end;

begin
GOTOXY(I,7);
WRITELN(‘      ____  ‘);
delay (100);

GOTOXY(I,7);
WRITELN(‘      ~~~~   ‘);

GOTOXY(I,4);
WRITELN(‘   ~~~~|~~~~ ‘);

end;

delay (100);
{ubah delay,form,dll,}

begin
GOTOXY(I+3,I+7);
WRITELN(‘>>BOMB>>’);
end;

delay (100);

END;
END.

liat nih… keren gak??? weeekkkzzzz………..

jalannya program

Iklan

4 comments on “source code animasi pake pascal buat loe….

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s