[SOLUCIONADO] Simplificar código

[truskyvb]

Hola,

Me gustaría simplificar un código, pero no lo consigo. Si podéis ayudarme, sería de gran ayuda porque el código se hace muy largo y no va ágil.

Son tres filas por tres columnas y opero con el Tag.

La columna Label3(0) Label4(0) Label5(0) son un grupo.
La columna Label3(1) Label4(1) Label5(1) son otro grupo.
La columna Label3(2) Label4(2) Label5(2) son otro grupo.

Como no tienen porque ir en ese orden tengo que hacer todas las combinaciones que se dan, que en este caso son 6.

Ejemplo de lo que quiero decir:

La columna Label4(0) Label3(0) Label5(0) son un grupo.
La columna Label4(1) Label3(1) Label5(1) son otro grupo.
La columna Label4(2) Label3(2) Label5(2) son otro grupo.

La columna Label5(0) Label4(0) Label3(0) son un grupo.
La columna Label5(1) Label4(1) Label3(1) son otro grupo.
La columna Label5(2) Label4(2) Label3(2) son otro grupo.

En otro apartado del trabajo son cuatro filas por cuatro columnas,
con lo que las combinaciones son 20.

No me vale sumar el valor de los Tag, porque un Tag 2 significa una respuesta distinta a otro Tag 2.
Parte del código a modo de ejemplo:

Código:

Private Sub Command1_Click()
If Label3(0).Tag = 1 And Label3(1).Tag = 2 And Label3(2).Tag = 3 Then
If Label4(0).Tag = 1 And Label4(1).Tag = 2 And Label4(2).Tag = 3 Then
If Label5(0).Tag = 1 And Label5(1).Tag = 2 And Label5(2).Tag = 3 Then
Bien.Visible = True
End If
End If
End If
'-------------------------
If Label3(0).Tag = 1 And Label3(1).Tag = 3 And Label3(2).Tag = 2 Then
If Label4(0).Tag = 1 And Label4(1).Tag = 3 And Label4(2).Tag = 2 Then
If Label5(0).Tag = 1 And Label5(1).Tag = 3 And Label5(2).Tag = 2 Then
Bien.visible = True
End If
End If
End If
'-------------------------
If Label3(0).Tag = 2 And Label3(1).Tag = 1 And Label3(2).Tag = 3 Then
If Label4(0).Tag = 2 And Label4(1).Tag = 1 And Label4(2).Tag = 3 Then
If Label5(0).Tag = 2 And Label5(1).Tag = 1 And Label5(2).Tag = 3 Then
Bien.Visible = True
End If
End If
End If
'-------------------------
End Sub

Espero haberme sabido explicar.

Gracias de antemano.

Un saludo,

[pkj]

No me queda muy claro pero creo que seria algo asi:

Código vb:

dim f as integer
bien.visible=True
for f=0 to 2
  If Label3(f).Tag <> Label4(f).Tag or Label4(f).Tag <> Label5(f).Tag 
    then bien.visible=false ' si una falla se apaga el "bien"
    exit for ' y salimos para no perder tiempo
  end if
next f
 

Si no se admiten valores repetidos habria que añadir otra comparacion:

Código vb:

dim f as integer
 
  If Label3(0).Tag <> Label3(1).Tag and Label3(1).Tag <> Label3(2).Tag and Label3(0).Tag <> Label3(2).Tag then
 
bien.visible=True
for f=0 to 2
  If Label3(f).Tag <> Label4(f).Tag or Label4(f).Tag <> Label5(f).Tag then
    bien.visible=false ' si una falla se apaga el "bien"
    exit for ' y salimos para no perder tiempo
  end if
next f
 
end if
 

Saliendo de la funcion cuando se sabe que hay error aceleras mucho la cosa.
De todas formas si usas matrices para guardar los valores seguro que se ejecuta mas rapido que con los Tag de labels.

Saludos

[truskyvb]

Hola pkj, gracias por la ayuda.

Tomando tu código, al final quedó así y funciona correctamente;

Código:

For i as integer
For i = 0 To 2
If Label3(i).Tag <> Label4(i).Tag Or Label4(i).Tag <> Label5(i).Tag Then
' si una falla se puede poner una condición"
Exit For ' y salimos para no perder tiempo
Else


If Label3(0).Tag <> Label3(1).Tag And Label3(1).Tag <> Label3(2).Tag And Label3(0).Tag <> Label3(2).Tag Then

If Label4(0).Tag <> Label4(1).Tag And Label4(1).Tag <> Label4(2).Tag And Label4(0).Tag <> Label4(2).Tag Then

If Label5(0).Tag <> Label5(1).Tag And Label5(1).Tag <> Label5(2).Tag And Label5(0).Tag <> Label5(2).Tag Then

' Una vez que los Tag en la misma Label son distintos compruebo que sean iguales por grupos

'Ejemplo de grupo:

' Label3(0)    PAPÁ        /    Label3(1)   MAMÁ    /    Label(2)    HIJO
' LabelL4(0)  HOMBRE  /     Label4(1)   MUJER   /    Label4(2)  NIÑO
' Label5(0)    CARLOS   /     Label(1)     MARÍA   /    Label4(2)  JUAN

If Label3(0).Tag = Label4(0).Tag And Label3(0).Tag = Label5(0).Tag Then
If Label3(1).Tag = Label4(1).Tag And Label3(1).Tag = Label5(1).Tag Then
If Label3(2).Tag = Label4(2).Tag And Label3(2).Tag = Label5(2).Tag Then

' Cómo se cumplen todas las condiciones:

Bien.visible=true
End If
End If
End If
End If
End If
End If

Next i
End if

Gracias.

Un saludo,