muny
05/09/2009, 11:03
toy haciendo un programa que tire 6 numero al azar al mismo tiempo cuando oprimo el boton, pero kiero que a medida q van salienndo los guarde cada uno en una lista.
Mi problema es q no tengo ni idea de como mostrar los valores en listas :S
x si les sirve dejo el codigo
Dim x As Byte
Dim a(5) As Byte
Dim y As Byte
Private Sub cmdgenerar_Click()
y = y + 1
a(0) = Int(45 - 1) * Rnd + 0
a(1) = Int(45 - 1) * Rnd + 0
a(2) = Int(45 - 1) * Rnd + 0
a(3) = Int(45 - 1) * Rnd + 0
a(4) = Int(45 - 1) * Rnd + 0
a(5) = Int(45 - 1) * Rnd + 0
If a(0) = a(1) Then
Do Until a(1) <> a(0)
a(1) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
If a(2) = a(1) Or a(2) = a(0) Then
Do Until a(2) <> a(0) And a(2) <> a(1)
a(2) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
If a(3) = a(1) Or a(3) = a(0) Or a(3) = a(2) Then
Do Until a(3) <> a(0) And a(3) <> a(1) And a(3) <> a(2)
a(3) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
If a(4) = a(1) Or a(4) = a(0) Or a(4) = a(2) Or a(4) = a(3) Then
Do Until a(4) <> a(0) And a(4) <> a(1) And a(4) <> a(2) And a(4) <> a(3)
a(4) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
If a(5) = a(1) Or a(5) = a(0) Or a(5) = a(2) Or a(5) = a(3) Or a(5) = a(4) Then
Do Until a(5) <> a(0) And a(5) <> a(1) And a(5) <> a(2) And a(5) <> a(3) And a(5) <> a(4)
a(5) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
Label1.Caption = a(0)
Label2.Caption = a(1)
Label3.Caption = a(2)
Label4.Caption = a(3)
Label5.Caption = a(4)
Label6.Caption = a(5)
'Aca devería mostrarlos cada uno en su lista, pero no se como
End Sub
Private Sub cmdsalir_Click()
MsgBox "¿Seguro que quiere salir?", vbQuestion, "Salir"
End
End Sub
P.D.: Uso el 6.0
Desde ya muchas grax
Mi problema es q no tengo ni idea de como mostrar los valores en listas :S
x si les sirve dejo el codigo
Dim x As Byte
Dim a(5) As Byte
Dim y As Byte
Private Sub cmdgenerar_Click()
y = y + 1
a(0) = Int(45 - 1) * Rnd + 0
a(1) = Int(45 - 1) * Rnd + 0
a(2) = Int(45 - 1) * Rnd + 0
a(3) = Int(45 - 1) * Rnd + 0
a(4) = Int(45 - 1) * Rnd + 0
a(5) = Int(45 - 1) * Rnd + 0
If a(0) = a(1) Then
Do Until a(1) <> a(0)
a(1) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
If a(2) = a(1) Or a(2) = a(0) Then
Do Until a(2) <> a(0) And a(2) <> a(1)
a(2) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
If a(3) = a(1) Or a(3) = a(0) Or a(3) = a(2) Then
Do Until a(3) <> a(0) And a(3) <> a(1) And a(3) <> a(2)
a(3) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
If a(4) = a(1) Or a(4) = a(0) Or a(4) = a(2) Or a(4) = a(3) Then
Do Until a(4) <> a(0) And a(4) <> a(1) And a(4) <> a(2) And a(4) <> a(3)
a(4) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
If a(5) = a(1) Or a(5) = a(0) Or a(5) = a(2) Or a(5) = a(3) Or a(5) = a(4) Then
Do Until a(5) <> a(0) And a(5) <> a(1) And a(5) <> a(2) And a(5) <> a(3) And a(5) <> a(4)
a(5) = Int(45 - 1) * Rnd + 0
Loop
Else
End If
Label1.Caption = a(0)
Label2.Caption = a(1)
Label3.Caption = a(2)
Label4.Caption = a(3)
Label5.Caption = a(4)
Label6.Caption = a(5)
'Aca devería mostrarlos cada uno en su lista, pero no se como
End Sub
Private Sub cmdsalir_Click()
MsgBox "¿Seguro que quiere salir?", vbQuestion, "Salir"
End
End Sub
P.D.: Uso el 6.0
Desde ya muchas grax