PIC BASIC ¿alguna forma de hacer mas simple esto?

[Jeronimo17]

Hola tengo 8 led y etapa de triac en serie con optoacopladores conectados al pic16f876A.

Conectado de esta forma:

Led1 PORTA.0
Led2 PORTA.1
Led3 PORTA.2
Led4 PORTA.3
Led5 PORTB.5
Led6 PORTA.5
Led7 PORTA.6
Led8 PORTA.7

la PORTA.4 (RA4) no tiene salida que he leio que es normal que asi sea por hecho he conectado asi..

Para hacer secuencias de luces simple quiero usar esto:

Código: vb.net

1. PORTA = %101111
2. PAUSE 100
3. PORTA = %100011
4. ...

pero como tengo las conexiones en PORTA y PORTB ya es un lio hacerlo asi poniendo PORTA y PORTB

he hecho esto funciona muy bien pero es muy largo...

Código: vb.net

1. x = %01000010   : PORTA = %00101111 & x : PORTB = %11000000 & x : Y = %00010000 & x : if Y = 16 then HIgh PORTB.5
2. pause 100
3. x = %10000001   : PORTA = %00101111 & x : PORTB = %11000000 & x : Y = %00010000 & x : if Y = 16 then HIgh PORTB.5

Gracias!

[kamisama]

Hola, estoy medio quemado, pero lo primero y principal es que podes usar perfectamente RA.4 con una resistencia a positivo.
Sobre la solucion (que otros lenguajes usas?) porque es complicado al cohete... no te alcanza con un if x.4=1 then portb.5=1 mas lo mismo si es cero?

[Jeronimo17]

Interesante solución gracias Kamisama