Imprimir Página - Funcion Random entre 2 cosas

Título: Funcion Random entre 2 cosas
Publicado por: renga73 en 9 Abril 2008, 23:47 pm

Hola. Nesecito de su ayuda gente.
Por un lado tengo una lista de 10 nombres de varones. Guardados en un ListBox o un ComboBox, me da igual. Y un CommandButton1, al lado.
Y por otro lado una lista de 10 nombres de mujeres. Y un CommandButton2, al lado.

Lo q quiero es q al tildar el boton1, me elija aleatoriamente 1 nombre de la lista de varones y me lo muestre en un Label o un TextBox y al presionar el Boton 2, me haga lo mismo pero con los nombres de mujeres.

Muchas Gracias.
Saludos!

Título: Re: Funcion Random entre 2 cosas
Publicado por: naderST en 10 Abril 2008, 00:18 am

Mira haslo asi:

Código:

Option Explicit

Private Sub Command1_Click()
    Label3.Caption = List1.List(Int(Rnd * List1.ListCount))
End Sub

Private Sub Command2_Click()
    Label4.Caption = List2.List(Int(Rnd * List2.ListCount))
End Sub

Private Sub Form_Load()
    With List1
        .AddItem "Juan"
        .AddItem "Pedro"
        .AddItem "Jose"
        .AddItem "Carlos"
        .AddItem "Cabron"
    End With
    
    With List2
        .AddItem "Juana"
        .AddItem "Petra"
        .AddItem "Josefa"
        .AddItem "Carla"
        .AddItem "p**a"
    End With
End Sub

Título: Re: Funcion Random entre 2 cosas
Publicado por: vivachapas en 10 Abril 2008, 01:46 am

el codigo esta bien... pero si lo dejas asi, siemrpe el primer varon sera Carlos (en mi computadora, en la tuya quizas sea otro...
lo mejor seria asi..

Código:

Option Explicit

Private Sub Command1_Click()
Randomize
    Label3.Caption = List1.List(Int(Rnd * List1.ListCount))
End Sub

Private Sub Command2_Click()
Randomize
    Label4.Caption = List2.List(Int(Rnd * List2.ListCount))
End Sub

Private Sub Form_Load()
    With List1
        .AddItem "Juan"
        .AddItem "Pedro"
        .AddItem "Jose"
        .AddItem "Carlos"
        .AddItem "Cabron"
    End With
    
    With List2
        .AddItem "Juana"
        .AddItem "Petra"
        .AddItem "Josefa"
        .AddItem "Carla"
        .AddItem "p**a"
    End With
End Sub

llamar a Randomize antes del Rnd :P

probalo y decime :P

SALUDOS

Título: Re: Funcion Random entre 2 cosas
Publicado por: renga73 en 10 Abril 2008, 05:41 am

Si me habia dado q cuenta q siempre tiraba el mismo orden.
Con el Randomize se solucionó.
Muchas Gracias, era lo q nesecitaba.
Saludos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: renga73 en 9 Abril 2008, 23:47 pm