Nothing Special   »   [go: up one dir, main page]
Scribd Logo
Upload

Welcome to Scribd!

  • 26 views

    Math Functions

    Uploaded by

    Jeniffer Makalintal
    The document contains the code for a Windows form application that uses various mathematical and string functions in Visual Basic. It includes 31 buttons that, when clicked, call functions to perform operations like absolute value, ceiling, division remainder, exponent, logarithm, rounding, and more. It also includes functions to work with strings like case conversion, substring extraction and string length. Additionally, it includes code to display the current date, time and timers in labels that update every tick of a timer.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Math Functions

    Uploaded by

    Jeniffer Makalintal
    26 views4 pages
    The document contains the code for a Windows form application that uses various mathematical and string functions in Visual Basic. It includes 31 buttons that, when clicked, call functions to perform operations like absolute value, ceiling, division remainder, exponent, logarithm, rounding, and more. It also includes functions to work with strings like case conversion, substring extraction and string length. Additionally, it includes code to display the current date, time and timers in labels that update every tick of a timer.

    Original Description:

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document contains the code for a Windows form application that uses various mathematical and string functions in Visual Basic. It includes 31 buttons that, when clicked, call functions to perform operations like absolute value, ceiling, division remainder, exponent, logarithm, rounding, and more. It also includes functions to work with strings like case conversion, substring extraction and string length. Additionally, it includes code to display the current date, time and timers in labels that update every tick of a timer.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    26 views4 pages

    Math Functions

    Uploaded by

    Jeniffer Makalintal
    The document contains the code for a Windows form application that uses various mathematical and string functions in Visual Basic. It includes 31 buttons that, when clicked, call functions to perform operations like absolute value, ceiling, division remainder, exponent, logarithm, rounding, and more. It also includes functions to work with strings like case conversion, substring extraction and string length. Additionally, it includes code to display the current date, time and timers in labels that update every tick of a timer.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 4

    Public Class Form1

    Dim n As Single, m As Single


    Dim i As String

    Private Sub GetInput()


    n = Val(txtInput.Text)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    Call GetInput()
    lblOutput.Text = Math.Abs(n)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Call GetInput()
    lblOutput.Text = Math.Ceiling(n)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button3.Click
    Dim a As Integer, b As Integer, c As Integer
    a = Val(txtInput.Text)
    b = Val(txtInput2.Text)
    lblOutput.Text = Math.DivRem(a, b, c) & " Rem.: " & c
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button4.Click
    Call GetInput()
    lblOutput.Text = Math.E
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button5.Click
    Call GetInput()
    lblOutput.Text = Math.Exp(n)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button6.Click
    Call GetInput()
    lblOutput.Text = Math.Floor(n)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button7.Click
    Dim a As Double, b As Double

    a = txtInput.Text
    b = txtInput2.Text

    lblOutput.Text = Math.IEEERemainder(a, b)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button8.Click
    Call GetInput()

    lblOutput.Text = Math.Log(n)
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button9.Click
    Dim a As Integer, b As Integer

    a = txtInput.Text
    b = txtInput2.Text

    lblOutput.Text = Math.Max(a, b)
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button10.Click
    Dim a As Integer, b As Integer

    a = txtInput.Text
    b = txtInput2.Text

    lblOutput.Text = Math.Min(a, b)
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button11.Click
    lblOutput.Text = Math.PI
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button12.Click
    Dim a As Double, b As Double

    a = txtInput.Text
    b = txtInput2.Text

    lblOutput.Text = Math.Pow(a, b)
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button13.Click
    Dim a As Double
    Dim b As Integer

    a = txtInput.Text
    b = txtInput2.Text

    lblOutput.Text = Math.Round(a, b)
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button14.Click
    Call GetInput()
    lblOutput.Text = Math.Sign(n)
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button15.Click
    Call GetInput()
    lblOutput.Text = Math.Sin(n)
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button16.Click
    Call GetInput()
    lblOutput.Text = Math.Sinh(n)
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button17.Click
    Call GetInput()
    lblOutput.Text = Math.Tan(n)
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button18.Click
    Call GetInput()
    lblOutput.Text = Math.Tanh(n)
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button19.Click
    Call GetInput()
    lblOutput.Text = Math.Truncate(n)
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button21.Click
    Call GetInput()
    lblOutput.Text = Math.Acos(n)
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button22.Click
    Call GetInput()
    lblOutput.Text = Math.Atan(n)
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button23.Click
    Call GetInput()
    lblOutput.Text = Math.Asin(n)
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button24.Click
    Dim a As Double
    Dim b As Double

    a = txtInput.Text
    b = txtInput2.Text
    lblOutput.Text = Math.Atan2(a, b)
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button25.Click
    Call GetInput()
    lblOutput.Text = Math.Log10(n)
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button26.Click
    Call GetInput()
    lblOutput.Text = Math.Sqrt(n)
    End Sub

    Private Sub GetStrInput()


    i = txtStrInput.Text
    End Sub
    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button20.Click
    Call GetStrInput()
    lblStrOutput.Text = Chr(i)
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button27.Click
    Call GetStrInput()
    lblStrOutput.Text = LCase(i)
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button28.Click
    Call GetStrInput()
    lblStrOutput.Text = UCase(i)
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button29.Click
    Call GetStrInput()
    Dim y As Integer
    y = txtIntInput.Text

    lblStrOutput.Text = Microsoft.VisualBasic.Left(i, y)
    End Sub

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button30.Click
    Call GetStrInput()
    Dim y As Integer
    y = txtIntInput.Text

    lblStrOutput.Text = Microsoft.VisualBasic.Right(i, y)
    End Sub

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button31.Click
    Call GetStrInput()
    lblStrOutput.Text = Len(i)
    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button32.Click
    Dim x As String
    Dim y As Integer, z As Integer

    x = txtStrInput.Text
    y = txtIntInput.Text
    z = txtIntInput2.Text

    lblStrOutput.Text = Mid(x, y, z)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Timer1.Tick
    lblDateTime.Text = "Now: " & Now
    Label4.Text = Today
    Label8.Text = TimeOfDay
    Label9.Text = Microsoft.VisualBasic.Timer & vbNewLine &
    Date.Now.TimeOfDay.TotalSeconds
    Label10.Text = DateDiff("yyyy", "7 / 15 / 1988", Now)
    Label11.Text = DatePart("q", Now)
    End Sub
    End Class

    You might also like