Visual Basic.NET - Random Numerico Con Lista Predeterminada

Pos: 102

Val: 26

Random Numerico Con Lista Predeterminada

Publicado por Davidms (14 intervenciones) el 17/03/2019 20:30:51

Buenas Tarde:
Compañeros Mi Consulta y ayuda es la Siguiente.... Como Puedo desarrollar un Form o el código para que de determinada lista de números ya previa mente Ingresados, por medio de un comanbutton al presionar me muestre algún numero de la Lista en un Textbox...

e usado este código:

Dim Random As New Random()
' generar un random entre 00 y 99
Dim numero1 As Integer = Random.Next(0, 100)
A1.Text = (numero1)

lo malo como ven es que la lista ba del 00 al 99

como explique lo que deseo es que el random lo haga apartir de una lista previa mente ingresada...osea de una lista alojada en DB y mostrada en un datagriw

espero me puedan orientar gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.353

Random Numerico Con Lista Predeterminada

Publicado por Phil Rob (1562 intervenciones) el 17/03/2019 21:42:28

Hola,
Comprendo que tome un dato eligido aleatoriamente desde una lista.
¿es corecto?
En este caso,

NumeroFila = (Now.Millisecond Mod LaLista.Rows.Count) 	'  Aleatoriamente de 0 a Numero de las lineas en DataGridView

NumeroFila = (Now.Millisecond Mod LaLista.Items.Count) 	'  Aleatoriamente de 0 a Numero de las lineas en ListBox

Si no comprendo tu pregunta, quizás un imagen de las listas y de los numeros utilizado podian me informar.

Espero te dar una idea ...

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 102

Val: 26

Random Numerico Con Lista Predeterminada

Publicado por Davidms (14 intervenciones) el 17/03/2019 23:50:48

gracias por tomar su tiempo compañero en ayudar con mi necesidad:
como lo enfocas es como lo ocupo... solo que pasa lo siguiente....

random

si vez la foto es lo siguiente... el datagrid tiene un ejemplo del 0 al 10 (la lista en la que voy a trabajar es del 0 al 99)
cuento con 9 textbox los cuales cuando presione el botón (Random Numerico) el va a tomar números aleatorios de la lista interna del datagrid
y ba a mostrar un numero diferente en cada textbox sin repetirlo

has de cuentas que es como un programa de lotería.. donde hay del 0 a 99 bolitas donde bas a sacar de esa lista 9 bolitas
la base del datagrid viene hacer...un analicis previo de los numeros que salen mas o menos... la cual con base a eso se hace el random

espero haberme explicado y gracias por tu ayuda

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Random Numerico Con Lista Predeterminada

Publicado por Phil Rob (1562 intervenciones) el 18/03/2019 10:19:48

Hola,

Asi, comprendo bien. Tienes que tome un dato eligido aleatoriamente desde una lista, pero tienes hacer 9 veces.
Los codigos que envo ayer estan correctos para esta, excepto el codigo que da aleatoriamente los numeros, mejor es :

Dim IndiceDeLaLinea As Integer

        For i As Integer = 0 To 8

            IndiceDeLaLinea = Microsoft.VisualBasic.Rnd() * 99

            ' Utilizar ListBox1.Items( IndiceDeLaLinea )  ''' pero porque no poner directo en los TextBox ????

        Next

Supuesto que es una ListBox, si es una DataGridView con una sola colona, tiens que reemplazar ListBox1.Items( IndiceDeLaLinea ) para DataGridView.Item(0, IndiceDeLaLinea).Value.
Para no tener duplicos, esta codigo es bueno :

Dim MisNumeros(9) As Integer

        Dim IndiceMisNumeros As Integer = 0

        Dim IndiceDeLaLinea As Integer

        Dim CuantoNumeroBuscar As Integer = 0

        Dim i As Integer

        Microsoft.VisualBasic.Randomize(Now.Millisecond)

        While CuantoNumeroBuscar < 9

            IndiceDeLaLinea = Microsoft.VisualBasic.Rnd() * 9

            For i = 0 To IndiceMisNumeros - 1

                If MisNumeros(i) = IndiceDeLaLinea Then

                    Exit For

                End If

            Next

            If i = IndiceMisNumeros Then

                MisNumeros(IndiceMisNumeros) = IndiceDeLaLinea

                IndiceMisNumeros += 1

                CuantoNumeroBuscar += 1

                ' Utilizar ListBox1.Items( IndiceDeLaLinea )

            End If

        End While

