Membuat Garis Sepiral di delphi 7

 Membuat Garis Sepiral di delphi 7

      

                                Baca juga : Membuat Animasi Tulisan Berjalan di delphi7

Berikut Langka-langkah membuat Garis Threeleaf

1. Tambahkan 1 Button

2. lalu ketikan coding di bawah ini dengan cara klik 2 kali tombol Button

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

a,xc,yc:integer;

begin

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

 thetf:=0.0;

 d:=2*PI;

 theta:=d;

 c:=1/a;

 while (thetf<theta) do

 begin

 r:=a*thetf;

 x:=r*cos(thetf);

 y:=-r*sin(thetf);

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

thetf:=thetf+c;

end;

end;

end.

Demikian Cara membuat garis Sepiral. selamat mencoba semoga berhasil.