easyModbus.ModbusServer und VB.Net (VS2017): Kein Zugriff auf Datenfelder

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von exc-jdbi.

    easyModbus.ModbusServer und VB.Net (VS2017): Kein Zugriff auf Datenfelder

    Hallo, in einer Modbus-TCP-Applikation (vergleichbar mit dem EasyModbusServerSimulator) gelingt es mir nicht, auf die Datenfelder zuzugreifen. Die Verbindung zur Gegenstelle funktioniert, nur den Datenzugriff bekomme ich nicht hin. Siehe Screenshot (Err.png) im Anhang. Die komplette Solution ist ebenfalls im Anhang (VBTest2-TCP.7z).
    Wenn Zeile 16 "Me.MbTcpSlave.discreteInputs.Item(i) = 0" nicht auskommentiert ist, gibt es den Build-Error "error BC31429: 'discreteInputs' is ambiguous because multiple kinds of members with this name exist in class 'ModbusServer'."
    Weiss vielleicht Jemand, was ich falsch mache bzw. wie es richtig gemacht werden muss?

    Vielen Dank im Voraus!

    Quellcode

    1. Imports System.ComponentModel
    2. Imports EasyModbus ' Modbus TCP
    4. Public Class Form1
    6. ' ModbusTcp aus easyModbus (Tools - NuGet Package Manager - Manage NuGet... - Browse - Search "easymodbus" - EasyModbusTCP - Install)
    7. Private MbTcpSlave As New ModbusServer
    9. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    11. Try
    12. 'Dim ip = New Net.IPAddress(New Byte() {127, 0, 0, 1})
    13. Dim ip = New Net.IPAddress(New Byte() {192, 168, 1, 107})
    14. Dim i As Integer
    15. For i = 0 To 512
    16. Me.MbTcpSlave.discreteInputs.Item(i) = 0
    17. Next
    18. Me.MbTcpSlave.LocalIPAddress = ip
    19. Me.MbTcpSlave.Port = 502
    20. Me.MbTcpSlave.Listen()
    21. Catch ex As Exception
    22. MsgBox("ModbusTCP: " & vbCrLf & ex.Message)
    23. Me.MbTcpSlave = Nothing
    24. End Try
    26. End Sub
    28. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
    29. If Me.MbTcpSlave IsNot Nothing Then
    30. Me.MbTcpSlave.StopListening()
    31. End If
    32. End Sub
    34. End Class
    Bilder

    • Error.png

      69,93 kB, 1.084×752, 90 mal angesehen
    Dateien

    • VBTest2-TCP.7z

      (296,44 kB, 60 mal heruntergeladen, zuletzt: )

    Willkommen im Forum.

    Jou, das mit der Fehlermeldung ist mies, weil die DLL wohl für C# konzipiert wurde, welches case sensitive ist. Da wird's bei VB.NET doof.
    Laut Mikrosaft und stackoverflow hast Du da keine Chance und es wird vorgeschlagen, erstmal einen in C# geschriebenen Wrapper dazwischen zu schieben, um die Mehrdeutigkeit aufzulösen.
    Naja, notfalls könnte man vielleicht noch was mit Reflection machen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ich hätte jetzt gesagt das muss so heissen, es kann aber auch sein, dass ich mich täusche.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' Ich habe es wieder rausgenommen, hab den Contructor nicht gesehen in den Meta-Übersicht

    C#-Quellcode

    1. ​public ModbusServer()
    2. {
    3. holdingRegisters = new HoldingRegisters(this);
    4. inputRegisters = new InputRegisters(this);
    5. coils = new Coils(this);
    6. discreteInputs = new DiscreteInputs(this);
    7. }



    Freundliche Grüsse

    exc-jdbi

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „exc-jdbi“ ()

Facebook
Telefonspende