Kleiner Würfelsimulator

[ThoSebJen]

Hallo,

ich habe zwar Delphi mal in der Schule gelernt, aber das liegt nun schon gute sechs Jahre zurück. Bin dann auf C und Java umgestiegen und möchte jetzt, weil die Zeit drängt, ein kleines Delphi-Programm schreiben, aber ich kriege das überhaupt nicht mehr zu stande.

Es soll ein kleiner Würfelsimulator werden. Über ein TEdit gebe ich eine beliebige Zahl ein und drücke anschließend auf einen Button. Nun soll so oft, wie ich das TEdit eingegeben habe, gewürfelt werden und anschließend in 6 verschiedene Labels die jeweilige Anzahl der 1en, 2en, 3en, 4en, 5en und 6en ausgegeben werden.
Die GUI dazu habe ich schon fertig, aber ich komme mit der eigentlichen Schleife jetzt nicht mehr so klar, könnte mir da jemand auf die Sprünge helfen?

Das wäre wirklich super.

[Sherlock]

Befehle, die Du gebrauchen kannst sind (in ungeordneter Reihenfolge):

for
randomize
inttostr
random
inc

Sherlock

[Mithrandir]

:hi: Willkommen in der DP :dp:

Sherlock hat dir ja schon ein paar Begrifflichkeiten genannt. Wenn du schon in Java und C vorgebildet bist, sollte es ja ein einfaches sein, dich durch die Grundlagentutorials zu lesen. Bei konkreten Fragen kannst du dann gerne einen neuen Thread erstellen. :)

[DeddyH]

Hallo und Willkommen in der DP :dp:,

ich würde das mit einem Array lösen.

Delphi-Quellcode:

procedure TDeinForm.Wuerfeln;
var Augen: array[1..6] of integer;
    i, Wurf: integer;
begin
  //Array komplett mit 0 initialisieren
  for i := Low(Augen) to High(Augen) do
    Augen[i] := 0;

  //nun würfeln und mitzählen
  for i := 1 to StrToInt(Edit.Text) do
    begin
      Wurf := Random(6) + 1;
      inc(Augen[Wurf]);
    end;

  //und ausgeben
  LabelEinsen.Caption := IntToStr(Augen[1]);
  LabelZweien.Caption := IntToStr(Augen[2]);
  LabelDreien.Caption := IntToStr(Augen[3]); 
  //... usw.
end;

Dazu einmalig (z.B. im FormCreate) Randomize aufrufen.

[ThoSebJen]

Hallo,

vielen Dank für diese super schnelle Antwort.
Hatte auch erst was überlegt, aber da terminierte das Programm irgendwie nicht.

Vielen Dank!!!

[patti]

Hab da vor etwas mehr als einem Jahr auch mal was in der Richtung für die Schule (Mathe-LK) geschrieben: hier. Inklusiver grafischer Ausgabe und noch einpaar "Extras" ;-)

MFG
Patti

[Matze]

Zitat:

Zitat von patti

Hab da vor etwas mehr als einem Jahr auch mal was in der Richtung für die Schule (Mathe-LK) geschrieben: hier. Inklusiver grafischer Ausgabe und noch einpaar "Extras" ;-)

Ohne Source werden weder er noch andere hier etwas davon haben, außer die Inspiration von der GUI.

[Wolfgang Mix]

Sehe ich auch so, Quellcode wäre nett.
Wir liefern ja hier auch jede Menge. :)

Gruß

Wolfgang