Ich hab hab ja nur 1 modul, auf der anderen seite läuft ein virtueller com port.

hier mal das programm:
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600


Enable Interrupts

Dim A As Byte


Config Pinc.6 = Output                                      'Linker Motor Kanal 1
Config Pinc.7 = Output                                      'Linker Motor Kanal 2
Config Pind.4 = Output                                      'Linker Motor PWM
Config Pinb.0 = Output                                      'Rechter Motor Kanal 1
Config Pinb.1 = Output                                      'Rechter Motor Kanal 2
Config Pind.5 = Output                                      'Rechter Motor PWM

Config Pina.0 = Output                                      'LenkServo kalibrieren
Config Servos = 1 , Servo1 = Porta.0 , Reload = 10          'LenkServo anzahl     4
Servo(1) = 115                                              'LenkServo mittig ausrichten

Do
A = Inkey()
If A > 0 Then
    Select Case A
      Case 56                                               'Das ist der ASCII Code für Taste "8"
         Sound Portd.7 , 400 , 450
         Print "Schnell vorwärts"
   Portc.6 = 1                                              'bestimmt Richtung
   Portc.7 = 0                                              'bestimmt Richtung
   Portd.4 = 1                                              'Linker Motor EIN

      Case 50                                               'Das ist der ASCII Code für Taste "2"
         Sound Portd.7 , 400 , 650
         Print "Schnell rückwärts"
   Portc.6 = 0                                              'bestimmt Richtung
   Portc.7 = 1                                              'bestimmt Richtung
   Portd.4 = 1                                              'Linker Motor EIN

       Case 53                                              'Das ist der ASCII Code für Taste "5"
         Sound Portd.7 , 400 , 550
         Print "Motor abbremsen"
   Portd.4 = 0                                              'Linker Motor aus

      Case 52                                               'Das ist der ASCII Code für Taste "4"
         Sound Portd.7 , 400 , 750
         Print "Links lenken"
   Servo(1) = 90

      Case 54                                               'das Ist Der Ascii Code Für Taste "6"
         Sound Portd.7 , 400 , 850
         Print "Rechts lenken"
   Servo(1) = 200

      Case 51                                               'das Ist Der Ascii Code Für Taste "3"
         Sound Portd.7 , 400 , 950
         Print "Gerade aus"
   Servo(1) = 115

      Case 48                                               'das Ist Der Ascii Code Für Taste "0"
         Sound Portd.7 , 400 , 350
         Print "Lüftung an"
   Portb.0 = 1                                              'bestimmt Richtung rechter Motor
   Portb.1 = 0                                              'bestimmt Richtung rechter Motor
   Portd.5 = 1                                              'rechter Motor EIN
         Case 49                                            'das Ist Der Ascii Code Für Taste "1"
         Sound Portd.7 , 400 , 350
         Print "Lüftung aus"
   Portb.0 = 0                                              'bestimmt Richtung rechter Motor
   Portb.1 = 1                                              'bestimmt Richtung rechter Motor
   Portd.5 = 0                                              'rechter Motor EIN

      Case Else
         Print "Kommando nicht bekannt"
   End Select
End If
Loop