8x8 Scrolling LED display (Simple example)

[wellyboot]

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

[xxxxxx]

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

[xxxxxx]

hello again I menaged to display letter M on 5x7 dot matrix with this changed code is this a good solution

' 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????

[xxxxxx]

now i manage to change code to show leter M and then some simbol with duration of 500ms,

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

[Archangel]

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.

[xxxxxx]

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

[wellyboot]

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!

	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

[Archangel]

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.

[tashabahar]

hello mr.fratello... can you help me? im very need your help.. i want to do font moving display... but the coding is complicated to me... can u teach me about the coding for font moving display...

[Kalaiyarasi]

hai, i am doing project on PIC16F877A.I am executing the code in MPLAB.Can anyone help me to display the characters from A to Z in 8 X 8 LED using MPLAB code....

[fratello]

Take a look at this ...http://www.picbasic.co.uk/forum/cont...ng-thermometer