Trying to make VB Cash Register for a bar I work at

See more:

VB

Ok,
So I got all of the calculator buttons to work properly and display them in a txt so that I could use the values for the click of the product buttons, only problem is I can't get the thing to work properly. I cant figure out how to make the button clicks reset so i can use say 1$ bottle of beer along with 2$ bottle and a 3$ cocktail and have it tell me 6$ total but still give me a total of 3 button clicks. On the buttons for beer and call drinks I have tried two different approaches that you can look at. Any help would be greatly appreciated.

Public Class frmBar

    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub LblTitle_Click(sender As Object, e As EventArgs) Handles LblTitle.Click

    End Sub

    Private Sub ButtonNum9_Click(sender As Object, e As EventArgs) Handles btnNum9.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum9.Text
    End Sub

    Private Sub btnHHWell_Click(sender As Object, e As EventArgs) Handles btnHHWell.Click

    End Sub

    Private Sub btnNum0_Click(sender As Object, e As EventArgs) Handles btnNum0.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum0.Text
    End Sub

    Private Sub btnNum1_Click(sender As Object, e As EventArgs) Handles btnNum1.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum1.Text
    End Sub

    Private Sub btnNum2_Click(sender As Object, e As EventArgs) Handles btnNum2.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum2.Text
    End Sub

    Private Sub btnNum3_Click(sender As Object, e As EventArgs) Handles btnNum3.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum3.Text
    End Sub

    Private Sub btnNum4_Click(sender As Object, e As EventArgs) Handles btnNum4.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum4.Text
    End Sub

    Private Sub btnNum5_Click(sender As Object, e As EventArgs) Handles btnNum5.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum5.Text
    End Sub

    Private Sub btnNum6_Click(sender As Object, e As EventArgs) Handles btnNum6.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum6.Text
    End Sub

    Private Sub btnNum7_Click(sender As Object, e As EventArgs) Handles btnNum7.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum7.Text
    End Sub

    Private Sub btnNum8_Click(sender As Object, e As EventArgs) Handles btnNum8.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNum8.Text
    End Sub

    Private Sub btnNumDot_Click(sender As Object, e As EventArgs) Handles btnNumDot.Click
        txtPriceFirst.Text = txtPriceFirst.Text & btnNumDot.Text
    End Sub

    Private Sub btnNumClr_Click(sender As Object, e As EventArgs) Handles btnNumClr.Click
        txtPriceFirst.Text = ""
    End Sub

    Dim intBtnClkCount1 As Integer = 0
    Dim decPriceFirst As Decimal = 0
    Dim decPriceFinal As Decimal = 0

    Private Sub btnBottle_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBottle.Click
        decPriceFirst = CType(txtPriceFirst.Text, Decimal)
        decPriceFinal = CType(txtPriceFinal.Text, Decimal)
        intBtnClkCount1 += 1
        If String.IsNullOrEmpty(txtPriceFinal.Text) Then
            txtPriceFinal.Text = (intBtnClkCount1 * decPriceFirst)
        Else
            txtPriceFinal.Text = (intBtnClkCount1 * decPriceFirst) + decPriceFinal
        End If
        txtTotal.Text = intBtnClkCount1 + intBtnClkCount2 + intBtnClkCount3 + intBtnClkCount4
    End Sub

    Dim intBtnClkCount2 As Integer = 0
    Private Sub btnWine_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnWine.Click
        decPriceFirst = CType(txtPriceFirst.Text, Decimal)
        intBtnClkCount2 += 1
        txtPriceFinal.Text = (intBtnClkCount2 * decPriceFirst)
        txtTotal.Text = intBtnClkCount1 + intBtnClkCount2 + intBtnClkCount3 + intBtnClkCount4
    End Sub

    Dim intBtnClkCount3 As Integer = 0
    Private Sub btnCall_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCall.Click
        decPriceFirst = CType(txtPriceFirst.Text, Decimal)
        intBtnClkCount3 += 1
        txtPriceFinal.Text = (intBtnClkCount3 * decPriceFirst) + decPriceFinal
        txtTotal.Text = intBtnClkCount1 + intBtnClkCount2 + intBtnClkCount3 + intBtnClkCount4
    End Sub

    Dim intBtnClkCount4
    Private Sub btnWell_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnWell.Click
        decPriceFirst = CType(txtPriceFirst.Text, Decimal)
        intBtnClkCount4 += 1
        txtPriceFinal.Text = (intBtnClkCount4 * decPriceFirst) + decPriceFinal
        txtTotal.Text = intBtnClkCount1 + intBtnClkCount2 + intBtnClkCount3 + intBtnClkCount4
    End Sub
End Class

http://s18.postimage.org/ah7ygirrt/Capture.png[^]