OK, trying to do it with arrays:
arraywrite gives error, while line1[0]=1 works fineCode:line1 var bit[12] arraywrite line1,[%0,%1,%1,%1,%0,%0,%0,%0,%1,%1,%1,%0]
is there a way to use arraywrite with bit array?
|
Re: how to "shift" a data into led matrix display ?
OK, trying to do it with arrays:
arraywrite gives error, while line1[0]=1 works fineCode:line1 var bit[12] arraywrite line1,[%0,%1,%1,%1,%0,%0,%0,%0,%1,%1,%1,%0]
is there a way to use arraywrite with bit array?
|
Re: how to "shift" a data into led matrix display ?
Hi,
Don't use a bit-array, use a BYTE-array instead.
To access an individual bit in the above array you can use the formatCode:Line1 VAR BYTE [8] ArrayWrite Line1, [%10101010, %10101010, %10101010, %10101010, %10101010, %10101010, %10101010, %10101010]/Henrik.Code:myBit VAR bit i VAR BYTE myBit = Line1.0[i] ' Where i of course is the index, or bit number in the array.
|
Re: how to "shift" a data into led matrix display ?
Using bit arrays will make adding of information simpler - it can be visualized during entering the graphical data. Say I want to draw a circle, in BIT, it will look like
001100
010010
010010
001100
Here is the working code, but it has two problems:
1. It is dead huge - 3.3k, so had to use 16F876A
2. If I decrease refresh time, for display to less flicker, some non-needed pixels also come on, but at lower brightness. I suspect, this is because MCU isn't giving "true" gnd connection?
Code:L1 var PORTB.0 L2 VAR PORTB.1 L3 VAR PORTB.2 L4 VAR PORTB.3 L5 VAR PORTB.4 L6 VAR PORTB.5 L7 VAR PORTC.1 C1 VAR PORTC.5 C2 VAR PORTC.4 C3 VAR PORTC.6 C4 VAR PORTC.2 C5 VAR PORTC.3 DEFINE OSC 4 DRO VAR BYTE 'char redraw timing SVLA VAR BYTE 'char scroll value SVLA=0 TRIALI VAR BYTE 'char holdon timing 'define arrays line1 var bit[12] line2 var bit[12] line3 var bit[12] line4 var bit[12] line5 var bit[12] line6 var bit[12] line7 var bit[12] 'write data to array 'line 1 line1[0]=0 line1[1]=1 line1[2]=1 line1[3]=1 line1[4]=0 line1[5]=0 line1[6]=0 line1[7]=1 line1[8]=1 line1[9]=1 line1[10]=0 line1[11]=0 'line 2 line2[0]=1 line2[1]=0 line2[2]=0 line2[3]=0 line2[4]=1 line2[5]=0 line2[6]=1 line2[7]=0 line2[8]=0 line2[9]=0 line2[10]=1 line2[11]=0 'line 3 line3[0]=0 line3[1]=0 line3[2]=0 line3[3]=0 line3[4]=1 line3[5]=0 line3[6]=0 line3[7]=0 line3[8]=0 line3[9]=0 line3[10]=1 line3[11]=0 'line 4 line4[0]=0 line4[1]=1 line4[2]=1 line4[3]=1 line4[4]=1 line4[5]=0 line4[6]=0 line4[7]=0 line4[8]=0 line4[9]=0 line4[10]=1 line4[11]=0 'line 5 line5[0]=1 line5[1]=0 line5[2]=0 line5[3]=0 line5[4]=1 line5[5]=0 line5[6]=1 line5[7]=0 line5[8]=0 line5[9]=0 line5[10]=1 line5[11]=0 'line 6 line6[0]=1 line6[1]=0 line6[2]=0 line6[3]=0 line6[4]=1 line6[5]=0 line6[6]=1 line6[7]=0 line6[8]=0 line6[9]=0 line6[10]=1 line6[11]=0 'line 7 line7[0]=0 line7[1]=1 line7[2]=1 line7[3]=1 line7[4]=0 line7[5]=0 line7[6]=0 line7[7]=1 line7[8]=1 line7[9]=1 line7[10]=0 line7[11]=0 DRO=2 'time refresh set 'turn off display HIGH L1 HIGH L2 HIGH L3 HIGH L4 HIGH L5 HIGH L6 HIGH L7 LOW C1 LOW C2 LOW C3 LOW C4 LOW C5 cikleri: FOR SVLA=0 TO 6 'scroll through the array FOR TRIALI=1 TO 30 'time to show individual char low L1 'ENABLE LINE 1 IF LINE1[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE1[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE1[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE1[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE1[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L1 low L2 'ENABLE LINE 2 IF LINE2[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE2[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE2[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE2[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE2[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L2 low L3 'ENABLE LINE 3 IF LINE3[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE3[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE3[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE3[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE3[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L3 low L4 'ENABLE LINE 4 IF LINE4[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE4[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE4[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE4[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE4[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L4 low L5 'ENABLE LINE 5 IF LINE5[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE5[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE5[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE5[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE5[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L5 low L6 'ENABLE LINE 6 IF LINE6[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE6[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE6[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE6[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE6[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L6 low L7 'ENABLE LINE 7 IF LINE7[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE7[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE7[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE7[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE7[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L7 NEXT PAUSE 5 NEXT 'ROTATE BACK FOR SVLA=6 TO 0 STEP -1 FOR TRIALI=1 TO 30 low L1 'ENABLE LINE 1 IF LINE1[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE1[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE1[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE1[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE1[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L1 low L2 'ENABLE LINE 2 IF LINE2[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE2[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE2[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE2[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE2[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L2 low L3 'ENABLE LINE 3 IF LINE3[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE3[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE3[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE3[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE3[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L3 low L4 'ENABLE LINE 4 IF LINE4[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE4[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE4[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE4[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE4[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L4 low L5 'ENABLE LINE 5 IF LINE5[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE5[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE5[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE5[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE5[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L5 low L6 'ENABLE LINE 6 IF LINE6[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE6[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE6[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE6[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE6[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L6 low L7 'ENABLE LINE 7 IF LINE7[0+SVLA]=1 THEN HIGH C1 ELSE LOW C1 ENDIF IF LINE7[1+SVLA]=1 THEN HIGH C2 ELSE LOW C2 ENDIF IF LINE7[2+SVLA]=1 THEN HIGH C3 ELSE LOW C3 ENDIF IF LINE7[3+SVLA]=1 THEN HIGH C4 ELSE LOW C4 ENDIF IF LINE7[4+SVLA]=1 THEN HIGH C5 ELSE LOW C5 ENDIF PAUSE DRO HIGH L7 NEXT PAUSE 5 NEXT GOTO CIKLERI
|
Re: how to "shift" a data into led matrix display ?
Double post, moderator please remove if possible.
/Henrik.
|
Re: how to "shift" a data into led matrix display ?
Wow, yeah, that's some pretty ineffecient code - no offense.
* Try and never write the same snippet of code more than once, if more than a very simple command and it's needed more than a single time make it a subroutine. You have a VERY long piece of code copy/pasted twice (as far as I can see).
* Avoid using HIGH/LOW, set the TRIS registers to the correct value and write directly to the PORT register (or LAT register on 18F parts). Doing that single thing saves 540 words in your program.
* Instead of the IF/THEN thing for each bit just do C1 = LINE1[0+SVLA] etc.
Something like:
Went from 3161 to 775 words and that's just a first go.Code:' Variables etc as before but make sure to set TRIS registers properly! DRO=2 'time refresh set 'turn off display L1 = 1 L2 = 1 L3 = 1 L4 = 1 L5 = 1 L6 = 1 L7 = 1 C1 = 0 C2 = 0 C3 = 0 C4 = 0 C5 = 0 cikleri: FOR SVLA=0 TO 6 'scroll through the array GOSUB ScanIt PAUSE 5 NEXT 'ROTATE BACK FOR SVLA=6 TO 0 STEP -1 GOSUB ScanIt PAUSE 5 NEXT GOTO CIKLERI ScanIt: FOR TRIALI = 0 TO 29 'time to show individual char L1 = 0 'ENABLE LINE 1 C1 = LINE1[0+SVLA] C2 = LINE1[1+SVLA] C3 = line1[2+SVLA] C4 = line1[3+SVLA] C5 = line1[4+SVLA] PAUSE DRO L1 = 1 L2 = 0 'ENABLE LINE 2 C1 = LINE2[0+SVLA] C2 = LINE2[1+SVLA] C3 = line2[2+SVLA] C4 = line2[3+SVLA] C5 = line2[4+SVLA] PAUSE DRO L2 = 1 L3 = 0 'ENABLE LINE 3 C1 = LINE3[0+SVLA] C2 = LINE3[1+SVLA] C3 = line3[2+SVLA] C4 = line3[3+SVLA] C5 = line3[4+SVLA] PAUSE DRO L3 = 1 L4 = 0 'ENABLE LINE 4 C1 = LINE4[0+SVLA] C2 = LINE4[1+SVLA] C3 = line4[2+SVLA] C4 = line4[3+SVLA] C5 = line4[4+SVLA] PAUSE DRO L4 = 1 L5 = 0 'ENABLE LINE 5 C1 = LINE5[0+SVLA] C2 = LINE5[1+SVLA] C3 = line5[2+SVLA] C4 = line5[3+SVLA] C5 = line5[4+SVLA] PAUSE DRO L5 = 1 L6 = 0 'ENABLE LINE 6 C1 = LINE6[0+SVLA] C2 = LINE6[1+SVLA] C3 = line6[2+SVLA] C4 = line6[3+SVLA] C5 = line6[4+SVLA] PAUSE DRO L6 = 1 L7 = 0 'ENABLE LINE 7 C1 = LINE7[0+SVLA] C2 = LINE7[1+SVLA] C3 = line7[2+SVLA] C4 = line7[3+SVLA] C5 = line7[4+SVLA] PAUSE DRO L7 = 1 NEXT RETURN
I'm sure the rest can be handled with some array manipulation and indexing to reduce the size even further but I don't have time right now.
/Henrik.
|
Re: how to "shift" a data into led matrix display ?
It is not twice, it just scrolls right to left and left to right. Thanks a lot, will have a look!
|
Re: how to "shift" a data into led matrix display ?
Hi,
As far as I can see the FOR TRIALI=1 TO 30 / NEXT loop (which is the bulk of the code) is repeated twice. One time for right-to-left and one time for left-to-right.
/Henrik.
|
Re: how to "shift" a data into led matrix display ?
Fitted your code, you're genius!
now even with double amount of bitmap data added, whole code is only 920 bytes!
Members who have read this thread : 0You do not have permission to view the list of names.
Posting Permissions
Bookmarks