Servo ansteuern mit Pololu

$prog , 255 , &B11011100,

$regfile = "m2560def.dat"

$hwstack = 82                                               '80

$framesize = 68                                             ' 64

$swstack = 68                                               '44

$crystal = 16000000                                         'Quarzfrequenz

$baud = 19200

Config Pind.5 = Output

Led Alias Portd.5

'Echo Off

Config Com3 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Open "com3:" For Binary As #3                               'RS232

Dim Servonummer As Byte

Dim Servodevice As Byte

Dim Servocommand As Byte

Dim Servodata1 As Byte

Do

'Langsame Servogeschwindigkeit

Servodevice = 1 'Jedes Servoboard hat eine Device-Nummer

Servonummer = 7 'Servonummer 0 bis 7

Servocommand = 1 'Befehl: Setze Geschwindigkeit (0 - 127)

Servodata1 = 80                                             'Geschwindigkeit

Print #3 , Chr(128) ; Chr(servodevice) ; Chr(servocommand) ; Chr(servonummer) ; Chr(servodata1)

Loop

End