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

[Jens Hartmann]

Hallo erstmal,

du musste eine eigene Funktion schreiben. So wie Deddy es geschrieben hat.

Delphi-Quellcode:

procedure TMainForm.TuWas; 
begin 
  if Button.Click = Falsch then    //ntürlich deine echte Abfrage
    begin 
      inc(FZaehler); 
      LabelFehler.Caption := IntToStr(FZaehler); //diese Zeile sorgt für die Anzeige 
      if FZaehler > 9 then 
        begin 
          MessageBox(Handle,'Du hast 10 Fehler gemacht, das Spiel wird beendet.','Information',MB_OK or MB_ICONINFORMATION); 
          Close; 
        end; 
    end; 
end;

Wenn du diese Procedure geschrieben hast, betätige mal Shift/Strg/C Gleichzeitig, und die Procedure wird automatisch im Implementationsteil von deinem Programm bekannt gemacht.
Anschließend, musst du diese Funktion von deinem Button.Click aufrufen. In etwa so...

Delphi-Quellcode:

procedure TForm1.Button.Click(Sender: TObject);
begin

Falsch oder Richtig;

TuWas
...
usw. //Button Färbung etc...
end;

Gruß Jens

[4nG3L]

unit uMain; wie kann ich die unit änder? ich bin irgwie voll am verzweifeln obwohl das bestimmt rihtig easy ist xD
meine units heißen immer unit1 oder so

[Jens Hartmann]

Das mit uMain ist nur ein Beispiel. Das ist natürlich dein Unit.

Gruß Jens

[DeddyH]

Die Unit muss nur so heißen wie die Datei ohne Endung. Das kannst Du festlegen, indem Du sie unter dem gewünschten Namen abspeicherst, den Rest macht Delphi automatisch für Dich.

[mkinzler]

Du kannst das beim Speichern angeben

[4nG3L]

ah okay danke leutz =) ich hab jetzt noch nen bissl rumgebastelt und siehe da es klappt xD ich hab was übersehen...^^
ich hab vergessen das label zu ändern xDD

[4nG3L]

so ich hab jetzt alles soweit außer der sache das ich oben ja ein menü habe wo man unter Spiele\Neustarten klicken kann damit das spiel neustartet.... ich hab alles soweit gemacht also so das es genau so aussieht wie vorher es gibt blos ein problem. ich weiß nich wie ich meinen zähler jetzt resetten soll. kann mir da vllt nochmal jmd helfen? =)


thx im voraus =)

[Blackheart]

FZaehler:=0;

[4nG3L]

Klappt Perfekt.. Danke =)

(ich edetiere das hier gleich und dann häng ich mein game noch an muss noch was ändern =))

[Ruio]

Hilfe, bei mir ist ein Button verschwunden
Ich konnte übrigens allfe Felder anklicken, obwohl ich bereits verloren hatte

Man kanns ja im Anhang sehen.