hi basicbasic111;
I'm working on a project that uses PIC16F877 and max7219, is that you can send me your code,
thank you in advance
8x8 LED Matrix marquee
Re: 8x8 LED Matrix marquee
Hi,
Are sure, you are talking with BasicBasic?
Are sure, you are talking with BasicBasic?
Re: 8x8 LED Matrix marquee
basicbasic111 wrote:hi,hearty
i am afraid the codes from xor u posted here
do not match your translated codes
the orginal codes should be as follows:
i have a few suggestions for youCode: Select all
const font5x7 as byte[220] = ( $3E, $51, $49, $45, $3E,' 0 $00, $42, $7F, $40, $00,' 1 $42, $61, $51, $49, $46,' 2 $21, $41, $45, $4B, $31,' 3 $18, $14, $12, $7F, $10,' 4 $27, $45, $45, $45, $39,' 5 $3C, $4A, $49, $49, $30,' 6 $01, $71, $09, $05, $03,' 7 $36, $49, $49, $49, $36,' 8 $06, $49, $49, $29, $1E,' 9 $00, $36, $36, $00, $00,' : $00, $56, $36, $00, $00,' $00, $08, $14, $22, $41,' < $14, $14, $14, $14, $14,' = $41, $22, $14, $08, $00,' > $02, $01, $51, $09, $06,' ? $32, $49, $79, $41, $3E,' @ $7E, $11, $11, $11, $7E,' A $7F, $49, $49, $49, $36,' B $3E, $41, $41, $41, $22,' C $7F, $41, $41, $22, $1C,' D $7F, $49, $49, $49, $41,' E $7F, $09, $09, $01, $01,' F $3E, $41, $41, $51, $32,' G $7F, $08, $08, $08, $7F,' H $00, $41, $7F, $41, $00,' I $20, $40, $41, $3F, $01,' J $7F, $08, $14, $22, $41,' K $7F, $40, $40, $40, $40,' L $7F, $02, $04, $02, $7F,' M $7F, $04, $08, $10, $7F,' N $3E, $41, $41, $41, $3E,' O $7F, $09, $09, $09, $06,' P $3E, $41, $51, $21, $5E,' Q $7F, $09, $19, $29, $46,' R $46, $49, $49, $49, $31,' S $01, $01, $7F, $01, $01,' T $3F, $40, $40, $40, $3F,' U $1F, $20, $40, $20, $1F,' V $7F, $20, $18, $20, $7F,' W $63, $14, $08, $14, $63,' X $03, $04, $78, $04, $03,' Y $61, $51, $49, $45, $43,' Z $3E, $51, $49, $45, $3E)' 0 sub procedure LeftScroll(dim indx, flg as byte) dim t0, t1, t2, t3 as byte For t0 = 0 to 4 LATB = 1 t3 = 0 For t1 = 0 to 7 If t1 = flg Then t2 = 0 inc(t3) If t1 < 2 Then flg = t1 + 5 End If Else t2 = font5x7[indx+t1-t3] End If LATC = not(t2) delay_us(3500) LATB = LATB << 1 Next t1 Next t0 end sub main: TRISB = 0 TRISC = 0 LATB = 0 LATC = 0 ADCON1 = 6 While 1=1 ADRESL = 0 ADRESH = 5 While ADRESL < 215 LeftScroll(ADRESL, ADRESH) inc(ADRESL) If dec(ADRESH) = 0 Then ADRESH = 5 End If Wend Wend end.
1) if you want to similate the codes on proteus,
you just type" matrix"
that would save you a lot of time making the transistor connections
2) may i know if you would like to drive
only one 8x8 matrix display?
i do not have codes for that
but i have codes for 16x64 ( driven by max7219 spi)
with proteus files ( written in mickro c pro)
if u like it i can send u everything
perhaps u may get some ideas
how to drive one single 8x8 display
cheers
Re: 8x8 LED Matrix marquee
HI can you send me your 16x64 matrix isis and c.code , i have some problems on my 16x64 matrix, plsbasicbasic111 wrote:WOW!!!!
Very well done!!!
I saw your demo and it was so nice.
Way to go, pal!