Code:Switchstb var Porta.0 ' switchstb is on porta.0 Switchleft VAR PORTA.3 ' switchleft is on portb.0 LTS VAR PORTB.0 ' left portb.0 STB VAR PORTB.5 ' STB TRISA.0 = 1 ' porta.0 is now an input TRISA.3 = 1 ' Porta.3 is now an input TRISB.0 = 0 ' Portb.0 is left TRISB.5 = 0 ' Portb.5 is STB CMCON=%00000111 ' ensures PortA is in Digital Mode Main: IF Switchleft = 0 THEN ' Pressing switch lights left led High LTS else low LTS endif if Switchstb = 0 then ' Pressing switch strobes led High stb pause 100 low stb pause 100 endif Goto Main end
Bookmarks