Problem mit Max6952

[Peacemaker]

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

$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

 

[Peacemaker]

Hi

Hat sich von selbst erledigt.

Man darf zbs. nicht Digit0 P0 oder P1 alleine setzen, entweder man beschreibt P0 und P1 mit Daten oder man benutzt die Adresse 01100000 (Digit0) damit bekommen P0 und P1 die gleichen Daten und es gibt keine Probleme.

cya Peacemaker