Erstes Delphi Programm =)

[Blackheart]

Hier hast du noch was zum grübeln, schnell mal zusammengetippt geht sicherlich auch einfacher.

[Super_Chemiker]

Wie überprüfst du denn, ob der Button richtig ist? Kannst du das bitte mal reinkopieren, dann kann ich dir glaub ich helfen :thumb:

[4nG3L]

eigentlich garnicht xD ich hab nur geschrieben das wenn man auf den button klickt das der dann die nächsten sichtbar macht

[lbccaleb]

Zitat:

Zitat von Super_Chemiker

Wie überprüfst du denn, ob der Button richtig ist? Kannst du das bitte mal reinkopieren, dann kann ich dir glaub ich helfen :thumb:

Hat er doch in diesem Post HIER ;)

[Super_Chemiker]

ok dann mach mal eine globale variable

Delphi-Quellcode:

x: Integer

dann im form create ereignis:

Delphi-Quellcode:

x := random(4)+1;

dann bei jedem button click:

Delphi-Quellcode:

if x = 1 then//hier schreibst du die zahl des buttons in deiner zeile, also zwischen 1 und 5
begin
//hier machst du die gesamte zeile 2 sichtbar
x := random(4)+1//du machst eine neue zufallszahl
else
beep...

[4nG3L]

also ich habs jetzt so versucht

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);


begin
BitBtn1.Font.Color:= ClRED;
BitBtn1.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;
if x = 1 then
BitBtn6.Visible := true;
BitBtn7.Visible := true;
BitBtn8.Visible := true;
BitBtn9.Visible := true;
BitBtn10.Visible := true;
x := random(4)+1
else
windows.beep(200,400);
end;

so maht der aber nichts random wenn ich jetzt auf den ersten button klicke dann nimmt er gleich den

[Super_Chemiker]

alles was passieren soll wenn es der falsche ist, muss zum beep
und das erste random musst du im form create machen:

Delphi-Quellcode:

randomize;
x := random(4)+1;

[4nG3L]

ja ich hab ja
windows.beep(200,400);
zum beep geschrieben da erstmal nicht mehr passieren soll also zum test.
ich hab das

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Label25.Caption:=FormatDateTime('dd.mm.yyyy', Now);
KeyPreview := True;
Label28.Caption := TimeToStr(Now);
randomize;
x := random(4)+1;
end;

so sieht mein form create aus ist das wenigstens so richtig?

[Super_Chemiker]

ja, glaub schon.

[4nG3L]

die ersten 5 buttons sind aber nicht random da ist immer 3 der richtige