Chaos

[braingrenade]

Moin leutz !

Ich hab hier ein kleines Programm geschrieben , das sich ordnendes Chaos
simulieren soll , aber irgendwas stimmt nich, denn biss jetzt hat sich noch nicht viel geordnet!

wer sich vielleicht ein bischen in physik auskennt kann ja mal schaun was da falsch sein könnte (vielleicht muss ich das programm ja nur ein paar wochen lang laufen lassen oder so) .

Aber Achtung, der Code ist FATAL !

grüße


braingrenade

[jbg]

Sag mal, hast du mal daran gedacht, dass nicht jeder die Auflösung 1600x1200x8Bit zur Verfügung hat?


Folgendes habe ich auch noch bemerkt:
Programm beenden mit: halt(0); Sollte wohl eher Close; sein.
Warnungen missachtet: "FOR-Schleifenvariabe muß eine einfache lokale Variable sein"
Zeile 172: Randomize Aufruf innerhalb einer Schleife. Dadurch werden immer wieder diesselben Zufallszahlen zurückgeliefert, da Randomize den Zufallsgenerator einmalig initialisiert.

[thomasdrewermann]

Mein Bildschirm wär mir beinahe drauf gegangen
Ich hab den Schalter noch schnell genug gefunden

[jbg]

Mein TFT lässt das schon gar nicht zu.

[braingrenade]

Hoppsa !

das hab ich total verpennt !

Ich werd die fehler gleich korrigieren , dann poste ich die neue Version !


p.s:Ich schau mal das ich ne nidriegere Auflösung nehm, aber dann hat's halt nich so viel pLatz

[Luckie]

Puh, bei mir kam Gott sei dank eien Messagebox, dass die Auflösung nicht geändert werden konnte, Win2000 SP2.

[Sebastian Nintemann]

Die MessageBox kam bei mir auch, dann erstmal eine Acces Violation. Hab ok geklickt, in der hoffnung doch noch was zu sehen. Nach zwanzig von diesen Meldungen hab ich dann aufgegeben...
Ist aber ein interessantes Thema, ich hoffe ich krieg nochmal eine funktionierende Version zu sehen

Gruß, Sebastian

[braingrenade]

Moin leutz!

hier hab ich noch schnell ne version mit ner Auflösung-Einstellungs möglichkeit hingeschludert !

@jbg : Ich hoffe das mit den lokalen schleifen-variablen is nicht so schlimm denn das kann ich nich so auf die schnelle korigieren !
Wegen dem randomize(); , das gibt nen ganz interesanten Effekt !

[jbg]

Zitat von braingrenade:

Wegen dem randomize(); , das gibt nen ganz interesanten Effekt !

Natürlich. Randomize benutzt die Uhrzeit als Startwert für den Zufallsgenerator. Wenn du nun folgendes machst:

Delphi-Quellcode:

repeat
  Randomize;
  Memo1.Lines.Add(IntToStr(Random(1000));
until Memo1.Lines.Count >= 10;

Dann bekommst du 10x dieselbe Zahl, da sich die Uhrzeit nicht verändert hat (zumindest für Randomize nicht ermittelbar).
Man sollte Randomize nur ein mal im Programm aufrufen. Z.B. im OnCreate Ereignis des Formulars.