8x8 Scrolling LED display (Simple example)

**krish69** · - 10th February 2011, 17:21

Originally Posted by xxxxxx

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

**xxxxxx** · - 11th February 2011, 06:55

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

**krish69** · - 11th February 2011, 07:51

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

**xxxxxx** · - 11th February 2011, 14:58

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

**krish69** · - 11th February 2011, 15:43

Originally Posted by xxxxxx

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

**Ioannis** · - 11th February 2011, 17:16

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

**xxxxxx** · - 11th February 2011, 21:44

yes that is a great idea, going to google for samples of 4049!thx

**gabi68** · - 17th February 2011, 11:51

Hi to all,

A newbie here. I try to compile the file from first post but I receive a constant error
ERROR Line 51: LOOP without a matching DO.
How can I avoid that?

Many thanks in advance
Gabi

P.S.
I know it is a old thread but maybe someone or OP will chime in and help me with that error

**gabi68** · - 17th February 2011, 14:52

Still, Ioannis can you have a look on that code and give me your expert opinion

Rgds
Gabi

normey · - 12th January 2012, 03:29

hello all..

i need your help. i want to build program even one word to display on dot matrix (7x5) with pic16f877a. i use c language. but when i compile it don't have any error. but it can't work on dot matrix after i load that program. anyone can help me.. i'm on stuck. hope you all can help me. here my program. i want use port a n port b.

#include <16f877a.h>

#use delay(clock=20000000)
#fuses hs,nowdt,nocpd,nolvp,noprotect

#byte porta=0x06
#byte portb=0x08
#bit clock=portd.6
#bit data=portd.7

unsigned int8 i,j,index1,n,
addr[11]={0xEA,0xEA,0x2A,0x2A,0x2A,0x2A,0xAA,0x82,0xFF,0xF F,0xFF},
cont[11];

void main()
{
set_tris_a(0x00);
set_tris_b(0x00);
while(1)
{
for(n=0;n<=99;n++)
{
data=1;
for(i=0;i<=5;i++)
{
clock=1;
portb=addr[i];
delay_ms(1);
clock=0;
data=0;
}
}

for(j=0;j<=7;j++)
{
cont[j]=addr[j];
}

for(j=0;j<=7;j++)
{
addr[j]=cont[j+1];
}
addr[10]=cont[0];

}
}

besides that i'm a new in programming. hope n hope anyone can help me.. thank you.

**cutemanikutti** · - 9th July 2012, 05:55

Hi please any one would you able to help me to build the LED Matrix project? i have already designed it for 10x7 matrix. it's working nicely. but if i extend this to 20x7 then it s running and blinking fastly. i think the delay wil b a problem. now i want some guidelines from u. please it's urgent. help me.[email protected]. mail me the code in c

Thread: 8x8 Scrolling LED display (Simple example)

Thread Tools

Search Thread

Display

Hybrid View

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Re: 8x8 Scrolling LED display (Simple example)

Similar Threads

Conway's Game Of Life

MY FIRST scrolling 8X8 LED

5x7 LED Matrix Scrolling Display

6-Digit, 7-segment, serial LED display controller IC

LCD will not start

Members who have read this thread : 1

Bookmarks

Bookmarks

Posting Permissions