Hallo an Alle,

ich habe mir einen RN-Motor ST I2C- 1.6c gekauft.
Den Bausatz habe ich nach der Anleitung verlötet.
Beim anlegen einer Spannung fließen 38mA.
Er blinkt beim anschließen an 12V und gibt über RS 232 Referenzspannung, Slave Id … usw aus.

Leider ist bei der Beschreibung trotz Ankündigung kein Software-Beispiel für c-control dabei.
Deshalb habe ich mir folgendes Programm zusammengesucht.

define sda port[2]
define scl port[1]
define daten byte
define n byte

sda = on
scl = on

gosub start
daten = 10 'kennung
gosub i2c_write
daten = 1 'befehlscod
gosub i2c_write
daten = 2 'motor
gosub i2c_write
daten = 50
gosub i2c_write
daten = &H56
gosub i2c_write
gosub stop

gosub start
daten = 10 'kennung
gosub i2c_write
daten = 14 'befehlscod
gosub i2c_write
daten = 0 'motor
gosub i2c_write
daten = 0
gosub i2c_write
daten = &H56
gosub i2c_write
gosub stop

gosub start
daten = 10 'kennung
gosub i2c_write
daten = 4 'befehlscod
gosub i2c_write
daten = 2 'motor
gosub i2c_write
daten = 1
gosub i2c_write
daten = &H56
gosub i2c_write
gosub stop

gosub start
daten = 10 'kennung
gosub i2c_write
daten = 8 'befehlscod
gosub i2c_write
daten = 2 'motor
gosub i2c_write
daten = 100
gosub i2c_write
daten = &H56
gosub i2c_write
gosub stop

gosub start
daten = 10 'kennung
gosub i2c_write
daten = 6 'befehlscod
gosub i2c_write
daten = 2 'motor
gosub i2c_write
daten = 0
gosub i2c_write
daten = &H56
gosub i2c_write
gosub stop

end

#i2c_write
for n = 1 to 8
sda = off
if (daten and 12 = 128 then sda = on
pulse scl
daten = daten shl 1
next
pulse scl
return

#start
sda = off
scl = off
return

#stop
sda = off
scl = on
sda = on
return

Ich versuche nun seit 5 Tagen ohne Erfolg den Treiber zum laufen zu bringen.

Bitte sagt mir, was ich falsch mache.