Max531 mit Bascom

[ohjeh (Gast)]

Hi zusammen,

ich versuche einen Max531 DAC an einem Atmega32 mit Bascom zum laufenzu 
bekommen. Leider funktioniert es nicht so recht.
Die Kommunikation zwischen Max531 und Atmega läuft, nur kann ich keine 
Spannung richtig einstellen. Ich bekomm zwar verschiedene Spannungen 
raus, aber diese stimmen nicht:
Wert 4095 -> 4,1 V -> passt
Wert    0 -> 0,1 V -> passt
Wert 2047 -> 4,0 V -> passt nicht sollte ca 2 V sein

Hier mal mein Code:

$regfile = "m32def.dat"
$crystal = 4000000


Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portd.6 , E = Portd.5 , Db4 = Portd.4 , Db5 = Portd.3 , Db6 = Portd.2 , Db7 = Portd.1
Config Lcdbus = 4
Cursor Off Noblink
Cls


Config Date = Dmy , Separator = .
Config Clock = Soft , Gosub = Sectic
Enable Interrupts
Date$ = "01.01.10"
Time$ = "00:00:01"


Config Spi = Soft , Din = Pina.3 , Dout = Porta.1 , Ss = Porta.2 , Clock = Porta.0 , Spiin = Value
Spiinit
Config Porta.3 = Output
Dac_clear Alias Porta.3
Dac_clear = 1


Config Portc.0 = Output
Licht Alias Portc.0
Licht = 0

Config Pinb.0 = Input




Dim A(10) As Byte
Dim Dac_wert(2) As Byte

Dim Dac_wert_lang As Word
Dim Dimmwert As Word

Dac_wert_lang = 0



'ENTWEDER SO

A(1) = &B1111                                               'Dummy
A(2) = &B0111                                               'Wert1
A(3) = &B1101                                               'Wert2
A(4) = &B0000                                               'Wert3

Dac_wert(1) = A(1) And A(2)
Dac_wert(2) = A(3) And A(4)

Dac_wert_lang = Dac_wert(1) And Dac_wert(2)



'ODER SO


Dac_wert_lang = 2047





Spiout Dac_wert_lang , 2





   Do



   Loop


End

Ich hoffe mir kann jemand helfen.

Grüsse

[Weingut P. (weinbauer)]

ich seh da kein chip select in deinem code

[ohjeh (Gast)]

Den habe ich direkt bedrahtet weil ich nur den einen MAX531 am SPI habe.