[Silvester] Simulation von Feuerwerk

[Fussball-Robby]

Hey, ich will euch kurz ein kleines Programm zur simplen Simulation eines Feuerwerks zur Verfügung stellen.

Was es macht
Das Programm simuliert Feuerwerksraketen in verschiedenen Farben, die dann irgendwann explodieren.

Wie starte ich das Programm?
Im Archiv sind zwei Dateien mit der Endung ".exe", ihr startet davon die Datei Feuerwerk.exe um auch Einstellungen vornehmen zu können. Die Run.exe startet das Feuerwerk mit Default-Einstellungen.

Welche Einstellungen kann ich vornehmen?

• Anzahl Raketen: Eindeutig: Die Anzahl der Raketen, die gleichzeitig existieren
• Punkte pro Rakete: Die Anzahl der Punkte (oder Kreise), die nach der Explosion einer Rakete in alle Richtungen wegfliegen
• [ ]Raketen explodieren in der Nähe der Maus:Wenn das aktiviert ist, explodieren alle neu startenden Raketen in dem Bereich, in dem die Maus sich gerade befindet. Wenn das Feuerwerk schon läuft, kann man diese Einstellung mit einem Rechtsklick ändern.
• Farbwerte: Die Farbanteile, aus denen zufällige Farben generiert werden. Ist nur Rot aktiviert, so sind die RGB-Werte [0..255, 0, 0]. Sind Rot und Blau aktiviert, entsprechend [0..255, 0, 0..255]. Bei Aktivierung aller drei Farbtöne können demnach alle Farben vorkommen.
• Ton aktivieren: Ist wohl selbsterklärend.

Vielleicht bleibt ja jetzt der ein oder andere an Silvester zu Hause und guckt sich statt des Feuerwerks draußen diese Simulation hier an. Vielleicht aber auch nicht :mrgreen:
Ich erwarte nicht allzu viel Lob, das Programm ist eher aus Langeweile entstanden. Aber: Es ist komplett OOP :cyclops:

Changelog

• Die "Raketenbrösel" fallen jetzt nicht mehr wie Steine vom Himmel
• Die Raketenbrösel verglühen (werden dunkler)
• Die Raketenbrösel fliegen nicht in Form eines Rechtecks sondern einer Kugel weg
• Viel mehr Einstellungen, die man ändern kann!
• Farbe der Brösel änderbar
• "Wegfliegform" der Brösel einstellbar
• Einstellungen werden gespeichert(noch im Anwendungsordner, Anwendungsdaten kommen noch)
• Existenz der Sounddateien wird überprüft

Viel Spaß beim Testen und jetzt schonmal einen guten Rutsch :wink:

[DeddyH]

Unter Wine läuft es nicht, nur zur Info ;) (jede Menge AVs beim Starten).

[Florian H]

Die Raketenbrösel fallen ja vom Himmel wie Steine ôO
Mach das mal ein bisschen langsamer vielleicht :cyclops:

Außerdem könntest du sie verglühen lassen, d.h. dass sie dunkler werden (ist ja in echt auch so). Dazu müsstest du halt den Farbwert Richtung schwarz laufen lassen.

Was noch nicht so schön ist: Für die Bewegung benutzt du wohl sowas wie

Delphi-Quellcode:

vX := random(10)-5; 
vY := random(10)-5;

was dazu führt, dass die Form der Raketensplitter ein Rechteck ist. Wenn man 100 Punkte pro Rakete einstellt, sieht man es ganz gut .. der Explosionsradius ist kein Kreis sondern ein Quadrat.

Sonst aber prima!

Schöne Grüße
flo

[Fussball-Robby]

Zitat:

Zitat von Florian H

Die Raketenbrösel fallen ja vom Himmel wie Steine ôO
Mach das mal ein bisschen langsamer vielleicht :cyclops:

Werde ich machen (evtl auch einstellbar)

Zitat:

Zitat von Florian H

Außerdem könntest du sie verglühen lassen

Sehr gute Idee, vor allem in Kombination mit dem langsameren Fallen!

Zitat:

Zitat von Florian H

Was noch nicht so schön ist: Für die Bewegung benutzt du wohl sowas wie

Delphi-Quellcode:

vX := random(10)-5; 
vY := random(10)-5;

Nein, die Geschwindigkeit sowie die Position sind Gleitkommazahlen.. Aber ich kann die Form ja mit dem Satz des Pythagoras in eine Kugelform verändern :wink:

Zitat:

Zitat von Florian H

Sonst aber prima!

Danke :)

Zitat:

Zitat von DeddyH

Unter Wine läuft es nicht, nur zur Info ;) (jede Menge AVs beim Starten).

Da habe ich jetzt keine Ahnung, woran das liegen könnte..

[Klaus01]

Zitat:

Zitat von Fussball-Robby

Zitat:

