Lesson 18: Math Functions in VB2019

Private Sub BtnAbs_Click(sender As Object, e As EventArgs) Handles BtnAbs.Click
    Dim num As Double = Val(TxtNumber.Text)
    LblResult.Text = Math.Abs(num).ToString()
End Sub

Private Sub BtnExp_Click(sender As Object, e As EventArgs) Handles BtnExp.Click
    Dim exponent As Double = Val(TxtExponent.Text)
    LblExpResult.Text = Math.Exp(exponent).ToString("F4")
End Sub

Private Sub BtnFixInt_Click(sender As Object, e As EventArgs) Handles BtnFixInt.Click
    Dim num As Double = Val(TxtNumber.Text)
    
    LblFix.Text = Fix(num).ToString()
    LblInt.Text = Int(num).ToString()
    
    ' For negative numbers:
    Dim negNum As Double = -5.7
    LblFixNeg.Text = Fix(negNum).ToString() ' Returns -5
    LblIntNeg.Text = Int(negNum).ToString() ' Returns -6
End Sub

Private Sub BtnLog_Click(sender As Object, e As EventArgs) Handles BtnLog.Click
    Dim num As Double = Val(TxtLogNumber.Text)
    
    If num > 0 Then
        LblLogResult.Text = Math.Log(num).ToString("F4")
    Else
        LblLogResult.Text = "Invalid input"
    End If
End Sub

Private Sub BtnRandom_Click(sender As Object, e As EventArgs) Handles BtnRandom.Click
    ' Generate random number between 0 and 1
    Dim randomValue As Double = vbMath.Rnd()
    LblRandom1.Text = randomValue.ToString("F4")
    
    ' Generate random integer between 1 and 6
    Dim diceRoll As Integer = Int(vbMath.Rnd() * 6) + 1
    LblDice.Text = diceRoll.ToString()
    
    ' Generate random integer between 1 and 100
    Dim randomInt As Integer = Int(vbMath.Rnd() * 100) + 1
    LblRandom2.Text = randomInt.ToString()
End Sub

Private Sub BtnRound_Click(sender As Object, e As EventArgs) Handles BtnRound.Click
    Dim num As Double = Val(TxtRoundNumber.Text)
    Dim decimals As Integer = CInt(NumDecimals.Value)
    
    LblRoundResult.Text = Math.Round(num, decimals).ToString()
End Sub

Private Sub BtnSqrt_Click(sender As Object, e As EventArgs) Handles BtnSqrt.Click
    Dim num As Double = Val(TxtSqrtNumber.Text)
    
    If num >= 0 Then
        LblSqrtResult.Text = Math.Sqrt(num).ToString("F4")
    Else
        LblSqrtResult.Text = "Invalid input"
    End If
End Sub