Pin zum Senden einrichten
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
