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]

also irgendwie will das nicht so rihtig noch mal langsam erklären pls

[mkinzler]

Was verstehst du den genau nicht?

[4nG3L]

ich weiß nicht wie ich das mit den tags un dem random() zusammenfügen soll und wo ich das hinpacke

[Super_Chemiker]

Ich hätte das ganz anders gelöst:
randomize; //ins form create dann in die procedure wenn der richtige gedrückt wurde für die nächste zeile, ins form create für die erste:

Delphi-Quellcode:

x := random(5);
case x of 
0: //Hier schreibst du, dass der erste richtig ist
1: //Hier schreibst du, dass der zweite richtig ist
2: //Hier schreibst du, dass der dritte richtig ist
3: //Hier schreibst du, dass der vierte richtig ist
4: //Hier schreibst du, dass der fünfte richtig ist
end;

aus erfahrung kommt die höchste zufallszahl(in dem fall 5) nie.

Wenn das Blödsinn ist, dann sagt es bitte!

mfG

[mkinzler]

Am Besten legst du eine neue private Variable im Formular an. Diese initialisierst du beim Spielstart mit einer Zufallszahl. (Bei 5 Buttons:
Zahl := Random( 4) + 1;

[Super_Chemiker]

so ähnlich hab ichs doch auch oder?

[mkinzler]

Hat sich überschnitten, zudem ist es eine Ergänzung

[4nG3L]

ahh immer noch zu komplizert xD
1. was ist einen persönliche variable
2. wo ist sie
3. wie soll ich das da alles einbauen

ihr müsst bitte genauer erklären da ich delphi noch nicht wirklich behersche

[Super_Chemiker]

wenn ein button gedrückt wird, überprüfst du doch ob er richtig ist?
wenn er richtig ist, dann lässt du die nächste zeile erscheinen und zusätzlich kannst du dann das random einbauen.

die persönliche variable geht so:

Delphi-Quellcode:

..
procedure TForm1.ButtonClick(Sender: TObject);//das solltest du haben
var x: Integer; //hier baust du die variable ein
begin
...

[4nG3L]

Delphi-Quellcode:

x := random(5);
case x of
0: //<-------------
1: //<-------------
2: //<-------------
3: //<-------------
4: //<-------------
end;

wie kann ich hinkriegen das das meine buttons sind? einfach bitbtn1: oder wie?