Zitat von DeddyH

]Unter Wine läuft es nicht, nur zur Info ;) (jede Menge AVs beim Starten).

Da habe ich jetzt keine Ahnung, woran das liegen könnte..

Vielleicht liegt es daran, dass die *.wav Dateien nicht gefunden werden.
Ich bekam auch ein Haufen von AV's als ich run.exe aus der zip Archiv gestartet hatte.

Grüße
Klaus

[Fussball-Robby]

Zitat:

Zitat von Klaus01

Zitat:

Zitat von Fussball-Robby

Zitat:

Zitat von DeddyH

]Unter Wine läuft es nicht, nur zur Info ;) (jede Menge AVs beim Starten).

Da habe ich jetzt keine Ahnung, woran das liegen könnte..

Vielleicht liegt es daran, dass die *.wav Dateien nicht gefunden werden.
Ich bekam auch ein Haufen von AV's als ich run.exe aus der zip Archiv gestartet hatte.

Grüße
Klaus

Was passiert denn, wenn du die Feuerwerk.exe startest und den Ton deaktivierst?

[Klaus01]

Zitat:

Zitat von Fussball-Robby

Zitat:

Zitat von Klaus01

Zitat:

Zitat von Fussball-Robby

Zitat:

Zitat von DeddyH

]Unter Wine läuft es nicht, nur zur Info ;) (jede Menge AVs beim Starten).

Da habe ich jetzt keine Ahnung, woran das liegen könnte..

Vielleicht liegt es daran, dass die *.wav Dateien nicht gefunden werden.
Ich bekam auch ein Haufen von AV's als ich run.exe aus der zip Archiv gestartet hatte.

Grüße
Klaus

Was passiert denn, wenn du die Feuerwerk.exe startest und den Ton deaktivierst?

Dann explodieren die Raketen und es gibt keine AV's.

Grüße
Klaus

[himitsu]

Bei "Punkte pro Rakete" hab ich erst irgednwas anderes vermutet ... hab schon verzweifelt irgendwo 'nen Punktestand gesucht. :oops:

Und es wäre nicht schlecht, wenn die Raketen nicht so schnurrgerade hochfliegen würden.

[Florian H]

Joah, schief werden lassen wäre schon toll... oder sogar im Kreis drehen lassen (müsstest die Richtung halt über einen Winkel bestimmen) :)

[Fussball-Robby]

So, ich habe die Vorschläge von Flo mal eingebracht, Changelog und neue Version im 1. Post. Außerdem ist der Ton jetzt standardmäßig deaktiviert, damit uns nicht die AVs um die Ohren fliegen :cyclops:
@himitsu: Das mit den schrägen Flugbahnen werde ich später mal angehen :wink:
Schonmal danke an alle fürs Testen :thumb:

[Klaus01]

Zitat:

Zitat von Fussball-Robby

So, ich habe die Vorschläge von Flo mal eingebracht, Changelog und neue Version im 1. Post. Außerdem ist der Ton jetzt standardmäßig deaktiviert, damit uns nicht die AVs um die Ohren fliegen

Du kannst doch beim Programmstart prüfen ob die wav Dateien da sind.
Wenn sie nicht gefunden wurden kannst Du den Ton ja disablen.

Grüße
Klaus

[himitsu]

wie wäre es, wenn die Einstellungen in 'ner INI (ich weiß, die mag keiner mehr), oder 'ner XML (beides im Programmverzeichnis ... bei so'nem kleinem Progi die einfachste/sauberste Lösung) zu speichern, damit man es nicht bei jedem start neu einstellen muß und direkt die RUN.exe starten kann.

[add] ach ja, auch bei mehreren 100 Raketen läuft es hier noch halbwegs flüßig (sieht optisch so aus).

[Mikescher]

Also bei mir gehts mit 1000 Raketen noch einwandfrei (Punkte = 0) :mrgreen: (wie wärs wenn mehr als 1000 Raketen möglich wären) :?:

Aber was mir auffällt:

Die Raketen kommen immer Schubweise (Sobald die 1000 weg sind kommen 1000 neue) wie wärs wenn du zB alle 100ms 10 neue Raketen machst ?
(und die Höchs-Begrenzung aller Raketen rausmachst) :?:

aber ich finds echt ein witziges Programm

MfG Mikescher

PS: Schon mal daran gedacht es als Bildschirmschoner zu machen :?: :?: :?:

[3_of_8]

Mit Andorra2D und Partikeleffekten geht da noch mehr. :mrgreen:

[Mikescher]

Jaja und dann könnten die Raketen auch noch schön kollidieren und dann explodieren und die Punkte bekommen auch noch eine Kollision und mit TPhysicalSprite als Raketen wirds erst richtig witzig (Gravitation nicht vertikale Flugrichtung etc) :mrgreen: :zwinker: :mrgreen:

[freak4fun]

Zufallswert (Range) für die Anzahl an Punkten pro Rakete wäre cool. ;)

