Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: creiko en 18 Septiembre 2016, 05:40 am



Título: error en el orden de 4 números al azar de mayor a menor
Publicado por: creiko en 18 Septiembre 2016, 05:40 am
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
                                              &