Close

Ingresar

Por favor, ingresa o regístrate.




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

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

  • aldo

    Chile
  • 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
5672 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
836 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
422 Vistas
Último mensaje 03 de May de 2010, 10:33 am
por Gogeta
 

Powered by SMF 2.0.9 | SMF © 2006–2009, Simple Machines LLC | Mods by SMFSimple.com
Powered by Advanced Topic Prefix Pro | Sitemap | Adk Portal 3.0 © SMF personal | Powered by SMFPacks Likes Pro Mod

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