Gracias por diceme como esta functiona ...
Saludos,

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Random Numerico Con Lista Predeterminada

Publicado por Phil Rob (1562 intervenciones) el 18/03/2019 12:32:48

Continuación ...

Para hacer el trabajo sin ListBox ni DataGridView, directo en los 9 texBox :

Dim MisNumeros(8) As Integer

Dim IndiceMisNumeros As Integer = 0

Dim IndiceDeLaLinea As Integer

Dim CuantoNumeroBuscar As Integer = 0

Dim i As Integer

Microsoft.VisualBasic.Randomize(Now.Millisecond)

While CuantoNumeroBuscar < 9

    IndiceDeLaLinea = Microsoft.VisualBasic.Rnd() * 99

    For i = 0 To IndiceMisNumeros - 1

        If MisNumeros(i) = IndiceDeLaLinea Then

            Exit For

        End If

    Next

    If i = IndiceMisNumeros Then

        MisNumeros(IndiceMisNumeros) = IndiceDeLaLinea

        IndiceMisNumeros += 1

        CuantoNumeroBuscar += 1

    End If

End While

TextBox1.Text = MisNumeros(0)

TextBox2.Text = MisNumeros(1)

TextBox3.Text = MisNumeros(2)

TextBox4.Text = MisNumeros(3)

TextBox5.Text = MisNumeros(4)

TextBox6.Text = MisNumeros(5)

TextBox7.Text = MisNumeros(6)

TextBox8.Text = MisNumeros(7)

TextBox9.Text = MisNumeros(8)

Saludos ...

Valora esta respuesta

Comentar

Pos: 102

Val: 26

Random Numerico Con Lista Predeterminada

Publicado por Davidms (14 intervenciones) el 18/03/2019 19:20:25

buenos días:
compañero excelente tu ayuda.. me quedan varias dudas...

1- el código para hacer sin listbox y sin datagrid funciona perfecto (pero el aleatorio necesito hacerlo con lista ya cargada) no puedo hacerlo quemado desde el fuente... entonces el random tiene que venir de una lista ya ingresada previa mente la cual va a mostrar el datagird

2- no entiendo muy bien el código para usar con el datagrid y mostrar en los textbox,.... el codigo quedaria asi dentro de un comanbuton? adjunto imagen...

con los listbox no me llevo... por eso lo estoy programando bajo un datagrid conectado a un ODB con la base numerica

te mando mi proyecto haber si me puedes ayudar... cuando ejecutes el programa metes los numeros manuales en el datagrid y que luego al precionar random los muestre aleatoria mente en los textbox sin repetirlos

gracias por toda tu ayuda y tiempo que dedicas

lop

