Hallo, ich bin neu hier und benötige hilfe bei der programmierung eines programms zur ausgabe einer sinus kurve!
wer kann folgenden quell text vervollständigen?
unit SinusUnit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Ende: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure EndeClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
//Achtung, das Array muß zu Ende deklariert werden
XWert: array [1..2,0..359] of integer;
Amplitude: Real;
const xMit=100; yMit=250; //Die Zahlen sind nur Beispiele
implementation
{$R *.dfm}
procedure Berechnung(Amplitude: real);
var i: integer;
begin
//Hier die Berechnung der Funktionswerte und die Speicherung der
//Funktionswerte in einem Array (360 Funktionswerte, 4. Aufgabenpunkt)
end;
procedure TForm1.Button1Click(Sender: TObject);
var eingabe: real; eg,i: integer;
begin
//Hier die Eingabe über das Editfeld (1. Aufgabenpunkt)
//Hier die Wandlung für die Ausgabe als Integer-Wert (2. Aufgabenpunkt)
//Achtung: unmittelbar nachfolgender Quelltext ist unvollständig
canvas.TextOut(2,100,'Ampl.:');
//Hier die Ausgabe des eingegebenen Amplitudenwertes (2. Aufgabenpunkt)
//Hier der Aufruf der Berechnungsprocedure (call by value) (3. Aufgabenpunkt)
//y-Achse oben in Abhängigkeit der eingegebenen Amplitude zeichnen
//Achtung: unmittelbar nachfolgender Quelltext ist unvollständig
canvas.pen.Color := clblack;
canvas.MoveTo(xMit,yMit);
//5. Aufgabestellung
//y-Achse unten in Abhängigkeit der eingegebenen Amplitude zeichnen
//Achtung: unmittelbar nachfolgender Quelltext ist unvollständig
canvas.MoveTo(xMit,yMit);
//5. Aufgabenstellung
//X-Achse zeichnen (6. Aufgabenstellung)
//Achtung: unmittelbar nachfolgender Quelltext ist unvollständig
canvas.MoveTo(xMit,yMit);
canvas.pen.Color := clred;
//Ausgabe der Funktionswerte (7. Aufgabenstellung)
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9',','] then
begin
end
else begin
key:=#00;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//Achtung: unmittelbar nachfolgender Quelltext ist unvollständig
Canvas.TextOut(35,100,' ');
canvas.pen.Color := clwhite;
canvas.Rectangle(xMit,ymit-150,xMit+400,ymit+150);
Edit1.Clear;
end;
procedure TForm1.EndeClick(Sender: TObject);
begin
close()
end;
end.