8x8 Scrolling LED display (Simple example)



THE BOOK of DT's INTERRUPTS is an organization of interrupt service routines and other works written by Darrel Taylor, RIP.

Interrupt routines are arranged per Darrel's original list. Darrel Taylor's Instant Interrupts are an extension of the work of Tim Box whom in October of 2002 wrote INT_CTRL.pbp

Many of the forum members felt this is a long overdue project.

THE BOOK of DT's INTERRUPTS
will be a valuable resource and a tribute to Darrel Taylor the "Fanatical Contributor".

THE BOOK of DT's INTERRUPTS is located at http://dt.picbasic.co.uk/

+ Reply to Thread
Page 1 of 2 12 LastLast
Results 1 to 40 of 69
  1. #1
    Join Date
    Feb 2007
    Posts
    55

    Default 8x8 Scrolling LED display (Simple example)

    Hello,

    I have built a simple 8x8 LED matrix that scrolls a message, in my example i am scrolling " D J W " followed by a smiley face.

    I used standard yellow leds, which are ok, I would however recomend using higher brightness leds and adjusting the PORTB output resistors to suit.

    I have attached a text file of code, I warn you now im no expert at writting code and not as experienced as some guys on here are, i have based it around 16F872 as i had 1 handy, and hope someone finds it useful!

    Ill try and post a circuit diagram later

    Dave
    Attached Files Attached Files

  2. #2
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default

    attached a picture of display, and a circuit diagram
    Attached Images Attached Images   
    Last edited by wellyboot; - 24th March 2009 at 14:17.

  3. #3
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default

    oppps its too late to edit last post,

    The circuit appears to show all the columns in the matrix are connected directly to the top row, this is an error,


    have attached a revised circuit.

    note: that i have used the standard diode symbol instead of the LED symbol just to make it easier to draw, as i used the 'paint' program to do it!
    Attached Images Attached Images  
    Last edited by wellyboot; - 24th March 2009 at 21:45.

  4. #4
    Join Date
    Jan 2007
    Location
    Houston, TX
    Posts
    96


    Did you find this post helpful? Yes | No

    Thumbs up

    nice work!

    I had lots of problems shifting through my rows when I built an ascii lookup table.

    I have not tried shifting through colums, now I am motivated again to bust out the 8x8 matrices I have lying aroud my electronics cuboard again.
    Padawan-78

  5. #5
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default Scrolling Temperature

    Hi

    Have added a LM35 Temperature sensor to the above circuit, connecting the output from the sensor to AN0 (pin2) of the PIC.

    Now i have a scrolling temperature reading in degrees C on my display.

    I have stored the data for the numerical characters in the internal eeprom, as i didnt have enough memory to store it in a varible array .

    The characters for the numbers look a bit naff, but can easlierly be altered to look better.

    Again im no expert, and only put this together this evening! but seems to work quite well.
    Attached Files Attached Files
    Last edited by wellyboot; - 26th March 2009 at 22:52.

  6. #6
    hoggefx's Avatar
    hoggefx Guest


    Did you find this post helpful? Yes | No

    Default

    Nice !

    Thanks.

  7. #7
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default Modifications.

    Hi again, Thanks for your replys, have made a couple of alterations

    1st) I noticed when the digits 1st came onto the display on the right hand side column, the left hand side column some of the LEDs lit very dimmly when they should have been off.
    I have modified the 'LOOP' section of code as follows to fix this problem and speed up the scrolling a bit too.

    LOOP:
    FOR scroll = 0 TO 35
    FOR scan = 0 TO 15
    PORTC = 1
    FOR counter = 0 TO 7
    PORTB = leddata [counter]
    PAUSEUS 1500
    PORTB = 0
    PORTC = PORTC * 2
    NEXT
    NEXT
    FOR counter = 0 TO 34
    leddata [counter] = leddata [counter+1]
    NEXT
    NEXT
    GOTO START
    END


    2) I have improved the look of the characters in the eeprom locations as follows:

    eeprom 0,[%00111110,%01010001,%01001001,%01000101,%00111110] '0
    eeprom 5,[%00000000,%01000010,%01111111,%01000000,%00000000] '1
    eeprom 10,[%01000010,%01100001,%01010001,%01001001,%01000110] '2
    eeprom 15,[%00100001,%01000001,%01000101,%01001011,%00110001] '3
    eeprom 20,[%00011000,%00010100,%00010010,%01111111,%00010000] '4
    eeprom 25,[%00100111,%01000101,%01000101,%01000101,%00111001] '5
    eeprom 30,[%00111100,%01001010,%01001001,%01001001,%00110000] '6
    eeprom 35,[%00000001,%01110001,%00001001,%00000101,%00000011] '7
    eeprom 40,[%00110110,%01001001,%01001001,%01001001,%00110110] '8
    eeprom 45,[%00000110,%01001001,%01001001,%00101001,%00011110] '9


    3) I have noticed that if the LM35 is too close to the PIC IC the output is higher than normal resulting in a higher temperature being displayed, the PIC IC is cold so i have no idea why this is happening. I have soldered my LM35 onto 3 wires about 4cm's from the board which seems to have corrected the problem.

    Hope this covers all the bugs!
    Last edited by wellyboot; - 29th March 2009 at 17:26.

  8. #8
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default youtube clip

    Hello

    Have posted a working example of the above project on youtube:


  9. #9
    Join Date
    May 2009
    Posts
    2


    Did you find this post helpful? Yes | No

    Wink Matrix clock

    please, it sends the project of the clock and code source.

    Quote Originally Posted by wellyboot View Post
    Hi again, Thanks for your replys, have made a couple of alterations

    1st) I noticed when the digits 1st came onto the display on the right hand side column, the left hand side column some of the LEDs lit very dimmly when they should have been off.
    I have modified the 'LOOP' section of code as follows to fix this problem and speed up the scrolling a bit too.

    LOOP:
    FOR scroll = 0 TO 35
    FOR scan = 0 TO 15
    PORTC = 1
    FOR counter = 0 TO 7
    PORTB = leddata [counter]
    PAUSEUS 1500
    PORTB = 0
    PORTC = PORTC * 2
    NEXT
    NEXT
    FOR counter = 0 TO 34
    leddata [counter] = leddata [counter+1]
    NEXT
    NEXT
    GOTO START
    END


    2) I have improved the look of the characters in the eeprom locations as follows:

    eeprom 0,[%00111110,%01010001,%01001001,%01000101,%00111110] '0
    eeprom 5,[%00000000,%01000010,%01111111,%01000000,%00000000] '1
    eeprom 10,[%01000010,%01100001,%01010001,%01001001,%01000110] '2
    eeprom 15,[%00100001,%01000001,%01000101,%01001011,%00110001] '3
    eeprom 20,[%00011000,%00010100,%00010010,%01111111,%00010000] '4
    eeprom 25,[%00100111,%01000101,%01000101,%01000101,%00111001] '5
    eeprom 30,[%00111100,%01001010,%01001001,%01001001,%00110000] '6
    eeprom 35,[%00000001,%01110001,%00001001,%00000101,%00000011] '7
    eeprom 40,[%00110110,%01001001,%01001001,%01001001,%00110110] '8
    eeprom 45,[%00000110,%01001001,%01001001,%00101001,%00011110] '9


    3) I have noticed that if the LM35 is too close to the PIC IC the output is higher than normal resulting in a higher temperature being displayed, the PIC IC is cold so i have no idea why this is happening. I have soldered my LM35 onto 3 wires about 4cm's from the board which seems to have corrected the problem.

    Hope this covers all the bugs!

  10. #10
    Join Date
    May 2009
    Location
    USA
    Posts
    16


    Did you find this post helpful? Yes | No

    Default

    Wow, that is really cool. I was expecting the source code to be at least a full screen full. Good work, I have this one added to favorites
    Why is the email address verification case sensitive?

  11. #11
    Join Date
    Dec 2009
    Posts
    2


    Did you find this post helpful? Yes | No

    Default temperature sensor circuit diagram

    Ma'am/ Sir

    I would like to see your circuit diagram or schematic diagram for your temperature sensor also the source code for this item...

    I'm a newbie in PIC and I would like to use PIC16f877a

    Hope you could help me pls

  12. #12
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default

    Hi


    Take a look at the 3rd post for circuit diagram (without LM35 sensor)
    take a look at 5th post for code, and 7th post for modification to code

    also this line (27th) in the code:

    ADCON1 = %10000101 'AN0 ANALOG I/P + right justify result

    needs changing to:

    ADCON1 = %10001110 'AN0 ANALOG I/P + right justify result

    this will set AN0 only to analog and the rest of portA to digital, this where you connect a LM35 temperature sensor output.

    I believe this code should work with a 16F877 aswel but not 100% sure

  13. #13
    baco1978's Avatar
    baco1978 Guest


    Did you find this post helpful? Yes | No

    Default

    Hi,

    i really like the idea of a scrolling temperature display.

    could somebody post the hexfile?
    in the lite version the 16F872 isn't supported

    thanks

  14. #14
    Join Date
    Apr 2010
    Posts
    11


    Did you find this post helpful? Yes | No

    Default

    dear wellyboot,

    thanks a lot for share this application with the members..
    can u modify it to a scrolling clock or both scrolling clock+thermometer??
    i really need one to built...
    waiting for ur reply

    thanks
    krish69

  15. #15
    Join Date
    Nov 2003
    Location
    Greece
    Posts
    3,275


    Did you find this post helpful? Yes | No

    Default

    Now that i see the circuit again, why not use the 2803 instead of two 2004?

    Ioannis

  16. #16
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default

    hi

    the only reason i used 2004's is due to me having loads of these floating around, when i bought them i wasnt aware of a 8 channel device.

    cant see any reason you cant use a 2803

  17. #17
    Join Date
    Apr 2010
    Posts
    11


    Did you find this post helpful? Yes | No

    Default

    Quote Originally Posted by krish69 View Post
    dear wellyboot,

    thanks a lot for share this application with the members..
    can u modify it to a scrolling clock or both scrolling clock+thermometer??
    i really need one to built...
    waiting for ur reply

    thanks
    krish69

    dear wellyboot..

    waiting for ur answer for my request..

    thanks

  18. #18
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default

    krish69

    I would connect to a DS1307 Real time clock IC, add a couple of buttons then you could modifiy the code to read/write to the DS1307 and convert the digits to be displayed.

    search around for examples of how to read/write to the DS1307, then the rest should be quite easy.
    Last edited by wellyboot; - 13th April 2010 at 14:39. Reason: mistakes

  19. #19
    Join Date
    Apr 2010
    Posts
    11


    Did you find this post helpful? Yes | No

    Unhappy Got error msg..

    Dera sir,
    first of all thanks for ur reply..
    i'm just a beginner for these field...
    i did all hardware for ur scrool temp display..but when i try to convert
    (by using MPLAB ide 7.5) ur codes to hex file,i give the path to saved it in C:\out put directory in my pc..

    these errors came..what mistake did i do..?pls help
    thanks
    --------------------------------------------------------------
    Clean: Deleting intermediary and output files.
    Clean: Done.
    Executing: "C:\Program Files\Microchip\MPASM Suite\MPAsmWin.exe" /q /p16F872 "matrix.asm" /l"matrix.lst" /e"matrix.err"
    Error[108] C:\OUTPUT\MATRIX.ASM 1 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 2 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 3 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 4 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 5 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 6 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 7 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 8 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 9 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 10 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 11 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 12 : Illegal character (')
    Warning[207] C:\OUTPUT\MATRIX.ASM 13 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 13 : Illegal character (0)
    Warning[207] C:\OUTPUT\MATRIX.ASM 14 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 14 : Illegal character (5)
    Warning[207] C:\OUTPUT\MATRIX.ASM 15 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 15 : Illegal character (1)
    Warning[207] C:\OUTPUT\MATRIX.ASM 16 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 16 : Illegal character (1)
    Warning[207] C:\OUTPUT\MATRIX.ASM 17 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 17 : Illegal character (2)
    Warning[207] C:\OUTPUT\MATRIX.ASM 18 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 18 : Illegal character (2)
    Warning[207] C:\OUTPUT\MATRIX.ASM 19 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 19 : Illegal character (3)
    Warning[207] C:\OUTPUT\MATRIX.ASM 20 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 20 : Illegal character (3)
    Warning[207] C:\OUTPUT\MATRIX.ASM 21 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 21 : Illegal character (4)
    Warning[207] C:\OUTPUT\MATRIX.ASM 22 : Found label after column 1. (eeprom)
    Error[108] C:\OUTPUT\MATRIX.ASM 22 : Illegal character (4)
    Error[122] C:\OUTPUT\MATRIX.ASM 24 : Illegal opcode (ADC_BITS)
    Error[122] C:\OUTPUT\MATRIX.ASM 25 : Illegal opcode (ADC_CLOCK)
    Error[122] C:\OUTPUT\MATRIX.ASM 26 : Illegal opcode (ADC_SAMPLEUS)
    Error[128] C:\OUTPUT\MATRIX.ASM 27 : Missing argument(s)
    Error[128] C:\OUTPUT\MATRIX.ASM 28 : Missing argument(s)
    Error[128] C:\OUTPUT\MATRIX.ASM 30 : Missing argument(s)
    Error[128] C:\OUTPUT\MATRIX.ASM 31 : Missing argument(s)
    Error[128] C:\OUTPUT\MATRIX.ASM 32 : Missing argument(s)
    Warning[207] C:\OUTPUT\MATRIX.ASM 33 : Found label after column 1. (counter)
    Error[122] C:\OUTPUT\MATRIX.ASM 33 : Illegal opcode (var)
    Warning[207] C:\OUTPUT\MATRIX.ASM 34 : Found label after column 1. (scan)
    Error[122] C:\OUTPUT\MATRIX.ASM 34 : Illegal opcode (var)
    Warning[207] C:\OUTPUT\MATRIX.ASM 35 : Found label after column 1. (scroll)
    Error[122] C:\OUTPUT\MATRIX.ASM 35 : Illegal opcode (var)
    Warning[207] C:\OUTPUT\MATRIX.ASM 36 : Found label after column 1. (leddata)
    Error[122] C:\OUTPUT\MATRIX.ASM 36 : Illegal opcode (var)
    Warning[207] C:\OUTPUT\MATRIX.ASM 37 : Found label after column 1. (temp)
    Error[122] C:\OUTPUT\MATRIX.ASM 37 : Illegal opcode (var)
    Warning[207] C:\OUTPUT\MATRIX.ASM 38 : Found label after column 1. (tempA)
    Error[122] C:\OUTPUT\MATRIX.ASM 38 : Illegal opcode (var)
    Warning[207] C:\OUTPUT\MATRIX.ASM 39 : Found label after column 1. (tempB)
    Error[122] C:\OUTPUT\MATRIX.ASM 39 : Illegal opcode (var)
    Warning[207] C:\OUTPUT\MATRIX.ASM 40 : Found label after column 1. (tempC)
    Error[122] C:\OUTPUT\MATRIX.ASM 40 : Illegal opcode (var)
    Warning[207] C:\OUTPUT\MATRIX.ASM 42 : Found label after column 1. (CLEAR)
    Error[108] C:\OUTPUT\MATRIX.ASM 42 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 44 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 45 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 46 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 47 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 48 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 49 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 50 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 51 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 52 : Illegal character (')
    Error[108] C:\OUTPUT\MATRIX.ASM 53 : Illegal character (')
    Warning[207] C:\OUTPUT\MATRIX.ASM 55 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 55 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 56 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 56 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 58 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 58 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 59 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 59 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 60 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 60 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 61 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 61 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 62 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 62 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 63 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 63 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 65 : Found label after column 1. (ADCIN)
    Error[108] C:\OUTPUT\MATRIX.ASM 65 : Illegal character (0)
    Warning[207] C:\OUTPUT\MATRIX.ASM 66 : Found label after column 1. (temp)
    Error[113] C:\OUTPUT\MATRIX.ASM 66 : Symbol not previously defined (temp)
    Warning[209] C:\OUTPUT\MATRIX.ASM 66 : Missing quote
    Error[124] C:\OUTPUT\MATRIX.ASM 66 : Illegal argument (expected single character)
    Error[112] C:\OUTPUT\MATRIX.ASM 66 : Missing operator
    Warning[207] C:\OUTPUT\MATRIX.ASM 67 : Found label after column 1. (temp)
    Warning[207] C:\OUTPUT\MATRIX.ASM 69 : Found label after column 1. (tempA)
    Error[113] C:\OUTPUT\MATRIX.ASM 69 : Symbol not previously defined (DIG)
    Error[112] C:\OUTPUT\MATRIX.ASM 69 : Missing operator
    Warning[207] C:\OUTPUT\MATRIX.ASM 70 : Found label after column 1. (tempB)
    Error[113] C:\OUTPUT\MATRIX.ASM 70 : Symbol not previously defined (DIG)
    Error[112] C:\OUTPUT\MATRIX.ASM 70 : Missing operator
    Warning[207] C:\OUTPUT\MATRIX.ASM 71 : Found label after column 1. (tempC)
    Error[113] C:\OUTPUT\MATRIX.ASM 71 : Symbol not previously defined (DIG)
    Error[112] C:\OUTPUT\MATRIX.ASM 71 : Missing operator
    Error[108] C:\OUTPUT\MATRIX.ASM 73 : Illegal character (=)
    Warning[207] C:\OUTPUT\MATRIX.ASM 76 : Found label after column 1. (FOR)
    Error[122] C:\OUTPUT\MATRIX.ASM 76 : Illegal opcode (counter)
    Warning[207] C:\OUTPUT\MATRIX.ASM 77 : Found label after column 1. (READ)
    Error[122] C:\OUTPUT\MATRIX.ASM 77 : Illegal opcode (tempA)
    Warning[207] C:\OUTPUT\MATRIX.ASM 78 : Found label after column 1. (NEXT)
    Error[122] C:\OUTPUT\MATRIX.ASM 78 : Illegal opcode (counter)
    Warning[207] C:\OUTPUT\MATRIX.ASM 80 : Found label after column 1. (FOR)
    Error[122] C:\OUTPUT\MATRIX.ASM 80 : Illegal opcode (counter)
    Warning[207] C:\OUTPUT\MATRIX.ASM 81 : Found label after column 1. (READ)
    Error[122] C:\OUTPUT\MATRIX.ASM 81 : Illegal opcode (tempB)
    Warning[207] C:\OUTPUT\MATRIX.ASM 82 : Found label after column 1. (NEXT)
    Warning[207] C:\OUTPUT\MATRIX.ASM 83 : Found label after column 1. (FOR)
    Error[122] C:\OUTPUT\MATRIX.ASM 83 : Illegal opcode (counter)
    Warning[207] C:\OUTPUT\MATRIX.ASM 84 : Found label after column 1. (READ)
    Error[122] C:\OUTPUT\MATRIX.ASM 84 : Illegal opcode (tempC)
    Warning[207] C:\OUTPUT\MATRIX.ASM 85 : Found label after column 1. (NEXT)
    Warning[207] C:\OUTPUT\MATRIX.ASM 91 : Found label after column 1. (FOR)
    Error[122] C:\OUTPUT\MATRIX.ASM 91 : Illegal opcode (scroll)
    Warning[207] C:\OUTPUT\MATRIX.ASM 92 : Found label after column 1. (FOR)
    Error[122] C:\OUTPUT\MATRIX.ASM 92 : Illegal opcode (scan)
    Warning[207] C:\OUTPUT\MATRIX.ASM 93 : Found label after column 1. (PORTC)
    Warning[207] C:\OUTPUT\MATRIX.ASM 94 : Found label after column 1. (FOR)
    Error[122] C:\OUTPUT\MATRIX.ASM 94 : Illegal opcode (counter)
    Warning[207] C:\OUTPUT\MATRIX.ASM 95 : Found label after column 1. (PORTB)
    Error[113] C:\OUTPUT\MATRIX.ASM 95 : Symbol not previously defined (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 95 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 96 : Found label after column 1. (PAUSE)
    Error[108] C:\OUTPUT\MATRIX.ASM 96 : Illegal character (1)
    Warning[207] C:\OUTPUT\MATRIX.ASM 97 : Found label after column 1. (PORTC)
    Warning[207] C:\OUTPUT\MATRIX.ASM 98 : Found label after column 1. (NEXT)
    Warning[207] C:\OUTPUT\MATRIX.ASM 99 : Found label after column 1. (NEXT)
    Warning[207] C:\OUTPUT\MATRIX.ASM 100 : Found label after column 1. (FOR)
    Error[122] C:\OUTPUT\MATRIX.ASM 100 : Illegal opcode (counter)
    Warning[207] C:\OUTPUT\MATRIX.ASM 101 : Found label after column 1. (leddata)
    Error[108] C:\OUTPUT\MATRIX.ASM 101 : Illegal character ([)
    Warning[207] C:\OUTPUT\MATRIX.ASM 102 : Found label after column 1. (NEXT)
    Warning[207] C:\OUTPUT\MATRIX.ASM 103 : Found label after column 1. (NEXT)
    Warning[205] C:\OUTPUT\MATRIX.ASM 105 : Found directive in column 1. (END)
    Skipping link step. Not all sources built successfully.
    BUILD FAILED: Thu may 3,10.20am

  20. #20
    Join Date
    Apr 2010
    Posts
    11


    Did you find this post helpful? Yes | No

    Default errors of compile

    Dear
    wellyboot

    i think the program me is not compatible to mplab..

    can u give the programme language name n a compiler to convert ur codes to HEX format..?

    if u post hex file il highly appreciate.

    i buld all the hardware but stuck in software part that unable to finish..

    hop u can understand my situation

    thanks
    krish69

  21. #21
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default

    Im using PicBasic Pro + MPLAB IDE

  22. #22
    Join Date
    Apr 2010
    Posts
    11


    Did you find this post helpful? Yes | No

    Thumbs up errors

    Dear wellyb00t

    thank u for the fast reply..

    il try to convert codes using the same using the soft you mentioned and will inform if i encountered.

    thanks again sir,

    krish69

  23. #23
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default

    Hi,

    i really like the idea of a scrolling temperature display.

    could somebody post the hexfile?
    in the lite version the 16F872 isn't supported

    thanks

    Have uploaded a updated version which has a indication arrow displaying an increase or decrease in temperature.

    HEX file can be found here:

    http://www.filefactory.com/f/df8a94fb9e2fab81/

    Thanks
    Last edited by wellyboot; - 23rd January 2011 at 08:22. Reason: mistakes...

  24. #24
    Join Date
    Mar 2009
    Posts
    48


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    Quote Originally Posted by wellyboot View Post
    Have uploaded a updated version which has a indication arrow displaying an increase or decrease in temperature.

    HEX file can be found here:

    http://www.filefactory.com/f/df8a94fb9e2fab81/

    Thanks
    now i quote this to get your help, i already ask you on your youtube chanel, about how to organize loop to display static letter or number, without scroll feature on 8x8 dot matrix could you please give me a some hint how to do that, i tried to rorganize this loop from your example but not geting enything on matrix.... thx in advance

  25. #25
    Join Date
    Mar 2009
    Posts
    48


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    hello again I menaged to display letter M on 5x7 dot matrix with this changed code is this a good solution
    Code:
    ' SIMPLE 8X8 LED MATRIX SCROLLING EXAMPLE
    ' 16F872 External 4MHz Xtal Osc
    ' LED Matrix columns are conected to PORTC pin rc0 via ULN2004AN and CD4017 to 0v.
    ' RC1 reset for 4017
    ' LED Matrix rows conected to PORTB via 100 ohm resistors (Resistor value dependant on LEDs used)
    ' RB0 - top row
    ' MCLR (pin1) connected via 4K7 to +5v supply.
    '
    ' today
    '***************************************************************************************
    Device 16F877A
    TRISB = %00000000
    TRISC = %00000000
    PORTB=0
    PORTC=0
    	kolona		var	Byte
    	brojac		var	Byte
    	scan 		var Byte
    	scroll		var	Byte
    	leddata		VAR Byte[5]
    
    START:
    
    	Clear  				
    
    	leddata[0] = $FF	'start of 'm'
    	leddata[1] = $40 
    	leddata[2] =$20
    	leddata[3] =$40
    	leddata[4] = $FF
    LOOP:
     
    	'For scroll =  0 To 34
    		
    	For scan = 0 To 12	' scan speed
    		PORTC.1 = 1  'reseting 4017
                PORTC.1 =0
    			For kolona = 0 To 4
    			PORTC.0 = 1 'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
    				DelayUS 500
                    PORTB=0				
    			Next
    	Next 
    
    	GoTo START
    End
    any idea how to change letters????
    Last edited by xxxxxx; - 6th February 2011 at 13:42.

  26. #26
    Join Date
    Mar 2009
    Posts
    48


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    now i manage to change code to show leter M and then some simbol with duration of 500ms,
    Code:
    Device 16F877A
    Xtal 8
    TRISB = %00000000
    TRISC = %00000000
    PORTB=0
    PORTC=0
    	kolona		var	Byte
    	brojac		var	Byte
    	scan 		var Byte
    	scroll		var	Byte
    	leddata		VAR Byte[10]
    
        brojac=0
    START:	
    Clear
    	leddata[0] = $FF	'start of 'm'
    	leddata[1] = $40 
    	leddata[2] =$20
    	leddata[3] =$40
    	leddata[4] = $FF
    	leddata[5] = $0f	'start of 'z'
    	leddata[6] = $f0 
    	leddata[7] =$0f
    	leddata[8] =$f0
    	leddata[9] = $0F
    LOOP: 
            
          For scroll = 0 To 1
               
             PORTC.1 = 1  'reseting 4017
             PORTC.1 =0	
             For scan = 0 To 500
    			For kolona = 0 To 4
    				PORTC.0 = 1 'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
    				DelayMS 1
                    PORTB=0     	
    		    Next
             Next
             For brojac = 0 To 4
            leddata[brojac]=leddata[brojac+5]
            Next
            Next   
    GoTo START
    End
    is this good solution....i am trying to build up my programing skills , i was playing with PLC's for 2 year so i forgot even basic stuff...evantally i am going to build BABY ON BOARD with 4 5x7 dot matrix and cascade 4017, srolling static going up going down...so i need help

  27. #27
    Join Date
    Aug 2006
    Location
    Look, behind you.
    Posts
    2,818


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    I have seen those yellow B.O.B. signs for years and have always questioned their logic. It seems to me if I am maniacal enough to kill you in traffic, is not taking out your offspring a bonus? A scrolling B.O.B. sign might just be the trigger . . . Ugh, not for ME but THEY are out there.
    If you do not believe in MAGIC, Consider how currency has value simply by printing it, and is then traded for real assets.
    .
    Gold is the money of kings, silver is the money of gentlemen, barter is the money of peasants - but debt is the money of slaves
    .
    There simply is no "Happy Spam" If you do it you will disappear from this forum.

  28. #28
    Join Date
    Mar 2009
    Posts
    48


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    well i hope i will triger a nicer behavior in trafic..... or i could scroll ...eat my dust... that would be a good treiger !!!

  29. #29
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    hello this may help, I have eeprom values for displaying characters this should fit on pic's with larger eeprom storage such as a 16f877
    the code snippet reads the eeprom characters into the leddata varible and should display them scrolling.....well hopefully i havnt tested myself!

    Code:
    	eeprom 0,[%00111110,%01010001,%01001001,%01000101,%00111110]	'0
    	eeprom 5,[%00000000,%01000010,%01111111,%01000000,%00000000]	'1
    	eeprom 10,[%01000010,%01100001,%01010001,%01001001,%01000110]	'2
    	eeprom 15,[%00100001,%01000001,%01000101,%01001011,%00110001]	'3
    	eeprom 20,[%00011000,%00010100,%00010010,%01111111,%00010000]	'4
    	eeprom 25,[%00100111,%01000101,%01000101,%01000101,%00111001]	'5
    	eeprom 30,[%00111100,%01001010,%01001001,%01001001,%00110000]	'6
    	eeprom 35,[%00000001,%01110001,%00001001,%00000101,%00000011]	'7
    	eeprom 40,[%00110110,%01001001,%01001001,%01001001,%00110110]	'8
    	eeprom 45,[%00000110,%01001001,%01001001,%00101001,%00011110]	'9
    	eeprom 50,[%00000100,%00000110,%01111111,%00000110,%00000100]	'Up Arrow
    	eeprom 55,[%00010000,%00110000,%01111111,%00110000,%00010000]	'Dn Arrow
    	eeprom 60,[%01111110,%00010001,%00010001,%00010001,%01111110]	'A
    	eeprom 65,[%01111111,%01001001,%01001001,%01001001,%00110110]	'B
    	eeprom 70,[%00111110,%01000001,%01000001,%01000001,%00100010]	'C
    	eeprom 75,[%01111111,%01000001,%01000001,%00100010,%00011100]	'D
    	eeprom 80,[%01111111,%01001001,%01001001,%01001001,%01000001]	'E
    	eeprom 85,[%01111111,%00001001,%00001001,%00001001,%00000001]	'F
    	eeprom 90,[%00111110,%01000001,%01001001,%01001001,%01111010]	'G
    	eeprom 95,[%01111111,%00001000,%00001000,%00001000,%01111111]	'H
    	eeprom 100,[%00000000,%01000001,%01111111,%01000001,%00000000]	'I
    	eeprom 105,[%00100000,%01000000,%01000001,%00111111,%00000001]	'J
    	eeprom 110,[%01111111,%00001000,%00010100,%00100010,%01000001]	'K
    	eeprom 115,[%01111111,%01000000,%01000000,%01000000,%01000000]	'L
    	eeprom 120,[%01111111,%00000010,%00000110,%00000010,%01111111]	'M
    	eeprom 125,[%01111111,%00000100,%00001000,%00010000,%01111111]	'N
    	eeprom 130,[%00111110,%01000001,%01000001,%01000001,%00111110]	'O
    	eeprom 135,[%01111111,%00001001,%00001001,%00001001,%00000110]	'P
    	eeprom 140,[%00111110,%01000001,%01010001,%00100001,%01011110]	'Q
    	eeprom 145,[%01111111,%00001001,%00011001,%00101001,%01000110]	'R
    	eeprom 150,[%01000110,%01001001,%01001001,%01001001,%00110001]	'S
    	eeprom 155,[%00000001,%00000001,%01111111,%00000001,%00000001]	'T
    	eeprom 160,[%00111111,%01000000,%01000000,%01000000,%00111111]	'U
    	eeprom 165,[%00011111,%00100000,%01000000,%00100000,%00011111]	'V
    	eeprom 170,[%00111111,%01000000,%00110000,%01000000,%00111111]	'W
    	eeprom 175,[%01100011,%00010100,%00001000,%00010100,%01100011]	'X
    	eeprom 180,[%00000111,%00001000,%01110000,%00001000,%00000111]	'Y
    	eeprom 185,[%01100001,%01010001,%01001001,%01000101,%01000011]	'Z
    	eeprom 190,[%00100000,%00010000,%00001000,%00000100,%00000010]	'/
    
    	leddata	var	byte[80]
    
    	
    START:
    	CLEAR
    	FOR counter = 0 TO 4
    		READ counter+65, leddata [counter+5]	'B
    		READ counter+60, leddata [counter+11]	'A
    		READ counter+65, leddata [counter+17]	'B
    		READ counter+189, leddata [counter+23]	'Y
    
    		READ counter+130, leddata [counter+32]	'O
    		READ counter+125, leddata [counter+38]	'N
    
    		READ counter+65, leddata [counter+47]	'B
    		READ counter+130, leddata [counter+53]	'O 
    		READ counter+60, leddata [counter+59]	'A
    		READ counter+145, leddata [counter+65]	'R
    		READ counter+75, leddata [counter+71]	'D 	
    	NEXT
    
    LOOP: 
    
    	FOR scroll = 0 TO 77
    		FOR scan = 0 TO 15
    			PORTC = 1
    			FOR counter = 0 TO 7
    				PORTB = leddata [counter]
    				PAUSEUS 1500 
    				PORTB = 0		'This helps prevent ghosting
    				PORTC = PORTC * 2
    			NEXT
    		NEXT 
    		FOR counter = 0 TO 78
    			leddata [counter] = leddata [counter+1]	' *** SHIFTS DATA IN leddata ARRAY DOWN.***
    		NEXT 
    	NEXT
    	GOTO START
    End
    you will have to modify the loop section to suit your 4017 setup

  30. #30
    Join Date
    Mar 2009
    Posts
    48


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    of course this is helpful here is the code that i changed, i know there is a beter way to feed variable but this is for testing and is the siplest way...thx for helping and insiration


    and link for video.

    Code:
     
    '*************************************************  ***************
    ' SIMPLE 14X8 LED MATRIX SCROLLING EXAMPLE
    ' LED Matrix columns are conected to PORTC pin rc0 via ULN2003 and CD4017.
    ' RC1 reset for 4017
    ' LED Matrix rows conected to PORTB via 100 ohm resistors (Resistor value dependant on LEDs used)
    ' RB0 - top row
    ' MCLR (pin1) connected via 4K7 to +5v supply.
    '
    ' today
    '*************************************************  **************************************
    Device 16F877A
    Xtal 8
    TRISB = %00000000
    TRISC = %00000000
    PORTB=0
    PORTC=0
        kolona        var    Byte
        brojac        var    Byte
        scan                 var Byte
        scroll                 var    Byte
        leddata        VAR Byte[47]
    START:    
    Clear
     
            leddata[0] = $FF    
        leddata[1] = $91 
        leddata[2] =$91
        leddata[3] =$90
        leddata[4] = $01
        leddata[5] = $01    
        leddata[6] = $ff 
        leddata[7] =$01
        leddata[8] =$01
        leddata[9] = $46
        leddata[10] = $89    
        leddata[11] = $99 
        leddata[12] =$b1
        leddata[13] =$62
            leddata[14] = $00      'start smjalija
            leddata[15] = $00
            leddata[16] = $00
        leddata[17] = $7e 
        leddata[18] =$81
        leddata[19] =$95
        leddata[20] = $a1
        leddata[21] = $a1    
        leddata[22] = $95 
        leddata[23] =$81
        leddata[24] =$7e
            leddata[25] =$00
        leddata[26] =$00
            leddata[27] = $00 
            leddata[28] = $00
     
     
     LOOP: 
     For scroll = 0 To 1 ' NUMBER OF LETERS or changes display TO SHOW
     
             For scan = 0 To 185
     
             PORTC.1 = 1                       'reseting 4017
             PORTC.1 =0    
                For kolona = 0 To 13
                    PORTC.0 = 1  'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
                    DelayUS 250
                    PORTB=0         
                Next
             Next
             For brojac = 0 To 14
            leddata[brojac]=leddata[brojac+14]
            Next
            Next
    GoSub scrolling  
    GoTo START
    End    
    scrolling:
        leddata[0] = $00
        leddata[1] = $00
        leddata[2] = $00
        leddata[3] = $00
        leddata[4] = $00
            leddata[5] = $00
        leddata[6] = $00
        leddata[7] = $00
        leddata[8] = $00
        leddata[9] = $00
            leddata[10] = $00
        leddata[11] = $00
        leddata[12] = $00
        leddata[13] = $00
        leddata[14] = $00
            leddata[15] = $00
        leddata[16] = $00
        leddata[17] = $00
            leddata[18] = $FF    'start of 'E'
        leddata[19] = $91 
        leddata[20] =$91
        leddata[21] =$81
        leddata[22] = $81
        leddata[23] = $00
        leddata[24] = $01    'start of 'T'
        leddata[25] = $01 
        leddata[26] =$ff
        leddata[27] =$01
        leddata[28] = $01
        leddata[29] = $46    'start of 'S'
        leddata[30] = $89 
        leddata[31] =$99
        leddata[32] =$b1
        leddata[33] = $62
        leddata[34] = $00    'start of '!'
        leddata[35] = $00 
        leddata[36] =$df
        leddata[37] =$00
        leddata[38] =$00
           For scroll = 0 To 38 ' NUMBER OF LETERS TO SHOW
     
     
             For scan = 0 To 25
                      PORTC.1 = 1  'reseting 4017
             PORTC.1 =0    
                For kolona = 0 To 14
                    PORTC.0 = 1 'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
                    DelayUS 300
                    PORTB=0         
                Next
             Next
             For brojac = 0 To 37
            leddata[brojac]=leddata[brojac+1]
            Next
            Next 
    Return
    Last edited by ScaleRobotics; - 7th February 2011 at 23:47. Reason: changed to video tags for video

  31. #31
    Join Date
    Aug 2006
    Location
    Look, behind you.
    Posts
    2,818


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    Quote Originally Posted by xxxxxx View Post
    well i hope i will trigger a nicer behavior in trafic..... or i could scroll ...eat my dust... that would be a good trigger !!!
    Owing to where you live, your city has about 60 square miles more space and 3.5 million less people, which all somewhat resemble one another, you will very likely not encounter a problem there. Not so lucky here.
    HERE you see drivers with signage, they are usually the worst drivers on the road, I got behind one last month with Oregon plates, Obama and Save The Whales stickers waiting to turn left on a green light when the opposing traffic was facing a red light, and she sat and waited while they turned right in front of her. In LA LA Land eat my dust might just get a body shot. Sadly, It happens here, not a lot, but it happens.
    Good luck with your project, it looks like you have gotten a handle on it, I was thinking, if you only want one message, why include the entire alphabet? It would seem you only need a few letters (7), or are you intending to make an ever changing string ?
    EDIT: the above (last paragraph) is in reference to your earlier code, actually wellyboot's code or for about $20 you can get a license plate frame with this feature built in.
    Last edited by Archangel; - 9th February 2011 at 04:16.
    If you do not believe in MAGIC, Consider how currency has value simply by printing it, and is then traded for real assets.
    .
    Gold is the money of kings, silver is the money of gentlemen, barter is the money of peasants - but debt is the money of slaves
    .
    There simply is no "Happy Spam" If you do it you will disappear from this forum.

  32. #32
    Join Date
    Mar 2009
    Posts
    48


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    Quote Originally Posted by Joe S. View Post
    I was thinking, if you only want one message, why include the entire alphabet?
    well just for fun and fere is first result
    Last edited by ScaleRobotics; - 10th February 2011 at 16:29. Reason: added video tags

  33. #33
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    Quote Originally Posted by Joe S. View Post
    I was thinking, if you only want one message, why include the entire alphabet?
    Above was just a cut and paste from a previous project that scrolled different infomation, I had stored the entire alphabet in the eeprom and just read the charactors i needed as required.

    You could add a few buttons to the project so that different messages can be displayed.
    'Baby on Board', 'Child on board', 'Back Off!!', 'Eat my Dirt' - hopefully you wont get shot at!

  34. #34
    Join Date
    Feb 2007
    Posts
    55


    Did you find this post helpful? Yes | No

    Default Your video IR remote

    Quote Originally Posted by wellyboot View Post
    You could add a few buttons to the project so that different messages can be displayed.
    'Baby on Board', 'Child on board', 'Back Off!!', 'Eat my Dirt' - hopefully you wont get shot at!
    Just saw your video...looks good, any chance of seeing your code for reading the remote control?

  35. #35
    Join Date
    Apr 2010
    Posts
    11


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    Quote Originally Posted by xxxxxx View Post
    of course this is helpful here is the code that i changed, i know there is a beter way to feed variable but this is for testing and is the siplest way...thx for helping and insiration


    and link for video.

    Code:
     
    '*************************************************  ***************
    ' SIMPLE 14X8 LED MATRIX SCROLLING EXAMPLE
    ' LED Matrix columns are conected to PORTC pin rc0 via ULN2003 and CD4017.
    ' RC1 reset for 4017
    ' LED Matrix rows conected to PORTB via 100 ohm resistors (Resistor value dependant on LEDs used)
    ' RB0 - top row
    ' MCLR (pin1) connected via 4K7 to +5v supply.
    '
    ' today
    '*************************************************  **************************************
    Device 16F877A
    Xtal 8
    TRISB = %00000000
    TRISC = %00000000
    PORTB=0
    PORTC=0
        kolona        var    Byte
        brojac        var    Byte
        scan                 var Byte
        scroll                 var    Byte
        leddata        VAR Byte[47]
    START:    
    Clear
     
            leddata[0] = $FF    
        leddata[1] = $91 
        leddata[2] =$91
        leddata[3] =$90
        leddata[4] = $01
        leddata[5] = $01    
        leddata[6] = $ff 
        leddata[7] =$01
        leddata[8] =$01
        leddata[9] = $46
        leddata[10] = $89    
        leddata[11] = $99 
        leddata[12] =$b1
        leddata[13] =$62
            leddata[14] = $00      'start smjalija
            leddata[15] = $00
            leddata[16] = $00
        leddata[17] = $7e 
        leddata[18] =$81
        leddata[19] =$95
        leddata[20] = $a1
        leddata[21] = $a1    
        leddata[22] = $95 
        leddata[23] =$81
        leddata[24] =$7e
            leddata[25] =$00
        leddata[26] =$00
            leddata[27] = $00 
            leddata[28] = $00
     
     
     LOOP: 
     For scroll = 0 To 1 ' NUMBER OF LETERS or changes display TO SHOW
     
             For scan = 0 To 185
     
             PORTC.1 = 1                       'reseting 4017
             PORTC.1 =0    
                For kolona = 0 To 13
                    PORTC.0 = 1  'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
                    DelayUS 250
                    PORTB=0         
                Next
             Next
             For brojac = 0 To 14
            leddata[brojac]=leddata[brojac+14]
            Next
            Next
    GoSub scrolling  
    GoTo START
    End    
    scrolling:
        leddata[0] = $00
        leddata[1] = $00
        leddata[2] = $00
        leddata[3] = $00
        leddata[4] = $00
            leddata[5] = $00
        leddata[6] = $00
        leddata[7] = $00
        leddata[8] = $00
        leddata[9] = $00
            leddata[10] = $00
        leddata[11] = $00
        leddata[12] = $00
        leddata[13] = $00
        leddata[14] = $00
            leddata[15] = $00
        leddata[16] = $00
        leddata[17] = $00
            leddata[18] = $FF    'start of 'E'
        leddata[19] = $91 
        leddata[20] =$91
        leddata[21] =$81
        leddata[22] = $81
        leddata[23] = $00
        leddata[24] = $01    'start of 'T'
        leddata[25] = $01 
        leddata[26] =$ff
        leddata[27] =$01
        leddata[28] = $01
        leddata[29] = $46    'start of 'S'
        leddata[30] = $89 
        leddata[31] =$99
        leddata[32] =$b1
        leddata[33] = $62
        leddata[34] = $00    'start of '!'
        leddata[35] = $00 
        leddata[36] =$df
        leddata[37] =$00
        leddata[38] =$00
           For scroll = 0 To 38 ' NUMBER OF LETERS TO SHOW
     
     
             For scan = 0 To 25
                      PORTC.1 = 1  'reseting 4017
             PORTC.1 =0    
                For kolona = 0 To 14
                    PORTC.0 = 1 'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
                    DelayUS 300
                    PORTB=0         
                Next
             Next
             For brojac = 0 To 37
            leddata[brojac]=leddata[brojac+1]
            Next
            Next 
    Return
    Dear sir,
    can u put the schamatic for this project that u designed 14*8 matrix
    thanks

  36. #36
    Join Date
    Mar 2009
    Posts
    48


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    wel as for the reading of IR code i used a build in command from protonIde picbasic compiler, the code is only for testing puposes and not looking good as i yet didn't finished the implementing my idea, and here it is

    Code:
    		 '****************************************************************
    
    ' SIMPLE 15X8 LED MATRIX SCROLLING EXAMPLE
    ' 16F877A External 8MHz Xtal Osc
    ' LED Matrix columns are conected to PORTC pin rc0 via ULN2004AN and CD4017.
    ' RC1 reset for 4017
    ' LED Matrix rows conected to PORTB via 100 ohm resistors 
    ' RB0 - top row
    ' Author: Muamer Halilovic
    ' www.mtskola.com
    ' today
    '***************************************************************************************
    Device 16F877A
    Xtal 8
    TRISB = %00000000
    TRISC = %10000000
    TRISD = %00000000
    PORTB=0
    PORTC=0
    PORTD=0
    All_Digital = True
      
    	EWrite 0,[%00000100,%00000110,%01111111,%00000110,%00000100]	'Up Arrow
    	EWrite 5,[%00010000,%00110000,%01111111,%00110000,%00010000]	'Dn Arrow
    	EWrite 10,[%01111110,%00010001,%00010001,%00010001,%01111110]	'A
    	EWrite 15,[%01111111,%01001001,%01001001,%01001001,%00110110]	'B
    	EWrite 20,[%00111110,%01000001,%01000001,%01000001,%00100010]	'C
    	EWrite 25,[%01111111,%01000001,%01000001,%00100010,%00011100]	'D
    	EWrite 30,[%01111111,%01001001,%01001001,%01001001,%01000001]	'E
    	EWrite 35,[%01111111,%00001001,%00001001,%00001001,%00000001]	'F
    	EWrite 40,[%00111110,%01000001,%01001001,%01001001,%01111010]	'G
    	EWrite 45,[%01111111,%00001000,%00001000,%00001000,%01111111]	'H
    	EWrite 50,[%00000000,%01000001,%01111111,%01000001,%00000000]	'I
    	EWrite 55,[%00100000,%01000000,%01000001,%00111111,%00000001]	'J
    	EWrite 60,[%01111111,%00001000,%00010100,%00100010,%01000001]	'K
    	EWrite 65,[%01111111,%01000000,%01000000,%01000000,%01000000]	'L
    	EWrite 70,[%01111111,%00000010,%00000110,%00000010,%01111111]	'M
    	EWrite 75,[%01111111,%00000100,%00001000,%00010000,%01111111]	'N
    	EWrite 80,[%00111110,%01000001,%01000001,%01000001,%00111110]	'O
    	EWrite 85,[%01111111,%00001001,%00001001,%00001001,%00000110]	'P
    	EWrite 90,[%01111111,%00001001,%00011001,%00101001,%01000110]	'R
    	EWrite 95,[%01000110,%01001001,%01001001,%01001001,%00110001]	'S
    	EWrite 100,[%00000001,%00000001,%01111111,%00000001,%00000001]	'T
    	EWrite 105,[%00111111,%01000000,%01000000,%01000000,%00111111]	'U
    	EWrite 110,[%00011111,%00100000,%01000000,%00100000,%00011111]	'V
    
    
        '________________________________________________________________
        'Deklaracija promjenjivih
        '________________________________________________________________
       	Dim kolona As Byte
    	Dim brojac As Byte
    	Dim k As Byte
    	Dim scan  As Byte
    	Dim scroll As Byte
    	leddata var Byte[100]
        Dim ir_ulaz As Word ' WORD variabla za zaprimanje podataka
        Dim EEpromAdress As Byte 'eprom adresa za upis 
        Dim test As Word 'uporedjivach 
        Dim upisi As ir_ulaz.LowByte
        Dim i As Byte
        Dim sledeceslovo As Word
        Dim prethodnoslovo As Word
        Dim potvrdi As Word
        Dim kraj As Word
        Dim x As Byte
        Dim j As Byte
        Dim cnt As Byte
    
        '________________________________________________________________
        'poetene vrijednosti
        '________________________________________________________________
    
        EEpromAdress = 255
        cnt=0
        k=109
        j=0
        '________________________________________________________________
        'Inicijalizacija
        '________________________________________________________________
        High PORTD.0
        DelayMS 1300
        Low PORTD.0
        DelayMS 1300
        '________________________________________________________________
        'pregledaj eeprom ako ima sta idi na main ako ne idi na pripremu
        '________________________________________________________________
    
    provjera:
       
            test.LowByte = ERead EEpromAdress 'iscitaj zapis iz eeproma sa adrese 255
                    If test.LowByte = $FF Then 'ako je FF pici dalje
                        GoSub eepromprogON
                        DelayMS 1000
                    EndIf
            test.LowByte = ERead 255
                    If test.LowByte <> $FF Then 
                        GoSub odaberporuku
                        DelayMS 1000
                    EndIf
        '*******************************************************************
        Declare RC5In_Pin PORTC.7                    'infrared sensor pin
        '********************************************************************
    main:	
    Clear
    Low PORTD.0
    j=0 
    leddata[0-13] = $00 
        For i = 0 To 4
        k=115
    	 leddata [i+14]=ERead k+i	'B 
    	 leddata [19]=$00
         leddata [i+20]=ERead k+i+6	'B
          leddata [25]=$00
         leddata [i+26]=ERead k+i+12	'B 
          leddata [31]=$00
         leddata [i+32]=ERead k+i+18	'B   
    	Next
    
    
           For scroll = 0 To 37 ' 
              
    
             For scan = 0 To 50
    	                                 PORTC.1 = 1  'reseting 4017
                      PORTC.1 =0 
    			For kolona = 0 To 14
    				PORTC.0 = 1 'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
    				DelayUS 150
                    PORTB=0     	
    		    Next
             Next
             For brojac = 0 To 36
            leddata[brojac]=leddata[brojac+1]
            Next
            Next 
    GoTo main
    
    eepromprogON:            
        High PORTD.0  
        
                Repeat
                    ir_ulaz.LowByte= RC5In '  Primanje signala sa TSOP1738
                Until upisi<> 255' Trazi-cekaj dok ne naleti valjano zaglavlje signala
                       
          EWrite EEpromAdress , [ ir_ulaz.LowByte ]
          sledeceslovo.LowByte = ERead EEpromAdress
    Low PORTD.0
    DelayMS 100
    High PORTD.0
    DelayMS 100
    Low PORTD.0
    DelayMS 100
    High PORTD.0
    
                Repeat
                    ir_ulaz.LowByte= RC5In '  Primanje signala sa TSOP1738
                Until upisi<> 255' Trazi-cekaj dok ne naleti valjano zaglavlje signala
                       EEpromAdress=EEpromAdress - 1
                       EWrite EEpromAdress , [ ir_ulaz.LowByte ]
          prethodnoslovo.LowByte = ERead EEpromAdress
    Low PORTD.0
    DelayMS 100
    High PORTD.0
    DelayMS 100
    Low PORTD.0
    DelayMS 100
    High PORTD.0
    
                Repeat
                    ir_ulaz.LowByte= RC5In '  Primanje signala sa TSOP1738
                Until upisi<> 255' Trazi-cekaj dok ne naleti valjano zaglavlje signala
                       EEpromAdress=EEpromAdress - 1
                       EWrite EEpromAdress , [ ir_ulaz.LowByte ]
          kraj.LowByte = ERead EEpromAdress
    Low PORTD.0
    DelayMS 100
    High PORTD.0
    DelayMS 100
    Low PORTD.0
    DelayMS 100
    High PORTD.0
    
     Repeat
                    ir_ulaz.LowByte= RC5In '  Primanje signala sa TSOP1738
                Until upisi<> 255' Trazi-cekaj dok ne naleti valjano zaglavlje signala
                       EEpromAdress=EEpromAdress -1
                       EWrite EEpromAdress , [ ir_ulaz.LowByte ]
          potvrdi.LowByte = ERead EEpromAdress
            
                
          For x=0 To 5
            Toggle PORTD.0
            DelayMS 100
          x=x+1
          Next 
          x=0
          EEpromAdress=0
    Return
    
    odaberporuku:	
    High PORTD.0
    While ir_ulaz.LowByte<>kraj.LowByte
        Repeat
           ir_ulaz.LowByte= RC5In '  Primanje signala sa TSOP1738
        Until upisi<> 255' Trazi-cekaj dok ne naleti valjano zaglavlje signala 
    
    If ir_ulaz.LowByte=sledeceslovo.LowByte Then
    
        For i = 0 To 4 
    	 leddata [i]=ERead i+cnt	'  
    	Next
             For scan = 0 To 185
             PORTC.1 = 1  'reseting 4017
             PORTC.1 =0	
    			For kolona = 0 To 4
    				PORTC.0 = 1 'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
    				DelayUS 500
                    PORTB=0     	
    		    Next
             Next
          If cnt=115 Then
          cnt=0
          EndIf
          cnt=cnt+5
    '      j=j+1
    ElseIf ir_ulaz.LowByte=prethodnoslovo.LowByte Then
    
    cnt=cnt-5
        For i = 0 To 4 
    	 leddata [i]=ERead i+cnt	'  
    	Next
             For scan = 0 To 185
             PORTC.1 = 1  'reseting 4017
             PORTC.1 =0	
    			For kolona = 0 To 4
    				PORTC.0 = 1 'clock 4017
                    PORTC.0 =0
                    PORTB = leddata[kolona]
    				DelayUS 500
                    PORTB=0     	
    		    Next
             Next
          If cnt=0 Then
          cnt=115
          EndIf
    '      j=j+1 
    
    'zapamti slovo u eeprom   na lokaciji 115 pa nadalje!
    
    ElseIf ir_ulaz.LowByte=potvrdi.LowByte Then
     k=k+6
     For i = 0 To 4 
    	 leddata [i]=ERead i+cnt	'  
    	Next
     For i = 0 To 4 
     
    	 EWrite (i+k),[leddata [i]]	' 
         DelayMS 20 
     Next
     Low PORTD.0
     DelayMS 200
     High PORTD.0
    
    
    ' j=j+1
    'elseIf ir_ulaz.LowByte=kraj.lowbyte and j<>0 Then GoTo main
    EndIf
    
    Wend
    'goto main
    Return
    End
    as for the schematic i just used cd4017 datasheet section for cascading columns, the clock is portc.0 pin and the reset is portc.1 pin, as you can see i am working on a protoboard so i dont have a full schematic. This fun project is in development and probably wont be finished for long so i cant ofer a PCB design!!! thx again for help from everyone spacially wellyboot
    Last edited by xxxxxx; - 11th February 2011 at 07:12.

  37. #37
    Join Date
    Apr 2010
    Posts
    11


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    to xxxxxx

    thanks for the fast reply,it doesn't need full clear schematic just give what u modified/add to original one by 4017,i mean just how to connect,even hand draw on paint software is ok..
    thanks n waiting for ur reply;;
    krish

  38. #38
    Join Date
    Mar 2009
    Posts
    48


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    it doesn't need full clear schematic just give what u modified/add to original one by 4017
    krish
    http://www.electro-tech-online.com/a...-expansion.jpg

    well i use this schematic, clock is coming from portc.0, and reset is conected to portc.1, hope this would help
    Attached Images Attached Images  
    Last edited by Archangel; - 15th March 2015 at 16:20. Reason: remove script & spell

  39. #39
    Join Date
    Apr 2010
    Posts
    11


    Did you find this post helpful? Yes | No

    Thumbs up Re: 8x8 Scrolling LED display (Simple example)

    Quote Originally Posted by xxxxxx View Post
    http://www.electro-tech-online.com/a...-expansion.jpg
    Attachment 5159
    well i use this schematic, clock is comming from portc.0, and reset is conected to portc.1, hope this would help
    thank u so much...highly appreciate ur help n fast response..yes this clears lot questions..
    tnx again
    krish

  40. #40
    Join Date
    Nov 2003
    Location
    Greece
    Posts
    3,275


    Did you find this post helpful? Yes | No

    Default Re: 8x8 Scrolling LED display (Simple example)

    If you choose to use a SIPO register (serial in-parallel output) then you will drop the AND gate in the cost of more I/O pins from the controller.

    Like the 4094 chip.

    Ioannis

Similar Threads

  1. Conway's Game Of Life
    By wellyboot in forum mel PIC BASIC Pro
    Replies: 45
    Last Post: - 28th May 2020, 06:14
  2. MY FIRST scrolling 8X8 LED
    By earltyso in forum mel PIC BASIC Pro
    Replies: 7
    Last Post: - 15th August 2008, 16:23
  3. 5x7 LED Matrix Scrolling Display
    By roycarlson in forum mel PIC BASIC Pro
    Replies: 18
    Last Post: - 4th August 2008, 23:50
  4. Replies: 2
    Last Post: - 14th July 2008, 22:11
  5. LCD will not start
    By btaylor in forum mel PIC BASIC Pro
    Replies: 49
    Last Post: - 24th May 2007, 02:30

Posting Permissions

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