Entwickler-Ecke :: Thema anzeigen - Zahlenraten-Programm: Zahlenbereich vom User frei wählbar?

Anka - Mo 06.06.11 10:51
Titel: Zahlenraten-Programm: Zahlenbereich vom User frei wählbar?

Hallo Leute,
habe gerade ein kleines Zahlenratenprogramm programmiert und wollte eigentlich den Zahlenbereich, in welchem der Computer sich eine Zahl ausdenkt, die der User erraten muss, vom User durch ein Editfeld frei wählbar machen.
Dabei bin ich aber auf das Problem gestoßen, dass ich die Zufallszahl bei FormCreate erstellen lassen muss, weil sonst bei jedem neuen Klick auf den Button Raten eine neue Zufallszahl erzeugt wird.
Mein Code sieht momentan so aus:

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  Zufallszahl:= Random(StrToInt(EdtZahlenbereich.Text))+1;
end;

Allerdings kann der User vor Programmstart natürlich keinen Zahlenbereich angeben -.-

Möchte eigentlich aus optischen Gründen nicht noch einen Button für das Zahlenbereichbestätigen erstellen.
Irgendwer eine Idee, wäre super :)

Liebe Grüße
Anka

Moderiert von Christian S.: Delphi-Tags hinzugefügt
Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Di 07.06.2011 um 14:49

Yogu - Mo 06.06.11 20:37

Anka hat folgendes geschrieben :

wie genau funktionieren die beiden Ereignisse bzw. welchen Code müsste ich verwenden?

Wenn du damit fragen willst, wie du die Prozeduren für die Ereignisse erstellen kannst: Einfach im Objektinspektor auf Ereignisse schalten, die Namen raussuchen und doppelklicken. Die dann erstellte Prozedur wird immer dann ausgeführt, wenn das Ereignis auftritt.

Anka hat folgendes geschrieben :

Reicht es, wenn ich einfach
Zufallszahl:=Random(StrToInt(EdtZahlenbereich.Text));
in die procedure schreibe?

Ich stehe noch relativ am Anfang meiner Delphi-Karriere, also bitte vereziht mir solche (wahrscheinlich) sehr einfachen Fragen ;)

Das dürfte wahrscheinlich schon funktionieren, aber es hängt auch vom restlichen Code ab. Probier es doch einfach mal aus - genau das ist am Anfang (und auch später) wichtig.

Anka - Mo 06.06.11 20:59

Zitat:

Nicht ganz, soweit komme ich glücklicherweise ;) Ich meinte eher, was die Ereignisse OnChange und OnExit jedes für sich machen, bei OnClick ist beispielsweise das "Draufklicken" angesprochen, etc.

Ok, irgendwas mache ich glaube ich gerade richtig falsch, die Zufallszahl wird nicht im richtigen Zahlenbereich erzeugt. Mein Code sieht wie folgt aus:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

implementation

{$R *.dfm}
var Zufallszahl, Ratezahl, OptimaleZahl: Integer; //globale Variablen


procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  ShowMessage ('Um ein neues Spiel zu starten, geben Sie bitte einen Zahlenbereich ein und drücken Sie den Neu-Button');
end;


procedure TForm1.BtnRatenClick(Sender: TObject);
begin
  Ratezahl:= StrToInt(EdtRaten.Text);

  if Ratezahl = Zufallszahl then
    LblErgebnis.Caption:= 'Richtig geraten!'
    else if Ratezahl < Zufallszahl then
      LblErgebnis.Caption:= 'Die Zahl ist zu klein!'
      else if Ratezahl > Zufallszahl then
        LblErgebnis.Caption:= 'Die Zahl ist zu groß!';
end;

procedure TForm1.EdtZahlenbereichChange(Sender: TObject);
begin
  Zufallszahl:=Random(StrToInt(EdtZahlenbereich.Text))+1;
end;

Moderiert von Martok: Delphi-Tags hinzugefügt

Anka - Mo 06.06.11 21:36

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

implementation

{$R *.dfm}
var Zufallszahl, Versuche, Ratezahl, OptimaleZahl: Integer; //globale Variablen


procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  ShowMessage ('Um ein neues Spiel zu starten, geben Sie bitte einen Zahlenbereich ein und drücken Sie den Neu-Button');
  Veruche :=0;
end;


procedure TForm1.BtnRatenClick(Sender: TObject);
begin 
  
  Inc(Versuche); 

  if Versuche 10< then
    Zufallszahl:= Random(StrToInt(EdtZahlenbereich.Text))+1;  

  Ratezahl:= StrToInt(EdtRaten.Text);

  if Ratezahl = Zufallszahl then
    LblErgebnis.Caption:= 'Richtig geraten!'
    else if Ratezahl < Zufallszahl then
      LblErgebnis.Caption:= 'Die Zahl ist zu klein!'
      else if Ratezahl > Zufallszahl then
        LblErgebnis.Caption:= 'Die Zahl ist zu groß!';
end;

Ok, Änderungen übernommen, aber wie wird jetzt bei Programmstart eine neue Zufallszahl erzeugt?

HenryHux - Mo 06.06.11 21:55

So klappt das nicht, du erzeugst ja immernoch immer neue Zahlen.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

implementation

{$R *.dfm}
var Zufallszahl, Versuche, Ratezahl, OptimaleZahl: Integer; //globale Variablen


procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  ShowMessage ('Um ein neues Spiel zu starten, geben Sie bitte einen Zahlenbereich ein und drücken Sie den Neu-Button');
  Zufallszahl := Random(StrToInt(EdtZahlenbereich.Text))+1;
  Versuche := 0;
end;


procedure TForm1.BtnRatenClick(Sender: TObject);
begin 
  if (Versuche in [0, 10]) then begin
    Versuche := 0;
    Zufallszahl := Random(StrToInt(EdtZahlenbereich.Text))+1; 
  end;

  Inc(Versuche); 

  Ratezahl:= StrToInt(EdtRaten.Text);

  if Ratezahl = Zufallszahl then begin
    LblErgebnis.Caption:= 'Richtig geraten!';
    Versuche := 0;
  end
    else if Ratezahl < Zufallszahl then
      LblErgebnis.Caption:= 'Die Zahl ist zu klein!'
      else if Ratezahl > Zufallszahl then
        LblErgebnis.Caption:= 'Die Zahl ist zu groß!';
end;

So sollte es klappen.

lg

der organist - Di 07.06.11 00:44

HenryHux hat folgendes geschrieben :

Das Problem ist hier, dass du bei jeder neuen Eingabe eine neue Zufallszahl anlegst.
Willst du, dass der Benutzer mehrere Versuche hat?

- wo bitte wird bei jeder Eingabe die Zufallszahl verändert?

Das passiert erst im letzen Codebeispiel...

- mehrere Versuche hat der Spieler auch sonst, nur zum mitzählen brauchst du ne Variable

HenryHux - Di 07.06.11 07:10

der organist hat folgendes geschrieben :

- wo bitte wird bei jeder Eingabe die Zufallszahl verändert?

hier?

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.EdtZahlenbereichChange(Sender: TObject);
begin
  Zufallszahl:=Random(StrToInt(EdtZahlenbereich.Text))+1;
end;

OT: Wieso klappen Tags nicht mehr beim Klicken?

der organist - Di 07.06.11 08:16

das ist doch aber beim Edit für die Eingabe der Zufallszahl. Die Eingabe für das Raten geschieht doch in einem anderen Editfeld...?

Anka hat folgendes geschrieben :

Zitat:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

implementation

{$R *.dfm}
var Zufallszahl, Ratezahl, OptimaleZahl: Integer; //globale Variablen


procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  ShowMessage ('Um ein neues Spiel zu starten, geben Sie bitte einen Zahlenbereich ein und drücken Sie den Neu-Button');
end;


procedure TForm1.BtnRatenClick(Sender: TObject);
begin
  Ratezahl:= StrToInt(EdtRaten.Text);

  if Ratezahl = Zufallszahl then
    LblErgebnis.Caption:= 'Richtig geraten!'
    else if Ratezahl < Zufallszahl then
      LblErgebnis.Caption:= 'Die Zahl ist zu klein!'
      else if Ratezahl > Zufallszahl then
        LblErgebnis.Caption:= 'Die Zahl ist zu groß!';
end;

procedure TForm1.EdtZahlenbereichChange(Sender: TObject);
begin
  Zufallszahl:=Random(StrToInt(EdtZahlenbereich.Text))+1;
end;

zuma - Di 07.06.11 15:55

Anka hat folgendes geschrieben :

wie genau funktionieren die beiden Ereignisse bzw. welchen Code müsste ich verwenden?
Reicht es, wenn ich einfach
Zufallszahl:=Random(StrToInt(EdtZahlenbereich.Text));
in die procedure schreibe?

Ich stehe noch relativ am Anfang meiner Delphi-Karriere, also bitte vereziht mir solche (wahrscheinlich) sehr einfachen Fragen ;)

wenn du mal das aus dem englischen übersetzt, wird eigtl. schon klar, was es mit den ereignissen auf sich hat.
onchange = bei Änderung = tritt auf, wenn das Feld geändert wird
onexit = bei Verlassen = tritt auf, wenn das Feld den Focus verliert

Um nur dann eine neue Zufallszahl zu generieren, wenn die Eingabe sich verändert, merkst du dir einfach immer die letzte Eingabe und benutzt die dann zum Vergleichen. So wird keine neue Zufallszahl erzeugt, wenn man einfach nur das Feld verlässt, ohne zu ändern (z.b. beim 'durchtabben').

ich empfehle dir mal, das beim onExit zu machen

Delphi-Quelltext

1:
2:
3:
4:
5:

if (AlterZahlenBereich <> StrToInt(EdtZahlenBereich.Text)) then
begin
 Zufallszahl        := Random(StrToInt(EdtZahlenbereich.Text))+1;
 AlterZahlenBereich := StrToInt(EdtZahlenBereich.Text); 
end;

n1con - Do 23.06.11 13:44

Ich hab dir das jetzt mal zusammengefasst. Was wichtig ist, du musst die Variable Zufallszahl global deklarieren. Außerdem reicht es wenn du sie nur einmal im OnCreate Ereignis im Bereich Random(StrToInt(EdtZahlenbereich.Text))+1 generierst. Jetzt kannst du jedes mal im OnExit Ereignis des Edit Feldes das OnCreate Ereignis aufrufen und fertig. Ich häng dir mal meine Version an, dann siehst du wie ich es meine.

LG n1con

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!