Rabu, 15 Agustus 2012

Membuat Animasi Sederhana dengan Pascal

Membuat Animasi Sederhana dengan Pascal

Pengen bikin animasi menggunakan pascal dimulai dengan cara yang simpel sangat?
nah, silahkan ketik kode-kode berikut: Yuk,,Mari


program animasi;
uses crt;
const g='*'; k=' ';
begin
clrscr;
repeat
textcolor(14);
delay(200);gotoxy(1,15);writeln(g);
delay(200);gotoxy(2,15);writeln(g); gotoxy(1,15);writeln(k);
delay(200);gotoxy(3,15);writeln(g); gotoxy(2,15);writeln(k);
delay(200);gotoxy(4,15);writeln(g); gotoxy(3,15);writeln(k);
delay(200);gotoxy(5,15);writeln(g); gotoxy(4,15);writeln(k);
delay(200);gotoxy(6,15);writeln(g); gotoxy(5,15);writeln(k);
delay(200);gotoxy(7,15);writeln(g); gotoxy(6,15);writeln(k);
delay(200);gotoxy(8,15);writeln(g); gotoxy(7,15);writeln(k);
delay(200);gotoxy(9,15);writeln(g); gotoxy(8,15);writeln(k);
delay(200);gotoxy(10,15);writeln(g);gotoxy(9,15);writeln(k);
gotoxy(10,15);writeln(k);
until keypressed;
readln;
end.


Perintah gotoxy memungkinkan kita untuk menuju kolom dan baris yang kita inginkan.
Perintah alay delay digunakan untuk menunda waktu ditampilkannya tulisan. Angka 200 adalah ukuran dalam milisecond. Jadi, kalau kita ingin menampilkan tulisan dalam waktu satu detik maka ketikkan delay(1000).  Kemudian untuk menghapus karakter sebelumnya saya gunakan konstanta k yang nilainya hampa satu spasi(k=' '), karena jikalau kita tidak memberi nilai tersebut niscaya yang termaktub dalam program tersebut *ce ileh basa gue* adalah=  **********
Silahkan diutak-atik sendiri yaw kodenya, semoga bermanfaat.

Membuat Animasi Sederhana dengan Pascal

Tidak ada komentar:

Poskan Komentar

Silahkan komen.....