Probleme mit RS232 und Excel-VBA

[JS (Gast)]

Guten Morgen,

ich versuche, via Excel-VBA Befehle an einen Roboter zu senden. Der 
Roboter ist durch einen USB-RS232 Adapter an den PC angeschlossen.
Anhand der "RSAPI.dll" von http://www.b-kainka.de/download.htm und einer 
google-Recherche habe ich es auch geschafft, den Port zu öffnen.
Mein bisheriger Code sieht so aus:

Declare Function OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) As Integer
Declare Function CLOSECOM Lib "RSAPI.DLL" () As Integer
Declare Function SENDSTRING Lib "RSAPI.DLL" (ByVal S As String) As Integer
Declare Function TIMEOUT Lib "RSAPI.DLL" (ByVal ms%) As Integer


Sub Main()
    OPENCOM ("COM3:9600,N,8,1")
    TIMEOUT (200)
    SENDSTRING ("M")
    TIMEOUT (200)
    SENDSTRING ("O")
    SENDSTRING ("V")
    SENDSTRING ("A")
    SENDSTRING (" ")
    SENDSTRING ("R")
    SENDSTRING (",")
    SENDSTRING (" ")
    SENDSTRING ("2")
    SENDSTRING ("0")
    SENDSTRING ("0")
    SENDSTRING ("0")
    SENDSTRING (".")
    CLOSECOM
End Sub

Der Befehl, den ich senden möchte, lautet:
MOVA R, 2000

Ich habe mit der mitgelieferten Software eine Verbindung zum Roboter 
aufgebaut und genau diesen Befehl gesendet, das PortMon Log findet ihr 
im Anhang dieses Artikels - ebenso das Log von Excel.

Bzgl. des Software Logs:
Ich bin so vorgegangen: Verbindung zum Roboter aufbauen - 1min warten - 
Befehl eingeben - 1min warten - Befehl absenden - 1min warten - 
Verbindung beenden

So könnt ihr die einzelnen Schritte hoffentlich besser nachvollziehen, 
da sie zeitlich relativ deutlich voneinander abgegrenzt sind.

Mein Problem ist nun folgendes:
Der Roboter führt den MOVA-Befehl nicht aus. Ich habe - wie ihr 
hoffentlich seht - versucht, meine Befehle in Excel so anzupassen, dass 
sie den Befehlen der Software entsprechen, jedoch funktioniert das nicht 
so richtig (siehe z.B. die unterschiedlichen Timeout Befehle). Und auch 
das Absenden funktioniert bei der Software etwas anders.

Meine Frage:
a) Kann ich die Befehlskette von der Software überhaupt auch so mit 
Excel nachstellen? Also kann ich den Roboter mit Excel "steuern"?
b) Wo liegen meine Fehler und wie kann ich diese beheben?

Vielen Dank für eure Hilfe.

Gruß
Justus

[JS (Gast)]

Achso, das hatte ich vergessen.
Wenn ich zum Roboter eine Verbindung aufbaue, sendet der Roboter an die 
Software folgende Meldung:

PRI Automation - Equipe Division
Copyright (c) 1990-1999
Version 5.03I3A1

Das erste Zeichen dieser Meldung entspricht in der LOG-Datei dem Event 
#463 und das letzte Zeichen "1" entspricht #8057. Ich hoffe, ich nehme 
euch damit ein bisschen den Schrecken vor der großen LOG-Datei ;)

Grüße,
Justus

[JS (Gast)]

Hi,
stundenlanges, intensiveres googlen bringt einen immer weiter ;)
http://michael-schwimmer.de/download/schnittstelle.xls

Das Excel-File lässt mich den Roboter bewegen, und zwar mit diesen 
Einstellungen (siehe Anhang).

Ich werde mich jetzt mal intensiver mit dem Quellcode auseinandersetzen. 
Falls ihr Ideen habt, bin ich natürlich immer hellhörig (ich sehe, dass 
meine Logs ja schon ein paar mal heruntergeladen wurden).

Gruß,
Justus

[Peter II (Gast)]

JS schrieb:
> Das Excel-File lässt mich den Roboter bewegen,

dumme Frage - warum Excel? Warum nicht ein VB.NET programm richtig 
schreiben, was bietet denn exel für eine vorteile?

[JS (Gast)]

Peter II schrieb:
> JS schrieb:
>> Das Excel-File lässt mich den Roboter bewegen,
>
> dumme Frage - warum Excel? Warum nicht ein VB.NET programm richtig
> schreiben, was bietet denn exel für eine vorteile?

Es wird so gewünscht ;)

Ich habe auch 0,0 Erfahrung mit VB.net, das kommt hinzu (wobei die 
Unterschiede zwischen VB.net und Excel-VBA ja nur marginal sein werden).


Anbei das PortMon-Log von der funktionierenden Excel Datei.

Grüße,
Justus

[JS (Gast)]

Ich noch mal.
Ich hab jetzt auch mal PortMon über den XLS-Datei aus dem Netz laufen 
lassen und die Ausgaben mit meinen Ausgaben verglichen.
=> Die beiden Dateien unterscheiden sich im Wesentlichen nur hier:

14:40:40  EXCEL.EXE  IOCTL_SERIAL_SET_HANDFLOW  U2SPORT1  SUCCESS  Shake:0 Replace:c0 XonLimit:100 XoffLimit:100  
14:40:40  EXCEL.EXE  IOCTL_SERIAL_SET_TIMEOUTS  U2SPORT1  SUCCESS  RI:-1 RM:0 RC:0 WM:0 WC:500  


14:41:52  EXCEL.EXE  IOCTL_SERIAL_SET_HANDFLOW  U2SPORT1  SUCCESS  Shake:1 Replace:40 XonLimit:100 XoffLimit:100  
14:41:52  EXCEL.EXE  IOCTL_SERIAL_SET_TIMEOUTS  U2SPORT1  SUCCESS  RI:200 RM:10 RC:200 WM:10 WC:20

Das Erste ist das File ausm Netz, das Zweite ist meins.

Daher meine Frage:
Wie kann ich die Paramter bei SET_HANDFLOW und SET_TIMEOUTS verändern?