top of page

The Code

 

 

 

Public Class Form71

    '## Maths Functions ##
    '## Built-In Mathematical Functions ##
    '## The Math keyword indicates that the EXP Function belongs to the Math Class ##
    '## Dimension Variables in Public Class ##


    Dim Number1 As Double
    Dim
Number2 As Double
    Dim
ExpValue As Double
    Dim
DecFormat As String = "exp = ##,##.###############"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        '## EXP Function returns the Exponential Value of a Number ##

        '## Assigning Value to Variable ##
        '## Assign Variable to Label.Text for Formatting ##

        '## Math keyword indicates that exp Function belongs to Math Class ##


        Number1 = TextBox1.Text
       
ExpValue = Math.Exp(Val(Number1))
       
Label1.Text = Format(ExpValue, DecFormat)

 

        '## Assigning Value Label ##
        '## Assigning Variable to Label alternative Formatting  ##

        Number2 = TextBox2.Text
        Label2.Text = Format(Math.Exp(Number2), DecFormat)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = ""
        TextBox2.Text = ""
        Label1.Text = ""
        Label2.Text = ""

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Form65.Show()
        Me.Hide()

    End Sub


End Class

Website Links-173.jpg
bottom of page