Einzelnen Beitrag anzeigen

Benutzerbild von yankee
yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge
 
Lazarus
 
#5

Re: ich hab nen riesen problem

  Alt 27. Apr 2004, 17:25
Das ist ein interessantes Problem. Sowas wollte ich auch schon mal schreiben, mit 'ner Paintbox. Ich versuche mal Quelltext zu rekonstruiren, den ich verwendet habem um mal testweise die Funktion
f(x)=x
darzustellen:
Delphi-Quellcode:
paintbox1.Canvas.MoveTo(0,0);
paintbox1.Canvas.LineTo(100,100);
Das geht zumindest ein bißchen. Aber der doof fängt mit seiner Linie oben Links an. Dann habe ich mal was "parableartiges" probiert:
Delphi-Quellcode:
var x,y,s:integer;
paintbox1.Canvas.MoveTo(0,0);
for s:=1 to 100 do
begin
  inc(x);
  y :=x*x;
  paintbox1.Canvas.LineTo(x,y);
end;
Da kam aber was raus, was nach allem anderen, als nach 'ner Parabel aussah. Aber ich habe mir schon seit längerem mal überlegt 'ne Kompo zu schreiben, die ein Paintbox bedient und in die man nur mit Werten füttern muss, die dann automatisch zeichnet.
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.

Have a lot of fun!
  Mit Zitat antworten Zitat