Erstes Delphi Programm =)

[4nG3L]

aso okay aber jetzt habe ich direkt das nächste problem:

Delphi-Quellcode:

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
randomize;
if x = 4 then
begin
  BitBtn6.Visible := true;
  BitBtn7.Visible := true;
  BitBtn8.Visible := true;
  BitBtn9.Visible := true;
  BitBtn10.Visible := true;
  Bitbtn4.Font.Color := CLLime;
bitbtn4.Caption := 'RICHTIG';
  x := random(4)+1;
end 
else
  BitBtn4.Font.Color:= ClRED;
BitBtn4.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
  label27.Caption := 'Fehler: ' + IntToStr(FZaehler);
  if FZaehler > 9 then
  begin
   If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes
   then
   Neustarten1.Click
   else
   Close;
end;
end;

so sehn in etwer alle ersten 5 buttons aus (bis auf kleinigkeiten). wenn ich jetzt im spiel test den richtigen kriege wird die nächste reihe sichtbar aber auf dem button steht dann in grüner schrift FALSCH obwohl ich ja

Delphi-Quellcode:

  Bitbtn4.Font.Color := CLLime;
bitbtn4.Caption := 'RICHTIG';

das da hingeschrieben habe..meiner meinung nach sollte auf dem richtigen button nun in grüner schrift RICHTIG stehen und nicht FALSCH..

[Super_Chemiker]

in grüner schrift falsch? das kann ich mir nicht erklären, schau am besten noch mal, ob du bei allen buttons keine tippfehler gemacht hast oder so...

[4nG3L]

nein da ist nirgendwo ein fehler das sollte eigentlich oerfekt laufen..

[Super_Chemiker]

ahh!

Delphi-Quellcode:

end
else
begin // das hat gefehlt
  BitBtn4.Font.Color:= ClRED;
BitBtn4.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
  label27.Caption := 'Fehler: ' + IntToStr(FZaehler);
  if FZaehler > 9 then
  begin
   If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes
   then
   Neustarten1.Click
   else
   Close;
end;// das auch
end;
end;

[4nG3L]

stimmt das wars =) danke :)

[4nG3L]

also ich hab jetzt wieder ein problem...in der 2. reihe ist nichts mehr random also da ist garkeiner der richtige button =(

Delphi-Quellcode:

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
randomize;

if x = 10 then
begin
  BitBtn11.Visible := true;
  BitBtn12.Visible := true;
  BitBtn13.Visible := true;
  BitBtn14.Visible := true;
  BitBtn15.Visible := true;
  Bitbtn10.Font.Color := CLLime;
bitbtn10.Caption := 'RICHTIG';
  x := random(4)+1;
end
else
begin
  BitBtn10.Font.Color:= ClRED;
BitBtn10.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
  label27.Caption := 'Fehler: ' + IntToStr(FZaehler);
  if FZaehler > 9 then
  begin
   If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes
   then
   Neustarten1.Click
   else
   Close;
end;
end;
end;

so sieht der quelltext von meinem 10. button aus (so sehn die quelltexte von den buttons 6-9 auch aus naja bis auf kleigkeiten ;))
muss da irgendetwas geändert werden damit es in der 2. reihe auch random wird?

[Super_Chemiker]

ja, du musst die buttons nach der jeweiligen zeile nummerieren:
also gilt bei button6 dass 1 die zahl ist und so weiter

[4nG3L]

aso ich hab button6 als 6 numeriert

[Super_Chemiker]

ja, das war das problem:

Delphi-Quellcode:

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
randomize;

if x = 5 then//hier! es darf nur von 1 bis 5 gehen, dann fängt es von vorne an
begin
  BitBtn11.Visible := true;
  BitBtn12.Visible := true;
  BitBtn13.Visible := true;
  BitBtn14.Visible := true;
  BitBtn15.Visible := true;
  Bitbtn10.Font.Color := CLLime;
bitbtn10.Caption := 'RICHTIG';
  x := random(4)+1;
end
else
begin
  BitBtn10.Font.Color:= ClRED;
BitBtn10.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
  label27.Caption := 'Fehler: ' + IntToStr(FZaehler);
  if FZaehler > 9 then
  begin
   If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes
   then
   Neustarten1.Click
   else
   Close;
end;
end;
end;

[4nG3L]

Soooooo ich bin fertig =) mein werk ist vollbracht xD
endlich fertig^^


ich hab noch verbessert:
----man hat nun 20 Leben
----Alles ist zufall
----wenn man einen richtigen button klickt kommt kein sound...