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
Lesezeichen