Close



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

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

Viciado Nivel 1
*
503 Mensajes
148 Temas
0 coins
0 puntos
Actividad
0%
Medallas Totales: 22
Sexto Aniversario Coleccionista de Premios Nivel 5 Quinto Aniversario
* aldo
Mensaje Iniciador
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 

  • 551 Visitas
  • 0 Favoritos


xx
Codigo para generar numeros aleatorios en VB 2010

Iniciado por ∂ιєgσ™

6 Respuestas
5920 Vistas
último mensaje 11 de Mar de 2012, 03:37 pm
por ∂ιєgσ™
xx
[Ayuda] Generar un .ini y cargar los datos

Iniciado por deoxyz08

1 Respuestas
712 Vistas
último mensaje 17 de Abr de 2010, 09:21 pm
por Seeb.
xx
Problemas para generar Archivo .EXE en VB6!!!

Iniciado por Bautty

8 Respuestas
865 Vistas
último mensaje 19 de Mar de 2011, 05:17 am
por Bautty
 

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