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]

Hier hast du noch was zum grübeln, schnell mal zusammengetippt geht sicherlich auch einfacher.

[Super_Chemiker]

Wie überprüfst du denn, ob der Button richtig ist? Kannst du das bitte mal reinkopieren, dann kann ich dir glaub ich helfen

[4nG3L]

eigentlich garnicht xD ich hab nur geschrieben das wenn man auf den button klickt das der dann die nächsten sichtbar macht

[lbccaleb]

Zitat von Super_Chemiker:

Wie überprüfst du denn, ob der Button richtig ist? Kannst du das bitte mal reinkopieren, dann kann ich dir glaub ich helfen

Hat er doch in diesem Post HIER

[Super_Chemiker]

ok dann mach mal eine globale variable x: Integer dann im form create ereignis:
x := random(4)+1; dann bei jedem button click:

Delphi-Quellcode:

if x = 1 then//hier schreibst du die zahl des buttons in deiner zeile, also zwischen 1 und 5
begin
//hier machst du die gesamte zeile 2 sichtbar
x := random(4)+1//du machst eine neue zufallszahl
else
beep...

[4nG3L]

also ich habs jetzt so versucht

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);


begin
BitBtn1.Font.Color:= ClRED;
BitBtn1.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
  label27.Caption := 'Fehler: ' + IntToStr(FZaehler);
  if FZaehler > 9 then
  begin
   If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes
   then
   Neustarten1.Click
   else
   Close;
end;
if x = 1 then
BitBtn6.Visible := true;
BitBtn7.Visible := true;
BitBtn8.Visible := true;
BitBtn9.Visible := true;
BitBtn10.Visible := true;
x := random(4)+1
else
windows.beep(200,400);
end;

so maht der aber nichts random wenn ich jetzt auf den ersten button klicke dann nimmt er gleich den

[Super_Chemiker]

alles was passieren soll wenn es der falsche ist, muss zum beep
und das erste random musst du im form create machen:

Delphi-Quellcode:

randomize;
x := random(4)+1;

[4nG3L]

ja ich hab ja
windows.beep(200,400);
zum beep geschrieben da erstmal nicht mehr passieren soll also zum test.
ich hab das

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Label25.Caption:=FormatDateTime('dd.mm.yyyy', Now);
KeyPreview := True;
Label28.Caption := TimeToStr(Now);
randomize;
x := random(4)+1;
end;

so sieht mein form create aus ist das wenigstens so richtig?

[Super_Chemiker]

ja, glaub schon.

[4nG3L]

die ersten 5 buttons sind aber nicht random da ist immer 3 der richtige