Visual Basic

Public Class frmSalesData
    Dim intCars, intTickets, intPopcorn, intCandy As Integer

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        Me.txtNumCars.Clear()
        Me.txtNumTickets.Clear()
        Me.txtNumPopcorn.Clear()
        Me.txtNumCandy.Clear()
        Me.lblTotal.Text = Nothing
        Me.txtNumCars.Focus()
    End Sub

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        Dim strMessage As String
        Dim dblNumCars, dblNumTickets, dblNumPopcorn, dblNumCandy As Double
        Dim dblTotalSales As Double

        If radRegular.Checked = True Then
            Me.lblTotal.Text = "Tonight was a REGULAR night."
        ElseIf radCar.Checked = True Then
            Me.lblTotal.Text = "Tonight was a CAR night."

        End If

        Double.TryParse(Me.txtNumCars.Text, dblNumCars)
        Double.TryParse(Me.txtNumTickets.Text, dblNumTickets)
        Double.TryParse(Me.txtNumPopcorn.Text, dblNumPopcorn)
        Double.TryParse(Me.txtNumCandy.Text, dblNumCandy)

        dblTotalSales = dblNumTickets + dblNumPopcorn + dblNumCandy

        strMessage = "The total number of cars present was: " & dblNumCars.ToString() & _
                     "The total number of tickets sold was: " & dblNumTickets.ToString() & _
                     "The total popcorn sales were: " & dblNumPopcorn.ToString("N2") & _
                     "The total candy sales were: " & dblNumCandy.ToString("N2")

        Me.lblTotal.Text = strMessage


    End Sub
End Class

Member 10970081 wrote:

how to filter

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Member 10728667 wrote:

sideLength = Convert.ToDouble(length)

Dim prompt, sideLength As String
Dim area, length As Double

prompt = InputBox("Enter sides of the square.")
' On return from this method, "prompt" will contain the value typed by the user
' so that is the string that needs to be converted to a number.

sideLength = Convert.ToDouble(length)
' You are trying to convert the variable "length" to a number,
' but you have not done anything to get a value into it.
' You have also declared "sideLength" as a string, but now
' you are trying to store a Double value into it.

area = length * length
Me.lblOutput.Text = "Square of side length " & length & ": " & area

con = New SqlConnection("server=(local);database=pers;Trusted_Connection=True;")
           con.Open()

           datd = New SqlDataAdapter("select * from perInfo ", con)
           datd.Fill(ds, "perInfo")
           DataGridView1.DataSource = ds.Tables("perInfo")

con = New SqlConnection("server=(local);database=pers;Trusted_Connection=True;")
            con.Open()
            Me.datd = New SqlDataAdapter("select * from perInfo", con)

            Dim commandBuilder As New SqlCommandBuilder(Me.datd)

            Dim table As New DataTable()
            table.Locale = System.Globalization.CultureInfo.InvariantCulture
            Me.datd.Fill(table)
            Me.bindingsource1.DataSource = table
            Me.DataGridView1.DataSource = Me.bindingsource1