demlinger
17.08.2007, 23:16
servus
ich muss mich kurz fassen akku wird leer
wenn ich den tda ansteuer hängt sich der mcu auf hier mein code
$regfile = "m8def.DAT"
$crystal = 8000000 '11.059 MHz Quarz
' 1200 Baud zum PC
Ddrd = 255
Portd = &B00000000
Config Lcd = 20 * 4 ' für LCD
Config Lcdbus = 4 ' LCD über 4 Datenbits
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.1
Config Scl = Portc.0 ' I2C-Port festlegen
Config Sda = Portc.1 'und hier SDA
'Dim Pcf8574_wadr As Byte
'Dim Pcf8574_radr As Byte ' Variablen
Dim Tda_adr As Byte
Tda_adr = &B01000000 ' Schreibadresse füt 8591
' Leseadresse
Cls
Locate 2 , 1
Lcd "test 1" ' zur LC-Anzeige
' zur RS232
'Ausgabe über RS232
I2cinit
Waitms 50
I2cstart
I2cwbyte Tda_adr 'Schreibadresse senden
I2cwbyte &B00100001 , Ack ' Kontrolbyte:
I2cwbyte &B110100 , Ack ' Analog out
I2cstop
Waitms 200
Cls
Locate 2 , 1
Lcd "test 2"
I2cstart
I2cwbyte Tda_adr 'Schreibadresse senden
I2cwbyte &B00100001 , Ack ' Kontrolbyte:
I2cwbyte &B101001 , Ack ' Analog out
I2cstop
der mcu kommt gar nicht mal bis zur zweiten display ausgabe
die adresspins hab ich alle auf 0V
ich muss mich kurz fassen akku wird leer
wenn ich den tda ansteuer hängt sich der mcu auf hier mein code
$regfile = "m8def.DAT"
$crystal = 8000000 '11.059 MHz Quarz
' 1200 Baud zum PC
Ddrd = 255
Portd = &B00000000
Config Lcd = 20 * 4 ' für LCD
Config Lcdbus = 4 ' LCD über 4 Datenbits
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.1
Config Scl = Portc.0 ' I2C-Port festlegen
Config Sda = Portc.1 'und hier SDA
'Dim Pcf8574_wadr As Byte
'Dim Pcf8574_radr As Byte ' Variablen
Dim Tda_adr As Byte
Tda_adr = &B01000000 ' Schreibadresse füt 8591
' Leseadresse
Cls
Locate 2 , 1
Lcd "test 1" ' zur LC-Anzeige
' zur RS232
'Ausgabe über RS232
I2cinit
Waitms 50
I2cstart
I2cwbyte Tda_adr 'Schreibadresse senden
I2cwbyte &B00100001 , Ack ' Kontrolbyte:
I2cwbyte &B110100 , Ack ' Analog out
I2cstop
Waitms 200
Cls
Locate 2 , 1
Lcd "test 2"
I2cstart
I2cwbyte Tda_adr 'Schreibadresse senden
I2cwbyte &B00100001 , Ack ' Kontrolbyte:
I2cwbyte &B101001 , Ack ' Analog out
I2cstop
der mcu kommt gar nicht mal bis zur zweiten display ausgabe
die adresspins hab ich alle auf 0V