Membuat Program Elips Simetri 4X di Delphi7

    

     

    Membuat Program Elips Simetri 4X di Delphi7

Langkah-Langkah Membuat Program Elips Simetri 4X :

1. Tambahkan 1 Button 
2. Masukan Koding Di bawah ini :

        procedure TForm1.Button1Click(Sender: TObject);

        var d,c,x,y,theta,thetf:real;

         xc,yc,r,r2:integer;

         begin

         xc:=300;yc:=200;r:=150;r2:=130;

         thetf:=0.0;

         d:=2*PI;

         theta:=d/4;

         c:=1/(r);

         while (thetf<theta)do

         begin 

         x:=r*cos(thetf);

         y:=r2*sin(thetf); 

         canvas.pixels[trunc(xc+x),trunc(yc+y)]:=clblue; canvas.pixels[trunc(xc+x),trunc(yc-y)]:=clblue;             canvas.pixels[trunc(xc-x),trunc(yc+y)]:=clblue; canvas.pixels[trunc(xc-x),trunc(yc-y)]:=clblue;             canvas.pixels[trunc(xc+y),trunc(yc+x)]:=clblue; canvas.pixels[trunc(xc+y),trunc(yc-x)]:=clblue;             canvas.pixels[trunc(xc-y),trunc(yc+x)]:=clblue; canvas.pixels[trunc(xc-y),trunc(yc-x)]:=clblue;             thetf:=thetf+c; 

         end; 

         end; 

         end.

        3.  Setelah koding di masukan kemudian jalnkan programnya.

Demikianlah cara membuat program  Elips Simetri 4X di Delphi7  selamat mencoba semoga berhasil.

Jangan lupa ikuti terus informasi dan berita terupdate di blog herawan09.blogspot.com. sampai bertemu di konten selanjutnya brody.