Dim largo As Integer
Dim a As Integer
Dim operacion As Integer
Dim m As Integer
Private Sub cmdsiete_Click(sender As Object, e As EventArgs) Handles
cmdsiete.Click
txtresultado.Text = txtresultado.Text & 7
End Sub
Private Sub Cmdcero_Click(sender As Object, e As EventArgs) Handles
cmdcero.Click
txtresultado.Text = txtresultado.Text & 0
End Sub
Private Sub Cmduno_Click(sender As Object, e As EventArgs) Handles cmduno.Click
txtresultado.Text = txtresultado.Text & 1
End Sub
Private Sub Cmddos_Click(sender As Object, e As EventArgs) Handles cmddos.Click
txtresultado.Text = txtresultado.Text & 2
End Sub
Private Sub Cmdtres_Click(sender As Object, e As EventArgs) Handles
cmdtres.Click
txtresultado.Text = txtresultado.Text & 3
End Sub
Private Sub Cmdcuatro_Click(sender As Object, e As EventArgs) Handles
cmdcuatro.Click
txtresultado.Text = txtresultado.Text & 4
End Sub
Private Sub Cmdcinco_Click(sender As Object, e As EventArgs) Handles
cmdcinco.Click
txtresultado.Text = txtresultado.Text & 5
End Sub
Private Sub Cmdseis_Click(sender As Object, e As EventArgs) Handles
cmdseis.Click
txtresultado.Text = txtresultado.Text & 6
End Sub
Private Sub Cmdocho_Click(sender As Object, e As EventArgs) Handles
cmdocho.Click
txtresultado.Text = txtresultado.Text & 8
End Sub
Private Sub Cmdnuevo_Click(sender As Object, e As EventArgs) Handles
cmdnuevo.Click
txtresultado.Text = txtresultado.Text & 9
End Sub
Private Sub Cmdretroceder_Click(sender As Object, e As EventArgs) Handles
cmdretroceder.Click
largo = Len(txtresultado.Text)
txtresultado.Text = Mid(txtresultado.Text, 1, largo - 1)
End Sub
Private Sub Cmdsuma_Click(sender As Object, e As EventArgs) Handles
cmdsuma.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 1
End Sub
Private Sub Cmdigual_Click(sender As Object, e As EventArgs) Handles
cmdigual.Click
If operacion = 1 Then
txtresultado.Text = a + txtresultado.Text
Else
If operacion = 2 Then
txtresultado.Text = a - txtresultado.Text
Else
If operacion = 3 Then
txtresultado.Text = a * txtresultado.Text
Else
If operacion = 4 Then
txtresultado.Text = a / txtresultado.Text
Else
If operacion = 5 Then
txtresultado.Text = Math.Pow(a, txtresultado.Text)
Else
If operacion = 6 Then
txtresultado.Text = Math.Pow(a, txtresultado.Text)
Else
If operacion = 7 Then
txtresultado.Text = Math.Pow(a, 1 /
txtresultado.Text)
Else
If operacion = 8 Then
txtresultado.Text = Math.Pow(a, 3 /
txtresultado.Text)
Else
If operacion = 9 Then
txtresultado.Text = a Mod
txtresultado.Text
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub Cmdrest_Click(sender As Object, e As EventArgs) Handles
cmdrest.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 2
End Sub
Private Sub Cmdmult_Click(sender As Object, e As EventArgs) Handles
cmdmult.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 3
End Sub
Private Sub Cmddiv_Click(sender As Object, e As EventArgs) Handles cmddiv.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 4
End Sub
Private Sub Cmdclear_Click(sender As Object, e As EventArgs) Handles
cmdclear.Click
txtresultado.Text = ""
a = 0
End Sub
Private Sub Cmdmc_Click(sender As Object, e As EventArgs) Handles cmdmc.Click
m = 0
End Sub
Private Sub Cmdmr_Click(sender As Object, e As EventArgs) Handles cmdmr.Click
txtresultado.Text = m
End Sub
Private Sub Cmdms_Click(sender As Object, e As EventArgs) Handles cmdms.Click
m = txtresultado.Text
End Sub
Private Sub Cmdmmas_Click(sender As Object, e As EventArgs) Handles
cmdmmas.Click
m = m + txtresultado.Text
End Sub
Private Sub Cmdmres_Click(sender As Object, e As EventArgs) Handles
cmdmres.Click
m = m - txtresultado.Text
End Sub
Private Sub Cmdmclear_Click(sender As Object, e As EventArgs) Handles
cmdmclear.Click
txtresultado.Text = ""
End Sub
Private Sub Cmdraiz_Click(sender As Object, e As EventArgs) Handles
cmdraiz.Click
txtresultado.Text = Math.Sqrt(txtresultado.Text)
End Sub
Private Sub cmdparenteciscerrado_Click(sender As Object, e As EventArgs)
Handles cmdparenteciscerrado.Click
txtresultado.Text = txtresultado.Text & "("
End Sub
Private Sub cmdparentecisabierto_Click(sender As Object, e As EventArgs)
Handles cmdparentecisabierto.Click
txtresultado.Text = txtresultado.Text & ")"
End Sub
Private Sub cmdcos_Click(sender As Object, e As EventArgs) Handles cmdcos.Click
txtresultado.Text = Math.Cos(txtresultado.Text)
End Sub
Private Sub cmdsin_Click(sender As Object, e As EventArgs) Handles cmdsin.Click
txtresultado.Text = Math.Sin(txtresultado.Text)
End Sub
Private Sub cmdtan_Click(sender As Object, e As EventArgs) Handles cmdtan.Click
txtresultado.Text = Math.Tan(txtresultado.Text)
End Sub
Private Sub cmdsinh_Click(sender As Object, e As EventArgs) Handles
cmdsinh.Click
txtresultado.Text = Math.Cosh(txtresultado.Text)
End Sub
Private Sub cmdcosh_Click(sender As Object, e As EventArgs) Handles
cmdcosh.Click
txtresultado.Text = Math.Sinh(txtresultado.Text)
End Sub
Private Sub cmdtanh_Click(sender As Object, e As EventArgs) Handles
cmdtanh.Click
txtresultado.Text = Math.Tanh(txtresultado.Text)
End Sub
Private Sub cmdlog_Click(sender As Object, e As EventArgs) Handles cmdlog.Click
txtresultado.Text = Math.Log10(txtresultado.Text)
End Sub
Private Sub cmdexp_Click(sender As Object, e As EventArgs) Handles cmdexp.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 6
End Sub
Private Sub cmdxelevadoala2_Click(sender As Object, e As EventArgs) Handles
cmdxelevadoala2.Click
txtresultado.Text = Math.Pow(txtresultado.Text, 2)
End Sub
Private Sub cmdxelevadalatres_Click(sender As Object, e As EventArgs) Handles
cmdxelevadalatres.Click
txtresultado.Text = Math.Pow(txtresultado.Text, 3)
End Sub
Private Sub cmdxelevadoalay_Click(sender As Object, e As EventArgs) Handles
cmdxelevadoalay.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 5
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles
Button4.Click
txtresultado.Text = Math.Pow(txtresultado.Text, 10)
End Sub
Private Sub cmdln_Click(sender As Object, e As EventArgs) Handles cmdln.Click
txtresultado.Text = Math.Log(txtresultado.Text)
End Sub
Private Sub cmdfactorial_Click(sender As Object, e As EventArgs) Handles
cmdfactorial.Click
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 7
End Sub
Private Sub cmdpi_Click(sender As Object, e As EventArgs) Handles cmdpi.Click
txtresultado.Text = Math.PI
End Sub
Private Sub cmdraizcubica_Click(sender As Object, e As EventArgs) Handles
cmdraizcubica.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 8
End Sub
Private Sub cmdint_Click(sender As Object, e As EventArgs) Handles cmdint.Click
txtresultado.Text = Int(txtresultado.Text)
End Sub
Private Sub cmdmod_Click(sender As Object, e As EventArgs) Handles cmdmod.Click
a = txtresultado.Text
txtresultado.Text = ""
operacion = 9
End Sub
Private Sub cmdpunto_Click(sender As Object, e As EventArgs) Handles
cmdpunto.Click
txtresultado.Text = txtresultado.Text & "."
End Sub
Private Sub frmcalculadora_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
End Sub
