ICh versuche einen Federschwinger zu programmieren und dieser soll zur Mitte hin Beschleunigen und zu den Ecken hin Abbremsen. Die Beschleunigung funktioniert zwar aber sie hakt und funktioniert nicht mit allen Werten. Hier ist der Quellcode:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
{label1.caption:=timetostr(time);}
ko:=0;
repeat {Für Überarbeitung weiß}
with image1.canvas do begin
Pen.Width:=1;
Pen.Color:=clwhite;
moveto(0,ko);
Lineto(image1.Width,ko);
end;
ko:=ko+1;
until ko=image1.Height;
with image1.canvas do begin
pen.Color:=clblack;
moveto(10,image1.Height div 2+20);
lineto(10,image1.Height div 2-20);
moveto(image1.width-10,image1.Height div 2+20);
lineto(image1.width-10,image1.Height div 2-20);
moveto(10,image1.height div 2);
lineto(image1.width-10,image1.height div 2);
end;
t1:=timetostr(time);
if radiobutton1.Enabled=true then begin;
if (x1+x2)/2<(image1.width div 2) then begin
x1:=x1+v1;
x2:=x2+v1;
timer1.Interval:=timer1.Interval-2;//-trunc(vi)
end;
if (x1+x2)/2>=(image1.width div 2) then begin
x1:=x1+v1;
x2:=x2+v1;
timer1.Interval:=timer1.Interval+2;//-trunc(vi)
end;
end;
if x1>=image1.Width-20 then begin
radiobutton1.enabled:=false;
radiobutton2.enabled:=true;
timer1.Interval:=100;
end;
if radiobutton2.Enabled=true then begin
if (x1+x2)/2>=(image1.width div 2) then begin
x1:=x1-v1;
x2:=x2-v1;
timer1.Interval:=timer1.Interval-2;//-trunc(vi)
end;
if (x1+x2)/2<(image1.width div 2) then begin
x1:=x1-v1;
x2:=x2-v1;
timer1.Interval:=timer1.Interval+2;//-trunc(vi)
end;
end;
if x2<=20 then begin
radiobutton2.enabled:=false;
radiobutton1.enabled:=true;
timer1.Interval:=100;
end;
label2.Caption:=timetostr(time);
with image1.canvas do begin
rectangle(x1,y1,x2,y2);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
x1:=50;
x2:=20;
y1:=image1.Height div 2+10;
y2:=image1.Height div 2-10;
timer1.Enabled:=false;
radiobutton1.Enabled:=true;
radiobutton2.Enabled:=false;
label1.caption:=inttostr(image1.Width);
v1:=10;
vi:=2/((image1.Width-10) div 2);
label1.caption:=floattostr(vi);
end;
Danke für jede Antwort (kann zur not noch einen screenshot schicken...
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]