one line led light make image


Closed Thread
Results 1 to 8 of 8
  1. #1
    Join Date
    Feb 2008
    Posts
    3

    Question one line led light make image

    Hi!

    I'm using PIC BASIC with a PIC18F452. I'm wondering whether there's anyone who could tell me how it work or sample code that when one line- 8 led light is shaking, it makes a image or text,,,,thanks, bioul
    Last edited by bioul; - 11th February 2008 at 14:55.

  2. #2
    Join Date
    Apr 2006
    Location
    New Hampshire USA
    Posts
    298


    Did you find this post helpful? Yes | No

    Post afterimage phenomenon

    Quote Originally Posted by bioul View Post
    Hi!

    I'm using PIC BASIC with a PIC18F452. I'm wondering whether there's anyone who could tell me how it work or sample code that when one line- 8 led light is shaking, it makes a image or text,,,,thanks, bioul
    Hi bioul,
    Welcome to the forum.

    Do you mean “afterimage phenomenon”
    Like this:http://www.luberth.com/analog.htm

    -Adam-
    Ohm it's not just a good idea... it's the LAW !

  3. #3
    Join Date
    Feb 2008
    Posts
    3


    Did you find this post helpful? Yes | No

    Smile yes

    hellow

    yes, but usually they are using other program as like Qbasic so that I can't understand the method very clearally. Because right now I'm using and studying Pic basic pro. It will be very helpful for me if anyone has sample code(pic basic pro) .

    anyway, ^^
    thanks Adam for your good information that will be very helpful for me..
    Last edited by bioul; - 12th February 2008 at 11:29.

  4. #4
    Join Date
    May 2004
    Location
    NW France
    Posts
    3,611


    Did you find this post helpful? Yes | No

    Post with a little help from yourself ...

    Hi, Bioul

    When it was "Ze Gadget à la mode" ... I saw lots of designs on the Web.

    Try the "Propeller clock" keyword for search ...

    got 5+ PAGES of valid and relevant links ... at first shot.

    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 " !!!
    *****************************************

  5. #5
    Join Date
    Jul 2007
    Posts
    48


    Did you find this post helpful? Yes | No

    Default

    This is NOT my code.

    Code:
    DEFINE OSC 20
    
    p_01 var PORTD.4
    p_02 var PORTD.5
    p_03 var PORTD.6
    p_04 var PORTD.7
    p_05 var PORTB.0
    p_06 var PORTB.1
    p_07 var PORTB.2
    p_08 var PORTB.3
    p_09 var PORTB.4
    p_10 var PORTB.5
    p_11 var PORTB.6
    p_12 var PORTB.7
    
    RW  var bit[12]
    x   var word
    POS var word
    
    DATA 1
    
    DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
    DATA 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1
    DATA 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1
    DATA 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1
    DATA 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1
    DATA 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1
    DATA 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1
    DATA 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0
    DATA 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
    DATA 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1
    DATA 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1
    DATA 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
    DATA 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0
    DATA 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1
    DATA 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1
    DATA 0, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1
    DATA 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1
    DATA 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1
    DATA 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1
    DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
    
    TRISB = 0
    TRISA = 1
    TRISD = 0
    ADCON1= %00000111
    
    PORTB = 0
    PORTD = 0
    
    LOOP:
    
    if PORTA.0 = 0 then
    
        For POS = 0 TO 228 step 12
    
            for x = 1 to 12
                READ POS+x,RW[x]
            next x
    
            p_01=RW[1]: p_02=RW[2]: p_03=RW[3]: p_04=RW[4] : p_05=RW[5] : p_06=RW[6]
            p_07=RW[7]: p_08=RW[8]: p_09=RW[9]: p_10=RW[10]: p_11=RW[11]: p_12=RW[12]  
    
            PAUSEUS 1000
    
        NEXT POS
        
        PORTB = %00000000
        PORTD = %00000000
        
    endif
    
    goto LOOP

  6. #6
    Join Date
    Apr 2006
    Location
    New Hampshire USA
    Posts
    298


    Did you find this post helpful? Yes | No

    Talking

    I wonder what that spells or shows??? Better try it before showing it in public! lol
    Ohm it's not just a good idea... it's the LAW !

  7. #7
    Join Date
    Jul 2007
    Posts
    48


    Did you find this post helpful? Yes | No

    Default

    It makes a heart :P

    If you look a the "DATA lines" you can see a lying heart..

  8. #8
    Join Date
    Feb 2008
    Posts
    3


    Did you find this post helpful? Yes | No

    Talking thanks

    Wow
    I will try and study and later on I will make own my code

    Thank you very very much ^^
    Last edited by bioul; - 13th February 2008 at 22:21.

Similar Threads

  1. Conway's Game Of Life
    By wellyboot in forum mel PIC BASIC Pro
    Replies: 45
    Last Post: - 28th May 2020, 07:14
  2. Free Project - 245 LED Display
    By T.Jackson in forum Code Examples
    Replies: 221
    Last Post: - 16th August 2009, 05:59
  3. Loop with two motor and 2 sensors
    By MrRoboto in forum mel PIC BASIC
    Replies: 4
    Last Post: - 9th December 2008, 00:40
  4. LCD will not start
    By btaylor in forum mel PIC BASIC Pro
    Replies: 49
    Last Post: - 24th May 2007, 03:30
  5. having problems with Hantronix 20x4 lcd
    By Rhatidbwoy in forum mel PIC BASIC Pro
    Replies: 16
    Last Post: - 22nd December 2005, 13:22

Members who have read this thread : 1

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

Posting Permissions

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