okok , ich hab ja auch nur mal so aus spaß unter diesem thema gepostet ,... also ich hab folgendes problem....
ich hab ein formular gemacht mit 2 edit fenster. bei dem einen fenster gibt man winkel und bei dem anderen die schrittweite ein , dann hab ich noch einen timer eingebaut und einen start button , sowie ein bild (fürs spielfeld) und ein weiteres bild ( der ball der auf dem spielfeld hin und her fliegt ) . So . Ich versuche nun zu proggen , das der ball übers spielfeld fliegt und von den ränder unter dem richtigen Winkel nach dem reflexionsgesetz abprallt ... deshalb fing ich so an :
Zunächst einmal steht der timer auf "false" und wenn man den startbutton klickt , dann geht timer auf true , und hier ist meine procedure :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
winkel := strtofloat (edit1.text);
r := strtofloat (edit2.text);
dx := round(cos(winkel*PI/180) *r) ;
dy := round (sin(winkel*PI/180) *r) ;
image2.Left := image2.left+dx ;
image2.top := image2.Top+dy ;
if image2.left = 300 THEN image2.left := image2.left-dx ;
end;
image2 soll der ball sein
Das problem is jedoch , das der ball nicht abprallt , sondern immer weiter fliegt , meine frage ist nun wie ich das abprallen realisieren könnte , wäre für jede hilfe dankbar .