lo que pasa es que tengo que hacer es un formato de votaciones de 4 personas
los votos son de forma aleatoria:
num1 = candato 1
num2 = candato 2
num3 = candato 3
num4 = candato 4
form2 y pasarlo a form4
ejemplo
los votos así
4
1
8
3
y el programa me muestra esto
4
1
8
3
pero lo correcto seria:
8
4
3
1
tengo este hecho hasta ahora pero tengo errores no se en que parte ayuda urgente
[code=vbnet]
Dim NUM1, NUM2, NUM3, NUM4 As Integer
Dim MAYOR, MEDIO, MENOR, MEDIO1 As Double
NUM1 = A1
NUM2 = A2
NUM3 = A3
NUM4 = A4
If NUM1 = NUM2 And NUM2 = NUM3 And NUM3 = NUM4 And NUM1 = NUM4 Then
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label11.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label13.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
Else
If NUM1 = NUM2 And NUM2 = NUM3 Then
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label11.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label13.Text
If NUM2 > NUM4 Then
MAYOR = NUM2
MENOR = NUM4
Else
MAYOR = NUM4
MENOR = NUM2
End If
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
Else
If NUM1 = NUM2 And NUM2 = NUM4 Then
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label10.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label11.Text
If NUM2 > NUM3 Then
MAYOR = NUM2
MENOR = NUM3
Else
MAYOR = NUM3
MENOR = NUM2
End If
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label11.Text
Else
If NUM1 = NUM3 And NUM3 = NUM4 Then
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label11.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label10.Text
If NUM1 > NUM2 Then
MAYOR = NUM1
MENOR = NUM2
Else
MAYOR = NUM2
MENOR = NUM1
End If
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label11.Text
Else
If NUM2 = NUM3 And NUM3 = NUM4 Then
'Label10.CAPTION = "SEGUNDO, TERCERO Y CUARTO SON IGUALES"
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label11.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label13.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
If NUM1 > NUM2 Then
MAYOR = NUM1
MENOR = NUM2
Else
MAYOR = NUM2
MENOR = NUM1
End If
'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR
'Label6.CAPTION = "NUMERO MENOR: " & MENOR
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
Else
If NUM1 = NUM2 And NUM3 <> NUM4 Then
' Label10.CAPTION = "PRIMERO Y EL SEGUNDO SON IGUALES"
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label11.Text
If NUM1 > NUM3 And NUM1 > NUM4 Then
MAYOR = NUM1
If NUM3 > NUM4 Then
MEDIO = NUM3
MENOR = NUM4
Else
MEDIO = NUM4
MENOR = NUM3
End If
End If
'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR
'Label6.CAPTION = "NUMERO MEDIO: " & MEDIO
'Label7.CAPTION = "NUMERO MENOR: " & MENOR
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label11.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
Else
If NUM1 = NUM3 And NUM2 <> NUM4 Then
' Label10.CAPTION = "PRIMERO Y EL TERCERO SON IGUALES"
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label13.Text
If NUM1 > NUM2 And NUM1 > NUM4 Then
MAYOR = NUM1
If NUM2 > NUM4 Then
MEDIO = NUM2
MENOR = NUM4
Else
MEDIO = NUM4
MENOR = NUM2
End If
End If
'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR
' Label6.CAPTION = "NUMERO MEDIO: " & MEDIO
' Label7.CAPTION = "NUMERO MENOR: " & MENOR
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label13.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
Else
If NUM1 = NUM4 And NUM2 <> NUM3 Then
'Label10.CAPTION = "PRIMERO Y EL CUARTO SON IGUALES"
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
If NUM1 > NUM3 And NUM1 > NUM2 Then
MAYOR = NUM1
If NUM3 > NUM2 Then
MEDIO = NUM3
MENOR = NUM2
Else
MEDIO = NUM2
MENOR = NUM3
End If
End If
' Label5.CAPTION = "NUMERO MAYOR: " & MAYOR
' Label6.CAPTION = "NUMERO MEDIO: " & MEDIO
' Label7.CAPTION = "NUMERO MENOR: " & MENOR
Else
If NUM2 = NUM3 And NUM1 <> NUM4 Then
' Label10.CAPTION = "SEGUNDO Y TERCERO SON IGUALES
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label11.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label13.Text
If NUM2 > NUM1 And NUM2 > NUM4 Then
MAYOR = NUM2
If NUM1 > NUM4 Then
MEDIO = NUM1
MENOR = NUM4
Else
MEDIO = NUM4
MENOR = NUM1
End If
End If
'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR
'Label6.CAPTION = "NUMERO MEDIO: " & MEDIO
'Label7.CAPTION = "NUMERO MENOR: " & MENOR
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label11.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
Else
If NUM2 = NUM4 And NUM1 <> NUM3 Then
'Label10.CAPTION = "SEGUNDO Y CUARTO SON IGUALES"
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label13.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
If NUM2 > NUM1 And NUM2 > NUM3 Then
MAYOR = NUM2
If NUM1 > NUM3 Then
MEDIO = NUM1
MENOR = NUM3
Else
MEDIO = NUM3
MENOR = NUM1
End If
End If
' Label5.CAPTION = "NUMERO MAYOR: " & MAYOR
' Label6.CAPTION = "NUMERO MEDIO: " & MEDIO
' Label7.CAPTION = "NUMERO MENOR: " & MENOR
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label7.Text = "g"
Form4.Label11.Text = Me.Label13.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
Else
If NUM3 = NUM4 And NUM1 <> NUM2 Then
'Label10.CAPTION = "TERCERO Y CUARTO SON IGUALES"
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label13.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
If NUM3 > NUM1 And NUM3 > NUM2 Then
MAYOR = NUM3
If NUM1 > NUM2 Then
MEDIO = NUM1
MENOR = NUM2
Else
MEDIO = NUM2
MENOR = NUM1
End If
End If
'Label5.CAPTION = "NUMERO MAYOR: " & MAYOR
'Label6.CAPTION = "NUMERO MEDIO: " & MEDIO
'Label7.CAPTION = "NUMERO MENOR: " & MENOR
Form4.Label6.Text = "g"
Form4.Label10.Text = Me.Label10.Text
Form4.Label8.Text = "g"
Form4.Label12.Text = Me.Label11.Text
Form4.Label9.Text = "g"
Form4.Label13.Text = Me.Label14.Text
Else
If NUM1 <> NUM2 And NUM1 <> NUM3 And NUM1 <> NUM4 And NUM2 <> NUM3 And NUM2 <> NUM4 And NUM3 <> NUM4 Then
''Label10.CAPTION = " "
If NUM1 > NUM2 And NUM1 > NUM3 And NUM1 > NUM4 Then
MAYOR = NUM1
If NUM2 > NUM3 And NUM2 > NUM4 And NUM3 > NUM4 Then
MEDIO = NUM2
MEDIO1 = NUM3
MENOR = NUM4
Else
If NUM2 > NUM3 And NUM2 > NUM4 And NUM4 > NUM3 Then
MEDIO = NUM2
MEDIO1 = NUM4
MENOR = NUM3
Else
If NUM3 > NUM2 And NUM3 > NUM4 And NUM2 > NUM4 Then
MEDIO = NUM3
MEDIO1 = NUM2
MENOR = NUM4
Else
If NUM3 > NUM2 And NUM3 > NUM4 And NUM4 > NUM2 Then
MEDIO = NUM3
MEDIO1 = NUM4
MENOR = NUM2
Else
If NUM4 > NUM3 And NUM4 > NUM2 And NUM3 > NUM2 Then
MEDIO = NUM4
MEDIO1 = NUM3
MENOR = NUM2
Else
MEDIO = NUM4
MEDIO1 = NUM2
MENOR = NUM3
End If
End If
End If
End If
End If
ElseIf NUM2 > NUM1 And NUM2 > NUM3 And NUM2 > NUM4 Then
MAYOR = NUM2
If NUM1 > NUM3 And NUM1 > NUM4 And NUM3 > NUM4 Then
MEDIO = NUM1
MEDIO1 = NUM3
MENOR = NUM4
Else
If NUM1 > NUM3 And NUM1 > NUM4 And NUM4 > NUM3 Then
MEDIO = NUM1
MEDIO1 = NUM4
MENOR = NUM3
Else
If NUM3 > NUM1 And NUM3 > NUM4 And NUM1 > NUM4 Then
MEDIO = NUM3
MEDIO1 = NUM1
MENOR = NUM4
Else
If NUM3 > NUM1 And NUM3 > NUM4 And NUM4 > NUM1 Then
MEDIO = NUM3
MEDIO1 = NUM4
MENOR = NUM1
Else
If NUM4 > NUM3 And NUM4 > NUM1 And NUM3 > NUM1 Then
MEDIO = NUM4
MEDIO1 = NUM3
MENOR = NUM1
Else
MEDIO = NUM4
MEDIO1 = NUM1
MENOR = NUM3
End If
End If
End If
End If
End If
ElseIf NUM3 > NUM1 And NUM3 > NUM2 And NUM3 > NUM4 Then
MAYOR = NUM3
If NUM1 > NUM2 And NUM1 > NUM4 And NUM2 > NUM4 Then
MEDIO = NUM1
MEDIO1 = NUM2
MENOR = NUM4
Else
If NUM1 > NUM2 And NUM1 > NUM4 And NUM4 > NUM2 Then
MEDIO = NUM1
MEDIO1 = NUM4
MENOR = NUM2
Else
If NUM2 > NUM1 And NUM2 > NUM4 And NUM1 > NUM4 Then
MEDIO = NUM2
MEDIO1 = NUM1
MENOR = NUM4
Else
If NUM2 > NUM1 And NUM2 > NUM4 And NUM4 > NUM1 Then
MEDIO = NUM2
MEDIO1 = NUM4
MENOR = NUM1
Else
&