Numeros aleatorios

[Gleper]

Wnas:
Hace tiempo vi un codigo para generar numeros aleatorios, pero ahora no me acuerdo como se hacia...

Alguien sabe como hacerlo o lo tiene x ahi?

Thnx

[Nork]

Uso de Random:

La función Rnd o Random posee la virtud de obtener números aleatorios entre 0 y 1:

El único inconveniente a la hora de usar Rnd, es que hay que inicializarlo, en otro caso,
el resultado de la función Rnd, será siempre el mismo dentro de un determinado ordenador.
Por ejemplo, el código:


Private Sub Form_Load()
  Dim Num As Double
  Num = Rnd
  MsgBox Num
End Sub

Nos daría como resultado siempre el mismo número.

Para solucionar este problema, debemos escribir la sentencia Randomize antes de llamar
a la función Rnd. De esta manera, la función Rnd actuará correctamente.

El código quedaría así:


Private Sub Form_Load()
  Dim Num As Double
  Randomize
  Num = Rnd
  MsgBox Num
End Sub

http://www.elhacker.net/trucosvisual.htm

Para que no sea de 0 a 1 la sintaxis es la siguiente:

Código [Seleccionar] Expandir

Num=Rnd * "hasta numero"

Y si quieres sacar los decimales:

Código [Seleccionar] Expandir

Num=Int(Rnd * "hasta numero")

[Gleper]

Grax
tmb eh encontrad esto:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim Num As Byte
    Num = Int(255 - 1) * Rnd + 0
    Text1.Text = Num
End Sub


Solucionadop!