Entwickler-Ecke
Open Source Projekte - Bakterienwachstum
Fiete - So 01.11.15 15:43
Titel: Bakterienwachstum
Das Programm ist eine Simulation eines einfachen Wachstumsprozesses.
In der Mitte der Ebene klebt eine Kugel, nun kommen immer wieder Kugeln
derselben Größe aus zufälligen Richtungen angerollt. Trifft zum ersten Mal eine
solche die Urkugel, dann bleibt sie fest an ihr kleben und es entsteht ein Gebilde
aus zwei Kugeln. Trifft die nächste Kugel darauf, bleibt sie wieder kleben und es
entsteht auf diese Weise um die Urkugel eine immer größere Figur.
(Quelle: 23. BWInf 2.Runde Aufgabe 1)
Viel Spaß beim Testen
Gruß Fiete
Moderiert von 
Narses: Inline- in normalen Anhang gewandelt und Bild als Inline-Anhang hochgeladen.
ub60 - So 01.11.15 21:16
Das Programm gefällt mir. Auf den ersten Blick habe ich mir eingebildet, so ein Bild schon einmal zum Thema "Bakterienkulturwachstum" (oder so :) )gesehen zu haben.
Schön wäre es, wenn man sehen könnte, wie die Kugeln "angerollt" kommen und letztendlich hängenbleiben.
Ich würde auch wenigstens in die Schleife (irgendwo in der Nähe von Zeile 170) ein Application.ProcessMessages einbauen, damit man zumindest sieht, in welcher Reihenfolge die Kugeln andocken.
ub60
Delete - So 01.11.15 21:27
Bewegung:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TBall.BewegeDich;
begin
MPunkt.X:=MPunkt.X+Delta.X;
MPunkt.Y:=MPunkt.Y+Delta.Y;
Sleep(5); Application.ProcessMessages;
end; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!