Spiel-Automat

[Wargrave]

Halli Hallo!
Ich melde mich mal wieder nach langer Zeit! Frohes Neues Jhr erstmal.
Ich habe ein Problem...
Ich will einen Spielautomaten programmieren.
Das heißt ich habe drei Felder, in denen jeweils 5 Bilder sind.
Es gibt also 5 images.
Das erste ist eine eins....und so weiter... bis 4 und eins mit Sonne.
Ein Timer soll die Bilder quasi zufallsmäßig wechseln.
Durch einen Start/Stopp Button muss man den Timer starten oder stoppen.
So dass dann auch drei gleiche, drei verschiedene oder so erscheien können.
Also wie kann man mit random-Befehl zufallsmäßig Bilder visible oder so machen?
Mfg Danke schonmal
Patrick

[Wuaegner]

Hi,
mit randomize; dann mit random(Obergrenze der Zahl) eine Zufallszahl bilden und dann z.B eine case - Abfrage:

Code:

case zahl of
        '1': begin
             Mache BIld so und so da und da hin oder auch nicht ^^
             end;
        '2': begin
             usw.

end;

[glkgereon]

du könntest eine zufallszahl 1-5 machen für jede zeile und dann sagen

TImage(FindComponent('Image'+IntToStr(Zufallszahl)+'_Spalte1')).Visible:=True;

[Wargrave]

Hmm vielen Dank aber ich bin absoluter laie!
Also was muss ich noh tun also das mit dem case kenn ich garnet.

[Wuaegner]

Code:

var zahl: integer;
begin
 randomize;
  zahl:= random(5); // Zahl zwischen -1 und 5 wird erzeugt, also 0,1,2,3 oder 4
  case zahl of
               '0': begin
                    ImageZahl1.visible:= true;
                    end;
               '1': begin
                    ImageZahl2.visible:= true;
                .
                .
                .
               
               '4': begin
                    ImageZahl5.visible:= true;
                    end;   
  end;
end;

[edit] Kommentar korrigiert [/edit]

[malo]

@Wuagner: Bitte verwende die [delphi] Tags statt den [code] tags

Außerdem kann man bei deinem Code die begins und ends weglassen. Allerdings hast du einen wichtigen Faktor vergessen: du machst mit dem Code nur Images sichtbar, aber keine unsichtbar, wo ja der eigentliche Sinn darin liegt.

Also müssen die begins und ends bleiben, es muss jedoch in jedem von diesen Anweisungsblöcken alle anderen Images unsichtbar gemacht werden

//edit: außerdem hast du als Kommentar geschrieben "eine Zahl zwischen 0 und 5 wird erzeugt" <-- falsch. Es wird entweder eine zwischen -1 bis 5, oder eine von 0 bis 4 erzeugt

[paresy]

man könnte auch eine TImagelist nehmen und von der die bilder in die einzelenen image controls kopieren. das würde den aufwand mit den vielen images verhindern und da man dort eh nen index hat ist es mit dem random auch ganz einfach

kannst ja einfach mal nen wenig nacht TImagelist googlen

[Wuaegner]

@malo,
Er kannte die case-Anwendung nicht drum hab ich eine Beispielanwendung geschrieben. Dass man begins und ends bei einzelnen Anweisungen weglassen kann aber nicht muss interessiert hier doch niemanden.
Wie du schon gesagt hast kommen da bei ihm sowieso noch andere Anweisungen rein, also braucht er sie.
Bei "zwischen 0..5" hast du allerdings recht.