Membuat Animasi Doraemon menggunakan Free Pascal

`    Baiklah kali ini kita akan belajar Membuat Animasi Doraemon menggunakan Free Pascal. Untuk warna lingkaran ini kita bisa bebas menggunakan warna.

 Baiklah langsung saja kita coba praktekkan bagaimana caranya:

1.Silahkan buku terlebih dahulu Aplikasi Free Pascal

2.Jika sudah dibuka,silahkan ketik Kodingannya dibawah ini :

 

uses graph,crt;

var

key : char;

runloop : boolean;

driver,mode : integer;

rx,i : integer;

 

procedure initial;

begin

clrscr;

driver:=detect;

initgraph(driver,mode,'C:\TP\BGI');

end;

procedure inti;

begin

initial;

                repeat;

i:=100;

                while i<=1000 do

                begin

                i:=i+50;

 

 

                        //NAMA

        setcolor(3);

        OutTextXY(1250,730,'Lisna Simbolon');

 

                //kepala

                setfillstyle(solidfill,blue);

                fillEllipse(200+i,200,120,120);

        setfillstyle(solidfill,white);

                fillEllipse(225+i,140,20,30);

        setfillstyle(solidfill,white);

                fillEllipse(175+i,140,20,30);

        setfillstyle(solidfill,white);

                fillEllipse(200+i,235,100,80);

        setfillstyle(solidfill,black);

                fillEllipse(180+i,155,10,10);

        setfillstyle(solidfill,black);

                fillEllipse(220+i,155,10,10);

         setfillstyle(solidfill,red);

                fillEllipse(200+i,170,10,10);

         setfillstyle(solidfill,red);

                fillEllipse(200+i,240,90,50);

 

        //kumis kiri

        setfillstyle(solidfill,black);

                bar(120+i,175,160+i,176);

        bar(120+i,180,160+i,181);

        bar(120+i,185,160+i,186);

 

        //kumis kanan

        setfillstyle(solidfill,black);

                bar(240+i,175,280+i,176);

        bar(240+i,180,280+i,181);

        bar(240+i,185,280+i,186);

 

                //yang merah dekat leher

        setfillstyle(solidfill,red);

                fillEllipse(200+i,320,100,7);

 

        //badan

        setfillstyle(solidfill,blue);

                line(110+i,330,290+i,455);

        line(110+i,330,290+i,455);

                bar(110+i,330,290+i,455);

 

                //tangan kanan

                setfillstyle(solidfill,blue);

                fillEllipse(310+i,390,20,70);

                setfillstyle(solidfill,white);

                fillEllipse(310+i,450,20,20);

 

                //tangan kiri

                setfillstyle(solidfill,blue);

                fillEllipse(95+i,390,20,70);

                setfillstyle(solidfill,white);

                fillEllipse(95+i,440,20,20);

 

        //Kaki Kiri

                setfillstyle(solidfill,white);

                fillEllipse(140+i,475,50,20);

 

        //Kaki Kanan

                setfillstyle(solidfill,white);

                fillEllipse(250+i,475,50,20);

 

        //lingkaran putih kantong ajaib

        setfillstyle(solidfill,white);

                fillEllipse(200+i,385,70,60);

 

                //kantong

                setfillstyle(solidfill,blue);

                fillEllipse(200+i,390,50,40);

        setfillstyle(solidfill,white);

                bar(150+i,350,250+i,380);

 

        //lonceng

                setfillstyle(solidfill,yellow);

                fillEllipse(200+i,335,15,15);

                delay(50);

                cleardevice;

                end;

                until keypressed;

                closegraph;

                end;

begin

inti;

readln;

end.

3.Jika sudah langsung klik Run atau ctrl + f9,maka hasilnya akan muncul

4.    Terimakasih telah berkunjung ke Blogg ini.