Visual Basic

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick



        Dim api As New RfidApiLib.RfidApi
        Dim status1 As Integer

        Dim StrCon As String
        Dim conn As SqlConnection
        Dim host As String
        'Dim status1 As Integer
        test.WriteByDate("e:\temp", "log", "service", "reader timer this connected") ' Writes to log file
        'mylog.WriteEntry("Connected", EventLogEntryType.Information)

        StrCon = "data source=XXX;initial catalog=XXX; uid=XXX; pwd=XXX;"
        conn = New SqlConnection(StrCon)

        conn.Open()

        Dim outadapter1 As New SqlDataAdapter("select * from dbo.ReaderInfo where dbo.ReaderInfo.Reader_location in (Select Reader_location from dbo.Reader_Status )", conn)
        Dim ds1 As New DataSet()
        outadapter1.Fill(ds1, "dbo.ReaderInfo")

        Dim outadapter2 As New SqlDataAdapter("Select * from dbo.Reader_Status where Remarks = 'C'", conn)
        Dim ds2 As New DataSet()
        outadapter1.Fill(ds2, "dbo.ReaderInfo")

        For i As Integer = 0 To ds2.Tables(0).Rows.Count - 1

            host = ds1.Tables(0).Rows(i)("ReaderIP").ToString
            Try
                'My.Computer.Network.Ping(host)
                Dim ping As New System.Net.NetworkInformation.Ping()
                Dim pingReply As System.Net.NetworkInformation.PingReply = ping.Send(host) 'ping ipaddress

                'test.WriteByDate("e:\temp", "log", "service", "reader" & ds1.Tables(0).Rows(i)("Reader_location").ToString & "disconnected" & e1.Message)

            Catch e1 As System.Net.NetworkInformation.PingException 'if not connected try reconnecting

                status1 = api.TcpConnectReader(ds1.Tables(0).Rows(i)("ReaderIP").ToString, ds1.Tables(0).Rows(i)("ReaderPort")) 'API call to connect to device

                If status1 = 0 Then ' successfully connected
                    Exit For

                Else
                    test.WriteByDate("e:\temp", "log", "service", "reader" & ds1.Tables(0).Rows(i)("Reader_location").ToString & "disconnected" & e1.Message) 'otherwise write to log
                    GoTo nxt
                End If



            End Try

nxt:    Next

End Sub
        conn.Close()

<br />
 _singlePointDialog = New singlePointDialog()<br />
     _singlePointDialog.Show(RhUtil.RhinoApp.MainWnd)<br />
     _singlePointDialog.Hide()

<br />
_singlePointDialog.Owner = RhUtil.RhinoApp.MainWnd