RESPUESTA A LA PREGUNTA 1075 - VISUAL BASIC


Esta rutina la escribí el otro día para un programa que maneja circuitos
electricos mediante el puerto paralelo. La rutina depende de los valores
posicionales del nro. binario, esta en particular trabaja solo hasta el
255 (decimal) o séa 8 valores posicionales binarios, si tu quieres trabajar
con números mayores tendrás que hacer la división por 256 para 9 valores
posic. y así sucesivamente...

Espero te ayude.

If mandar = 32 And 63 Then
            primero = mandar \ 32
            residuo = mandar Mod 32
            seis = primero
            cinco = residuo \ 16
            residuo = residuo Mod 16
            cuatro = residuo \ 8
            residuo = residuo Mod 8
            tres = residuo \ 4
            residuo = residuo Mod 4
            dos = residuo \ 2
            residuo = residuo Mod 2
            uno = residuo \ 1
            residuo = residuo Mod 1
        End If
         If mandar >= 64 And 127 Then
         
            primero = mandar \ 64
            residuo = mandar Mod 64
            siete = primero
            seis = residuo \ 32
            residuo = residuo Mod 32
            cinco = residuo \ 16
            residuo = residuo Mod 16
            cuatro = residuo \ 8
            residuo = residuo Mod 8
            tres = residuo \ 4
            residuo = residuo Mod 4
            dos = residuo \ 2
            residuo = residuo Mod 2
            uno = residuo \ 1
            residuo = residuo Mod 1
        End If
        If mandar > 128 Then
            primero = mandar \ 128
            residuo = mandar Mod 128
            ocho = primero
            siete = residuo \ 64
            residuo = residuo Mod 64
            seis = residuo \ 32
            residuo = residuo Mod 32
            cinco = residuo \ 16
            residuo = residuo Mod 16
            cuatro = residuo \ 8
            residuo = residuo Mod 8
            tres = residuo \ 4
            residuo = residuo Mod 4
            dos = residuo \ 2
            residuo = residuo Mod 2
            uno = residuo \ 1
            residuo = residuo Mod 1
        End If
        
            If uno = 1 Then
                Shape1.BackColor = &HFF00&
            Else
                Shape1.BackColor = &HFFFFFF
            End If
                
            If dos = 1 Then
                Shape2.BackColor = &HFF00&
            Else
                Shape2.BackColor = &HFFFFFF
            End If
            If tres = 1 Then
                Shape3.BackColor = &HFF00&
            Else
                Shape3.BackColor = &HFFFFFF
            End If
            If cuatro = 1 Then
                Shape4.BackColor = &HFF00&
            Else
                Shape4.BackColor = &HFFFFFF
            End If
            If cinco = 1 Then
                Shape5.BackColor = &HFF00&
            Else
                Shape5.BackColor = &HFFFFFF
            End If


Pablo Ces
Pablo@multi.com.uy