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:
1 | $prog , 255 , &B11011100, |
2 | |
3 | $regfile = "m2560def.dat" |
4 | $hwstack = 82 '80 |
5 | $framesize = 68 ' 64 |
6 | $swstack = 68 '44 |
7 | |
8 | |
9 | $crystal = 16000000 'Quarzfrequenz |
10 | $baud = 19200 |
11 | |
12 | |
13 | Config Pind.5 = Output |
14 | Led Alias Portd.5 |
15 | |
16 | 'Echo Off |
17 | |
18 | Config Com3 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 |
19 | Open "com3:" For Binary As #3 'RS232 |
20 | |
21 | Dim Servonummer As Byte |
22 | Dim Servodevice As Byte |
23 | Dim Servocommand As Byte |
24 | Dim Servodata1 As Byte |
25 | |
26 | Do |
27 | |
28 | 'Langsame Servogeschwindigkeit |
29 | Servodevice = 1 'Jedes Servoboard hat eine Device-Nummer |
30 | Servonummer = 7 'Servonummer 0 bis 7 |
31 | Servocommand = 1 'Befehl: Setze Geschwindigkeit (0 - 127) |
32 | Servodata1 = 80 'Geschwindigkeit |
33 | Print #3 , Chr(128) ; Chr(servodevice) ; Chr(servocommand) ; Chr(servonummer) ; Chr(servodata1) |
34 | |
35 | Loop |
36 | End |
Das Programm initialisiert nur die Servodrehgeschwindigkeit. Hat jemand eine Idee? Vielen Dank. Grüße datatom