Zahlenspiel 3*mal gewinnen dann verloren anzeigen

[ScrollbarKopf]

Hallo ich ahbe ein spiel gemacht wo in einem edit eine zahl zwischen 1-100 angezeigt wird und man unterbei selber eine zahl hineinschreiben kan wenn die zahl richtig ist hat amn gewonnen und cih will das amn drei versuche hat die richtige zahl einzutippen wenn die 3 versuche um sind soll angezeigt werden sie ahben 3*mal verloren das spiel ist zu ende.

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
x,x1: integer;
ergebnis: boolean;
begin
randomize;
x:= random(100)+1;
edit2.text:= inttostr(x);
x1:= strtoint (edit1.text);
repeat
if x=x1 then showmessage ('Gratulation Sie haben gewonnen')
else showmessage ('Sie haben leider verloren');

until showmessage ('Sie haben leider verloren') * 3 ;
then showmessage (' Sie haben 3 mal verloren das spiel ist zuende') ;

[grenzgaenger]

hast du dir schon 'n struktogramm gezeichnet?

[ScrollbarKopf]

was um gotteswillen ist ein struktogramm

[angos]

Zitat von ScrollbarKopf:

was um gotteswillen ist ein struktogramm

ein ziemlich wichtiges element zum programmieren: http://de.wikipedia.org/wiki/Struktogramm
das malst du dann aber ohne bits ´n Bytes analog auf einem Zettel mit nem Stift (oder lädst dir ein tool dafür runter, wo das erstellen aber oft länger dauert )

[grenzgaenger]

eine programmentwurfstechnik, kannst mal hier gucken.

ist halt gut, um strukturiert vorzugehen und die logiken zu durchdenken. denke, bei deinem codefragment, wäre das mal empfehlenswert

[ScrollbarKopf]

habe jetzt soviel

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
x,x1: integer;
ergebnis: boolean;
begin
randomize;
x:= random(100)+1;
edit2.text:= inttostr(x);
x1:= strtoint (edit1.text);

if x=x1 then showmessage ('Gratulation Sie haben gewonnen')
else showmessage ('Sie haben noch 2 versuche');edit1.clear; edit2.clear; ;

ich möchte halt erreichen das er mir wenn es 3 mal falsch ist sagt das das spiel vorebi sit und er dasss dann schließt

[Klaus01]

Delphi-Quellcode:

private
  errorCount;

procedure TForm2.Button1Click(Sender: TObject); 
var 
  x,x1: integer; 
  ergebnis: boolean; 
begin 
  randomize; //das sollte im onCreate stehen
  x:= random(100)+1; 
  edit2.text:= inttostr(x); 
  x1:= strtoint (edit1.text); // hier sollte noch abgefangen werden wenn im Edit1.text keine Zahl steht
  if x=x1 then 
    showmessage ('Gratulation Sie haben gewonnen') 
  else 
    begin
      showmessage ('Sie haben leider verloren'); 
      inc(errorCount);
    end;

   if errorCount = 3 
     then showmessage (' Sie haben 3 mal verloren das spiel ist zuende') ;
end;

Vor dem Spielanfang sollte der ErrorCount noch auf 0 gesetzt werden.

Grüße
Klaus

[ScrollbarKopf]

danke es funktioniert