Noticias

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

0 Usuarios y 1 Visitante están viendo este tema.
Desconectadoaldo
Viciado Nivel 1
*
Enviar MP
*
Msj Iniciante
Hace 8 años
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
7489 Vistas
Último mensaje Marzo 11, 2012, 01:37:04 pm
por ∂ιєgσ™
xx
Problemas para generar Archivo .EXE en VB6!!!

Iniciado por Bautty

8 Respuestas
987 Vistas
Último mensaje Marzo 19, 2011, 03:17:51 am
por Bautty
xx
Me sale error Al generar .Exe del server

Iniciado por Kevinkillerman

8 Respuestas
547 Vistas
Último mensaje Mayo 03, 2010, 08:33:09 am
por Gogeta
xx
[Ayuda] Generar un .ini y cargar los datos

Iniciado por deoxyz08

1 Respuestas
898 Vistas
Último mensaje Abril 17, 2010, 07:21:24 pm
por Seeb.
xx
Problema con VB6 No puedo Generar el Exe [Imágenes pa qe me ayuden D:]

Iniciado por SaanTeeH

7 Respuestas
2973 Vistas
Último mensaje Mayo 26, 2010, 10:01:51 am
por QUESO
xx
[Tutorial]Parte: 2 ¿Quieres aprender el lenguaje VB.NET 2008?[/Tutorial]

Iniciado por Monroe

5 Respuestas
1812 Vistas
Último mensaje Enero 31, 2010, 04:44:58 pm
por Rodero95