Dim A As String * 3
A = "*"
Open "com3:19200,8,N,1" For Input As #3
Print #3 , "@01"
If Loc(3) < 1 Then Print "hallo"
A = Inkey(#3)
Print "A$" ; A
If A = "0" Then Print "alles ok" ; End If
Marke:
A = Inkey(#3)
If A < 0 Then Goto Marke
Print "a$" ; A
Print #3 , "@0a 500,1000"
A = Waitkey()
Print "A$" ; A
End

Das is ein ein kleiner Anfang den ich mal so probiert habe aber gibt er auch fehler aus. Also ich will über eine RS232 Schnittstelle diesn Isel Roboter ansteuern und damit einzelne Messpunkte anfahren. Das Programm war nur so ein kleiner Versuch zum testen. Angeschlossen habe ich alles. Über andere Programme kann ich auch wunderbar mit dem geraät kommunizieren und alles so bewegen wie ich will aber mein Professor will unbedingt das ich es mit Bascom mache. Er soll einfach 10 voreingegeben Punkte anfahren und dort 30sec verharren dann kann ich den messwert ablesen und weiter gehts. so soll das Programm aussehen aber das ist ganz und gar nicht meine Welt. Vllt könnt ihr mir ja noch mehr nützliche Hinweise geben. Gruß