michiE
15.08.2006, 11:44
Hallo allerseits
ich hab 2 srf10 von roboter-teile.de gekauft und hab probleme , die Dinger mit einer c-control m-unit 2.0 in cc-basic über den i²C-bus anzusteuern.
ich hab es bisher mit folgendem script versucht...
define SDA port[9]
define SCL port[10]
define ADDRESS word[1]
define ADDRHI byte[1]
define ADDRLO byte[2]
define DEV1 byte[3]
define COUNTER byte[5]
define DATA byte[8]
define CLOCKS byte[10]
define MASK byte[11]
#INIT
#write
print "address"
ADDRESS=0
print address
DATA= 81
gosub WRITEBYTE
pause 100
#read
ADDRESS = 3
gosub READBYTE
print "data"
print DATA
goto write
end
#WRITEBYTE
dev1 = 224
print"#ON_IIC#";:print"#STOP#";:print"#START#";:put &HE0 'dev1
put ADDRHI:put ADDRLO:put DATA:print"#STOP#";:print"#OFF#";
return
#READBYTE
print"#ON_IIC#";:print"#STOP#";:print"#START#";:put &HE0
put ADDRHI:put ADDRLO:print"#STOP#";
print"#START#";:put &HE1 :get DATA:print"#STOP#";:print"#OFF#"; 'dev1 + 1
return
hat jemand erfahrung damit oder kann mir irgend jemand ein beispielscript geben ?
mfg & thx im vorraus
Michi[/code]
ich hab 2 srf10 von roboter-teile.de gekauft und hab probleme , die Dinger mit einer c-control m-unit 2.0 in cc-basic über den i²C-bus anzusteuern.
ich hab es bisher mit folgendem script versucht...
define SDA port[9]
define SCL port[10]
define ADDRESS word[1]
define ADDRHI byte[1]
define ADDRLO byte[2]
define DEV1 byte[3]
define COUNTER byte[5]
define DATA byte[8]
define CLOCKS byte[10]
define MASK byte[11]
#INIT
#write
print "address"
ADDRESS=0
print address
DATA= 81
gosub WRITEBYTE
pause 100
#read
ADDRESS = 3
gosub READBYTE
print "data"
print DATA
goto write
end
#WRITEBYTE
dev1 = 224
print"#ON_IIC#";:print"#STOP#";:print"#START#";:put &HE0 'dev1
put ADDRHI:put ADDRLO:put DATA:print"#STOP#";:print"#OFF#";
return
#READBYTE
print"#ON_IIC#";:print"#STOP#";:print"#START#";:put &HE0
put ADDRHI:put ADDRLO:print"#STOP#";
print"#START#";:put &HE1 :get DATA:print"#STOP#";:print"#OFF#"; 'dev1 + 1
return
hat jemand erfahrung damit oder kann mir irgend jemand ein beispielscript geben ?
mfg & thx im vorraus
Michi[/code]