Scribd
Upload
7 views4 pages

Visual Basic Calculator Code Example

The document describes a visual basic calculator program with the following key functionality: - It contains buttons for numbers 0-9 and basic math operations - Clicking number buttons adds that number to the first or second display field depending on if an operation is selected - Clicking math operation buttons sets the operation variable - Clicking the equals button performs the calculation based on the operation and displays the result - It allows for basic math operations like addition, subtraction, multiplication, division and trigonometric, logarithmic and factorial functions

Uploaded by

Diego Domínguez
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
7 views4 pages

Visual Basic Calculator Code Example

The document describes a visual basic calculator program with the following key functionality: - It contains buttons for numbers 0-9 and basic math operations - Clicking number buttons adds that number to the first or second display field depending on if an operation is selected - Clicking math operation buttons sets the operation variable - Clicking the equals button performs the calculation based on the operation and displays the result - It allows for basic math operations like addition, subtraction, multiplication, division and trigonometric, logarithmic and factorial functions

Uploaded by

Diego Domínguez
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

UNIVERSIDAD POLITECNICA SALESIANA

PROGRAMACION

NOMBRE: DIEGO DOMINGUEZ


FECHA: 24/01/2016

TEMA: CALCULADORA VISUAL BASIC

Public Class Form1

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


[Link]
If ([Link] = "") Then
[Link] = [Link] & "1"
Else
[Link] = [Link] & "1"
End If
End Sub

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


[Link]
If ([Link] = "") Then
[Link] = [Link] & "2"
Else
[Link] = [Link] & "2"
End If
End Sub

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


[Link]
If ([Link] = "") Then
[Link] = [Link] & "3"
Else
[Link] = [Link] & "3"
End If
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles


[Link]
If ([Link] = "") Then
[Link] = [Link] & "4"
Else
[Link] = [Link] & "4"
End If
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles


[Link]
If ([Link] = "") Then
[Link] = [Link] & "5"
Else
[Link] = [Link] & "5"
End If
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles


[Link]
If ([Link] = "") Then
[Link] = [Link] & "6"
Else
[Link] = [Link] & "6"
End If
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles


[Link]
If ([Link] = "") Then
[Link] = [Link] & "7"
Else
[Link] = [Link] & "7"
End If
End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles


[Link]
If ([Link] = "") Then
[Link] = [Link] & "8"
Else
[Link] = [Link] & "8"
End If
End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles


[Link]
If ([Link] = "") Then
[Link] = [Link] & "9"
Else
[Link] = [Link] & "9"
End If
End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles


[Link]
If ([Link] = "") Then
[Link] = [Link] & "0"
Else
[Link] = [Link] & "0"
End If
End Sub

Private Sub Button22_Click(sender As Object, e As EventArgs) Handles


[Link]
If ([Link] = "") Then
[Link] = [Link] & "."
Else
[Link] = [Link] & "."
End If
End Sub

Private Sub BORRAR_Click(sender As Object, e As EventArgs) Handles


[Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Private Sub SALIR_Click(sender As Object, e As EventArgs) Handles [Link]


End
End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles
[Link]
Select Case [Link]
Case "+"
[Link] = Val([Link]) + Val([Link])
Case "-"
[Link] = Val([Link]) - Val([Link])
Case "*"
[Link] = Val([Link]) * Val([Link])
Case "/"
[Link] = Val([Link]) / Val([Link])
Case "SIN"
[Link] = [Link](Val([Link]))
Case "COS"
[Link] = [Link](Val([Link]))
Case "LN"
[Link] = [Link](Val([Link]))
Case "RAIZ"
[Link] = [Link](Val([Link]))
Case "FACTORIAL"
Dim F, X, i As Integer
X = Val([Link])
F = 1
i = 1
Do
F = F * i
i = i + 1
Loop Until (i > X)
[Link] = F
End Select
End Sub

Private Sub MAS_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]
End Sub

Private Sub MEN_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]

End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles


[Link]
[Link] = [Link]
End Sub

Private Sub DIV_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]
End Sub

Private Sub RAIZ_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]
End Sub

Private Sub SIN_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]
End Sub

Private Sub COS_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]
End Sub
Private Sub LN_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link]
End Sub

Private Sub FAC_Click(sender As Object, e As EventArgs) Handles [Link]


[Link] = [Link]
End Sub
End Class

You might also like