Membuat Program Fungsi Parameter (Forleaf) di Delphi7

 

          Program Fungsi Parameter (Forleaf) di Delphi7

Langkah-Langkah Membuat Program Fungsi Parameter (Forleaf):

1. Tambahkan 1 Button

2. Klik 2 Kali Pada Button

3. Masukan Koding di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);

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

 a,xc,yc:integer;

begin

 a:=100;xc:=300;yc:=200;

 thetf:=0.0;

 d:=2*PI;

 theta:=d;

 c:=1/a;

 while (thetf<theta) do

begin

 r:=a*cos(2*thetf);

 x:=r*cos(thetf);

 y:=-r*sin(thetf);

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

thetf:=thetf+c;

end;

end;

end.

4. Jalankan 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 : Cara Mengecek Pengguna Wifi di Tp-link TL-WRB20N di PC