Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
I have to work with siemens s7-1500, what is the best easy and reliable way to do it with adhmi, and if possible?.I think following Archie's steps is the easiest way. Any chance you can show us your way if that is possible.
Imports Keyence.AutoID.SDK
...
Dim m_reader As ReaderAccessor = New ReaderAccessor("192.168.111.104")
...
m_reader.Connect(AddressOf ReceivedDataAction)
...
Private Sub ReceivedDataAction(data As Byte())
'Define received data actions here.Defined actions work asynchronously.
'"ReceivedDataWrite" works when reading data was received.
BeginInvoke(New delegateUserControl(AddressOf ReceivedDataWrite), System.Text.Encoding.ASCII.GetString(data))
End Sub
...
m_reader.Dispose()
Public Class U02_Station
Public Limits(1) As U01_Limit
Public Name20 As String
End Class
Public Class U02_Station
Public Name20 As String
Public Limits(1) As U01_Limit
End Class
Public Class String20
Public Length As Integer
Public Characters() As System.SByte
Public Sub New()
MyBase.New
Me.Characters = New System.SByte((20) - 1) {}
End Sub
Public Sub New(ByVal value As String)
MyBase.New
Me.Length = Math.Min(20, value.Length)
If (value.Length > 20) Then
value = value.Substring(0, 20)
End If
Dim TmpArray() As Byte = New Byte((20) - 1) {}
System.Text.ASCIIEncoding.ASCII.GetBytes(value).CopyTo(TmpArray, 0)
Me.Characters = CType(CType(TmpArray, Array), System.SByte())
End Sub
Public Overrides Function ToString() As String
Return System.Text.Encoding.ASCII.GetString(Array.ConvertAll(Characters, Function(a) CByte(a)))
End Function
End Class
Public Class U02_Station
Public Name20 As New String20
Public Limits(1) As U01_Limit
End Class
Public Class UDT_Test
Public Limits(1) As U01_Limits
Public S20 As String
End Class
Public Class U01_Limits
Public LowLimit As Single
Public Hi_Limit As Single
End Class
Public Class UDT_Test
Public Limits(1) As U01_Limits
End Class
...
Dim myTestUDT As UDT_Test = PLC.ReadUDT(Of UDT_Test)("myUDT")
No absolute beginner shall use AAHMI with a Raspberry PI as a PLC.