Zentauro
27.06.2007, 19:25
hallo,
ich probier schon 4 stunden um meine i2c kommunikation zu einem display herzustellen, aber es geht einfach nicht. hab das rnbfra 1.22 board und die i2c hardware onboard funktioniert.
ich hab schon alle befehle für i2c probiert. weiters habe ich schleifen laufen lassen, die alle adressen beschreiben und alle möglichen daten von 0-255 scheiben, aber ich bekomm einfach nix auf das display. hab mit einem picaxe auf das display geschrieben und das geht, was mache ich falsch??? gibts da noch irgendwo sondereinstellungen, auf welche ich vergessen haben könnte???
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000
$baud = 19200 'Quarzfrequenz
Const Powerport_adr = &H74 'I2C Adr PCF 2
Const Display_adr = &HC6
Dim I2cdaten As Byte
Dim Bytes As Byte 'Datenbyte aus PCF8574
Config Portc = Output
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
'Print "Write Powerport"
I2cinit
I2cstart
I2cwbyte Powerport_adr 'Schreibbefehl an PCF schicken
I2cwbyte &B00000010 'Datenbyte an PCF
I2cstop
I2cdaten = &H0C
Bytes = 1
Do
'Print "Versuch 1"
I2csend 255
I2csend Display_adr
I2csend "B"
I2csend &HC6 , &H0C
I2cinit
I2cstart
I2cwbyte Display_adr 'Schreibbefehl an PCF schicken
I2cwbyte 12 'Datenbyte an PCF
I2cstop
Loop
End
danke, lg philipp
ich probier schon 4 stunden um meine i2c kommunikation zu einem display herzustellen, aber es geht einfach nicht. hab das rnbfra 1.22 board und die i2c hardware onboard funktioniert.
ich hab schon alle befehle für i2c probiert. weiters habe ich schleifen laufen lassen, die alle adressen beschreiben und alle möglichen daten von 0-255 scheiben, aber ich bekomm einfach nix auf das display. hab mit einem picaxe auf das display geschrieben und das geht, was mache ich falsch??? gibts da noch irgendwo sondereinstellungen, auf welche ich vergessen haben könnte???
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 8000000
$baud = 19200 'Quarzfrequenz
Const Powerport_adr = &H74 'I2C Adr PCF 2
Const Display_adr = &HC6
Dim I2cdaten As Byte
Dim Bytes As Byte 'Datenbyte aus PCF8574
Config Portc = Output
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
'Print "Write Powerport"
I2cinit
I2cstart
I2cwbyte Powerport_adr 'Schreibbefehl an PCF schicken
I2cwbyte &B00000010 'Datenbyte an PCF
I2cstop
I2cdaten = &H0C
Bytes = 1
Do
'Print "Versuch 1"
I2csend 255
I2csend Display_adr
I2csend "B"
I2csend &HC6 , &H0C
I2cinit
I2cstart
I2cwbyte Display_adr 'Schreibbefehl an PCF schicken
I2cwbyte 12 'Datenbyte an PCF
I2cstop
Loop
End
danke, lg philipp