Fecha del Tema: 2012-06-17 00:27:26

Para utilizar randomize vamos ah usar un ejemplo muy claro.
Haremos de cuenta que tenemos que mezclar una baraja y repartir cartas
diferentes por cada mano que juguemos.
Ejemplo de la clase baraja:
<?// esto no va
Public Class Baraja
    Dim Carta(51) As Carta
    Dim numaleatorio(51) As Integer
    Dim value As Integer
    Dim cnt = 0
    Public Function Repartir() As Carta()
        Randomize()// se inicia la semilla
        For index = 0 To 51
            value = CInt(51 * Rnd() + 0)// se genera el numero aleatorio
            numaleatorio(index) = value
            For i = 0 To 51
                If value = numaleatorio(i) Then
                    cnt += 1
                End If
            Next
            If cnt < 2 Then
                Carta(index) = New Carta(value)               
Carta(index).numeropalocarta()
            Else
                index -= 1
            End If
            cnt = 0
        Next
        Return Carta
    End Function
End Class
?>// esto no va
Cuando llamen a la clase baraja.repartir() esta retornara una baraja de 52
cartas mezcladas y todas por supuesto diferentes.