Consulta sobre numeros aleatorios

[dr--dre]

hola, soy nuevo en el foro, y
quiero hacerles una consulta sobre el tema de los numeros aleatorios.
nomalmente utilizo el Random y Ramdom.next(0, 10) y esas cosas.
pero es que mirad lo que necesito
quiero una cadena de nuemeros en este sentido

MiCadena = 15 18 20 24 25 29 21 19 17 16

entre 10 y 30, y que no se repitan.
y otra cosa, que quiero saber, es como hacer este procedimiento en esta estructura

Function MiFuncion()
[Codigo]
return

no se si me aga entender, llevo poco en el Visual Basic.

muchas gracias de antemano

[David]

Una forma sería colocar en un array los 30 elementos y luego con Random desordenar ese array, extrayendo los 10 primeros números.

Otra forma es generar un número aleatorio entre 1 y 30 y colocar en un array, cada vez que se genera un nuevo número comprobar si el número todavía no está en el array, y si existe volver a generar otro.

¿Con cuál versión de Visual Basic estás trabajando?

[dr--dre]

el 2005, que creo que es la Version 8, no estoy seguro.
ha perso uso el Visual Basic Express Edition
me parece buena idea la segunda, va mas con este ejercicio,
gracias

[David]

¿Has logrado hacer algo de lo que te comenté?

[Avellaneda]

Iniciado por dr--dre

el 2005, que creo que es la Version 8, no estoy seguro.
ha perso uso el Visual Basic Express Edition
me parece buena idea la segunda, va mas con este ejercicio,
gracias

Hola, prueba con esta función (la pongo bien comentada para que no tengas dudas):

Código:

Public Function Aleatorios(ByVal iNum As Integer, ByVal iInf As Integer, ByVal iSup As Integer) As Integer()
        Dim a() As Integer, i As Integer, j As Integer, x As Integer

        ReDim a(iNum - 1) ' redimensionamos la matriz (el subíndice es cero)
        Randomize()
        For i = 0 To iNum - 1
inicio:
            ' generamos un número aleatorio entre los valores indicados
            x = Int((iSup - iInf + 1) * Rnd + iInf)
            For j = 0 To i
                ' si el número ya existe en el array, lo descartamos
                If x = a(j) Then GoTo inicio
            Next j
            ' no existe, lo añadimos a la matriz
            a(i) = x
        Next i

        ' ordenamos el array (recuperamos las variables anteriores para no asignar nuevas)
        ' Nota: Si no los necesitas ordenados, suprime el siguiente bucle
        x = 1
        While (x = 1)
            x = 0
            For i = 1 To UBound(a)
                If a(i - 1) > a(i) Then
                    j = a(i - 1)
                    a(i - 1) = a(i)
                    a(i) = j
                    x = 1
                End If
            Next i
        End While
        ' devolvemos la matriz generada
        Return a
    End Function

Para llamarla, p.e. desde un Button:

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' parámetros: Cantidad de números, primer número, último número
        ' en este caso: 10 números alatorios sin repetición entre el 10 y el 30
        Dim miArray() As Integer = Aleatorios(10, 10, 30)

        ' los mostramos en un control ListBox (para comprobación)
        Dim i As Integer = 0
        ListBox1.Items.Clear()
        For i = 0 To UBound(miArray)
            ListBox1.Items.Add(miArray(i))
        Next i
    End Sub

[dr--dre]

Iniciado por Avellaneda

Hola, prueba con esta función (la pongo bien comentada para que no tengas dudas):

Código:

Public Function Aleatorios(ByVal iNum As Integer, ByVal iInf As Integer, ByVal iSup As Integer) As Integer()
        Dim a() As Integer, i As Integer, j As Integer, x As Integer

        ReDim a(iNum - 1) ' redimensionamos la matriz (el subíndice es cero)
        Randomize()
        For i = 0 To iNum - 1
inicio:
            ' generamos un número aleatorio entre los valores indicados
            x = Int((iSup - iInf + 1) * Rnd + iInf)
            For j = 0 To i
                ' si el número ya existe en el array, lo descartamos
                If x = a(j) Then GoTo inicio
            Next j
            ' no existe, lo añadimos a la matriz
            a(i) = x
        Next i

        ' ordenamos el array (recuperamos las variables anteriores para no asignar nuevas)
        ' Nota: Si no los necesitas ordenados, suprime el siguiente bucle
        x = 1
        While (x = 1)
            x = 0
            For i = 1 To UBound(a)
                If a(i - 1) > a(i) Then
                    j = a(i - 1)
                    a(i - 1) = a(i)
                    a(i) = j
                    x = 1
                End If
            Next i
        End While
        ' devolvemos la matriz generada
        Return a
    End Function

Para llamarla, p.e. desde un Button:

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' parámetros: Cantidad de números, primer número, último número
        ' en este caso: 10 números alatorios sin repetición entre el 10 y el 30
        Dim miArray() As Integer = Aleatorios(10, 10, 30)

        ' los mostramos en un control ListBox (para comprobación)
        Dim i As Integer = 0
        ListBox1.Items.Clear()
        For i = 0 To UBound(miArray)
            ListBox1.Items.Add(miArray(i))
        Next i
    End Sub

muchas gracias, el codigo esta perfecto, es que precisamente lo necesitaba en ese tipo de estructura