[xZise]

Mit Andorra wäre auch ein Umkippen kein Problem mehr ;)

Ansonsten nett anzusehen :)

MfG
xZise

[Fussball-Robby]

Also, erstmal: Mit Andorra werde ich nichts machen, den angesichts der wenigen Zeit bis Silvester würde bis dahin nichts gescheites bei rauskommen.
Ich habe dennoch einige eurer Vorschläge eingebracht, so gibt es jetzt mehr Einstellungen, und diese werden auch gespeichert. Das heißt: Über die Feuerwerk.exe macht man die Einstellungen udn startet über den Start-Button das Feuerwerk. Wird die Feuerwerk.exe geschlossen, werden die Einstellungen im Anwendungsordner(sorry, Anwendungsdaten kommen in der nächsten Version) gespeichert. Startet man dann direkt die Run.exe, werden die zuvor eingestellten Werte berücksichtigt!
Außerdem: Die Anzahl der "Raketenbrösel" (wie sie so nett genannt wurden) ist nun einstellbar, man kann auch eine zufällige Anzahl einstellen (Randomrange).
Das mit dem schrägen Fliegen gucke ich mir morgen nochmal an, kann aber nicht garantieren, dass es so schnell klappt. :cyclops:
Viel Spaß noch beim Testen und ein großes Danke für das Lob und die Kritik :thumb:

(neue Version im 1. Post)

[delphi10]

Ist ja schon ein paar Tage her, aber "Feuerwerk" versucht insgeheim nach Hause zu telefonieren, oder so. Jedenfalls etwa eine Stunde nachdem ich getestet UND BEENDET hatte, versucht Feuerwerk eine Internetverbindung aufzubauen. Wenn ich es nicht übersehen habe, gibt es im Programm und im thread keinerlei Hinweide darauf. Im taskManager läuft aber kein sichtbarer Prozess! Ist nicht wirklich toll. :dp:
cu Delphi10

[Fussball-Robby]

Das ist aber eigentlich nicht möglich. Das Programm versucht in keinster Weise sich mit dem Internet zu verbinden. Wie macht sich das denn bemerkbar, sprich woher weißt du, dass das Programm das tun wollte?

[quendolineDD]

Ich würde mal (Windows-)Firewall sagen. Habe das Programm nicht getestet, daher nur eine Vermutung von mir.

[delphi10]

Sygate Personal Pro 5.5-Firewall. Ich versuch mal, ein Screenshot zu machen.

[R2009]

Hi,

schöne Übung um programmieren zu erlenen, aber als Freeware?
Wenn du sowas baust dann stell doch deine Source zur Verfügung. Ohne
den hat das Ganze weder einen Lerneffekt noch kann man damit sonst was anfangen.

Viele Grüsse

[DDZ]

Hallo,

auch wenn der Thread schon älter ist: Gibt es irgendwo den Quellcode? Ich würde diesen gerne für ein eigenes Programm nutzen, denn dieses Feuerwerk würde meine Highscoreanzeige ungemein aufwerten. Ich würde mich sehr freuen, wenn du mir eine Freigabe dafür geben würdest.

LG

DDZ

[Aphton]

Mir war langweilig.
Es ist nicht schön, aber trotzdem, hier!

[Spectre]

witzig, gefällt mir !

bei 2000 raketen fings dann an zu ruckeln *lach*

gut gemacht :)

[hanspeter]

Kleine Anektode,

ich habe so ein Programm mal mit Turbopascal 1.0 unter CP/M programmiert.
Das lief auf einem Z80 Prozessor mit 20 MHz, so schnell, das ich nach jeder Anzeige eines Bildpunktes in einer Warteschleife bis 100 gezählt habe.
Erst mit dieser Warteschleife sahen die verglühenden Punkte echt aus.

Das Programm habe ich später unter Windows 3.11 zum Laufen gebracht.
Aber erst als ich einen Prozessor I 286 mit 800 MHz Taktfrequenz hatte,konnte man sich die fallenden Sterne in der alten Geschwindigkeit ansehen.
Jetzt aber ohne die Warteschleife von 1 bis 100.

Gruß Peter

[Memnarch]

Sehr schön gemacht.
Komisch war nur:

500 Raketen
100 Brösel(Feste ANzahl)

Alle farben random etc

13-14% Systemauslastung und es ruckelte o.O


i7 @3.4ghz/Core


Jemand spontan eine idee woran das liegen könnte? Ansonsten guck ich mir morgen eh mal sen source an(gerade wenig zeit)

MFG
Memnarch

[DDZ]

Zitat:

Zitat von Aphton (Beitrag 1204475)

Mir war langweilig.
Es ist nicht schön, aber trotzdem, hier!

Dir war langweilig:-D

Darf ich den Programmcode einfach verwenden, wie ich will?