konstante bewegung eines objekts durch tastendruck

[LEE1]

ich weiß schon wie das mit dem springen geht jedoch wollt ich wissen wie das am realistischsten aus sieht für z.b ein spiel da kann man nämlich viele unter schiedliche varianten benutzen

[alleinherrscher]

Ich habs mal angehängt... ka wo dein Fehler herkommt...

[Draggen]

procedure TBall.springen;
var f:TColor;
x:integer;
begin
for x:=1 to 50 do begin
f:=farbe;
farbe:=clwhite;
zeichnen;
case x of 1..10: My:=My-4;
11..25:My:=My-3;
26..40: My:=My-2;
41..50: My:=My-1;
end;
farbe:=f;
zeichnen;
warten(10);
end;
for x:=50 downto 1 do begin
f:=farbe;
farbe:=clwhite;
zeichnen;
case x of 1..10: My:=My+4;
11..25:My:=My+3;
26..40: My:=My+2;
41..50: My:=My+1;
end;
farbe:=f;
zeichnen;
warten(10);
end;
end;

das hier ist eine procedure die ich mal in einem spiel benutzt hab um einen ball zum springen zu bringen
kannst mal gucken ob dir das irgendwie weiterhilft

[LEE1]

un hier für hoch runter links rechst

[alleinherrscher]

@lee1

Du könntest z.B. beim Tastendruck nach oben eine "geschwindigkeit" definieren.

Delphi-Quellcode:

v_y:=-5

Im Timer soll dann bei jedem Schritt die Geschwindigkeit kleiner werden, also quasi durch eine Art Erdanziehungskraft:

Delphi-Quellcode:

v_y:=v_y+1
Button1.top:=button1.top+v_y;

Ist der Button wieder auf seiner Ausgangshöhe "gelandet", setzt du die Geschwindigkeit wieder auf Null:

Delphi-Quellcode:

v_y:=0;

Könntet ihr bitte, gerade wenn ihr mehrere Zeilen Delphi Code benutzt die "Delphi-Tags" benutzen (oben auf Delphi-Code klicken), damit der Code besser lesbar ist? Das wäre super nett! :thumb:

[Draggen]

also ich habe deine version einmal ausprobiert aber bei mir kommt die selbe fehlermeldung

[Draggen]

kein problem wusste nur nicht wies geht

[alleinherrscher]

Komisch, sieht aber eher so aus, als hättest du irgendwelche Schreib/Lese Berechtigungsprobleme und Delphi kann dir keine Exe Datei kompilieren?!

[Draggen]

also ich kann die exe-datei starten und sie funktioniert auch aber ich muss ja auch irgendwie programmieren können...

[Draggen]

sry ich hab gerade gemerkt das ich überhaupt nichts compilieren kann egal ob es ein leeres projekt oder deins ist