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.

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

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

@sanchez, da biste aber zurück

sch*** tastatur,

14 meine ich

raik

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

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

Tox

hallo citybreaker
hier mal ein quickie.

ein TImage, ein button und ein edit:

zusammenfalten · markieren

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