Visual Basic - separar los datos de un listbox para separarlos en grupos que yo quiera

Life is soft - evento anual de software empresarial
 
Vista:

separar los datos de un listbox para separarlos en grupos que yo quiera

Publicado por sergio (4 intervenciones) el 04/04/2021 13:31:30
Hola buenas tardes, estoy intentando hacer un generador de grupos, me explico, tengo una lista de nombres dentro de un listbox y quiero que se me divida esa lista de forma aleatoria en grupos.
ejemplo si tengo 10 nombres y quiero que se divida en 2 personas por grupo me haga los 5 grupos aleatorios.
espero haberme explicado un saludo y gracias :D
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
Imágen de perfil de Antoni Masana
Val: 1.275
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

separar los datos de un listbox para separarlos en grupos que yo quiera

Publicado por Antoni Masana (463 intervenciones) el 06/04/2021 17:35:54
Seguramente hay mil formas de hacerlo.
Te cuenta la más sencilla de explicar: aplicas un número aleatorio a cada persona los ordenas por ese número y los tomas de dos en dos, primero y segundo, tercero y cuarto, etc.

Saludos.
\\//_
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

separar los datos de un listbox para separarlos en grupos que yo quiera

Publicado por Sahid Ra Gutiérrez Cruz (66 intervenciones) el 08/04/2021 07:22:13
Lo haría de la siguiente manera

1
2
3
4
5
6
7
8
9
10
11
12
13
Grupo = 2
 For tempo= 1 to grupo
  Load list(tempo)
 Next tempo
 
Do while list1(0).listcount >0
 For tempo = 1 to grupo
  Lista= list1(0).listcount * rnd
  List1(tempo).additem list1(0).list(lista)
  Lost1(0).removeitem lista
  If list1(0).listcount = 0 then exit for
 Next tempo
Loop

Solo revisa la sintaxis.

Saludos y felices líneas de programac10n
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