Hallo zusammen,
ich habe das RN-Mega2560 und möchte Daten über die serielle Schnittstelle versenden. Dazu möchte ich den Pin "PH1 / TXD2 (freie RS232 /TTL Pegel)" nutzen. Die Daten sollen an ein Servoboard geschickt werden.
Bisher sieht mein Programm so aus:
Code:
$regfile = "m2560def.dat"
$hwstack = 82
$framesize = 68
$swstack = 68
$crystal = 16000000 'Quarzfrequenz
$baud = 9600
Dim Servonummer As Byte
Dim Servodevice As Byte
Dim Servocommand As Byte
Dim Servodata1 As Byte
Dim My_string As String * 1
Config Pind.5 = Output
Led Alias Portd.5
Do
Led = 1
'Servogeschwindigkeit
Servodevice = 1 'Jedes Servoboard hat eine Device-Nummer
Servonummer = 7 'Servonummer 0 bis 7
Servocommand = 1 'Befehl: Setze Geschwindigkeit
Servodata1 = 127 'Geschwindigkeit (0 - 127) 127 = max. Geschwindigkeit
Print Chr(128) ; Chr(servodevice) ; Chr(servocommand) ; Chr(servonummer) ; Chr(servodata1)
'Servoposition
Servodevice = 1 'Jedes Servoboard hat eine Device-Nummer
Servonummer = 7 'Servonummer 0 bis 7
Servocommand = 2 'Befehl: Setze Position
Servodata1 = 127 'Position (0 - 127) 0 = ganz rechts; 127 = ganz links
Print Chr(128) ; Chr(servodevice) ; Chr(servocommand) ; Chr(servonummer) ; Chr(servodata1)
Wait 2
Led = 0
Servodevice = 1
Servonummer = 7
Servocommand = 2 'Befehl: Setze Position (0 - 127)
Servodata1 = 0 'Position
Print Chr(128) ; Chr(servodevice) ; Chr(servocommand) ; Chr(servonummer) ; Chr(servodata1)
Wait 2
Loop
End
Das LED blinkt ordnungsgemäß. Aber die Daten kommen wohl nicht zum Servoboard. Muss ich nicht noch den Ausgangspin einrichten? Ich habe leider keine Ahnung
Viele Grüße und Danke im Voraus
datatom
Lesezeichen