Delphi-PRAXiS - Simon Says

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)

- - Simon Says (https://www.delphipraxis.net/113597-simon-says.html)

Hi,
mein allererstes Projekt heißt Simon Says. Wahrscheinlich kennt ihr das Spiel: Es gibt vier farbige Knöpfe, in der ersten Runde blinkt einer und es kommt ein entsprechender Ton, und dann man muss den Knopf drücken. In der zweiten Runde kommt noch ein Knopf hinzu, und man muss beide (nacheinander) drücken, in der dritten Runde ein Dritter usw..

Das Spiel ist schon fertig, aber ich habe noch vor, eine richtige Highscore zu Programmieren, also eine mit 10 Rängen.

Wie gesagt, es ist mein erstes Programm, es wäre nett, wenn ihr mir sagen würdet, was ich noch verbessern kann. Außerdem sind in den Kommentaren etliche Groß-Kleinschreibung-Fehler, was aber nicht stören sollte, und wenn ich in den Kommentaren etwas über Level schreibe, meine ich nur eine Farbe, nicht die ganze Runde.

Und falls noch fragen sind, fragt ruhig^^.

History:
Version 1.0: Release
Version 1.1: ein Bug gefixt(es kam kein Blau) und die Töne, die ich vergessen hatte, ins Archiv gepackt.
Version 2.2: Bug gefixt:: Unregelmäßiges erscheinen einen Zugriffsverletzung, nachdem der "Leider Falsch"-Dialog geschlossen wurde.

Hallo, schaut schon mal gut aus :thumb:

Bei 2. Durchgang kam zuerst 2 x gelb dann 7 x grün.
Vielleicht könntest du einstellen, dass eine Farbe nicht zu viel nacheinander kommt.

ja schaut gut aus, aber nachdem ich einmal verkehrt geklickt hab kahm bei mir ne schutzverletzung... also irgendwas haut in deinem code noch nicht ganz hin, den quellcode hab ich mir aber noch nicht angesehen!!

edit:
achja, hallo und willkommen in der dp!! :dp: :dp:

Danke.

Ich hab grad gemerkt, das Random(3) nur 0,1 und 2 zurückgibt, also, hab ich den zweiten Fehler schon gefunden^^.

Bugs werden gefixt...

EDIT: hm, die schutzverletzung kommt aber nicht immer, ich muss mal gucken, an was das liegt...
Edit2: Fehler tritt auf, wenn ein neuer Rekord aufgestellt wurde...
Edit3: Gefixt

Manchmal gibt es eine AV und zwar bei dieser Zeile:

Delphi-Quellcode:

Images[Level[ColorShow]].Visible := True; //löscht alle Variablen

Zitat:

---------------------------
Simon Says
---------------------------
Zugriffsverletzung bei Adresse 0042487C in Modul 'SimonSays.exe'. Lesen von Adresse 00000047.
---------------------------
OK
---------------------------