Close



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

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

Viciado Nivel 1
*
503 Mensajes
146 Temas
0 coins
0 puntos
Calificación: 0
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 

  • 575 Visitas
  • 0 Favoritos


xx
Codigo para generar numeros aleatorios en VB 2010

Iniciado por ∂ιєgσ™

6 Respuestas
6068 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
736 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
881 Vistas
último mensaje 19 de Mar de 2011, 05:17 am
por Bautty
 


ir arriba