programacion para leds locos

ESTA ES LA PROGRAMACIÓN ESPERO LES GUSTE  

MONTAJE 

AQUÍ LES DEJO OTRO PARA QUE LO MIREN

adcon1=7

TRISB=0

TRISA=$FF

pul1 var porta.2

pul2 var porta.1

led1 var portb.0

led2 var portb.1

led3 var portb.2

XY VAR BYTE

XY=0

PORTB=0

PORTA=0

inicio:

if pul1==0 then encender1 

if pul2==0 then encender2

goto inicio 

encender1:

high led1

PAUSE 1000

low led1

goto inicio 

encender2:

high led2

pause 1000

low led2

INICIO1:

IF PUL1==0 THEN ENCENDER4 

GOTO INICIO1

ENCENDER4

IF PUL2==1 THEN ENCENDER4

IF PUL1==0 THEN ENCENDER4

IF PUL2==0 THEN ENCENDER4

FOR XY= 1 TO 5

HIGH LED3

PAUSE 300

LOW LED3

PAUSE 300

NEXT 

GOTO INICIO

end