Imports TwinCAT.Ads
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
Private adsClient As TcAdsClient
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Private varHandles(2) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim port As Integer
port = TextBox3.Text
Try
adsClient = New TcAdsClient
adsClient.Connect(port)
varHandles(0) = adsClient.CreateVariableHandle("MAIN.ausgang1")
varHandles(1) = adsClient.CreateVariableHandle("MAIN.ausgang2")
varHandles(2) = adsClient.CreateVariableHandle("MAIN.eingang1")
Catch err As Exception
MessageBox.Show(err.Message)
End Try
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
adsClient.Dispose()
End Sub
Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click
Dim dataStream As AdsStream
Dim reader As AdsBinaryReader
Try
dataStream = New AdsStream(30)
reader = New AdsBinaryReader(dataStream)
dataStream.Position = 0
adsClient.Read(varHandles(0), dataStream)
textBox1.Text = reader.Read
dataStream.Position = 0
adsClient.Read(varHandles(1), dataStream)
textBox2.Text = reader.Read
dataStream.Position = 0
adsClient.Read(varHandles(2), dataStream)
TextBox4.Text = reader.Read
Catch err As Exception
MessageBox.Show(err.Message)
End Try
End Sub
Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click
Dim dataStream As AdsStream
Dim writer As AdsBinaryWriter
Try
dataStream = New AdsStream(4)
writer = New AdsBinaryWriter(dataStream)
dataStream.Position = 0
writer.Write(textBox1.Text)
adsClient.Write(varHandles(0), dataStream)
dataStream.Position = 0
writer.Write(textBox2.Text)
adsClient.Write(varHandles(1), dataStream)
dataStream.Position = 0
writer.Write(TextBox4.Text)
adsClient.Write(varHandles(2), dataStream)
Catch err As Exception
MessageBox.Show(err.Message)
End Try
End Sub
End Class
