DataMan Cognex Scanner unter Vb.Net Implementieren

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von HGR.

    DataMan Cognex Scanner unter Vb.Net Implementieren

    Liebes Forum,

    ich bin ein wenig am verzweifeln.

    Im Internet gibt es eine Anleitung support.cognex.com/docs/dmst_6…pplicationDevelopment.htm mit der die Implementierung des Dataman Scanners von Cognex in C# funktioniert. Das haben wir soweit in einer Testform auch hinbekommen. Nun versuche ich gerade ein kompakte Klasse in VB zuschreiben, die mir die benötigen Funktionen bereitstellt und eben das Ganze noch einmal in Vb.Net umzusetzen. Der Hintergrund ist, dass wir diese Funktion in unserer bereits bestehende Applikation einbinden wollen, die auch in VB.Net geschrieben ist.

    Tja, und bei dieser Umsetzung hänge schon zu Beginn fest. Folgende C# Code-Zeile bekomme ich einfach nicht in Vb.Net hin:

    C#-Quellcode

    1. ethSystemDiscoverer.SystemDiscovered += new EthSystemDiscoverer.SystemDiscoveredHandler(OnEthSystemDiscovered);


    In VB scheint es, in "ethSystemDiscoverer" den Event "SystemDiscovered" garnicht zu geben (siehe Bilder)

    aber wieso?? ?(

    Wenn mir jemand hier weiterhelfen könnte wäre das spitze!

    Viele Grüße
    Bilder

    • c#.JPG

      29,58 kB, 505×211, 82 mal angesehen

    • VbNet.JPG

      30,12 kB, 589×301, 78 mal angesehen

    ok, die Frage hat sich geklärt. Das ganze muss dann in VB so aussehen:

    VB.NET-Quellcode

    1. ​Option Strict On
    3. Imports Cognex.DataMan.SDK
    4. Imports Cognex.DataMan
    5. Imports Cognex.DataMan.CogNamer.PlatformHelpers
    6. Imports Cognex.DataMan.SDK.Discovery
    7. Imports Cognex.DataMan.SDK.Utils
    9. Public Class cCognexScanner
    10. Class ScannerParameter
    11. Public sIP_Address As String
    12. Public acksendAddress As String
    13. Public ackrecieveAddress As String
    14. Public scann_Offset As Integer
    15. Public scann_DBnr As Integer
    16. Public acksend_DBnr As Integer
    17. Public aclreceive_DBnr As Integer
    18. End Class
    20. Public scannPar As ScannerParameter
    21. Public ethSystemDiscoverer As EthSystemDiscoverer
    22. Public systemDiscoveredHandler As EthSystemDiscoverer.SystemDiscoveredHandler
    23. Public myConn As EthSystemConnector
    24. Public DataManSystem As DataManSystem
    25. Public FoundItem As String
    26. Public FoundIpAdress As Net.IPAddress
    27. Public FoundString As String
    28. Public byte_ip(3) As Byte
    30. Public Sub Initialize()
    31. ethSystemDiscoverer = New EthSystemDiscoverer
    32. scannPar = New ScannerParameter()
    33. AddHandler ethSystemDiscoverer.SystemDiscovered, AddressOf OnEthSystemDiscovered
    35. ethSystemDiscoverer.Discover()
    37. Dim iP As Net.IPAddress = New Net.IPAddress(byte_ip)
    38. myConn = New EthSystemConnector(iP)
    39. myConn.UserName = "admin"
    40. myConn.Password = ""
    41. DataManSystem = New DataManSystem(myConn)
    42. DataManSystem.Disconnect()
    44. AddHandler DataManSystem.SystemConnected, AddressOf OnSystemConnected
    45. AddHandler DataManSystem.SystemDisconnected, AddressOf OnSystemDisconnected
    46. AddHandler DataManSystem.ReadStringArrived, AddressOf OnStringArrived
    48. End Sub
    50. Public Sub OnEthSystemDiscovered(ByVal evt As EthSystemDiscoverer.SystemInfo)
    51. FoundItem = "Discovered:" & evt.Name & " (" & evt.MacAddress & "): " & evt.IPAddress.ToString()
    52. FoundIpAdress = evt.IPAddress
    53. End Sub
    55. Private Sub OnSystemConnected(ByVal sender As Object, ByVal e As EventArgs)
    57. End Sub
    59. Private Sub OnSystemDisconnected(ByVal sender As Object, ByVal e As EventArgs)
    61. End Sub
    63. Private Sub OnStringArrived(ByVal sender As Object, ByVal e As ReadStringArrivedEventArgs)
    64. FoundString = e.ReadString
    65. End Sub
    67. End Class


    Ich teste mal und werde berichten

    Hallo Zusammen,

    Ich habe das ganze in einer Testform wie folgt zum laufen gebracht:

    VB.NET-Quellcode

    1. ​Option Strict On
    2. Imports Cognex.DataMan.SDK
    3. Imports Cognex.DataMan.SDK.Discovery
    5. Public Class Form1
    7. Public ethSystemDiscoverer As EthSystemDiscoverer
    8. Public systemDiscoveredHandler As EthSystemDiscoverer.SystemDiscoveredHandler
    9. Public myConn As EthSystemConnector
    10. Public DataManSystem As DataManSystem
    11. Public FoundItem As String
    12. Public FoundIpAdress As Net.IPAddress
    13. Public FoundString As String
    14. Public byte_ip(3) As Byte
    16. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    17. Initialize()
    18. Timer1.Enabled = True
    19. Timer1.Start()
    20. End Sub
    22. Public Sub Initialize()
    23. Try
    24. ethSystemDiscoverer = New EthSystemDiscoverer
    25. AddHandler ethSystemDiscoverer.SystemDiscovered, AddressOf OnEthSystemDiscovered
    27. ethSystemDiscoverer.Discover()
    29. byte_ip(0) = 192
    30. byte_ip(1) = 168
    31. byte_ip(2) = 214
    32. byte_ip(3) = 78
    33. Dim iP As Net.IPAddress = New Net.IPAddress(byte_ip)
    34. myConn = New EthSystemConnector(iP)
    35. myConn.UserName = "admin"
    36. myConn.Password = ""
    37. DataManSystem = New DataManSystem(myConn)
    39. Dim result_Types As ResultTypes = ResultTypes.ReadString Or ResultTypes.ReadXml Or ResultTypes.XmlStatistics
    40. DataManSystem.SetResultTypes(result_Types)
    42. AddHandler DataManSystem.SystemConnected, AddressOf OnSystemConnected
    43. AddHandler DataManSystem.SystemDisconnected, AddressOf OnSystemDisconnected
    44. AddHandler DataManSystem.ReadStringArrived, AddressOf OnStringArrived
    46. Catch ex As Exception
    47. MsgBox("Error: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
    48. End Try
    50. End Sub
    52. Public Sub OnEthSystemDiscovered(ByVal evt As EthSystemDiscoverer.SystemInfo)
    53. FoundItem = "Discovered:" & evt.Name & " (" & evt.MacAddress & "): " & evt.IPAddress.ToString()
    54. FoundIpAdress = evt.IPAddress
    55. MsgBox(FoundIpAdress.ToString)
    56. End Sub
    58. Private Sub OnSystemConnected(ByVal sender As Object, ByVal e As EventArgs)
    59. MsgBox("Connected")
    60. End Sub
    62. Private Sub OnSystemDisconnected(ByVal sender As Object, ByVal e As EventArgs)
    63. MsgBox("Disconnected")
    64. End Sub
    66. Private Sub OnStringArrived(ByVal sender As Object, ByVal e As ReadStringArrivedEventArgs)
    67. 'FoundString = e.
    68. 'TbRead.Text = FoundString
    69. MsgBox(FoundString)
    70. End Sub
    72. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    73. DataManSystem.Connect()
    74. End Sub
    76. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    77. DataManSystem.Disconnect()
    78. End Sub
    80. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    81. TbState.Text = DataManSystem.State.ToString
    82. End Sub
    84. End Class

Facebook
Telefonspende