Lesson 18: Mastering Math Functions in VB2022

Private Sub BtnAbs_Click(sender As Object, e As EventArgs) Handles BtnAbs.Click
    Dim num As Double = Val(txtInput.Text)
    lblResult.Text = "Absolute Value: " & Math.Abs(num)
End Sub

Private Sub BtnExp_Click(sender As Object, e As EventArgs) Handles BtnExp.Click
    Dim num As Double = Val(txtInput.Text)
    lblResult.Text = "e^" & num & " = " & Math.Exp(num)
End Sub

Private Sub BtnSqrt_Click(sender As Object, e As EventArgs) Handles BtnSqrt.Click
    Dim num As Double = Val(txtInput.Text)
    If num >= 0 Then
        lblResult.Text = "Square Root: " & Math.Sqrt(num)
    Else
        lblResult.Text = "Cannot calculate square root of negative number"
    End If
End Sub

Private Sub BtnDice_Click(sender As Object, e As EventArgs) Handles BtnDice.Click
    ' Generate random integer between 1 and 6
    Dim diceRoll As Integer = Int(Rnd() * 6) + 1
    lblResult.Text = "Dice Roll: " & diceRoll
End Sub

Private Sub BtnRound_Click(sender As Object, e As EventArgs) Handles BtnRound.Click
    Dim num As Double = Val(txtInput.Text)
    Dim decimals As Integer = Val(txtDecimals.Text)
    lblResult.Text = "Rounded: " & Math.Round(num, decimals)
End Sub

Private Sub BtnFix_Click(sender As Object, e As EventArgs) Handles BtnFix.Click
    Dim num As Double = Val(txtInput.Text)
    lblResult.Text = "Fix: " & Fix(num)
End Sub

Private Sub BtnInt_Click(sender As Object, e As EventArgs) Handles BtnInt.Click
    Dim num As Double = Val(txtInput.Text)
    lblResult.Text = "Int: " & Int(num)
End Sub

Private Sub BtnMax_Click(sender As Object, e As EventArgs) Handles BtnMax.Click
    Dim num1 As Double = Val(txtNum1.Text)
    Dim num2 As Double = Val(txtNum2.Text)
    lblResult.Text = "Maximum: " & Math.Max(num1, num2)
End Sub

Private Sub BtnMin_Click(sender As Object, e As EventArgs) Handles BtnMin.Click
    Dim num1 As Double = Val(txtNum1.Text)
    Dim num2 As Double = Val(txtNum2.Text)
    lblResult.Text = "Minimum: " & Math.Min(num1, num2)
End Sub

Private Sub BtnLog_Click(sender As Object, e As EventArgs) Handles BtnLog.Click
    Dim num As Double = Val(txtInput.Text)
    If num > 0 Then
        lblResult.Text = "Natural Log: " & Math.Log(num)
    Else
        lblResult.Text = "Log undefined for numbers ≤ 0"
    End If
End Sub

Private Sub BtnPow_Click(sender As Object, e As EventArgs) Handles BtnPow.Click
    Dim base As Double = Val(txtBase.Text)
    Dim exponent As Double = Val(txtExponent.Text)
    lblResult.Text = base & "^" & exponent & " = " & Math.Pow(base, exponent)
End Sub