Close

Ingresar

Por favor, ingresa o regístrate.




Tema:  [Tutorial] Generar números aleatorios  (Leído 522 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
5736 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
422 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
689 Vistas
Último mensaje 17 de Abr de 2010, 09:21 pm
por Seeb.
 

Powered by SMF 2.0.9 | SMF © 2006–2009, Simple Machines LLC | Mods by SMFSimple.com
Powered by Advanced Topic Prefix Pro | Sitemap | 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