generador de numeros aleatorios en VB

[Bertin]

Aqui os mando una solucion muy sencilla para la generacion de numeros aleatorios q funciona perfectamente. La funcion randomize sirve para inicializar el generador sino os hara siempre la misma cadena de nºs aleatorios. Despues simplemete es la siguiente sintaxis:
           num_aleatorio=((lim_superior-lim_inferior)*rnd)
           
Ejemplo de num aleatorio del 1 al 10:

   

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim num As Integer
    Math.Randomize
    num = ((10 - 0) * Rnd)
    Text1.Text = num
End Sub

ASI DE SENCILLO NO OS KOMAIS MAS EL kOKO!!
bueno espero q os sirva de ayuda.

[BADBYTE-K]

form.show

apoyo a unravel en lo que dice

[Monica_si]

Hola! Yo necesito saber si existe alguna forma de crear numeros aleatorios pero sin utilizar la funcion random,por favor ayudenme! 

[Benni]

aqui uno  q hice

Código [Seleccionar] Expandir


Randomize
Form1.ns1 = Int((Rnd() * 8) + 1)
Form1.ns2 = Int((Rnd() * 8) + 1)

Do While Form1.ns2 = Form1.ns1
     Form1.ns2 = Int((Rnd() * 8) + 1)
Loop

Form1.ns3 = Int((Rnd() * 8) + 1)
Do While Form1.ns3 = Form1.ns1 Or Form1.ns3 = Form1.ns2
   Form1.ns3 = Int((Rnd() * 8) + 1)
Loop

Form1.ns4 = Int((Rnd() * 8) + 1)
Do While Form1.ns4 = Form1.ns1 Or Form1.ns4 = Form1.ns2 Or Form1.ns4 = Form1.ns3
   Form1.ns4 = Int((Rnd() * 8) + 1)
Loop

genera cuatro numeros aleatorios diferentes entre 0 y 9
solo necesitan cuatro textbox y esto lo ponen en form_load

[Dark_Knight]

hola

Alguien me podria decir como hacer un generador de numeros y letras

 

[ferris]

hola es la primera vez que me conecto con este foro y es exelente son de gran ayuda , quisiera saber com puedo llenar una grilla con numeros aleatorios

[NYlOn]

Alguien me podria decir como hacer un generador de numeros y letras

para generar letras aleatoriamente, podrias asignarle una letra a cada numero
aca hice una pequeña demostracion

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim Num As Long
Dim Letra As String
Randomize 'para que no nos de siempre la misma cadena
Num = Rnd * 3 'al 3 lo tenes que cambiar por la cantidad de letras que hay
Select Case Num
   Case "1" 'si el numero aleatorio (Num) es 1
   Letra = "A" 'la Letra es A
   Case "2"
   Letra = "B"
   Case "3"
   Letra = "C"
End Select
Text1.Text = Letra 'Pone la letra aleatoria en un TextBox
End Sub


espero que te sirva :

quisiera saber com puedo llenar una grilla con numeros aleatorios

soy de Argentina, a que te referis con grilla ?? XD
si lo que keres es llenar un textbox siempre con la misma cantidad de numeros seria asi:

Código [Seleccionar] Expandir


Dim Num As Long
Math.Randomize
Num = Int(1000 - 100) * Rnd + 100
Text1.Text = Num


solo saldran numeros de 3 sifras
si no aclare tu duda, por favor postea de vuelta ^^

un abraz0

G0nz4

[desnut]

Buenas, a todos. Estoy intentando hacer un programa que genere numeros aleatorios.
De momento e conseguido que genere numeros aleatorios con el codigo expuesto en este post y ahora me interesaria que el programa comparara los numeros y dijera cual es el primer numero que sale repetido mas veces, cual es el segundo numero que sale mas veces despues del primero y cual es el 3r numero repetido que sale mas veces.

de momento esto es lo mas aproximado.

Private Sub Command1_Click()
    Dim num As Integer
    Math.Randomize
    num = ((36 - 0) * Rnd)
    Text1.Text = num
    List1.AddItem Text1.Text
End Sub

Cuando genera los numeros los apunta en el listbox, la cuestion seria que sacara los 3 resultados de los numeros que mas veces se repiten en 3 texbox distintos por ejemplo,
No hace falta decir que he buscado por el tito google y por todas partes y no e encontrado nada, gracias de antemano .

[seba123neo]

desnut,hombre,reviviste un post de 3 años  ,pregunta en uno nuevo...

[abel_c_b]

Las cosas que uno hace