Hallo assie17

Habe die Ansteuerung mal umgeschrieben und getestet.

Muß nochmal nachschauen, warum das mit i2csend nicht geht.



Code:
Wait 1

Declare Sub Motorrecht()


Call Motorrecht()

End

Config Scl = Portc.0                                        'Ports fuer IIC-Bus
Config Sda = Portc.1


'-------- Writing and reading Adress RN Power -----------------
Dim A As Byte
Const Adresw = 04                                          
Const Adresr = 05                                       




Sub Motorrecht()
' Speed rechts einstellen
I2cstart
I2cwbyte Adresw
I2cwbyte 71
I2cwbyte 128
I2cstop

'Kleine Pause
Waitms 25

'Drehrichtung einstellen
I2cstart
I2cwbyte Adresw
I2cwbyte 74
I2cwbyte 1
I2cstop

End Sub

Gruß Dieter