Leds on/off

Closed Thread
Results 1 to 17 of 17

Thread: Leds on/off

Hybrid View

  1. - 29th August 2009, 11:02 #1
    Acetronics2's Avatar
    Acetronics2
    Acetronics2 is offline Fanatical Contributor
    Join Date
    May 2004
    Location
    NW France
    Posts
    3,653

    Did you find this post helpful? Yes | No

    Default

    Hi, Sayzer

    I do not want to use sims ... lol

    BTW :


    ...

    IF PORTB.0=0 then
    HIGH PORTB.4
    WHILE PORTB.0=0 : Wend : pause 50
    ENDIF

    IF PORTB.0=0 then
    LOW PORTB.4
    WHILE PORTB.0=0 : Wend : pause 50
    ENDIF

    ...
    This kind of structure can't work properly ... as the second part never can be reached !!! ( or toggling button in less than 1µs ... )

    Button state AND its corresponding output state must be tested at the same time ... to take the appropriate action.

    Alain
    Last edited by Acetronics2; - 29th August 2009 at 11:09.
    ************************************************** ***********************
    Why insist on using 32 Bits when you're not even able to deal with the first 8 ones ??? ehhhhhh ...
    ************************************************** ***********************
    IF there is the word "Problem" in your question ...
    certainly the answer is " RTFM " or " RTFDataSheet " !!!
    *****************************************
  2. - 29th August 2009, 13:34 #2
    Acetronics2's Avatar
    Acetronics2
    Acetronics2 is offline Fanatical Contributor
    Join Date
    May 2004
    Location
    NW France
    Posts
    3,653

    Did you find this post helpful? Yes | No

    Talking

    Sorry ...

    or toggling button in less than 1µs ...
    was not 1µs but 50 ms ...

    but result is the same !!!

    Alain
    ************************************************** ***********************
    Why insist on using 32 Bits when you're not even able to deal with the first 8 ones ??? ehhhhhh ...
    ************************************************** ***********************
    IF there is the word "Problem" in your question ...
    certainly the answer is " RTFM " or " RTFDataSheet " !!!
    *****************************************
  3. - 31st August 2009, 11:34 #3
    chatchai's Avatar
    chatchai Guest

    Did you find this post helpful? Yes | No

    Red face I am speek Thai and my english very bad... but my example..

    ' 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
  4. - 31st August 2009, 12:37 #4
    Fredrick's Avatar
    Fredrick
    Fredrick is offline Member
    Join Date
    Jan 2008
    Location
    Sweden
    Posts
    187

    Did you find this post helpful? Yes | No

    Default

    Try this

    Code:
    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
  5. - 31st August 2009, 13:13 #5
    aratti's Avatar
    aratti
    aratti is offline Senior Member
    Join Date
    May 2008
    Location
    Italy
    Posts
    825

    Did you find this post helpful? Yes | No

    Default

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

    Code:
    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.
    Last edited by aratti; - 31st August 2009 at 13:25.
    All progress began with an idea
  6. - 2nd September 2009, 22:36 #6
    Leonardo's Avatar
    Leonardo
    Leonardo is offline Member
    Join Date
    Aug 2005
    Posts
    144

    Did you find this post helpful? Yes | No

    Default

    Thanks Aratti

    Quote Originally Posted by aratti View Post
    Place a 330 ohms in series to each leds (as suggested in previuos post), and use Toggle command (as suggested in previuos post).

    Code:
    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.
« Previous Thread | Next Thread »

Similar Threads

  1. Run a string of LEDs from the mains
    By The Master in forum Off Topic
    Replies: 30
    Last Post: - 1st October 2009, 19:55
  2. Short distance Light beam control (10cm) - what is best to use in On/Off mode?
    By flotulopex in forum mel PIC BASIC Pro
    Replies: 14
    Last Post: - 26th April 2007, 16:12
  3. Using LEDs as light sensors
    By skimask in forum Code Examples
    Replies: 3
    Last Post: - 30th December 2006, 23:19
  4. controlling leds with the switches
    By ilteris in forum mel PIC BASIC Pro
    Replies: 2
    Last Post: - 12th October 2005, 22:02
  5. Blinking effect during shifting out to LEDs
    By Demon in forum General
    Replies: 5
    Last Post: - 16th February 2005, 12:57

Members who have read this thread : 0

You do not have permission to view the list of names.

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules