Dennis2006
07.01.2007, 19:24
Hi!
Habe das RN-Control 1.4 mit dem SD21 Controller:
http://www.rev-ed.co.uk/docs/axe031.pdf
verbunden.
Dazu habe ich folgendes Programm in BASCOM geschrieben:
$regfile = "m32def.dat" 'Die Anweisung bestimmt Ccntrollertyp, hier AVR Mega 32
$crystal = 16000000 'Die Frequenz des verwendeten Quarzes
$baud = 9600 'Die Baudrate für RS232 Ausgabe.
'Sie muss auch bei PC Terminalprogramm identisch sein
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
Const Servo_adr = &HC2 'I2C Adress Servo Controller
Dim Lsb As Byte
Dim Msb As Byte
Dim Posit As Word
I2cinit
Do
Posit = 2200 ' position (1000 - 2000)
Lsb = Low(posit)
Msb = High(posit)
I2cstart
I2cwbyte Servo_adr ' serv CTRL I2C Addr
I2cwbyte 3 ' servo nr
I2cwbyte 0 ' speed
I2cwbyte Lsb ' lsb of position
I2cwbyte Msb ' Msb of position
I2cstop
Waitms 3000
Posit = 800 ' position (1000 - 2000)
Lsb = Low(posit)
Msb = High(posit)
I2cstart
I2cwbyte Servo_adr ' serv CTRL I2C Addr
I2cwbyte 3 ' servo nr
I2cwbyte 0 ' speed
I2cwbyte Lsb ' lsb of position
I2cwbyte Msb ' Msb of position
I2cstop
Waitms 3000
Loop
Leider funktionier tdas nicht... seht ihr den Fehleer?
Danke!
Gruß
Dennis
Habe das RN-Control 1.4 mit dem SD21 Controller:
http://www.rev-ed.co.uk/docs/axe031.pdf
verbunden.
Dazu habe ich folgendes Programm in BASCOM geschrieben:
$regfile = "m32def.dat" 'Die Anweisung bestimmt Ccntrollertyp, hier AVR Mega 32
$crystal = 16000000 'Die Frequenz des verwendeten Quarzes
$baud = 9600 'Die Baudrate für RS232 Ausgabe.
'Sie muss auch bei PC Terminalprogramm identisch sein
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
Const Servo_adr = &HC2 'I2C Adress Servo Controller
Dim Lsb As Byte
Dim Msb As Byte
Dim Posit As Word
I2cinit
Do
Posit = 2200 ' position (1000 - 2000)
Lsb = Low(posit)
Msb = High(posit)
I2cstart
I2cwbyte Servo_adr ' serv CTRL I2C Addr
I2cwbyte 3 ' servo nr
I2cwbyte 0 ' speed
I2cwbyte Lsb ' lsb of position
I2cwbyte Msb ' Msb of position
I2cstop
Waitms 3000
Posit = 800 ' position (1000 - 2000)
Lsb = Low(posit)
Msb = High(posit)
I2cstart
I2cwbyte Servo_adr ' serv CTRL I2C Addr
I2cwbyte 3 ' servo nr
I2cwbyte 0 ' speed
I2cwbyte Lsb ' lsb of position
I2cwbyte Msb ' Msb of position
I2cstop
Waitms 3000
Loop
Leider funktionier tdas nicht... seht ihr den Fehleer?
Danke!
Gruß
Dennis