Hello!
I despair straight of the Microservo board, Pololu and Bascom.
With the mini SSC II mode the servo moves correct. (0-5° is adjusted, more goes also)
Now i write the same function with the Pololu mode. Not good … The yellow LED is flashing and the red LED is always on. The jumper is removed for the Pololu mode.
The docu for this board doesn’t help me
Here is my code for the 2 modes, i hope you can help me to write a bascom code for the pololu mode.
Mini SSC II Code
$regfile = "m128def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 19200
$baud1 = 9600
Open "com2:" For Binary As #2 'Output over second serial interface
Sound Portg.2 , 100 , 450
Dim Servonumber As Byte
Dim Servoposition As Byte
Do
Servonumber = 7 'Servonumber
Servoposition = 5 'Position
Print #2 , Chr(255) ; Chr(servonumber) ; Chr(servoposition);
Waitms 100
Servonumber = 7 'Servonumber
Servoposition = 0 'Position
Print #2 , Chr(255) ; Chr(servonumber) ; Chr(servoposition);
Waitms 100
Loop
End[/code]
[u]<font color="green">Pololu Code</font>[/u]
[code]$regfile = "m128def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 19200
$baud1 = 9600
Open "com2:" For Binary As #2 'Output over second serial interface
Sound Portg.2 , 100 , 450
Dim Servodevice As Byte
Dim Servocommand As Byte
Dim Servonumber As Byte
Dim Servodata1 As Byte
Do
Servodevice = 1 'Device-Number
Servocommand = 4 'Command
Servonumber = 7 'Servonumber
Servodata1 = 5 'Position
Print #2 , Chr(128) ; Chr(servodevice) ; Chr(servocommand) ; Chr(servonumber) ; Chr(servodata1);
Waitms 100
Servodevice = 1 'Device-Number
Servocommand = 4 'Command
Servonumber = 7 'Servonumber
Servodata1 = 0 'Position
Print #2 , Chr(128) ; Chr(servodevice) ; Chr(servocommand) ; Chr(servonumber) ; Chr(servodata1);
Waitms 100
Loop
End