Kleines Problem mit Grundlagen // Minigame

[blackfin]

Self-Quote:

Zitat:

Natürlich kann man das im späteren Verlauf eleganter machen, ohne Panel-Caption-Umwandlungen, also dass du zuerst rein rechnerisch würfelst und dann erst am Schluss das ganze in die GUI jagst, aber das ist dir überlassen
Soll ja erstmal nur ein Denkanstoss sein und ich bin von deinem Ausgangspunkt ausgegangen: 6 Zahlen als Captions auf den Panels

[shillok]

So, nächstes Problem:
Man darf 3mal werfen und man kann mit hilfe von checkboxen wählen welche zahlen man stehen lässt und welche man nochmal werfen möchte. wie könnte ich das einbinden?
der rest sieht bis jetzt sehr gut aus.
danke nochmal

[hans ditter]

du musst einfach abfragen, ob die Checkbox unter deiner Zahl angeklickt ist oder nicht. In etwa so:

Delphi-Quellcode:

if NOT(Checkbox1.Checked) then
  Panel1.Caption := random(6) + 1;
if NOT(Checkbox2.Checked) then
  Panel2.Caption := random(6) + 1;

Wenn du dann nur dreimal Würfeln erlauben willst, dann kannst du vorher noch eine if-Abfrage einbauen, die den Zustand einer Zählvariable prüft:

Delphi-Quellcode:

var WurfCount: Integer;

begin
  if WurfCount < 3 then
  begin
    //hier die Zufallszahlen
    Inc(WurfCount);
  end
  else
  begin
    WurfCount := 0;
    Break;
  end;
end;

Wenn dann schon dreimal gewürfelt wurde, wird die Prozedur/Funktion abgebrochen, sonst eben nicht.

LG; hans ditter