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

[4nG3L]

sooooo da ich jetzt nun wieder mit delphi aktiv bin hab ich gleich mal wieder eine frag sogar zu meinem alten spiel =)
also...
ich wollte gerne einen timer einbauen der die zeit begränzt also das ich z.B. nur 30 seks zeit habe um das spiel zu gewinnen und außerdem wollt ich es noch so machen das er unten rechts in der symbolleister oder was das is auch so ein icon anzeigt =) könnt ihr mir vllt da helfen??


mfg 4nG3L

PS: das mit dem neustart hab ich gefixt ;D

[lbccaleb]

Such mal nach TrayIcon

Edit:
Die Frage ist aber, wieso willst du ein TrayIcon bei diesem Spiel haben??

[4nG3L]

keine Ahnung ich finds einfach schöner =) und außerdem lern ich dadurch wie die einzelnen Sachen funktionieren und da ich noch ein n00b bin lern ich dadurch weiter=)
thx xD

[4nG3L]

ömmm ich find da irgwie nichts richtiges =/

[Crazy Ivan]

wenn man nachdem man gewonnen hat das feld auf dem "richtig" steht nocheinmal anklickt, ist es auf einmal "falsch"

[4nG3L]

achso ja ich weiß =) hab die neue ver. neu noch nich geuploadet xD

hier is die neue =)

[4nG3L]

könnte mir jetzt vllt jmd weiterhelfen? also das ich da ne zeitbegrenzung reinbringen kann?


//edit:
mit erklärung pls

[Larsi]

hi,
du könntest doch einfach einen Timer nehmen und jede Sekunde einen Integer wert um eins erhöhen. Wenn der Integer Wert dann einen bestimmten Wert hat kannst du ja reagieren.

[4nG3L]

hab ich versuch aber habs nich hingekriegt ô.o

[BullsEye]

Delphi-Quellcode:

...
VAR zeit : Integer;
...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   zeit := zeit +1;
end;

So zählst du die Zeitvariable immer um 1 hoch.

Musst halt sobald er das Spiel beginnt den Timer Enablen und die Zeit auf 0 setzten.

Delphi-Quellcode:

Timer1.Enabled := true;
zeit := 0;

Sobald er dann gewonnen hat wieder Disablen und die Zeit ausgeben.

Delphi-Quellcode:

Timer1.Enabled := false;
ShowMessage(IntToStr(zeit));

Code ausm Kopf.