Funktionen mit Paintbox zeichnen

**Konstantin H.**

Hallo!

ich habe eine Aufgabe bekommen, ein Programm soll in einem Paintbox(400x400) ein nicht statisches Koordinatensystem und liniare Funktionen mit Angabe von "m" und "n" zeichnen. Ich habe ein bewegliches KS hingekriegt.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var       x1,x2,y1,y2,gx,gy,zx,zy,t:integer;

begin

          //t:=0;

          x1:=strtoint(edit1.text);

          x2:=strtoint(edit2.text);

          y1:=strtoint(edit3.text);

          y2:=strtoint(edit4.text);

          gx:=round(400/(x1-x2));

          gy:=round(400/(y1-y2));

          zx:=gx*x1;

          zy:=gy*y1;

          paintbox1.canvas.pen.color:=clblack;

          paintbox1.canvas.Pen.Width:=2;

          paintbox1.canvas.moveto(0,zy);

          paintbox1.canvas.lineto(400,zy);

          paintbox1.canvas.pen.color:=clblack;

          paintbox1.canvas.Pen.Width:=2;

          paintbox1.canvas.moveto(zx,0);

          paintbox1.canvas.lineto(zx,400);

          {repeat

          t:=t+1;

          paintbox1.canvas.pen.color:=clblack;

          paintbox1.canvas.Pen.Width:=2;

          paintbox1.canvas.moveto(zx,gx*t);

          paintbox1.canvas.lineto(zx-10,gx*t);

          until (gx*t)<=400;}

end;

Zuerst bitte ich euch mir zu helfen die Striche, die x und y Werte anzeigen, hinzukriegen.
So soll das Programm aussehen.

Funktionen mit Paintbox zeichnen

Funktionen mit Paintbox zeichnen

Forumregeln