Calculadora Básica

Programa en Visual Studio 2010
Descargar

Public Class frmCalculadora
Dim Num1
Dim Num2
Dim Resultado
Dim OtroNumero
Dim Operacion = ""

Private Sub BTN_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_0.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 0
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_1.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 1
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_2.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 2
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_3.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 3
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_4.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 4
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_5.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 5
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_6.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 6
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_7.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 7
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_8.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 8
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_9.Click
OtroNumero = Me.TXT_Resultado.Text
OtroNumero = OtroNumero & 9
Me.TXT_Resultado.Text = OtroNumero
End Sub

Private Sub BTN_Div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Div.Click
Num1 = Me.TXT_Resultado.Text
Operacion = "Division"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_CE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_CE.Click
Me.TXT_Resultado.Text = "" 'Borra todo el textbox'
End Sub

Private Sub BTN_Multiplicacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Multiplicacion.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Multiplicacion"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Resta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Resta.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Resta"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Suma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Suma.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Suma"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_Decimal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Decimal.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Me.TXT_Resultado.Text = Num1 & ","
End Sub

Private Sub BTN_XelvadoY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_XelvadoY.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "X Elevado a la Y"
Me.TXT_Resultado.Text = "" 'Borra el display'
End Sub

Private Sub BTN_RaizCuadrada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_RaizCuadrada.Click
Num1 = Me.TXT_Resultado.Text 'Captura el primer numero'
Operacion = "Raiz Cuadrada"
Resultado = Math.Sqrt(d:=Val(Num1))
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado2.Click
'Boton Elevado a la 2 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 2
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado3.Click
'Boton Elevado a la 3 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 3
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Elevado4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Elevado4.Click
'Boton Elevado a la 4 con su funcion'
Num1 = Me.TXT_Resultado.Text
Resultado = Val(Num1) ^ 4
Me.TXT_Resultado.Text = Resultado
End Sub

Private Sub BTN_Igual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_Igual.Click
Num2 = Me.TXT_Resultado.Text
If Operacion = "Suma" Then
Resultado = Val(Num1) + Val(Num2)
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Resta" Then
Resultado = Num1 - Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Multiplicacion" Then
Resultado = Num1 * Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "Division" Then
Resultado = Num1 / Num2
Me.TXT_Resultado.Text = Resultado
End If
If Operacion = "X Elevado a la Y" Then
Resultado = Val(Num1) ^ Val(Num2)
Me.TXT_Resultado.Text = Resultado
End If
End Sub
End Class