loto.rar(66,8 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Random Numerico Con Lista Predeterminada

Publicado por Phil Rob (1562 intervenciones) el 18/03/2019 19:59:57

Hola,

En el procedimiento, cargo el DataGridView con una cicla "For", no manualmente ...

El procedimiento del boton carga los TextBox A1, ...

Saludos

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim MisNumeros(8) As Integer

        Dim IndiceMisNumeros As Integer = 0

        Dim IndiceDeLaLinea As Integer

        Dim CuantoNumeroBuscar As Integer = 0

        Dim i As Integer

        Microsoft.VisualBasic.Randomize(Now.Millisecond)

        While CuantoNumeroBuscar < 9

            IndiceDeLaLinea = Microsoft.VisualBasic.Rnd() * 99

            For i = 0 To IndiceMisNumeros - 1

                If MisNumeros(i) = IndiceDeLaLinea Then

                    Exit For

                End If

            Next

            If i = IndiceMisNumeros Then

                MisNumeros(IndiceMisNumeros) = IndiceDeLaLinea

                IndiceMisNumeros += 1

                CuantoNumeroBuscar += 1

            End If

        End While

        A1.Text = DataGridView2.Item(0, MisNumeros(0)).Value

        A2.Text = DataGridView2.Item(0, MisNumeros(1)).Value

        A3.Text = DataGridView2.Item(0, MisNumeros(2)).Value

        B1.Text = DataGridView2.Item(0, MisNumeros(3)).Value

        B2.Text = DataGridView2.Item(0, MisNumeros(4)).Value

        B3.Text = DataGridView2.Item(0, MisNumeros(5)).Value

        C1.Text = DataGridView2.Item(0, MisNumeros(6)).Value

        C2.Text = DataGridView2.Item(0, MisNumeros(7)).Value

        C3.Text = DataGridView2.Item(0, MisNumeros(8)).Value

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        DataGridView2.Columns.Add("LosNumeros", "")

        For i As Integer = 0 To 99      ' Cargar el DataGridView con numeros de 0 a 99

            DataGridView2.Rows.Add(i.ToString)

        Next

    End Sub

End Class

Valora esta respuesta

Comentar

Pos: 102

Val: 26

Random Numerico Con Lista Predeterminada

Publicado por Davidms (14 intervenciones) el 18/03/2019 20:40:27

Excelente era lo que buscaba solo hago la conexion sting a los datos que carga el grid ODB
y me queda perfecto...era lo que ocupaba muchas gracias por su ayuda

eres un crack cualquier duda que me salga de camino sela interpongo muchas gracias

Valora esta respuesta

Comentar

Pos: 102

Val: 26

Random Numerico Con Lista Predeterminada

Publicado por Davidms (14 intervenciones) el 18/03/2019 22:12:09

Compañero estructurando el programa.. me surge esta duda

en la lista que levanta el datagrid habrán números que se repiten en dicha lista ejemplo

1
2
3
3
4
2
4
1
1

el random de la lista pre cargada muestre los numeros en los textbox pero sin repetirlos...
a la hora de presionar el random muestre números de dicha lista pero sin repetirlos
Podrías ayudarme

la base de datos esta en el proyecto la cual se coloca en el escritorio
Gracias por toda tu ayuda

lotooo

loto.rar(232,8 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Random Numerico Con Lista Predeterminada

Publicado por Phil Rob (1562 intervenciones) el 19/03/2019 16:53:20

Hola,

Dos pregruntas :

1. Comprendo que tienes que copiar la columna "Sorteo del dia", sin duplicados (o sin repetirlos), en el DataGridView. ¿Es corecto?
2. Penso que el DataGridView duebe mostrar una sola columna y no todo el base de datos. ¿Es corecto?

...

Valora esta respuesta

Comentar

Pos: 7

Val: 377

Random Numerico Con Lista Predeterminada

Publicado por Giancarlo (488 intervenciones) el 20/03/2019 04:30:36

facil

dim numero as new list(of integer)

dim generado as new list(of string)

dim maximo as integer=21'numero a generar

for i as integer=1 to 100 'agregas los números

numero.add(i)

end for

for j as integer =1 to maximo

nRandom= random(del 0 al numero.count-1)'no recuerdo como se genera el random, pero debes generarlo entre el 0 y el número de elementos del list( numeros)-1

generado.add(numero(nRandom))

numero.removeat(nRandom) 'remover el elemento random que generaste

end for

'luego solo debes agregar la variable generado a textbox, listbox o como gustes

¿que hace el código?
generas o guardas los números en la variable numero, cada vez que generas un random que comprenda el número de elementos de la variable numero, agregará a la variable generado de acuerdo al indice de numero, el cual será el resultado, y como luego vas a eliminar el indice , no se van a repetir

creo que me enredé al explicarlo, pero funciona, además en la variable numero, de esta forma podrás poner los numeros en el orden que desees y no necesariamente ordenado

Valora esta respuesta

Comentar

Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))"

agregar filas en datagridview vb.net