Forum: Multimedia
Delphi
by ichbins,
22. Nov 2005
was heisst "nicht so realistisch"?
Forum: Multimedia
Delphi
by ichbins,
22. Nov 2005
Der Grenzwert ist bereits die Startposition. Du kannst einbauen dass er langsamer wird, indem du (wie in Wirklichkeit) beim Abprall die Geschwindigkeit nicht ganz v:=-v machst, sondern von der v zusätzlich noch ein bisschen wegnimmst.
vy:=-vy+1;
if v>=0 then v:=0; //Falls die Geschwindigkeit bereits ins negative abgebremst ist, v:=0.
Forum: Multimedia
Delphi
by ichbins,
22. Nov 2005
klar, der Ball soll ja wieder langsamer werden und dann irgendwann wieder fallen?
Forum: Multimedia
Delphi
by ichbins,
22. Nov 2005
procedure TFormBall.TimerBewegungTimer(Sender: TObject);
begin
with DemoBall do
begin
if Orty + Radius < FormBall.ImageSpielfeld.Height
then begin
FormBall.ImageSpielfeld.Canvas.pen.Color:=clwhite;
farbe := clwhite; //Löschen
zeichnen; //Übermalen
farbe := clred; //Farbe zurücksetzen