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

[DeddyH]

Das sieht OK aus, aber im vorherigen Code fällt mir auf, dass da wohl begin und end fehlen.

Delphi-Quellcode:

if x = 1 then
begin //das fehlte
  BitBtn6.Visible := true;
  BitBtn7.Visible := true;
  BitBtn8.Visible := true;
  BitBtn9.Visible := true;
  BitBtn10.Visible := true;
  x := random(4)+1;
end //das auch
else
  windows.beep(200,400);
end;

[Super_Chemiker]

ok
probiers mal ein paar mal, vielleicht nimmt er ja nicht immer den ersten...

[Super_Chemiker]

bzw. nicht immer den 3.

[4nG3L]

also ich hab das jetzt bei den erseten 5 buttons gemacht und wenn ich das überall gleich habe dann ist keiner mehr richtig...

[Super_Chemiker]

du musst auch schauen, dass bei den buttons immer die zahl stimmt

Delphi-Quellcode:

if x = 1 then// hier der einser muss verschieden sein
...

[mkinzler]

Warum wurde hier eigentlich Case durch If ersetzt?

[4nG3L]

ach lol das wars^^ danke jetzt klappts....in der ersten reihe =)

[Super_Chemiker]

keine ahnung?!
aber wenn ich nur wissen will, ob eine zahl gleich einer anderen ist, muss ich ja nicht gleich case verwenden oder

[4nG3L]

wie mache ich es jetzt das es für die 2. reihe auch random ist?

[Super_Chemiker]

dafür musst du da, wo er die zweite zeile sichtbar macht(also wenn er den richtigen button drückt) wieder

Delphi-Quellcode:

x := random(4)+1;

machen.

[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...

[lbccaleb]

Zitat:

Zitat von 4nG3L

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

denke nicht^^

[Super_Chemiker]

na das kannst du sicher ausbügeln ;)
sonst:
CooL!
:arrow: Schön, wenn ich dir helfen konnte
:arrow: Bitte bearbeite den ersten Beitrag und hänge das dort auch an, da viele nur den ersten Beitrag lesen.

[Mikescher]

Hallo
witziges Programm aber:
:arrow: Den schon erwähnten Fehler ist nervig wie wäre es wenn die ganze Reihe disabled wird wenn man den richtigen Button klickt
:arrow: für Leute ohne interen Lautsprecher(=mich) ist es ein wenig schade

Mfg Mikescher

[Blackheart]

Wie man sagt, viele Köche verderben den Brei oder man kann es auch Verschlimmbessern. :thumb:

[BullsEye]

Zitat:

Zitat von Blackheart

Wie man sagt, viele Köche verderben den Brei oder man kann es auch Verschlimmbessern. :thumb:

[OT] :wiejetzt: [/OT]

[4nG3L]

Soooooo jetzt steht nicht mehr 2 oder 3 mal richtig in einer reihe^^
ich find so ist es eine gute lösung. ihr könnts ja mal ausprobieren =)

[Blackheart]

Zitat:

Zitat von BullsEye

Zitat:

Zitat von Blackheart

Wie man sagt, viele Köche verderben den Brei oder man kann es auch Verschlimmbessern. :thumb:

[OT] :wiejetzt: [/OT]

Thread lesen :wink:

[Super_Chemiker]

Zitat:

Zitat von Blackheart

Zitat:

Zitat von BullsEye

Zitat:

Zitat von Blackheart

Wie man sagt, viele Köche verderben den Brei oder man kann es auch Verschlimmbessern. :thumb:

[OT] :wiejetzt: [/OT]

Thread lesen :wink:

Bin da etwa ich gemeint? :pale: :kotz:

[blablab]

Bei deiner neuen Version verschwindet bei mir immer die vorherige Reihe mit Knöpfen so dass immer nur eine Reihe sichtbar ist. Außerdem scheint immer die gleiche Kombination richtig zu sein -> Randomize

[Namenloser]

Beim "Neustarten" bleiben die Buttons unsichtbar.