Imports System.Threading
 
Public Class S5Thread
' Klasse des Todes - Part I
 
' Zeugs dem Compiler klar machen...
    Public shared LadenS5Thread as New Thread(AddressOf ConnectS5)
    Public Shared IstALOHG11(512) As Integer
    Public Shared IstALOHG21(512) As Integer
    Public Shared IstALOHG31(512) As Integer
    Public Shared IstALOHG41(512) As Integer
    Public Shared IstALOHG51(512) As Integer
    Public Shared IstALOHG61(512) As Integer
    Public Shared IstLGOHG11(512) As Integer
    Public Shared IstLGOHG21(512) As Integer
    Public Shared IstLGOHG31(512) As Integer
    Public Shared IstLGOHG41(512) As Integer
    Public Shared IstLGOHG51(512) As Integer
    Public Shared IstLGOBAD1(512) As Integer
 
Public Shared Sub ConnectS5()
        Dim clsC As clsConfig = New clsConfig
        Dim structC As clsConfig.Config
        structC = clsC.GetSettings
        clsC = Nothing
        ' S5LAN Verbindung aufbauen
        IPAdr1 = structC.IP1
        IPAdr2 = structC.IP2
        IPAdr3 = structC.IP3
        IPAdr4 = structC.IP4
        PortNr = structC.Port1
 
        Ref1 = S5LanOpen(IPAdr1, PortNr, 0, 0, 0) 'Ofen1 Verbindung
        'Ref2 = S5LanOpen(IPAdr2, PortNr, 0, 0, 0) 'Ofen2 Verbindung
        'Ref3 = S5LanOpen(IPAdr3, PortNr, 0, 0, 0) 'Ofen3 Verbindung
        'Ref4 = S5LanOpen(IPAdr4, PortNr, 0, 0, 0) 'Ofen4 Verbindung
        If Ref1 >= 0 Then
            Res1 = S5LanRdW(Ref1, 68, 60, 240, 2, IstLGOHG11(0)) 'LGOHG1 Istwert
            ' Der Rest....
            Res1 = S5LanRdW(Ref1, 68, 71, 240, 2, IstALOHG61(0)) 'ALOHG6 Istwert
 
            ' Werte die für das Füllen der Textboxen in SUA1-Wärme1.vb benötigt 
            ' werden.
            Res1 = S5LanRdW(Ref1, 68, 60, 240, 1, Ist2LGOHG11(0)) 'LGOHG1 
            ' Istwert
            ' Der Rest steht hier....
            Res1 = S5LanRdW(Ref1, 68, 71, 240, 1, Ist2ALOHG61(0)) 'ALOHG6 
            ' Istwert
 
            ' Werte die für das Füllen der Textboxen(aktuelle Sollwerte) in 
            ' SUA1-Wärme2.vb benötigt werden.
            Res1 = S5LanRdW(Ref1, 68, 60, 232, 1, Soll4LGOHG11(0))  'LGOHG1 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 61, 232, 1, Soll4LGOHG21(0))  'LGOHG2 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 62, 232, 1, Soll4LGOHG31(0))  'LGOHG3 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 63, 232, 1, Soll4LGOHG41(0))  'LGOHG4 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 64, 232, 1, Soll4LGOHG51(0))  'LGOHG5 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 65, 232, 1, Soll4LGOBAD1(0))  'LGOBAD 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 66, 232, 1, Soll4ALOHG11(0))  'ALOHG1 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 67, 232, 1, Soll4ALOHG21(0))  'ALOHG2 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 68, 232, 1, Soll4ALOHG31(0))  'ALOHG3 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 69, 232, 1, Soll4ALOHG41(0))  'ALOHG4 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 70, 232, 1, Soll4ALOHG51(0))  'ALOHG5 
            ' Sollwert
            Res1 = S5LanRdW(Ref1, 68, 71, 232, 1, Soll4ALOHG61(0))  'ALOHG6 
            ' Sollwert
        End If
        ' Verbindung abbauen
        Ref1 = S5LanClose(Ref1)
        Ref1 = -1
    End Sub
 
Public Shared Sub StartMe()
' An
LadenS5Thread.Start()
End Sub
 
Public Shared Sub StopMe()
' Aus
LadenS5Thread.Abort()
End Sub
End Class