Beispielprogramm für MAX7219

[MAxK]

Hallo,

hat jemand von euch ein kleines Beispielprogramm, dass zeigt wie man den MAX7219 ansteurt;wie man die Daten an den MAX schickt

Gruß Max

[Xeus]

Hier hab ich im board bekommen

gruß
xeus

[MAxK]

Hi,

wo kann ich hier meine Zahl definieren, die ausgegeben werden soll?

[Xeus]

Also, ich hab hier noch etwas kommentiertes gefunden. habs selber schon getestet bei mir funzt es. Es gibt nur ein problem, ich weis nicht, wie ich mehrstellige zahlen anzeigen lassen kann.wenn du ne idee hast meld dich.

gruß
xeus


$regfile = "m8def.dat"
$crystal = 16000000

Disp_en Alias Portb.3 ' chip-select for display driVer
Ser_clk Alias Portb.5 ' clk for display driver
Ser_data Alias Portb.2 ' data for display driver

Portc = &B1111_0000 ' portc is ouput only on mega103
'Ddrc = &B1111_0000

Dim Disp_num As Byte
Dim Disp_data As Byte


Gosub Max7219_setup
Main:

Disp_num = 1 ' ( 0 - 7 ) digit#
Disp_data = 5 ' (0 - 15 ) number to display.
Gosub Disp_write


End

' setup max7219 config. registers
Max7219_setup:
Disp_num = &H0C : Disp_data = 0 ' Shutdown On
Gosub Disp_write
Disp_num = 9 : Disp_data = &B0011_0111 ' Decode "B" For 1st 6
Gosub Disp_write
Disp_num = &H0A : Disp_data = &H0F ' Brightness Full
Gosub Disp_write
Disp_num = &H0B : Disp_data = 7 ' # Digits 8
Gosub Disp_write
Disp_num = &H0F : Disp_data = 0 ' Test Off
Gosub Disp_write
Disp_num = &H0C : Disp_data = 1 ' Shutdown Off
Gosub Disp_write
Return

' Sends data to the Max7219 display driver
Disp_write:
Disable Interrupts
Reset Ser_data
Reset Ser_clk
Reset Disp_en
Shiftout Ser_data , Ser_clk , Disp_num , 1
Shiftout Ser_data , Ser_clk , Disp_data , 1
Set Disp_en
Enable Interrupts
Return