Na ihr solltet bis jetzt es hinbekommen haben eine Form mit drei TEdits und einem TImage, sowie einem Button zum Malen zu erstellen.
Die Arbeit erfolgt im OnClick des Buttons.
Erst mal das Image loeschen.
Delphi-Quellcode:
// Fuellfarbe festlegen
Image1.Canvas.Brush.Color := clWhite;
// Malfarbe festlegen
Image1.Canvas.Pen.Color := clBlack;
// alles mit Weiss fuellen
Image1.Canvas.FillRect(Image1.ClientRect);
Das Koordinatensystem und die Beschriftung lassen wir erst mal weg.
Der Wertebereich der Kurve muss festgelegt werden. Zur Vereinfachung solle man ihn erst mal konstant lassen. -10 bis + 10 fuer X und Y als Beispiel. Das bedeutet das Koordinatensystem hat seinen Nullpunkt in der Mitte des Image.
Jetzt muss man die Kurve malen. Wir klappern alle Punkte des Image in X-Richtung ab, also von 0 bis Image1.Width-1.
0 bedeutet X-Wert -10 und Width-1 X-Wert 10.
Die Faktoren a, b und c bezieht man aus den Editboxen (StrToInt als Stichwort). Formel ausrechnen und Y-Wert bekommen.
Der Y-Wert muss jetzt auf Pixelkoordinaten umgerechnet werden.
Jetzt breche ich mal ab und sehe wie weit ihr kommt oder ob man euch noch mehr vorkauen muss.
Zitat
Baum-Darstellung
