Close

Ingresar

Por favor, ingresa o regístrate.




Tema:  [Tutorial] Generar números aleatorios  (Leído 470 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
4963 Vistas
Último mensaje 11 de Mar de 2012, 03:37 pm
por ∂ιєgσ™
xx
Problemas para generar Archivo .EXE en VB6!!!

Iniciado por Bautty

8 Respuestas
758 Vistas
Último mensaje 19 de Mar de 2011, 05:17 am
por Bautty
xx
Me sale error Al generar .Exe del server

Iniciado por Kevinkillerman

8 Respuestas
393 Vistas
Último mensaje 03 de May de 2010, 10:33 am
por Gogeta
 


Users found this pages searching for:

¡'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