Das müsste doch jetzt so gehen oder? Und ich muss doch bei I2C von den 2 Leitungen gegen VCC nen Widerstand schalten. Welchen wert kann man da empfehlem?


Code:
$regfile = "M32def.dat"                           ' the used chip
$crystal = 16000000


Config Scl = Portc.0                                        'I2C-Ports festlegen

Config Sda = Portc.1

Dim I2cdaten(6) As Byte

I2cinit

I2cdaten(1) = 10   'Kennung muss bei RN-Motor immer 10 sein
I2cdaten(2) = 4    'Befehlscode
I2cdaten(3) = 0    '1 Parameter
I2cdaten(4) = 0    '2 Parameter
I2csend &H56 , I2cdaten(1) , 5                              'Befehl wird gesendet


Waitms 500

I2cdaten(1) = 10   'Kennung muss bei RN-Motor immer 10 sein
I2cdaten(2) = 6    'Befehlscode
I2cdaten(3) = 0    '1 Parameter
I2csend &H56 , I2cdaten(1) , 5                              'Befehl wird gesendet

Waitms 500