[VB6] Randomizzare gli elementi di un Array

[skjobax]

Io ho questo codice:

Private Sub Deal()
    Dim cards(1 To 52), i As Integer
    
    For i = 1 To 52
        cards(i) = i + 1
    Next i
    cards = Shuffle(cards)
    
    MsgBox cards(5)
End Sub

Si tratta di un esercizio di una guida che ho trovato su Internet.
Shuffle è stata presa da: http://www.freevbcode.com/ShowCode.asp?ID=7399

Il problema è: Perché mi esce questo errore?

Compile error:

Type mismatch: array or user-defined type expected

[oregon]

Quello non è codice VB6 ...

[skjobax]

E come dovrei eseguire in VB6 una Shuffle corretta?

[oregon]

Beh, prova a tradurre quel codice da VB.NET a VB6 ...

[skjobax]

Credo che sia un po' non impossibile, ma improbabile che riesca: VB.NET e VB6 sono linguaggi differenti...

[skjobax]

Ho trovato questo:

Private Sub RandomizeArray()
Dim i As Integer
Dim j As Integer
Dim tmp As Integer

    ' Randomize the array.
    Randomize
    For i = 1 To NumItems - 1
        ' Pick a random entry.
        j = Int((NumItems - i + 1) * Rnd + i)

        ' Swap the numbers.
        tmp = Numbers(i)
        Numbers(i) = Numbers(j)
        Numbers(j) = tmp
    Next i
End Sub

Fonte: http://www.vb-helper.com/howto_randomize_array.html

Come posso tradurlo in funzione che accetta come parametro un Array?

[skjobax]

Ok, ho risolto

' Dichiarazioni
Private cards(1 To 52) As Integer

' Sub Deal
Private Sub Deal()
    Dim i As Integer
    For i = 1 To 52
        cards(i) = i + 1
    Next i
    
    Shuffle
    MsgBox cards(5)
End Sub

'Shuffle
Private Sub Shuffle()
    Dim i As Integer
    Dim j As Integer
    Dim tmp As Integer

    ' Randomize the array.
    Randomize
    For i = 1 To 52 - 1
        ' Pick a random entry.
        j = Int((52 - i + 1) * rnd + i)

        ' Swap the numbers.
        tmp = cards(i)
        cards(i) = cards(j)
        cards(j) = tmp
    Next i
End Sub

Non è una funzione, però modifica direttamente l'array