mal wieder ein kleiner Erfolg, ich hab den Turm zum drehen gebracht. Allerdings muss ich mir noch was einfallen lassen, wie ich dem Turm sage, dass er jetzt am Anschlag ist. Denn leider lässt er sich nur um 320° drehen...
Aber leider funktioniert mein Softwareuart immer noch nicht... 
Code:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 2400
Do
Dim Text As String * 16
Config Portb.0 = Output
Portb.0 = 1
Input , Text
Portb.0 = 0
Print "M8 sagt " ; Text
Loop
End
Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 2400
Print "funktioniert rs232"
waitms 1000
Config Portc.0 = Output
Portc.0 = 0
Open "Comd.6:2400,8,n,1" For Output As #1
Open "Comd.3:2400,8,n,1" For Input As #2
Dim Text As String * 16
Dim Textneu As String * 16
Input "Zeichen eingeben " , Text
Print "RN sagt " ; Text
Print #1 , "RN sagt " ; Text
Input #2 , Textneu
Print "RN sagt " ; Textneu
End
Terminalmitschnitt:
funktioniert RS232 (Rn Control)
Zeichen eingeben jau (Input, jau ist meine Antwort)
RN sagt jau ( Direktantwort)
RN sagt M8 sagt RN sagt ( Anscheinend kommt schon etwas beim m8 an, aber nix richtiges.)
Zitieren
Lesezeichen