Partial Class _Default
    Inherits System.Web.UI.Page

    ' Dim DBNull As Boolean

    Protected Sub PingBoard_Click(sender As Object, e As System.EventArgs) Handles PingBoard.Click

        Dim Address As String
        Address = IPAddress.Text
        If Address = "" Then

        Else

            If My.Computer.Network.Ping(Address, 1000) Then
                PingResults.Text = "Successfully pinged board."
            Else
                PingResults.Text = "Ping request timed out."
            End If
        End If

    End Sub

    Protected Sub InsertQuery_Click(sender As Object, e As System.EventArgs) Handles InsertQuery.Click

        Dim DT As String = Now
        Dim X As String = XInput.Text
        Dim Y As String = YInput.Text
        Dim Z As String = ZInput.Text

        If X = "" Then
            X = 0
            XInput.Text = 0
        End If
        If Y = "" Then
            Y = 0
            YInput.Text = 0
        End If
        If Z = "" Then
            Z = 0
            ZInput.Text = 0
        End If

        SqlDataSource1.InsertParameters.Add("DT", DT)
        SqlDataSource1.InsertParameters.Add("X", X)
        SqlDataSource1.InsertParameters.Add("Y", Y)
        SqlDataSource1.InsertParameters.Add("Z", Z)

        SqlDataSource1.Insert()

        GridView1.DataBind()

    End Sub

    Protected Sub ConnectToBoard_Click(sender As Object, e As System.EventArgs) Handles ConnectToBoard.Click

        Dim BIP As String
        BIP = BoardIP.Text

        If BIP = "" Then

        Else

            System.Diagnostics.Process.Start("Http://" & BIP)

        End If

    End Sub

    Protected Sub RefreshDataGrid_Click(sender As Object, e As System.EventArgs) Handles RefreshDataGrid.Click
        GridView1.DataBind()
    End Sub

End Class