-> Hier kostenlos registrieren
Hallo zusammen,
ich habe mit libNoDave problemlos eine Verbindung über ISO TCP herstellen können, Werte aus der Steuerung auslesen funktioniert einwandfrei.
Eine Verbindung über MPI (mit Siemens Programmieradapter) bekomme ich jedoch nicht hin. die Funktion daveConnectPLC gibt immer den Wert 4 zurück. Was bedeutet dies? Konnte bisher nichts darüber finden, bin am weitersuchen.
Hier der Auszug aus meinem Programm:
ph = setPort(CPar.port, CPar.baud, Asc(Left$(CPar.parity, 1)))
If (ph > 0) Then
di = daveNewInterface(ph, ph, "IF1", 0, daveProtoMPI2, daveSpeed187k)
res = daveInitAdapter(di)
If res = 0 Then
dc = daveNewConnection(di, MpiPpi, Rack, Slot)
res = daveConnectPLC(dc)
Debug.Print ("res=" + Str(res) + " " + daveStrError(res))
If res = 0 Then
Initialize = 0
End If
Habe das alles aus dem Beispiel Modul12.bas in VB6 übernommen.
ich sitz inzwischen komplett auf dem Schlauch und hab den Eindruck ich seh den Wald vor lauter Bäumen nicht mehr , vielleicht kann mir ja jemand weiterhelfen?
Gruß
Nuecke
ich habe mit libNoDave problemlos eine Verbindung über ISO TCP herstellen können, Werte aus der Steuerung auslesen funktioniert einwandfrei.
Eine Verbindung über MPI (mit Siemens Programmieradapter) bekomme ich jedoch nicht hin. die Funktion daveConnectPLC gibt immer den Wert 4 zurück. Was bedeutet dies? Konnte bisher nichts darüber finden, bin am weitersuchen.
Hier der Auszug aus meinem Programm:
ph = setPort(CPar.port, CPar.baud, Asc(Left$(CPar.parity, 1)))
If (ph > 0) Then
di = daveNewInterface(ph, ph, "IF1", 0, daveProtoMPI2, daveSpeed187k)
res = daveInitAdapter(di)
If res = 0 Then
dc = daveNewConnection(di, MpiPpi, Rack, Slot)
res = daveConnectPLC(dc)
Debug.Print ("res=" + Str(res) + " " + daveStrError(res))
If res = 0 Then
Initialize = 0
End If
Habe das alles aus dem Beispiel Modul12.bas in VB6 übernommen.
ich sitz inzwischen komplett auf dem Schlauch und hab den Eindruck ich seh den Wald vor lauter Bäumen nicht mehr , vielleicht kann mir ja jemand weiterhelfen?
Gruß
Nuecke