Funktionsdarstellung

[Rebel]

Hallo lieber Delphi-User,

ich bin noch neu hier und muss im Fach Informatik eine Facharbeit und ein Programm zur Funktionsdarstellung von ganzrationalen Funktionen bis 4.ten Grades und von Sinusfunktionen programmieren. Mein Problem ist, dass ich wirklich nicht helle bin in diesem Fach und ein paar Ratschläge und Hilfestellungen von euch bräuchte. :pale:
Denn Quelltext den ich bis jetzt geschaffen habe, sieht folgender Maßen aus uind ich kriege es einfach nicht abgespielt :evil:
Ich finde einfach nicht den Fehler und ich hoffe ihr könnt mir helfen :thumb:

Quelltext:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var a,b,c:real; // http://www.delphipraxis.net/128885-graph-zeichnen.html
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
with image1.Canvas do
begin
moveto(20,220); lineto(420,220); //x-Achse
moveto(220,20); lineto(220,420); //y-Achse
moveto(410,215); lineto (422,220);
lineto (410,225); //x-Pfeil
moveto(215,30); lineto (220,18);
lineto (225,30); //y-Pfeil
textout(425,225,'x'); //Beschriftung
for i:=-3 to 3 do
begin
moveto(220+50*i,215);
lineto (220+50*i,225); //x-Einteilung
moveto(215,220+50*i);
lineto (225,220+50*i); //y-Einteilung
textout(222+50*i,225,inttostr(i)); //Zahlen x-Achse
if i <> 0 then
textout (205,213+50*i,inttostr(-i)); //Zahlen y-Achse
end;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer; x,y: real;
begin

a:=strtofloat(Edit1.Text); //Eingabe
b:=strtofloat(Edit2.Text);

i:=20;
while i < 420 do
begin
i:=i+1;
x:=(i-220)/50;
y:=a*x+b;
j:=round((220-y*50));
image1.Canvas.Pixels[i,j]:=clred;
image1.Canvas.Pen.Color:=clred;
image1.Canvas.TextOut(400,42,'y=ax+b'); //Beschriftung
end;

end;



procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer; x,y:real;
begin

a:=strtofloat(Edit1.Text); //Eingabe
b:=strtofloat(Edit2.Text);
c:=strtofloat(Edit3.Text);

i:=70;
while i<420 do
begin
i:=i+1;
x:=(i-220)/50; //x skalieren
y:=a*sqr(x)+b*x+c; //Funktion y=ax²+bx+c
j:=round((220-y*50)); //j berechnen
image1.Canvas.Pixels[i,j]:=clgreen; //zeichnen

image1.Canvas.TextOut(400,100,'y=ax²+bx+c'); //Beschriftung
end;
end;

end.

[Der schöne Günther]

Zitat:

Ich bin nicht helle. Ich finde den Fehler nicht. *Quelltext hinwerf*

Und was sollen wir jetzt tun? Wie äußert sich der Fehler? Was erwartest du? Jeder mag dir gerne helfen, aber erst einmal dein Formular (Buttons, Edits, ...) nachzubauen und anschließend zu raten und entziffern, wofür denn das "Edit1"-Feld gut ist, wofür das "Edit2"-Feld usw. Das will sich sicher niemand freiwillig antun.

Kannst du bitte etwas genauer werden, was du zu erreichen suchst, was daran nicht funktioniert, was du erwartet hättest.

Zum Schluss: Quelltext bitte nicht einfach so reinklatschen, sondern die "Delphi"-Tags verwenden:

Delphi-Quellcode:

unit Unit1;

interface

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

type
   TForm1 = class(TForm)
      Button1: TButton;
      Button2: TButton;
      Button3: TButton;
      Edit1: TEdit;
      Edit2: TEdit;
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Edit3: TEdit;
      Image1: TImage;
      procedure Button1Click(Sender: TObject);
      procedure Image1Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure Button2Click(Sender: TObject);
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

var a, b, c: real; // Graph zeichnen

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
   with Image1.Canvas do
      begin
         moveto(20, 220);
         lineto(420, 220); // x-Achse
         moveto(220, 20);
         lineto(220, 420); // y-Achse
         moveto(410, 215);
         lineto(422, 220);
         lineto(410, 225); // x-Pfeil
         moveto(215, 30);
         lineto(220, 18);
         lineto(225, 30); // y-Pfeil
         textout(425, 225, 'x'); // Beschriftung
         for i := -3 to 3 do
            begin
               moveto(220 + 50 * i, 215);
               lineto(220 + 50 * i, 225); // x-Einteilung
               moveto(215, 220 + 50 * i);
               lineto(225, 220 + 50 * i); // y-Einteilung
               textout(222 + 50 * i, 225, inttostr(i)); // Zahlen x-Achse
               if i <> 0 then
                  textout(205, 213 + 50 * i, inttostr(-i));
               // Zahlen y-Achse
            end;
      end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer; x, y: real;
