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:
Das LED blinkt ordnungsgemäß. Aber die Daten kommen wohl nicht zum Servoboard. Muss ich nicht noch den Ausgangspin einrichten? Ich habe leider keine AhnungCode:$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
Viele Grüße und Danke im Voraus
datatom







Zitieren

Lesezeichen