Thema: Delphi Zufalls-Bewegung

Einzelnen Beitrag anzeigen

xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#2

Re: Zufalls-Bewegung

  Alt 19. Okt 2005, 22:05
Hallo,

klar ist das möglich.

Definiere einfach zwei Variablen als Integer (z. B. RichtungX und RichtungY). Die setzt Du am Anfang auf +1 und rufst Randomize auf. In Deinem Timer schreibst Du dann einfach
Delphi-Quellcode:
 if Random(100) = 0 then
  RichtungX := -RichtungX;
if Random(100) = 0 then
  RichtungY := -RichtungY;
image2.Top:=image2.Top+10 * RichtungY;
image2.Left:=image2.left+10 * RichtungX;
Durch die Multiplikation mit -1 drehst Du einfach das Vorzeichen um. Den Wert bei Random kannst Du beliebig wählen, je größer, desto seltener die Wechsel.

Gruß
xaromz
  Mit Zitat antworten Zitat