Ayuda con la implementación de programa en visual basic para generar números aleatorios
Agradezco de antemano su ayuda.
Quiero generar números aleatorios con la siguientes restricciones: Pedir al usuario el máximo de # aleatorios, pedir al usuario un # de particiones para el # máximo de # aleatorios. Al tener estos 2 # quiero dividir el # máximo de num. Aleatorios entre el # de particiones, guardar el cociente en una variable. Después quiero generar 1 # aleatorio y sumarle el cociente mostrarlo en pantalla, a ese # obtenido sumarle otra vez el cociente, mostrarlo en pantalla y así sucesivamente hasta que se cumpla el # de particiones que yo le di. Ejemplo
Num max = 53
Particiones = 5
Cociente = 10.6
Generar # aleatorio (debe ser menor que 10.6)
num aleat = 6.68956
Al 6.68956 quiero sumarle 10.6 = 17.28
Entonces ami me sirven el 6.68 y el 17.28, aunque yo quiero tómate la parte entera, osea 7 y 12, y así sucesivamente hasta obtener 5 números de los cuales 4 dependen de el 1er num aleatorio.
Quiero generar números aleatorios con la siguientes restricciones: Pedir al usuario el máximo de # aleatorios, pedir al usuario un # de particiones para el # máximo de # aleatorios. Al tener estos 2 # quiero dividir el # máximo de num. Aleatorios entre el # de particiones, guardar el cociente en una variable. Después quiero generar 1 # aleatorio y sumarle el cociente mostrarlo en pantalla, a ese # obtenido sumarle otra vez el cociente, mostrarlo en pantalla y así sucesivamente hasta que se cumpla el # de particiones que yo le di. Ejemplo
Num max = 53
Particiones = 5
Cociente = 10.6
Generar # aleatorio (debe ser menor que 10.6)
num aleat = 6.68956
Al 6.68956 quiero sumarle 10.6 = 17.28
Entonces ami me sirven el 6.68 y el 17.28, aunque yo quiero tómate la parte entera, osea 7 y 12, y así sucesivamente hasta obtener 5 números de los cuales 4 dependen de el 1er num aleatorio.
1 respuesta
Respuesta de jarpsoft
1
Creo que entendí tu programa, generar un aleatorio y luego sumarle el cociente, luego un acumulador.
Bueno el código es el siguiente:
Private Sub Command1_Click()
Dim max, part As Integer
Dim acum, num, cociente As Single
max = Val(Text1.Text)
part = Val(Text2.Text)
cociente = max / part
Text3.Text = Str(cociente)
num = Rnd * cociente
acum = num
List1.AddItem Str(acum)
List2.AddItem Str(Round(acum))
For i = 1 To part - 1
acum = acum + cociente
List1.AddItem Str(acum)
List2.AddItem Str(Round(acum))
Next
End Sub
Private Sub Command2_Click()
End
End Sub
Espero te sirva. Suerte. JarpSoft.
Bueno el código es el siguiente:
Private Sub Command1_Click()
Dim max, part As Integer
Dim acum, num, cociente As Single
max = Val(Text1.Text)
part = Val(Text2.Text)
cociente = max / part
Text3.Text = Str(cociente)
num = Rnd * cociente
acum = num
List1.AddItem Str(acum)
List2.AddItem Str(Round(acum))
For i = 1 To part - 1
acum = acum + cociente
List1.AddItem Str(acum)
List2.AddItem Str(Round(acum))
Next
End Sub
Private Sub Command2_Click()
End
End Sub
Espero te sirva. Suerte. JarpSoft.
Te agradezco mucho tu ayuda, el programa me sirvió a la perfección, solo hice unas pequeñas adaptaciones a mi problema, pero es exactamente lo que quería. Tal vez te andaré molestando nuevamente.
