Erstes Delphi Programm =)

[4nG3L]

Hey leute =),

Erstmal freu ich mich das es diese seite gibt da ich fast nur mit dieser seite delphi gelernt habe xD. (naja ich kann es noch nicht richtig aber naja..)
ich wollt euch nur mal mein erstes Programm zeigen.


Es heißt raten....BEEEP und es geht darum die richtigen buttons zu klicken da sonst ein tiefer beep ton kommt.
hier noch ein paar datein zum Spiel:
-Version 1.0.0.0
-kompatibel mit windows95/98/200/xP/Vista/7 (meiner erfahrung nach)
-Für das Spiel wird nur die Maus und Boxen/headset..halt irgendwas was sound wiedergeben kann


verbesserungs vorschlege sind wilkommen =)


mfg 4nG3L

aso halt eine frage hab ich noch....
ich hab versucht es so hinzukriegen das in einem label angezeigt wird wie viele fehler man schon gemacht hat und das das
spiel bei 10 fehlern geschlossen wird... könnt ihr mir da vllt noch helfen

thx im vorraus
mfg
4nG3L

[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 x := random(4)+1; machen.