3 verschillende getallen met RND

Status
Niet open voor verdere reacties.

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
(VB6)
Dag
met deze worden 3 getallen gegenereerde met RND
Code:
Private Sub Command1_Click()
Randomize
   
  Text1.Text = Int(Rnd * 9) + 1
  Text2.Text = Int(Rnd * 9) + 1
  Text3.Text = Int(Rnd * 9) + 1
End Sub
hoe kan ik voorkomen dat , bij elke 'trekking', nooit een gelijk getal krijg tussen de drie ?
Ik heb aan een IF Then gedacht maar ik kon geen goede formule bedenken.
dank u
 
Laatst bewerkt:
Zoiets:
Code:
Private Sub Command1_Click()
    Dim Cijfers As String
    Dim Cijfer As Integer
    Randomize
    
    For i = 0 To 2
        Cijfer = Int(Rnd * 9) + 1
        While InStr(1, Cijfers, Cijfer) > 0
            Cijfer = Int(Rnd * 9) + 1
        Wend
        Cijfers = Cijfers & Cijfer
    Next i

    Text1.Text = Left(Cijfers, 1)
    Text2.Text = Mid(Cijfers, 2, 1)
    Text3.Text = Right(Cijfers, 1)
End Sub
 
Laatst bewerkt:
Prachtig, Edmoor.
Het werkt perfect.
Ik had het bijna opgegeven.
bedankt voor de oplossing.
satriano
ps. ik ga ook uw code bestuderen om uw aanpak
te begrijpen en eventueel te uitbreiden.
Nogmaals dank
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan