Hi!

Hab jetzt den Code einwenig verändert und es funktioniert nur, wenn ich z.B. schreibe "Servo(1)=150" . Würde aber gerne den D-String hernehmen nur das funzt nicht ("Servo(1) = D"). Kann mir jemand sagen, wie ich einen Stringausdruck in einen BYTE umwandle?
Hier noch der neue Code:

Gruß
Code:
$regfile "m32def.dat"
$crystal = 16000000
$baud = 9600

Config Pinc.0 = Output
Config Pinc.1 = Output

Dim A As Byte
Dim B As String * 4
Dim C As String * 1
Dim D As String * 3
On Urxc Onrxd
Enable Urxc
Enable Interrupts

Config Servos = 2 , Servo1 = Portc.0 , Servo2 = Portc.1 , Reload = 8

A = 128

Servo(1) = A
Servo(2) = A

' ---------------------------------------------
Do
  If Len(b) = 4 Then
    C = Left(b , 1)
    D = Right(b , 3)

     Select Case C
      Case "l"
       Servo(1) = 150
      Case "r"
       Servo(1) = 80
      Case Else
      Print "Unbekannter Befehl!"

     End Select

    B = ""

  End If

Loop
End

' ---------------------------------------------
Onrxd:
  B = B + Chr(udr)
Return