Linie im Winkel zeichnen

[Perlsau]

Mein Eindruck: Der TE probiert hier so lange die Hilfsbereitschaft gewisser User aus, bis er eine fertige Lösung erhält, weil er im Unterricht nicht aufgepaßt hat. Ich finde nicht, daß man das auch noch unterstützen sollte.

[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.

[Perlsau]

Zitat von Popov:

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.

Leider kann ich nicht erkennen, ob der Schüler über diese Techniken verfügt bzw. sie in der Schule gelernt hat. Wäre es da nicht wesentlich sinnvoller, erst mal abzufragen, was der denn weiß (Kenntnisstand), bevor man etwas postet, das es angeblich bereits 100 Mal im Internet zu finden gibt? Wie soll das dem Schüler jetzt weiterhelfen, seinen wohl eher mageren Kenntnisstand berücksichtigend?

[GroZ]

Ich hatte sowas wie Informatik gar nicht in der Schule ich mache derzeit ein Praktikum und soll diese Dinge programmieren. ich schick euch mal meinen Quellcode ist wirklich sehr einfach^^

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);
begin

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


end;

procedure TForm1.ResetClick(Sender: TObject);
begin

paintbox1.Repaint
end;

procedure TForm1.StrichClick(Sender: TObject);
var i : integer ;
begin
canvas.MoveTo(250,250);
canvas.lineto(250,100);

i := StrToInt(Winkel.Text) ;



end;

end.

[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:

... 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