datatom
23.12.2011, 23:32
Hallo zusammen,
ich habe das Micro Seriell Servoboard und steuere im Pololu-Modus einen Servo an. Auf dem RN-Mega2560 habe ich ein Bascomprogramm. Leider bekomme ich einen Fehler den ich mir nicht erklären kann.
Hier das kurze Programm:
$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
Das Programm initialisiert nur die Servodrehgeschwindigkeit. Hat jemand eine Idee?
Vielen Dank.
Grüße
datatom
ich habe das Micro Seriell Servoboard und steuere im Pololu-Modus einen Servo an. Auf dem RN-Mega2560 habe ich ein Bascomprogramm. Leider bekomme ich einen Fehler den ich mir nicht erklären kann.
Hier das kurze Programm:
$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
Das Programm initialisiert nur die Servodrehgeschwindigkeit. Hat jemand eine Idee?
Vielen Dank.
Grüße
datatom