Tweet
will mit nem prog. ne wurfparabel zeichnen...:
(wurfhöhe in abhängigk. der zeit)
prozedur blablabla;
var t,x,y : integer;
begin
x:=0;
y:=0;
for t:=1 to (round(wz{gesamtwurfzeit,global deklariert})) do
begin
canvas.moveto(x,y); {geh zum alten x-,y-wert}
x := t;
y := round(Form1.height - parabelformel);
canvas.lineto(x,y) {linie zum neuen x-,y-wert}
sleep(10);
end;
end;
die parabel zeichnet es einwandfrei! das problem ist:
wenn die prozedur fertig ist mit zeichnen, verschwindet die gezeichnete parabel auf einmal! hab keine ahnung wieso...
wer weiß was??
schon mal danke im voraus...
(wurfhöhe in abhängigk. der zeit)
prozedur blablabla;
var t,x,y : integer;
begin
x:=0;
y:=0;
for t:=1 to (round(wz{gesamtwurfzeit,global deklariert})) do
begin
canvas.moveto(x,y); {geh zum alten x-,y-wert}
x := t;
y := round(Form1.height - parabelformel);
canvas.lineto(x,y) {linie zum neuen x-,y-wert}
sleep(10);
end;
end;
die parabel zeichnet es einwandfrei! das problem ist:
wenn die prozedur fertig ist mit zeichnen, verschwindet die gezeichnete parabel auf einmal! hab keine ahnung wieso...
wer weiß was??
schon mal danke im voraus...
Kommentar