begin

   a := strtofloat(Edit1.Text); // Eingabe
   b := strtofloat(Edit2.Text);

   i := 20;
   while i < 420 do
      begin
         i := i + 1;
         x := (i - 220) / 50;
         y := a * x + b;
         j := round((220 - y * 50));
         Image1.Canvas.Pixels[i, j] := clred;
         Image1.Canvas.Pen.Color := clred;
         Image1.Canvas.textout(400, 42, 'y=ax+b'); // Beschriftung
      end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j: integer; x, y: real;
begin

   a := strtofloat(Edit1.Text); // Eingabe
   b := strtofloat(Edit2.Text);
   c := strtofloat(Edit3.Text);

   i := 70;
   while i < 420 do
      begin
         i := i + 1;
         x := (i - 220) / 50; // x skalieren
         y := a * sqr(x) + b * x + c; // Funktion y=ax²+bx+c
         j := round((220 - y * 50)); // j berechnen
         Image1.Canvas.Pixels[i, j] := clgreen; // zeichnen

         Image1.Canvas.textout(400, 100, 'y=ax²+bx+c'); // Beschriftung
      end;
end;

end.

[Rebel]

Entschuldige bitte,:oops:
wie gesagt ich habe wirklich kaum Ahnung und das ist eine richtige Mammutaufgabe für mich:
Ich sende euch am besten die Bilder von der Oberfläche, wie ich mir das ganze gedanklich überlegt habe und dann noch die Fehlermeldung.
Ich hoffe, ihr könnt damit was anfangen und es reicht. :thumb:

Danke schön

[DeddyH]

Welche Meldung kommt denn da?

[Rebel]

Der Fehler, dass ungenügende Forward- oder External-Deklarationen vorhanden seien (Fehler) Unit1.pas(24). Sowie der fatale Fehler - Project1.dpr(5), dass die verwendete Unit1.pas nicht compiliert werden kann.

[himitsu]

Du hast nur die Fehlerstelle kopiert, aber nicht die Fehlermeldung, bzw. die fehlermeldung ist im Screenshot nicht sichtbar :zwinker:

PS: Die Texte der Fehlerdialoge und die Compiler-Meldungen, aus dem Log da unten, kann man via Strg+C kopieren und als text irgendwo einfügen.

Und du könntest in deinem ersten beitrag gerne noch das [delphi]...[/delphi] um deinen Code machen (Knopf mit dem roten Helm), denn so kann das ja keiner vernüftig lesen.

Zitat:

procedure Image1Click(Sender: TObject);

Grundsätzlich ist hast du eine Methode deklariert, aber nicht implementiert
und genau das sollte dir die Fehlermeldung auch sagen.
[edit]
Genau das sagt dir die Fehlermeldung auch.
> Wo ist diese Methode denn in Implementation zu finden?

[himitsu]

Und wieso sind denn die diese lokal, in Button2Click, genutzten Variablen

Delphi-Quellcode:

var a,b,c:real;

eigentlich global deklariert?

[Jumpy]

Da deine eigentliche Frage von u.a. Himi schon beantwortet wurde, vllt. ein paar Ideen, wie man das noch verbessern bzw. verallgemeinern könnte.

Ich würde dir empfehlen, die Funktionen, die das Zeichnen übernehmen nicht in die Ereignisprozeduren (ButtonOnClick)zu schreiben, sondern als eigene Funktionen zu erstellen.
Auch das Zeichnen des Koordinatensystem's würde ich auslagern.
Du brauchst dann auch eine Möglichkeit, gezeichnete Funktionen wieder zu löschen (bzw. einfach Koordinatensystem leer neu zeichnen)?

Mach das Koordinatensystem flexibler, so dass es nicht immer nur von -4 bis 4 geht, sondern dass das variabel ist. Überlege dir dann wie du Koordinatensystem-Koordinaten in Pixel umrechnest und wie das variabel bleibt. Dann brauchst du auch nicht mit so Magic Numbers zu arbeiten wie jetzt bei dir 240,220,50,20 usw. wo man nicht weiß was das denn soll.

Überleg die was passiert, wenn deine Y-Werte so groß werden, dass sie aus deinem Zeichnungsbereich fallen.

Nur so mal als Anregung.

P.S.: Ach ja, es gibt natürlich auch fertige Komponenten, um Graphen zu zeichnen, aber wenn du das selbst machst ist im Rahmen einer Facharbeit der Lerneffekt sicher größer.

[Rebel]

