Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
14. Apr 2009
Bin da etwa ich gemeint? :pale: :kotz:
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
na das kannst du sicher ausbügeln ;)
sonst:
CooL!
:arrow: Schön, wenn ich dir helfen konnte
:arrow: Bitte bearbeite den ersten Beitrag und hänge das dort auch an, da viele nur den ersten Beitrag lesen.
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
ja, das war das problem:
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
randomize;
if x = 5 then//hier! es darf nur von 1 bis 5 gehen, dann fängt es von vorne an
begin
BitBtn11.Visible := true;
BitBtn12.Visible := true;
BitBtn13.Visible := true;
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
ja, du musst die buttons nach der jeweiligen zeile nummerieren:
also gilt bei button6 dass 1 die zahl ist und so weiter
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
ahh!
end
else
begin // das hat gefehlt
BitBtn4.Font.Color:= ClRED;
BitBtn4.Caption := 'FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
label27.Caption := 'Fehler: ' + IntToStr(FZaehler);
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
in grüner schrift falsch? das kann ich mir nicht erklären, schau am besten noch mal, ob du bei allen buttons keine tippfehler gemacht hast oder so...
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
dafür musst du da, wo er die zweite zeile sichtbar macht(also wenn er den richtigen button drückt) wieder x := random(4)+1;machen.
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
keine ahnung?!
aber wenn ich nur wissen will, ob eine zahl gleich einer anderen ist, muss ich ja nicht gleich case verwenden oder
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
du musst auch schauen, dass bei den buttons immer die zahl stimmt
if x = 1 then// hier der einser muss verschieden sein
...
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
ok
probiers mal ein paar mal, vielleicht nimmt er ja nicht immer den ersten...
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
alles was passieren soll wenn es der falsche ist, muss zum beep
und das erste random musst du im form create machen:
randomize;
x := random(4)+1;
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
ok dann mach mal eine globale variable x: Integer
dann im form create ereignis:
x := random(4)+1;
dann bei jedem button click:
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...
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
Wie überprüfst du denn, ob der Button richtig ist? Kannst du das bitte mal reinkopieren, dann kann ich dir glaub ich helfen :thumb:
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
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:
..
procedure TForm1.ButtonClick(Sender: TObject);//das solltest du haben
var x: Integer; //hier baust du die variable ein
begin
...
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
so ähnlich hab ichs doch auch oder?
Forum: Software-Projekte der Mitglieder
by Super_Chemiker,
13. Apr 2009
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:
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...