Hallo
Ich fummel schon länger mit dem Max rum aber ich finde einfach nicht den Fehler vielleicht hat schon jemand mit dem IC gearbeitet und sieht meinen Fehler ;-)
Datenblatt gibt es hier http://datasheets.maxim-ic.com/en/ds/MAX6952.pdf
Angeschlossen ist der Max richtig den Test-Mode kann ich an und aus machen aber ich kann mir kein Zeichen anzeigen lassen, ich benutze nur ein Digit.
mein Code
Danke Peacemaker
cya
Ich fummel schon länger mit dem Max rum aber ich finde einfach nicht den Fehler vielleicht hat schon jemand mit dem IC gearbeitet und sieht meinen Fehler ;-)
Datenblatt gibt es hier http://datasheets.maxim-ic.com/en/ds/MAX6952.pdf
Angeschlossen ist der Max richtig den Test-Mode kann ich an und aus machen aber ich kann mir kein Zeichen anzeigen lassen, ich benutze nur ein Digit.
mein Code
Code:
$regfile = "m16def.dat"
$crystal = 8000000
Dim SendWord as Word
Max_Load alias PortB.0
Max_Data alias PortB.1
Max_Clk alias PortB.2
Config Max_Load = Output
Config Max_Data = Output
Config Max_Clk = Output
Set Max_Load
Set Max_Data
set Max_Clk
Gosub Maxinit
Do
SendWord = &B0010000000110001 'Ausgabe 1 Digit0 P0
Reset Max_Load
Shiftout Max_Data, Max_Clk, SendWord, 1
Set Max_Load
Wait 1
SendWord = &B0010000000110010 'Ausgabe 2 Digit0 P0
Reset Max_Load
Shiftout Max_Data, Max_Clk, SendWord, 1
Set Max_Load
Wait 1
Loop
Maxinit:
SendWord = &B0000000100000000 'Intensity
Reset Max_Load
Shiftout Max_Data, Max_Clk, SendWord, 1
Set Max_Load
SendWord = &B0000001100000000 ' Scan-Limit
Reset Max_Load
Shiftout Max_Data, Max_Clk, SendWord, 1
Set Max_Load
SendWord = &B0000010000000001 'Shutdown Aus
Reset Max_Load
Shiftout Max_Data, Max_Clk, SendWord, 1
Set Max_Load
SendWord = &B0000011100000001 'Display Test An
Reset Max_Load
Shiftout Max_Data, Max_Clk, SendWord, 1
Set Max_Load
Wait 1
SendWord = &B0000011100000000 'Display Test Aus
Reset Max_Load
Shiftout Max_Data, Max_Clk, SendWord, 1
Set Max_Load
Return
Danke Peacemaker
cya