Anzahl der Versuche herausfinden

[schmitty89]

Hallo,

ich habe ein kleines Zahlenrätsel geschrieben:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  public
    z :integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
 begin
   randomize;
   z := random(100)+1;

end;

procedure TForm1.Button1Click(Sender: TObject);

 var r : integer;
 begin

   r := StrToInt(edit1.Text);

       if r < z then Label2.Caption := 'Zu niedrig'
   else if r > z then Label2.Caption := 'Zu hoch'

   else if r = z then Label2.Caption := 'Erraten';
 end;

 end.

und würde jetzt noch gern herausfinden wieviele versuche der User gebraucht hat, kann mir dabei jemand helfen?

[DeddyH]

Hallo und Willkommen in der DP :dp:,

benutze doch bitte künftig Delphi-Tags (entweder der "Helm" im Beitragseditor oder von Hand), dann ist Dein Code auch besser zu lesen. Zum Problem: was Du brauchst, ist einfach eine weitere ganzzahlige Variable, am Besten als privates Feld. Beim Spielstart setzt Du diese auf 0 und nach jedem Versuch erhöhst Du sie. Zum Schluss schaust Du einfach nach, was drinsteht ;)

[haentschman]

Hallo und herzlich willkommen hier :dp:

1. bitte setze den Quellcode in Delphi Tags (der Button mit dem Helm)
2. du ermittelst eine Zufallszahl im OnCreate.
Tipp: Button "Start" und im OnClick die Zufallszahl ermitteln. Dann brauchst du um neu zu spielen nicht neu starten.
3. Du deklarierst dir eine Variable namens "Count" z.B. in jedem Button1.Click zählst du sie hoch und zeigst sie an
4. Tipp: benutze "sprechende" Variablennamen. Das erleichtert dir bei mehr Quellcode die Übersicht.

[schmitty89]

Delphi-Quellcode:

  public
    z :integer;
    versuche :integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
 begin
   randomize;
   z := random(100)+1;
   versuche :=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
 var r : integer;

 begin
   r := StrToInt(edit1.Text);
   versuche :=versuche+1;

       if r < z then Label2.Caption := 'Zu niedrig'
   else if r > z then Label2.Caption := 'Zu hoch'
   else if r = z then Label2.Caption := 'Erraten';
   Label4.Caption :='versuche';
 end;
 end.

soweit hab ich es nur wie zeige ich jetzt die anzahl an?

[DeddyH]

Delphi-Quellcode:

Label4.Caption := IntToStr(versuche) + ' Versuche';

Oder auch

Delphi-Quellcode:

Label4.Caption := Format('%d Versuche', [versuche]);

[haentschman]

Einfach an das

Delphi-Quellcode:

Label4.Caption :='versuche';

dranhängen.

Du speicherst die Anzahl in Versuche: Integer... dann wäre das

Delphi-Quellcode:

Label4.Caption :='Versuche ' + IntToStr(Versuche);

. wenn dir die Funktion IntToStr nix sagt... Cursor drauf + F1

[schmitty89]

Oh man, ist ja total einfach :D

Und nun noch ein kleines Problem.
Wenn jemand auf schließen drückt soll angezeigt werden das das spiel noch nicht beendet ist

[Sir Rufo]

Zitat:

Zitat von schmitty89 (Beitrag 1152248)

Oh man, ist ja total einfach :D

Und nun noch ein kleines Problem.
Wenn jemand auf schließen drückt soll angezeigt werden das das spiel noch nicht beendet ist

Neue Frage -> neuer Thread ;)

[Popov]

Nur mal am Rande, das

Delphi-Quellcode:

versuche :=versuche+1;

kannst du auch so lösen

Delphi-Quellcode:

Inc(versuche);

[DeddyH]

Zitat:

Zitat von Popov (Beitrag 1152271)

Nur mal am Rande, das

Delphi-Quellcode:

versuche :=versuche+1;

kannst du auch so lösen

Delphi-Quellcode:

Inc(versuche);

Wenn man aus Versuche aber irgendwann einmal eine Property machen sollte, kann man Inc() vergessen.

[Popov]

Der ist gerade bei If Abfragen und du denkst schon an Property.

[DeddyH]

Bevor nachher wieder Fragen kommen, wieso Inc(Form1.Width) nicht geht.

[Jonas Shinaniganz]

In das Click-Event vom Button:

Delphi-Quellcode:

if (r = z) then
begin
  Close;
end
else
begin
  ShowMessage('Erst zuende raten.');
end;

[DeddyH]

Falscher Thread ;)

[Jonas Shinaniganz]

Zitat:

Zitat von DeddyH (Beitrag 1152287)

Falscher Thread ;)

AHhrg :D da wollte ich mal netterweise helfen :thumb:

Tut mir leid ;)

[himitsu]

Zitat:

Zitat von Jonas Shinaniganz (Beitrag 1152286)

In das Click-Event vom Button:

Delphi-Quellcode:

if (r = z) then
begin
  Close;
end
else
begin
  ShowMessage('Erst zuende raten.');
end;

OK, daß es ein bissl "blöd" ist, wenn bei jedem Fehlversuch die Meldung kommt, wurde ja schon erwähnt.
Aber noch unschöner ist, daß bei erfolgreichem Raten das Fenster/Programm einfach so und ohne Vorwarnung verschwindet. :zwinker:

[DeddyH]

*Ähem*

Zitat:

Zitat von DeddyH (Beitrag 1152287)

Falscher Thread ;)

[himitsu]

Wieso?
Ich dachte hier ging es ums Zählen

Delphi-Quellcode:

if (r = z) then

und nicht ums OnCloseQuery.

Dann müßte es doch passen? :angle: