Close

Ingresar

Por favor, ingresa o regístrate.




Tema:  [Tutorial] Generar números aleatorios  (Leído 482 veces)

0 Usuarios y 1 Visitante están viendo este tema.

  • aldo

  • Viciado Nivel 1


  • Desconectado
  • *
  • 503
  • 0
  • Premios

  • Coleccionista de Premios Nivel 5 Quinto Aniversario Coleccionista de Premios Nivel 4
  • Actividad

  • 0%
  • + Info
    Nick de registro

  • aldo
    • Ver Perfil
[Tutorial] Generar números aleatorios
« en: 17 de Jun de 2008, 09:31 pm »
Colocar un CommandButton, y dos textbox ( text1 para el minimo y text2 para el máximo )




y insertas este codigo:
Código: [Seleccionar]
Option Explicit 
 
'Función que devuelve el número aleatorio 
'''''''''''''''''''''''''''''''''''''''''''''''''''''' 
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long 
    Randomize ' inicializar la semilla 
    Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo) 
End Function 
 
Private Sub Command1_Click() 
    If Len(Text1) <> 0 And Len(Text2) <> 0 Then 
        'generar un número 
        MsgBox Aleatorio(CLng(Text1), CLng(Text2)), vbInformation 
    End If 
End Sub 
 
Private Sub Form_Load() 
    Text1 = "" 
    Text2 = "" 
End Sub 
 
Private Sub Text1_KeyPress(KeyAscii As Integer) 
    If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then 
       KeyAscii = 0 
    End If 
End Sub 
 
Private Sub Text2_KeyPress(KeyAscii As Integer) 
    If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then 
       KeyAscii = 0 
    End If 
End Sub 



xx
Codigo para generar numeros aleatorios en VB 2010

Iniciado por ∂ιєgσ™

6 Respuestas
5235 Vistas
Último mensaje 11 de Mar de 2012, 03:37 pm
por ∂ιєgσ™
xx
Me sale error Al generar .Exe del server

Iniciado por Kevinkillerman

8 Respuestas
409 Vistas
Último mensaje 03 de May de 2010, 10:33 am
por Gogeta
xx
[Ayuda] Generar un .ini y cargar los datos

Iniciado por deoxyz08

1 Respuestas
634 Vistas
Último mensaje 17 de Abr de 2010, 09:21 pm
por Crimson Ghost
 

¡'Adblock' detectado!

¡Ops!, parece que estás usando Adblock.

Para poder usar KekoMundo con normalidad, debes desactivarlo. ¿Cómo?

1. Haz click sobre el icono de adblock

2. Desactívalo para KekoMundo :-)

3. ¡Listo! Gracias por ayuda a KekoMundo

4. Recarga la página

5. Saber más ...

ir arriba
SimplePortal 2.3.5 © 2008-2012, SimplePortal