Close


Compra tu espacio - Publicidad de Temas

Noticias:

Infórmate de los últimos sucesos de nuestra comunidad en Anuncios de la comunidad


Tema: [Tutorial] Generar números aleatorios  (Leído 701 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: 23
Septimo Aniversario Sexto Aniversario Coleccionista de Premios Nivel 5
* aldo
Mensaje Iniciador
17 de Jun de 2008, 09:31 pm
  • Publicar
  • 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 

    • 701 Visitas
    • 0 Favoritos


    Share via facebook Share via linkedin Share via myspace Share via twitter

    xx
    Codigo para generar numeros aleatorios en VB 2010

    Iniciado por ∂ιєgσ™

    6 Respuestas
    6873 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
    960 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
    508 Vistas
    último mensaje 03 de May de 2010, 10:33 am
    por Gogeta
     


    Comentarios de Facebook