8x8 LED Matrix marquee

[midou80]

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

[Hearty]

Hi,
Are sure, you are talking with BasicBasic?

[gana]

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:

Code: 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.

i have a few suggestions for you

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

[gana]

WOW!!!!



Very well done!!!

I saw your demo and it was so nice.


Way to go, pal!

HI can you send me your 16x64 matrix isis and c.code , i have some problems on my 16x64 matrix, pls