Hallo Milleniumpilot,
danke für die schnelle Antwort.
Habe natürlich zu allererst das Beispielprogramm eingespielt, hatte nur leider garnicht funktioniert, es war nicht ersichtlich ob sich überhaupt was tut ausser ein ganz schwaches aufblinken der PortC 0 und 1 LED's.
Gehe davon aus das das die beiden I2C Signale sind die da heissen SCL und SDA.
Dann hatte ich hier im Forum eine modifizierte Version gefunden.
Den PortA habe ich mit LED's verbunden so kann ich jetzt sehen dass dasCode:$regfile = "m32def.dat" $crystal = 1000000 $baud = 9600 Declare Sub Schalte_relais(byval Relaisnr As Byte , Byval Status As Byte) Dim I As Byte Dim Relaisstatus As Byte Const Relaisport_adr = &H76 'Ports für I2C-Bus Config Scl = Portc.0 Config Sda = Portc.1 'I2C-Bus initialisieren I2cinit Config Porta = Output Main: For I = 0 To 7 Porta.i = 0 Call Schalte_relais(i , 1) Wait 1 Porta.i = 1 Call Schalte_relais(i , 0) Wait 1 Next I Goto Main Sub Schalte_relais(byval Relaisnr As Byte , Byval Status As Byte) Relaisstatus.relaisnr = Status I2cstart I2cwbyte Relaisport_adr 'Schreibbefehl an PCF I2cwbyte Relaisstatus 'Datenbyte an PCF I2cstop End Sub
Program vom Mega32 richtig ausgefürt wird. Ob der Code aber vom RN-Relais empfangen wird kann man so natürlich nicht sehen.
Mit der externen Spannungsversorgung 6>V habe ich es noch nicht ausprobiert. Habe diese möglichkeit nicht verfolgt da ja an den Ausgangsports des Treiber Ic's eh kein Signal anliegt und um diesen Treiber mit Spannung zu zu versorgen müste eigendlich die I2C Versorgung ausreichend sein oder?
Werde es aber trotz dem mit der Ext. Spannung versuchen.
Vielen dank noch mal für deine Antword und verbleibe
Lejcko







Zitieren

Lesezeichen