Danke für eure bisherige Hilfe, ich weiß es wirklich sehr zu schätzen! :thumb:
@ Jumpy, deine Vörschläge hören sich wirklich gut an, aber ich habe keine Ahnung wie ich sie umsetzen soll und wie ich überhaupt anfangen soll. Wäre wirklich toll, wenn du mir vielleicht eine kleine Starthilfe geben könntest bei dem Quelltext und der Oberfläche ( was ich benötige, wie die Oberfläche aussehen soll, usw.).

Denn ehrlich gesagt, weiß ich nur wie man functions und procedures schreibt, sowie If-Anweisungen, Schleifen, usw.
Also wirklich lediglich die Grundlagen, aber ich habe keine Ahnung, wie ich die Zusammenhänge darstellen lassen soll :oops:

Wäre also wirklich fantastisch, wenn ihr mir hier im Forum ein paar Strukturen beschreibt, etc. :oops:


Danke schön, Rebel

[Sir Rufo]

Fang doch erstmal damit an, dir eine Prozedur zu schreiben, die ein Koordinaten-System zeichnet.

Halte diese aber so generell wie möglich.

Überlege dir dazu vorher, welche Informationen du benötigen würdest, wenn du die Aufgabe bekommst "Zeichne ein Koordinaten-System" und diese Aufgabe zu vollsten Zufriedenheit (das Gebilde sieht genau so aus, wie der Auftraggeber sich das vorgestellt hat) erledigen möchtest.

Hier mal so 2 Punkte, die schon mal wichtig wären (dir aber evtl. gar nicht so direkt in den Sinn kommen)

• Worauf soll ich zeichnen? (Blatt Papier, Karton, Keksdose, ...) (Delphi -> TCanvas)
• Wo auf dem Medium und wie groß ist der Platz zum Zeichnen? (Delphi -> TRect)
• ...

Damit kannst du dir dann schon mal die Parameter-Liste zusammenstellen.

Das wäre der erste Schritt in die richtige Richtung

[Rebel]

Danke schön für die Hilfe, ich werde sofort anfangen :)

[Rebel]

Hey leute, ich krieg einfach keinen Fuß gesetzt.....

auch deine Links halfen mir leider nicht sonderlich weiter, so dass ich sie verstanden hätte... ich bin grade einfach nur verzweifelt und wütend :evil:
Ich weiß nicht, wie ich anfangen soll, jedes mal, wenn ich denke, ich habs, kommen Fehlermeldungen und krieg dieses blöde Programm einfach nicht zum laufen...

[Sir Rufo]

Dann erzähl uns doch mal deine Überlegungen/Erkenntnisse zum Zeichnen des Koordiantensystems.

Welche Informationen werden benötigt um das zu Zeichnen?

[Rebel]

Also... nach laaaaaaaaaaaaaaaaanger Verzweiflung habe ich es nun hinbekommen, ganzrationale Funktionen bis 3ten grades darzustellen. :-D:-D:-D

Bis jetzt habe ich nur kleinere Problem, ich würde gerne, dass:

1. Der Funktionsname am Graphen ist, wie formuliere ich am besten den Befehl im Quelltext?
2. Würde ich gerne, dass mein Koordinatensystem nicht so steif von -3 bis 3 geht, sondern allumfassender ist. Ich weiß halt nur nicht wie ich es formulieren soll.
3. Würde ich auch gerne ins koordinatensystem reinzoomen.

Anbei hänge ich einfach mal mein Programm dran und hoffe ihr könnt es abspielen lassen und mir irgnedwie helfen :thumb:

Liebe Grüße
Rebel

[Sir Rufo]

Deine Wünsche 2. und 3. könnten in Erfüllung gehen, wenn du dich mit meiner Fragestellung auseinandersetzen würdest. Denn genau darauf zielt die ab ...

So it's up to you

[Rebel]

Ahh ok :)

Also ich stelle mir das ganze so vor, dass der User sich Funktionen darstellen lassen kann in einem kartesischen Koordinatenstystem, bei den Funktionen wurde mir halt vorgeschrieben, dass es ganzrationale funktionen bis 4ten grad seien sollen, eine Sinusfunktion y=a+sin(b+x)+c) und eine lnx-funktion oder eine e^x-funktion. Der User soll die Parameter halt selbst festlegen können, wie die funktion ganz genau heißen soll, z.b. 1.grades - y= 2x+2, oder halt y=0,5x-3 usw.
Eebenso auch bei dne anderen Funktionen.

Wichtig ist halt, dass man in dass Koordinatensystem zoomen, kann, um halt ganz genau zu erschließen, wo der Graph die x-Achse schneidet, oder y-Achse usw.
Außerdem sollte mna halt in dem Koordinatensystem hin- und her ''gucken'' können, wie halt bei GoogleMaps, wo man halt reinzoomen kann, oder auch eine andere Stelle des Koordinatensystems erkennen kann.

