Hallo,

leider immer noch das selbe Bild. Der Motor dreht sich nicht. Kann es an irgendwelchen Jumpereinstellungen liegen?



$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600

Wait 3

Config Scl = Portc.0
Config Sda = Portc.1
Dim I2cdaten(6) As Byte

I2cinit

I2cdaten(1) = 10
I2cdaten(2) = 1
I2cdaten(3) = 0
I2cdaten(4) = 20
I2csend &H56 , I2cdaten(1) , 5

I2cdaten(1) = 10
I2cdaten(2) = 10
I2cdaten(3) = 0
I2csend &H56 , I2cdaten(1) , 5

I2cdaten(1) = 10
I2cdaten(2) = 5
I2cdaten(3) = 0
I2cdaten(4) = 100
I2csend &H56 , I2cdaten(1) , 5


Do
Loop
End