Die böse 7 Spielregel: Es werden zufällige Zahlen (1 - 6) erwürfelt, die jeweils addiert werden. Das Spiel ist beendet, wenn diese Summe 50 oder mehr beträgt. Wenn allerdings zwischendurch eine Summe erreicht wird, die durch 7 teilbar ist oder die die Ziffer 7 enthält, muss man wieder von 0 anfangen. Das Spiel wird in einem kleinen Delphi - Projekt mit folgendem Startformular´durchgeführt: Anzeige des Wurfes im Label Wurf_L StringGrid1 mit 50 Spalten und 1 Zeile, das die möglichen Summenwerte angibt. Shape1 zeigt an, wo sich die Summe gerade befindet. Anzeige der Summe im Label Summe_L Start_B ist der Button, der jeweils den nächsten Wurf durchführt und die Spielsituation entsprechend verändert. Als Variable müssen benutzt werden: Wurfsumme,Wurf : Integer; Schlechtsack : TZahlensack; (Hierin werden die 'schlechten' 7er-Zahlen aufbewahrt.) Ergänze unter Beachtung der 'Sprachregeln' und mit Anwendung der Variablen die folgenden Prozeduren: (zusätzliche Variablen müssen an entsprechender Stelle eingeführt werden) In der Startprozedur sollen der Schlechtsack hergestellt werden und die Variablen auf ihren Anfangswert gesetzt werden. (Auch das StringGrid soll mit den Zahlen versehen werden!) In der onclick-Prozedur des Start-Buttons soll der gesamte Ablauf bei Durchführung eines Wurfes erfolgen.
© Copyright 2024 ExpyDoc
