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 ,

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

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]

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

[haentschman]

Einfach an das Label4.Caption :='versuche'; dranhängen.

Du speicherst die Anzahl in Versuche: Integer... dann wäre das Label4.Caption :='Versuche ' + IntToStr(Versuche); . wenn dir die Funktion IntToStr nix sagt... Cursor drauf + F1

[schmitty89]

Oh man, ist ja total einfach

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 von schmitty89:

Oh man, ist ja total einfach

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

versuche :=versuche+1; kannst du auch so lösen

Inc(versuche);

[DeddyH]

Zitat von Popov:

Nur mal am Rande, das

versuche :=versuche+1; kannst du auch so lösen

Inc(versuche);

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