Close

Ingresar

Por favor, ingresa o regístrate.




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

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

  • aldo

  • Viciado Nivel 1


  • Desconectado
  • *
  • 503
  • 0
  • Premios

  • Sexto Aniversario Coleccionista de Premios Nivel 5 Quinto Aniversario
  • 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
5431 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
816 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
417 Vistas
Último mensaje 03 de May de 2010, 10:33 am
por Gogeta
 

Mods by SMFSimple.com

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