Option Explicit On
Option Strict Off
Public Class Form1
Dim ph As Integer
Dim di As Integer
Dim dc As Integer
Dim res As Integer
Private Sub btnAufbau_Click_1(sender As System.Object, e As System.EventArgs) Handles btnAufbau.Click
Dim Port As Integer = 102, IP As String, Rack As Integer = 0, Slot As Integer = 2
Dim MPIAdressLocal As Integer = 0, MPIAdressPLC As Integer = 2
IP = cbxIP.Text
ph = openSocket(Port, IP)
di = daveNewInterface(ph, ph, "IF1", MPIAdressLocal, daveProtoISOTCP, daveSpeed187k)
res = daveInitAdapter(di)
dc = daveNewConnection(di, MPIAdressPLC, Rack, Slot)
res = daveConnectPLC(dc)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
Dim buf(1) As Byte, Wert As Single
res = daveReadBytes(dc, daveFlags, 0, 40, 2, buf(0))
Wert = daveGetS16from(buf(0))
txtWert.Text = Wert
End Sub
Private Sub btnAbbau_Click_1(sender As System.Object, e As System.EventArgs) Handles btnAbbau.Click
Timer1.Enabled = False
res = daveDisconnectPLC(dc)
Call daveFree(dc)
dc = 0
res = daveDisconnectAdapter(di)
Call daveFree(di)
di = 0
res = closePort(ph)
ph = 0
End Sub
End Class
Hallo Earny,
erst mal vielen Dank für Deine Antwort. Habe die Libnodave.dll nun ins Projekt eingebunden. Aber auch wenn ich es offiziell hinzufüge kennt VS den Namespace der .dll nicht. Alles was damit zu tun hat, wird mir angemeckert. Und LibnodavModul fidne ich leider nirgends.
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?