0 Usuarios y 1 Visitante están viendo este tema.
DEVICE 16F877DEFINE HSER_RCSTA 90hDEFINE HSER_TXSTA 20h DEFINE HSER_BAUD 2400 loop:if porta.1=0 then gosub led_onendifgoto loopled_on:hserout [3]goto loopend
DEVICE 16F877DEFINE HSER_RCSTA 90hDEFINE HSER_TXSTA 20h DEFINE HSER_BAUD 2400 datos var byteloop:hserin [datos]if datos=3 then gosub led_onendifgoto loopLed_on:High porta.1goto loopend
DEVICE 16F877define OSC 20DEFINE HSER_RCSTA 90hDEFINE HSER_TXSTA 24h DEFINE HSER_BAUD 9600Cont var bitTRISB.0=1C VAR BYTECONT=0loop: IF PORTB.0 = 0 THEN while PORTB.0=0 wend cont=cont+1 if cont > 1 then cont=0 endif endif select case cont case 0 hserout [1] case 1 hserout [2] end select IF PORTB.1 = 0 THEN while PORTB.1=0 wend cont=cont+1 if cont > 1 then cont=0 endif endif select case cont case 1 hserout [3] case 0 hserout [4] end select goto loopend
DEVICE 16F877define OSC 20DEFINE HSER_RCSTA 90hDEFINE HSER_TXSTA 24h DEFINE HSER_BAUD 9600 datos var bytedatos2 var byteloop:hserin [datos]if datos=1 then eldcif datos=2 then aldchserin [datos2]if datos2=3 then ecvif datos2=4 then acvgoto loopeldc:high porta.1goto loopaldc:low porta.1goto loopecv:high porta.2goto loopacv:low porta.2goto loopend