RandomizeRésolu

Question

Hello world !
Bon voici mon probl&#232;me : je suis sur la cr&#233;ation d'un jeu, et il me faut un moyen d'obtenir 6 nombre al&#233;atoires compris entre 1 et 16 inclus, tous diff&#233;rents les uns des autres.
Voici mon code actuel, qui me pose bien des probl&#232;mes car je n'arrive que rarement a obtenir les 6 nombres diff&#233;rents attendu :

randomize()
        For i = 0 To 6
            inutilisable(i) = CInt(Int((Rnd() * 16) + 1))
        Next
        For i = 1 To 6
            For i2 = 1 To 6
                If i <> i2 Then
                    If inutilisable(i) = inutilisable(i2) Then
                        inutilisable(i2) = CInt(Int((Rnd() * 16) + 1))
                    End If
                End If
            Next i2
        Next i

comme vous pouvez le voir, ce code n'est pas vraiment super ... m&#234;me si dans certains cas il s'av&#232;re utile, il peut arriver qu'il affecte a une des cases du tableau une valeur pass&#233;es, et donc sans possibilit&#233; de changement.

Quelqu'un pourrait-il me d&#233;panner?
merci d'avance ^_^  #Un cerveau Lent en perdition#

PCPT · Accepted Answer

salut ' nécessite un Command1 Option Explicit ' Dim aTabSeries(1 To 16) As Integer Dim aSuites() As Integer ' ' Private Sub Form_Load() Randomize End Sub ' ' Private Sub Command1_Click() ' init Dim i As Integer, iRnd As Integer For i = 1 To 16 aTabSeries(i) = i Next i ' redim résultats ReDim aSuites(1 To 6) Dim Message As String: Message = "" '<- pour l'exemple ' on créé le tableau de résultat en "désactivant" ceux trouvés For i = 1 To 6 aSuites(i) = 0 While aSuites(i) = 0 iRnd = Int (16 * Rnd) + 1) If aTabSeries(iRnd) <> 0 Then aSuites(i) = aTabSeries(iRnd) aTabSeries(iRnd) = 0 Message = Message & CStr(aSuites(i)) & vbCrLf End If Wend Next i MsgBox Message End Sub Coloration syntaxique automatique [AFCK]

cs_Kite37 · Answer

oups dsl du flood mais dans la premier if, il s'agit de :  For i 1 To 6  et non pas   For i 0 To 6
voil&#224; ^ ^

cs_Kite37 · Answer

woaw merci excellent syst&#232;me qui marche a la perfection :) et dire qu'a une variable pr&#232;s j'avais tent&#233; ce truc ... ^ ^'
merci beaucoup de votre aide vous m'&#244;tez une bonne &#233;pine du pied ^ ^

cordialement, #un cerveau lent (&#169;)#

Randomize

3 réponses

Discussions similaires