Membuat Program Elips Midpoint di Delphi7

 

    Membuat Program Elips Midpoint di Delphi7

    Langkah-Langkah Membuat Program Elips Midpoint :

1. Siapkan 1 Tombol Button
2. Kemudian klik 2 kali pada Button
3. Lalu ketik Koding dibawah ini :

        procedure TForm1.Button1Click(Sender: TObject); 

        var x,y,xc,yc,rx,ry,p,px,py,ry2,rx2,tworx2,twory2:integer; 

        begin

         ry:=150;rx:=76;xc:=400;yc:=200; ry2:=ry*ry; rx2:=rx*rx; twory2:=2*ry2;

         tworx2:=2*rx2; x:=0; y:=ry; canvas.Pixels[xc+x,yc+y]:=clblack; 

         canvas.Pixels[xc+x,yc-y]:=clblack; canvas.Pixels[xc-x,yc+y]:=clblack;

         canvas.Pixels[xc-x,yc-y]:=clblack; p:=abs(trunc(ry2-rx2*ry+(0.25*rx2))); 

         px:=0; py:=tworx2*y; while(px=0) then

         begin

         y:=y-1; py:=py-tworx2;

         end; 

         if (p<0)then p:=p+ry2+px else p:=p+ry2+px-py; 

         canvas.Pixels[xc+x,yc+y]:=clblack; 

         canvas.Pixels[xc+x,yc-y]:=clblack; 

         canvas.Pixels[xc-x,yc+y]:=clblack; 

         canvas.Pixels[xc-x,yc-y]:=clblack; 

         end; 

         p:=trunc(ry2*(x+0.5)*(x +0.5)+rx2*(y-1)*(y-1)-rx2*ry2); 

         while(y>0)do begin y:=y-1; py:=py-tworx2;

         if (p<=0)then begin x:=x+1; px:=px+twory2; 

         end; if (p>0)then p:=p+rx2-py else p:=p+rx2-py+px; 

         canvas.Pixels[xc+x,yc+y]:=clblack; canvas.Pixels[xc+x,yc-y]:=clblack; 

         canvas.Pixels[xc-x,yc+y]:=clblack; canvas.Pixels[xc-x,yc-y]:=clblack; 

         end; 

         end; 

         end. 

        4.  Kemudian Jalnkan Programnya.

Demikianlah cara membuat program Elips Midpoint. selamat mencoba semoga berhasil.

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

Baca Juga : Program Fungsi Parameter (Cardiod) di Delphi7