sábado, 19 de mayo de 2012

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





No hay comentarios:

Publicar un comentario