Visual Basic - ayuda programa emparejamiento

Life is soft - evento anual de software empresarial
   
Vista:

ayuda programa emparejamiento

Publicado por Gilberto (1 intervención) el 25/01/2011 06:13:19
Hola amigos, me gustaria crear un programa en el q metiendo los nombres de determinados competidores los sortee para q qeden en parejas en modo de competicion por ejemplo meto a juan, roberto, miguel y omar y el resultado sea:
juan vs miguel
roberto vs omar

y asi sucesivamente, espero me puedan ayudar, saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda programa emparejamiento

Publicado por Christian (666 intervenciones) el 26/01/2011 03:03:35
Hice algo a ver si es lo que necesitabas ...

modificalo a tu necesidad !!!

Dim c As New Collection
Private Sub Command1_Click()

c.Add "Juan"
c.Add "Pedro"
c.Add "Jose"
c.Add "Manuel"
c.Add "Antonio"
c.Add "Ignacio"
c.Add "Tomas"
c.Add "Lucas"

Sortear (c.Count)
End Sub

Function Sortear(Numero As Long)

Dim Sorteo() As Integer
Dim n As Long, i As Long

ReDim Sorteo(Numero) As Integer

For i = LBound(Sorteo()) + 1 To UBound(Sorteo())
n = i
Do
n = n - 1

If Sorteo(i) = Sorteo(n) Then
Sorteo(i) = Int(((Numero + 1) * Rnd) + 0)
n = i
End If
Loop Until n = 0
Next

For i = LBound(Sorteo()) + 1 To UBound(Sorteo())
List1.AddItem c.Item(Sorteo(i))
Next
For i = LBound(Sorteo()) To UBound(Sorteo()) - 1 Step 2

List2.AddItem List1.List(i) & " vs " & List1.List(i + 1)

Next
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar