Hallo,
da ich blutiger Anfänger bin,was mache ich falsch?
Möchte das 1 Servo steuern übers Terminal,habe das Board RNBFRA1.2.
Komme irgendwie nicht weiter,das Servo soll bei einer Eingabe eine Drehung vor und zurück machen.
Hier mal der Code:
$regfile = "m32def.dat"


Declare Sub Rnb_servo(byval Servonummer As Byte , Byval Position As Byte)
Declare Sub Rnb_servob(byval Servonummer As Byte , Byval Position As Byte)


Dim I As Byte
Dim Pos As Byte
Dim Befehl As Byte
Dim Wert As Byte

$crystal = 8000000 'Quarzfrequenz
$baud = 9600
For I = 1 To 255
Call Rnb_servo(1 , Pos)

Wiederhole:
Next

Open "comd.6:9600,8,n,1" For Input As #1
Do
Input "Gib Befehl ein : " , Befehl

Loop

Goto Wiederhole

Sub Rnb_servo(byval Servonummer As Byte , Byval Position As Byte)
Print "#s" ; Chr(servonummer) ; Chr(position)
End Sub

Sub Rnb_servob(byval Servonummer As Byte , Byval Position As Byte)
Open "comd.7:9600,8,n,1" For Output As #2
Print #2 , "#s" ; Chr(servonummer) ; Chr(position)
Close #2
End Sub

End


Bin ich da auf dem richtigen weg?
Kann mir jemand helfen?
gruß
Dejuh