✔ Erweiterte Rnd-Funktion

[PH234X]

Hi!
Hat jemand ne Idee, wie ich das hinbekomme:

Ich will so einen Script hinkriegen

1. Möglichkeit
Picturebox1.Visible = True
Picturebox2.Visible = False
Picturebox3.Visible = False

2. Möglichkeit
Picturebox1.Visible = False
Picturebox2.Visible = True
Picturebox3.Visible = False

3. Möglichkeit
Picturebox1.Visible = False
Picturebox2.Visible = False
Picturebox3.Visible = True

Davon soll er zufällig eins auswählen...
Hat da jemand ne Idee?

 

[wincnc]

Hallo

Vielleicht so:

Randomize -Timer

Dim z As Integer
z = Int((3 * Rnd) + 1)

Select Case z
  Case 1
    Picturebox1.Visible = True
    Picturebox2.Visible = False
    Picturebox3.Visible = False

  Case 2
    Picturebox1.Visible = False
    Picturebox2.Visible = True
    Picturebox3.Visible = False
    
  Case 3
    Picturebox1.Visible = False
    Picturebox2.Visible = False
    Picturebox3.Visible = True
End Select

 

[PH234X]

Super klappt! Danke!
Könntest du noch ne Erklärung dazu schreiben?
Ich muss nähmlich wissen wie das ganze Aufgebaut ist um es besser anwenden zu können

 

[Masterclavat]

Eigentlich ist der Code doch selbsterklärend. Vielleicht helfen einige Komentare:

Randomize -Timer       'Initialisiert den Zufallsgenerator

Dim z As Integer
z = Int((3 * Rnd) + 1)    'Wählt durch Zufall eine Zahl zwischen 1 und 3

Select Case z             'Hier wird abgefragt, welche Zahl "produziert" wurde
  Case 1      'Wenn 1, dann...
    Picturebox1.Visible = True
    Picturebox2.Visible = False
    Picturebox3.Visible = False

  Case 2      'Wenn 2, dann...
    Picturebox1.Visible = False
    Picturebox2.Visible = True
    Picturebox3.Visible = False
    
  Case 3      'Wenn 3, dann...
    Picturebox1.Visible = False
    Picturebox2.Visible = False
    Picturebox3.Visible = True
End Select