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

[BullsEye]

Hallo und Herzlich Willkommen in der DP

für dein erstes Programm nicht schlecht. GGF könntest du es bissel "verfeinern" Also wenn man auf den richtigen Button klickt, dann
wird dieser Grün oder bekommt ne Andere Caption.Genauso bei den Falschen. Der wird rot, damit man sieht auf welche man schon alles geklickt hat.

[4nG3L]

Danke, gute idee ich setz mich sofort dran =)...aber wie soll ich die farbe der buttons ändern? das hab ich mich schonmal gefragt.

[DeddyH]

Hallo, ich habe mir das Programm jetzt nicht angesehen, aber zu Deiner Frage: definiere Dir einfach ein privates Feld des Formulars für den Zähler. Bei jedem Fehler zählst Du den hoch und schaust, auf welchem Wert er steht. Sind 10 Fehler erreicht, reagierst Du entsprechend. Ein Beispiel aus dem Kopf:

Delphi-Quellcode:

type
  TMainForm = class(TForm)
  ...
  private
    FZaehler: integer;
  ...
  end;

...

procedure TMainForm.TuWas;
begin
  if falsch then
    begin
      inc(FZaehler);
      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;

[craash]

button1.Font.Color:= deinefarbe;

[4nG3L]

thx euch beiden =)


ich hab jetzt aber nen problem mit der farbe...

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Font.Color:= clRed;
button1.Caption := 'Falsch';
windows.Beep(200,200);
end;

ich hab das da jeztz so aber irgentwie ändert er die farbe nicht...

[lbccaleb]

Hallo und Willkommen in der DP!


Sende doch deinen Quellcode mit, so können sich vllt auch noch unerfahrene Programmierer ein wenig "abschauen", und so umfangreich ist der Quellcode ja nicht, das es das nicht verlangen könnte

Aber als erstes Programm nicht schlecht...

mfg

[DeddyH]

Auch die Schriftfarbe ändert sich nicht?

[4nG3L]

nein es ändert sich nichts O.o muss ich vllt nen anderen button nehmen?

also ich habe jetzt sogar versucht die fabe des buttons ganz normal zu ändern also ohn quelltext usw. nur unter den eigenschaften aber da tut sich auch nichts =(

[DeddyH]

Passiert überhaupt nichts? Dann schau doch im OI mal unter "Ereignisse", ob die Methode auch zugewiesen ist.