Ich hoffe meine Formulierungen sind verständlich, was ich vor habe udn was ich möchte :)

lg

[Sir Rufo]

Ich weiß was du willst, bzw. wenn du das umgesetzt hast, dann kannst du das darstellen, wie du das möchtest.

Also ich zitiere mich nochmal

Zitat:

Zitat von Sir Rufo (Beitrag 1244308)

Fang doch erstmal damit an, dir eine Prozedur zu schreiben, die ein Koordinaten-System zeichnet.

Halte diese aber so generell wie möglich.

Überlege dir dazu vorher, welche Informationen du benötigen würdest, wenn du die Aufgabe bekommst "Zeichne ein Koordinaten-System" und diese Aufgabe zu vollsten Zufriedenheit (das Gebilde sieht genau so aus, wie der Auftraggeber sich das vorgestellt hat) erledigen möchtest.

Hier mal so 2 Punkte, die schon mal wichtig wären (dir aber evtl. gar nicht so direkt in den Sinn kommen)

• Worauf soll ich zeichnen? (Blatt Papier, Karton, Keksdose, ...) (Delphi -> TCanvas)
• Wo auf dem Medium und wie groß ist der Platz zum Zeichnen? (Delphi -> TRect)
• ...

Damit kannst du dir dann schon mal die Parameter-Liste zusammenstellen.

Das wäre der erste Schritt in die richtige Richtung

Vervollständige die angefangene Liste von mir

[Rebel]

Ich danke dir für die Hilfe Sir Rufo, aber ehrlich gesagt kapier ich nicht was du meinst, klar... worauf soll dass koordinatensystem gezecihnet werdne, natürlich auf papier, aber ich verstehe deine verweise nicht .. z.b. TCanvas...
wie gesagt, in Info bin ich echt doof und versuche so gut es geht halt durch zu kommen für mein Abitur, hab auch erst das zweite jahr Info :oops:

[Sir Rufo]

Ok, zeichne mir auf ein Blatt Papier ein Koordinatensystem, so wie ich mir das vorstelle.

Kannst du das mit diesen Angaben?

Ja, dann zeig her und ich sage spontan "falsch".
Nein, welche Informationen brauchst du noch von mir?

[Rebel]

Naja ich brauche von dir die Informationen, wie gross bzw. lang die x- und y-Achse sein soll, ob es ein Koordinatensystem sein soll mit 2 oder 3 Achsen.... dass fällt mir dazu gleich ein :)

[Sir Rufo]

Zitat:

Zitat von Rebel (Beitrag 1244392)

Naja ich brauche von dir die Informationen, wie gross bzw. lang die x- und y-Achse sein soll, ob es ein Koordinatensystem sein soll mit 2 oder 3 Achsen.... dass fällt mir dazu gleich ein :)

Aha, so langsam verstehen wir uns.

Ok, 2 Achsen mit x = -10..+20, y = -5..+15

Das reicht?

[Rebel]

und genau das ist der Punkt. Mein Infolehrer meinte zu mir, dass es ''variabel'' sein soll und nicht festgefahren, d.h. von x-Achse: -10 bis 20 und y-Achse: -10 bis 10… er meinte, dass das Koordinatensystem frei zugänglich sei, also bis unendlich gehen sollte… nur weiß ich nicht ob sowas überhaupt realisierbar ist … ehrlich gesagt kann ich es mir auch nicht vorstellen, schließlich muss es doch bis zu einem gewissen Punkt gehen und wenn das halt 1000 wäre, und weiter halt nicht. Klär mich auf, wenn ich mich irre :oops:


Auf jedenfalls bin ich schon stolz, was ich heute erreicht habe, ich werde nächsten Samstag und Sonntag versuchen, dass Programm fertig zu stellen mit eurer Hilfe, insbesondere mit deiner Sir Rufo und danke euch jetzt schonmal für eure Lösungsansätze. :)

[Sir Rufo]

Ja, das wäre schön, wenn man einen Befehl hätte, der so in etwa aussehen würde

Code:

ZeichneKoordinatensystem( Leinwand, Xmin, Xmax, Ymin, Ymax [braucht man noch mehr?] )

Oder mal mit meinen Vorgaben bestückt

Code:

ZeichneKoordinatensystem( DINA4-Papier, -10, 20, -5, 15 )

Dann könnte man so ein Koordinatensystem nach beliebigen Vorgaben zeichnen lassen.

Aber das muss wohl erst noch erfunden werden :roll:

Geht dir jetzt ein Licht auf, worauf ich hinaus will?