Kreisdiagramm?

[citybreaker]

Hallo,

wie kann man am besten ein Kreisdiagramm realisieren?
Zum einarbeiten möchte ich erst mal 2 Edits haben und die zahlen
daraus dann als Kreisdiagramm darstellen.

[kiar]

hallo citybreaker,

wie wäre es mit mathe. mein großer ist 1 und hatte das dieses jahr in der schule.
den flächeninhalt eines kreisbogens zu berechnen.

der umfang sollte auch klar sein, oder?

raik

[Sanchez]

Zitat von kiar:

wie wäre es mit mathe. mein großer ist 1 und hatte das dieses jahr in der schule.
den flächeninhalt eines kreisbogens zu berechnen.

Wahnsinn mit 1 konnte ich gerade erst gehen

[kiar]

@sanchez, da biste aber zurück

sch*** tastatur,

14 meine ich

raik

[citybreaker]

Ähm es geht mir erstmal dadrum wie ich sowas zeichnen soll. Ich hab kein Plan
wie ich das in Delphi machen soll. -.-

[Nikolas]

Schau die mal 'pie' an. Da kannst du u.A. einen Winkel übergeben und dann wird dir daraus ein 'Tortenstück' gezeichnet.

Tox

[kiar]

hallo citybreaker
hier mal ein quickie.

ein TImage, ein button und ein edit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   breite,
   hoehe,
   mittex,
   mittey : integer;
   delta: double;
   rect : TRect;
begin
    rect:= image1.canvas.ClipRect;
    with image1.canvas do begin
      brush.color:= clred;
      pen.color  := clblack;
      pen.width  :=1;
      Ellipse(rect.left, rect.top, rect.right, rect.bottom);
      if strtoint(Edit1.text) > 0 then
        brush.color:= clyellow;
        pen.Color  := clBlue;
        breite:= rect.Right - rect.Left;
        hoehe:= rect.Bottom * 2 - rect.top;
        mittex:= breite div 2;
        mittey:= hoehe  div 2;
        delta:=(pi * (strtoint(edit1.text) div 2)+ 0.5 );
        pie(rect.Left, rect.top, rect.right, rect.bottom,round(mittex *1-cos(delta)),round(mittey *(1-sin(delta))),mittex,0);
        end;
       

end;

das ist sicher ausbaubar

raik