CODE
<?php
$n = rand(0,99999);
echo"$n";
?>
XD Ups, no tube en cuenta que 00000 es lo mismo que 0.
Por cierto, en visual basic se podría crear una función (Rand en este caso) para que creara un número entre el primer y el último valor:
CODE
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Después, mostrarlo con un Command y Label, o Command y Text.
Código completo:
CODE
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Private Sub Command1_Click()
Dim r1 As Single
Dim r2 As Single
Randomize
r1 = Rand(0, 99999)
Text1.Text = r1
End Sub
Venga, es muy sencillo y con un poco de traza podrás crear algo guapo. El problema es que si el número es, por ejemplo: 05943 los zeros a la izquierda no los muestra. Tal cómo conté en php, podrías hacer que cada carácter (0,5,9,4 y 3) fuera una variable distinta.
El código "perfecto" sería este:
CODE
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Private Sub Command1_Click()
Dim r1 As Single
Dim r2 As Single
Randomize
r1 = Rand(0, 9)
r2 = Rand(0, 9)
r3 = Rand(0, 9)
r4 = Rand(0, 9)
r5 = Rand(0, 9)
Label1.Caption = r1 & r2 & r3 & r4 & r5
End Sub
Podrás observar que en todos los lenguajes es todo muy parecido, unos cuantos minutos buscando en Google te ayudarán más de lo que piensas.
QUOTE
Si muestras algo de código de lo que hayas hecho y todavia no te sale, compartelo y aqui te ayudamos, pero no te hacemos la tarea...
Te he hecho los códigos por ser muy sencillos y para que veas de qué va el tema un poco. Por cierto, cuando tengas el "juego de la ONCE" que incluya este código para crear números aleatorios ¿podrás publicarlo? Sin compilar, el source-code.
Un saludazo para la gente de trucoswindows.net, que este foro es la ost**[censurado por el govierno
]
Juego de la ONCE
Jan 28 2006, 09:16 PM
