Entwickler-Ecke :: Thema anzeigen - Im viertel kreis 100 Streifen zeichnen

maxrus - So 07.11.10 20:41
Titel: Im viertel kreis 100 Streifen zeichnen

Hallo,

habe folgendes Problem, ich will auf einem Quadratischen Imagefeld Kantenlänge 300 beim Programmstart schwarzen viertel Kreis mit dem Mittelpunkt (0,0) und dem Radius von 300 aus 100 Geradstücken zeichen.Habe versucht das irgendwie selber zu basteln, weiß aber nicht genau wie man mit for Schleife richtig umgeht. Würde mich freuen wenn jemand hier Ahnung hat und mir weiter helfen kann :)
PS: mein Quelltext:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
r,anzahl_der_Balken,hoehe,breite:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
r:=300;
hoehe:=300;
breite:=300;
image1.Canvas.Ellipse(breite ,hoehe,-breite,-hoehe);
anzahl_der_Balken:=100;
image1.Canvas.MoveTo(0,0);
for anzahl_der_Balken:=1 to 100 do
begin
image1.Canvas.LineTo(hoehe,0);



end;
end;

end.

Moderiert von Kha: Delphi-Tags hinzugefügt

jfheins - So 07.11.10 20:56

Von der herangehensweise: Du musst in jedem Durchlauf eine Linie zeichnen, und den endpunkt immer um ein delta weiterdrehen. Die kooradinaten des Endpunkts musst du mit sin() und cos() berechnen (Math-Unit einbinden !)

Um auch ein wenig Code zu liefern, so sollte das ungefähr aussehen:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

image1.Canvas.Ellipse(breite ,hoehe,-breite,-hoehe);

delta = Pi/200;

for i:=1 to 100 do
begin
  image1.Canvas.MoveTo(0,0);
  image1.Canvas.LineTo(r * Cos(delta * i),r * Sin(delta * i));
end;

Nein, das sollst du nicht einfach kopieren. Mir ist bewusst dass das nicht einfach so kompilieren wird ;)

bummi - So 07.11.10 21:16

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var
r,anzahl_der_Balken,hoehe,breite:integer;
procedure TForm1.Button1Click(Sender: TObject);
var
  x,y:Integer;
begin
  r:=300;
  hoehe:=300;
  breite:=300;
  image1.Canvas.Ellipse(breite ,hoehe,-breite,-hoehe);
  anzahl_der_Balken:=100;
  image1.Canvas.MoveTo(0,0);
  for anzahl_der_Balken:=0 to 100 do
  begin
     x := anzahl_der_Balken*3;
     y  := Round(sqrt((r*r) - (x*x)));
     image1.Canvas.MoveTo(x,0);
     image1.Canvas.LineTo(x,y);
  end;
end;

bummi - So 07.11.10 21:31

oder meintest Du so??

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var
r,anzahl_der_Balken,hoehe,breite:integer;
procedure TForm1.Button1Click(Sender: TObject);
var
  x,y:Integer;
  Function GetGrad(G:Double):Double;
    begin
      Result := 2*PI * G;
    end;
begin
  r:=300;
  hoehe:=300;
  breite:=300;
  image1.Canvas.Ellipse(breite ,hoehe,-breite,-hoehe);
  anzahl_der_Balken:=100;
  image1.Canvas.MoveTo(0,0);
  for anzahl_der_Balken:=0 to 100 do
  begin
     x := Round(COS(GetGrad(anzahl_der_Balken / 400))  * 300);
     y := Round(SIN(GetGrad(anzahl_der_Balken / 400))  * 300);
     image1.Canvas.MoveTo(0,0);
     image1.Canvas.LineTo(x,y);
  end;
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!