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

[mkinzler]

Schau dir mal die Funktion Random() an

[4nG3L]

ich werde eure tipps versuchen im laufe des tages zu verwirklichen aber jetzt muss ich erstmal weg =)

bye bye

[lbccaleb]

Übrigens, einen richtigen Separator im Menü kannst du erzeugen, wenn du als Caption ein "-" eingibst!
Dann macht er diesen Menüpunkt automatisch als Trennlinie! Brauchst du also nicht 1000x hintereinander schreiben

[4nG3L]

ömm also ich hab jetzt mal nen bisschen mit der random funktion rumgebastelt aber ich krieg da nichts hin und wenn was im internet steht dann nur mit zahlen =/ könnte mir da vllt nochmal jmd helfen?

[mkinzler]

Random liefert dir eine Zahl zwischen 0 und Range

[4nG3L]

und wie kriege ich es dann hin das er irgendeinen button als richtigen aussucht?

[mkinzler]

Z.B. über die Eigenschaft .Tag. jeder Button bekommt dann einen anderen. Den .Tag vom geklickten Button kannst du dann mit dem "richtigen" vergleichen.

[4nG3L]

ah okay ich probiers mal aus =)

[4nG3L]

ich krieg das nich hin ich bin zu blöd xD könntet ihr mir vllt einen quelltext + erklärung posten? also einen für die buttons =)

[mkinzler]

Weise allen Buttons die selbe Methode bei Klick zu

Delphi-Quellcode:

procedure TForm1.onButtonClick( Sender: TComponent);
begin
    if (Sender as TButton).Tag = <Nummer des richtigen Buttons) then  ...
    ...
end;