Die magische 21

holy_flower · Hält's aus hier Beiträge: 2

Hallo,

der ein oder andere kennt dieses Spiel vielleicht.
Ansonsten hier eine kurze Beschreibung:

Es wirs solange gewürfelt, bis die Augensumme aller Würfe möglichst nahe an 21 ist. Wird die Augensumme 21 überschritten, so hat man das Spiel verloren.

Ich programmiere noch nicht so lange mit Delphi und weiß daher zwei Sachen nicht:

1. wie schaffe ich es, dass jedes Mal wenn ich auf 'Würfeln' klicke, die zufällig generierte Zahl zu den im Editfenster stehenden bis dahin zusammengezählten Augenzahlen dazu zu addieren?
D.h. wenn ich z.B. schon dreimal gwürfelt habe, steht in dem Fenster die Zahl 12 und wenn ich wieder würfle, wird die Zahl zu dieser Zahl dazuaddiert. Und das soll bei jedem Klicken auf den Button passieren..

2. Wie oben in der Beschreibung zu lesen ist, hat man das Spiel verloren, wenn die zusammengezählten Augensummen mehr als 21 ergeben. Ich dachte mir, dass ich das am besten mit If usw. mache.. Ich weiß aber nicht, wie ich bei Delphi sagen kann 'größer 21'.

Wäre wirklich sehr nett, wenn mir jemand weiterhelfen könnte..

Einloggen, um Attachments anzusehen!

Chryzler · Beiträge: 1097 Erhaltene Danke: 2

Erinnert mich an Black Jack. Egal. :gruebel:

holy_flower hat folgendes geschrieben:

1. wie schaffe ich es, dass jedes Mal wenn ich auf 'Würfeln' klicke, die zufällig generierte Zahl zu den im Editfenster stehenden bis dahin zusammengezählten Augenzahlen dazu zu addieren?
D.h. wenn ich z.B. schon dreimal gwürfelt habe, steht in dem Fenster die Zahl 12 und wenn ich wieder würfle, wird die Zahl zu dieser Zahl dazuaddiert. Und das soll bei jedem Klicken auf den Button passieren..

Du kannst zum Beispiel eine Integer-Variable deklarieren, nennen wir sie mal "punkte", zu der du jedesmal die gewürfelte Augenzahl hinzuzählst (punkte := punkte + augenzahl oder Inc(punkte, augenzahl)). Dann musst du natürlich noch jedes Mal die Anzeige aktualisieren, wenn sich der Wert ändert.

holy_flower hat folgendes geschrieben:

2. Wie oben in der Beschreibung zu lesen ist, hat man das Spiel verloren, wenn die zusammengezählten Augensummen mehr als 21 ergeben. Ich dachte mir, dass ich das am besten mit If usw. mache.. Ich weiß aber nicht, wie ich bei Delphi sagen kann 'größer 21'.

Am besten du machst dich mal über Vergleichsoperatioren in Delphi schlau. Sehr hilfreich ist zum Beispiel dieser Crashkurs, in deinem Fall speziell dies.

holy_flower · Hält's aus hier Beiträge: 2

Super, vielen Dank für die schnelle Hilfe!

somebody · Beiträge: 167 Erhaltene Danke: 2

Hier nochmal als kleine Hilfe eine kleine Buttonklickprocedure, wie mane s umstezt(nur so als kleine Hilfe)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Button1.Click(Sender: TObject);
var punkte: integer;
    zahl: integer;
begin
     zahl := random(6);
     punkte := punkte + zahl;

     if punkte > 21 then
     begin
          ShowMessage('Du hast verloren!!!');
     end;
end;

Nur als kleine Hilfe, falls du umstezungsprobleme kriegen solltest.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme