(contoh ini diambil dari buku 36jam belajar komputer delphi 4.0 Ir. INGE MARTINA)
Masukan komponen berikut :
Toll Palette>>System>>TPainbox
Toll Pallette>>Standard>>TButton
Tool Palette>>Standard>>Tlabel
Tool Palette>>Standard>>TEdit
Ubah caption button dengan "Animasi" dan caption Label dengan "Selang Waktu",kemudian klik dua kali button dan masukan perintah berikut:
|
procedure TForm1.Button1Click(Sender: TObject);
var
radius:integer;
radreal:real;
Sudut,x,y,count1,count2:integer;
waktuawal,waktuakhir:tdatetime;
begin
waktuawal:=now;
for count2:=1 to 10 do
begin
sudut:=random(360);
radreal:=(sudut*PI)/180;
for count1:= 1 to 100 do
begin
x:=trunc(count1*sin(radreal))+100;
y:= trunc(count1*cos(radreal))+100;
paintbox1.Canvas.Brush.Color:=clred;
paintbox1.Canvas.Ellipse(x-6,y-6,x+6,y+6);
paintbox1.Canvas.Brush.Color:=clwhite;
paintbox1.Canvas.Rectangle(0,0,200,200);
end;
end;
waktuakhir:=now;
edit1.text:=inttostr(round(24.0*60.0*60.0*1000.0*(waktuakhir-waktuawal)));
end; |
No comments:
Post a Comment