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

[Blackheart]

Soweit ich weiss unterstütz der normale Button das nicht, am besten du nimmst den BitBtn.

[DeddyH]

Stimmt, habe ich auch gerade ausprobiert.

[4nG3L]

ahh danke =)
jetzt nochmal eine frage zu dem zähler: ich wollt ja gerne das der wenn ich auf einen falschen button klicke unten rechts oder irgendwo in einem label einzeigt wie oft ich etwas falsche gemacht habe...und wenn ich 10 mal was falsch gemacht habe das er das spiel sogar schließt.
wie kann ich das machen?

[DeddyH]

Ich greife meinen Code von oben nochmals auf.

Delphi-Quellcode:

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

[lbccaleb]

Delphi-Quellcode:

var
  count; integer;

und dann jeweils wenn du ein falschen Button klickst die Funktion aufrufen:

Delphi-Quellcode:

procedure CheckClose;
  begin;
    if count >= 10 then Close
    else Inc(Count);

  end;

(aus dem Stehgreif gecoded,m eventuell Anpassen...)


EDIT:
Mhh da war wieder einer schneller

[4nG3L]

hab ich ausprobiert hat aber nicht geklappt =( lag meiner meinung nach an dem procedure TMainForm.TuWas;
wie kann ich das wegmachen? oder bin ich jetzt einfach zu blöod =/

ich probier den anderen noch einmal aus=)

(danke für die schnellen antworten)

[DeddyH]

Das TuWas war ja auch nur ein Beispiel, das musst Du natürlich an Deinen Code anpassen.

[4nG3L]

also irgendwie bin ich grade zu blöd... das klappt irgendwie alles nicht... zeigt mir mal pls nen beispiel quelltext wo so ein zähler eingebaut ist plz =)

[DeddyH]

Ein Beispiel mit einem BitBtn und einem Label:

Delphi-Quellcode:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TfrmMain = class(TForm)
    btnCounter: TBitBtn;
    lblFehler: TLabel;
    procedure btnCounterClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FZaehler: Integer;
  public
    { Public-Deklarationen }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnCounterClick(Sender: TObject);
begin
  Inc(FZaehler);
  lblFehler.Caption := 'Fehler: ' + IntToStr(FZaehler);
  if FZaehler > 9 then
    begin
      MessageBox(Handle,'Du hast 10 Fehler gemacht, Tschüss','Information',MB_OK or MB_ICONINFORMATION);
      Close;
    end;
end;

end.

[lbccaleb]

Zitat von DeddyH:

Ein Beispiel mit einem BitBtn und einem Label:

Delphi-Quellcode:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm) //<--- ACHTUNG anpassen an deine Form!!!
    btnCounter: TBitBtn;
    lblFehler: TLabel;
    procedure btnCounterClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FZaehler: Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1; //<--- ACHTUNG anpassen an deine Form!!!

implementation

{$R *.dfm}

procedure TForm1.btnCounterClick(Sender: TObject); //<--- ACHTUNG anpassen an deine Form!!!

begin
  Inc(FZaehler);
  lblFehler.Caption := 'Fehler: ' + IntToStr(FZaehler); //Das Lebel auch so bennen "lblFehler"
  if FZaehler > 9 then
    begin
      MessageBox(Handle,'Du hast 10 Fehler gemacht, Tschüss','Information',MB_OK or MB_ICONINFORMATION);
      Close;
    end;
end;

end.

Leicht erweitert...