• Home
 · 
• Math/Dates
 · 
• To Find out how many beers it will take for a person to reach the legal limit of of .08

To Find out how many beers it will take for a person to reach the legal limit of of .08

To Find out how many beers it will take for a person to reach the legal limit of of .08

Rate To Find out how many beers it will take for a person to reach the legal limit of of .08

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim intMale As Integer
    Dim intFemale As Integer
    Dim Female As String
    Dim Male As String


    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblWeight.Click

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblDrunk.Click

    End Sub

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

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGender.TextChanged

    End Sub

    Private Sub txtDrunk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDrunk.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Calculate Male
        intMale = (Val(0.58 * (txtWeight.Text / 0.00245)))

        'Calculate Female
        intFemale = (Val(0.49 * (txtWeight.Text / 0.00245)))

        If (Val(txtGender.Text) = Male) Then
            intMale = True
        End If

        If intMale = True Then
            txtBeer.Text = (((292.5 / (intMale * 0.08))) * 100)
        Else
            txtBeer.Text = (((292.5 / (intFemale * 0.08))) * 100)
        End If

    End Sub

    Private Sub lblPints_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblGender.Click

    End Sub
End Class