Leds on/off

[Acetronics2]

Sorry ...

or toggling button in less than 1µs ...

was not 1µs but 50 ms ...

but result is the same !!!

Alain

[chatchai]

' Test I/O Ports Input and Output

SW1 var PORTB.0
SW2 var PORTB.1
SW3 var PORTB.2
SW4 var PORTB.3

LED1 VAR PORTD.0
LED2 VAR PORTD.1
LED3 VAR PORTD.2
LED4 VAR PORTD.3

i var byte

DEFINE OSC 48


'------- Initial IO Ports -------


TRISB = $FF
TRISD = 0

CMCON = 0
ADCON1 = 7

'------- Main Function -------
main:
LED1 = SW1
LED2 = SW2
LED3 = SW3
LED4 = SW4

goto main

[Fredrick]

Try this

start:
IF PORTB.0=0 then
    toggle PORTB.4
    WHILE PORTB.0=0 : Wend : pause 50
ENDIF
    
    
IF PORTB.1=0 then
    toggle PORTB.5
    WHILE PORTB.1=0 : Wend : pause 50
ENDIF
        
IF PORTB.2=0 then
    toggle PORTB.6
    WHILE PORTB.2=0 : Wend : pause 50
ENDIF
        
IF PORTB.3=0 then
    toggle PORTB.7
    WHILE PORTa.3=0 : Wend : pause 50
ENDIF
    
      
goto start

[aratti]

Place a 330 ohms in series to each leds (as suggested in previuos post), and use Toggle command (as suggested in previuos post).

start:
Pause 50
IF PORTB.0=0 then
    Toggle PORTB.4       
    ENDIF
    
IF PORTB.1=0 then
    Toggle PORTB.5     
    ENDIF
    
IF PORTB.2=0 then
    Toggle PORTB.6     
     ENDIF
    
IF PORTB.3=0 then
    Toggle PORTB.7    
     ENDIF

HoldLoop:
If PortB & %00001111 != 15 then HoldLoop

goto start

Al.

[Leonardo]

Thanks Aratti

Place a 330 ohms in series to each leds (as suggested in previuos post), and use Toggle command (as suggested in previuos post).

start:
Pause 50
IF PORTB.0=0 then
    Toggle PORTB.4       
    ENDIF
    
IF PORTB.1=0 then
    Toggle PORTB.5     
    ENDIF
    
IF PORTB.2=0 then
    Toggle PORTB.6     
     ENDIF
    
IF PORTB.3=0 then
    Toggle PORTB.7    
     ENDIF

HoldLoop:
If PortB & %00001111 != 15 then HoldLoop

goto start

Al.