Linie im Winkel zeichnen

[GroZ]

Zitat von Popov:

Das braucht er nicht, denn ob er etwas hier bekommt oder über Google, ist gehopst wie gesprungen. Nicht die Formeln sind das Problem, denn von denen gibt es im Internet genug, wichtig ist wie man an die Aufgabe herangeht. Es ist die Methode, bzw. die Technik wie man eine Aufgabe löst. Die bekommt man eigentlich in der Schule beigebracht.

Code:

Aufgabe:
Koordinate B berechnen.

Gegeben:
Koordinate A
Winkel Alpha 
Hypotenuse (Radius)
Kreiszahl Pi

Gesucht:
Ankathete (Länge X)
Gegenkathete (Länge Y)

Hat man alle schön aufgeschrieben, muss man nur nach der Lösung suchen wo das Gesuchte mit dem Gegebenen berechnet werden kann.

Den winkel Alpha möchte ich über ein Editfeld selber eingeben.

[Sir Rufo]

Wenn du auf dem Canvas der Paintbox malen möchtest, dann musst du auch auf dem Canvas der Paintbox malen und nicht auf dem Canvas der Form!

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  LCanvas: TCanvas;
begin
  LCanvas := TPaintBox(Sender).Canvas;

  LCanvas.Ellipse(100,100,400,400);

end;

[GroZ]

Das ist jetzt mein Quellcode. Jetzt komm ich aber absolout nicht mehr weiter...

Delphi-Quellcode:

unit Uhr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Winkel: TEdit;
    Strich: TButton;
    Reset: TButton;
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
    procedure ResetClick(Sender: TObject);
    procedure StrichClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i : integer;

implementation

{$R *.dfm}

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  LCanvas: TCanvas;
begin

LCanvas := TPaintBox(Sender).Canvas;

  LCanvas.Ellipse(100,100,400,400);


end;

procedure TForm1.ResetClick(Sender: TObject);
begin

paintbox1.Repaint
end;

procedure TForm1.StrichClick(Sender: TObject);
var Radi, Gradi : extended ;
    Pi: extended ;
begin
canvas.MoveTo(280,280);
canvas.lineto(280,125);

Gradi := StrToFloat(Winkel.Text) ;

Radi := Pi*(Gradi/180);







end;

end.

[Aphton]

Zitat von GroZ:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
LCanvas: TCanvas;
begin

LCanvas := TPaintBox(Sender).Canvas;

LCanvas.Ellipse(100,100,400,400);
// ...

procedure TForm1.StrichClick(Sender: TObject);
var Radi, Gradi : extended ;
Pi: extended ;
begin
canvas.MoveTo(280,280);
canvas.lineto(280,125);
// ...
[/DELPHI]

Fällt dir hier nichts auf?

[GroZ]

Leider nein

[Aphton]

Zitat von GroZ:

Leider nein

Im StrichClick() greifst du auf den Canvas des Formulars zu, anstatt wie bei PaintBox1Paint() auf den Canvas der Paintbox zuzugreifen

[GroZ]

Zitat von Aphton:

Zitat von GroZ:

Leider nein

Im StrichClick() greifst du auf den Canvas des Formulars zu, anstatt wie bei PaintBox1Paint() auf den Canvas der Paintbox zuzugreifen

Habe es jetzt gelöst danke an alle!

Delphi-Quellcode:

unit Uhr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Winkel: TEdit;
    Strich: TButton;
    Reset: TButton;
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
    procedure ResetClick(Sender: TObject);
    procedure StrichClick(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i : integer;

implementation

{$R *.dfm}

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  LCanvas: TCanvas;
begin

LCanvas := TPaintBox(Sender).Canvas;

  LCanvas.Ellipse(100,100,400,400);        // Kreis zeichnen


end;

procedure TForm1.ResetClick(Sender: TObject);
begin

paintbox1.Repaint ;                      // Clear
end;

procedure TForm1.StrichClick(Sender: TObject);
var Radi, Gradi, R, PX, PY : double ;
    MX, MY, PXi, PYi : integer ;

begin

MX := 250;                          // Mittelpunkt
MY := 250;
R  := 150;
Canvas.MoveTo(MX,MY);
//Canvas.lineto(280,125);

Gradi := StrToFloat(Winkel.Text) ;

Radi :=  3.14 *(Gradi/180);         // Rechnung

PX := cos(Radi)* R + MX ;
PY := MY-sin(Radi)* R;
PXi := trunc(PX) ;                    // Von ??? zu Integer umwandeln
PYi := trunc(PY) ;
Canvas.lineTo(PXi,PYi) ;








end;



end.

[Aphton]

Zitat:

... das heißt wenn ich 15° eingebe soll die Linie im 15° Winkel gezeichnet werden. Kann mir jemand helfen?

Aber gerne - hier

Code:

x := kreis_radius * cos(DegToRad(15))
y := kreis_radius * sin(DegToRad(15))

linie_x1 = kreis_mittelpunkt_x
linie_y1 = kreis_mittelpunkt_y
linie_x2 = kreis_mittelpunkt_x + x
linie_y2 = kreis_mittelpunkt_y + y

[Sir Rufo]

Das Wichtigste ist, dass die PaintBox ihren Kram selber zeichnet. Und zwar in dem Event OnPaint .

Wenn die PaintBox nun also etwas mehr zeichnen soll, dann muss man so etwas wie einen Bauplan zur Verfügung stellen und dann kann die PaintBox diesen Bauplan abarbeiten.

Ändert man den Bauplan, dann teilt man das der PaintBox durch den Aufruf von TPaintBox.Repaint mit.

Der einfachste Bauplan, wäre z.B. das Zeichnen der Ellipse:

Delphi-Quellcode:

type
  TForm1 = class( TForm )
    CheckBox1: TCheckBox; // OnClick = CheckBox1Click
    PaintBox1: TPaintBox; // OnPaint = PaintBox1Paint
    procedure CheckBox1Clicked( Sender: TObject );
    procedure PaintBox1.Paint( Sender: TObject );
  private
    FPaintEllipse: Boolean;
  end;

procedure TForm1.CheckBox1Clicked( Sender: TObject );
begin
  // Bauplan ändern
  FPaintEllipse := CheckBox1.Checked;
  // PaintBox neu zeichnen lassen
  PaintBox1.Repaint;
end;

procedure TForm1.PaintBox1Paint( Sender: TObject );
var
  LCanvas: TCanvas;
begin
  LCanvas := TPaintBox(Sender).Canvas;
  // nach dem Bauplan zeichnen
  if FPaintEllipse then
    LCanvas.Ellipse(100,100,400,400);
end;