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
[Link]
[Link] = [Link] & 7
End Sub
Private Sub Cmdcero_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link] & 0
End Sub
Private Sub Cmduno_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link] & 1
End Sub
Private Sub Cmddos_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link] & 2
End Sub
Private Sub Cmdtres_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link] & 3
End Sub
Private Sub Cmdcuatro_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link] & 4
End Sub
Private Sub Cmdcinco_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link] & 5
End Sub
Private Sub Cmdseis_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link] & 6
End Sub
Private Sub Cmdocho_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link] & 8
End Sub
Private Sub Cmdnuevo_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link] & 9
End Sub
Private Sub Cmdretroceder_Click(sender As Object, e As EventArgs) Handles
[Link]
largo = Len([Link])
[Link] = Mid([Link], 1, largo - 1)
End Sub
Private Sub Cmdsuma_Click(sender As Object, e As EventArgs) Handles
[Link]
a = [Link]
[Link] = ""
operacion = 1
End Sub
Private Sub Cmdigual_Click(sender As Object, e As EventArgs) Handles
[Link]
If operacion = 1 Then
[Link] = a + [Link]
Else
If operacion = 2 Then
[Link] = a - [Link]
Else
If operacion = 3 Then
[Link] = a * [Link]
Else
If operacion = 4 Then
[Link] = a / [Link]
Else
If operacion = 5 Then
[Link] = [Link](a, [Link])
Else
If operacion = 6 Then
[Link] = [Link](a, [Link])
Else
If operacion = 7 Then
[Link] = [Link](a, 1 /
[Link])
Else
If operacion = 8 Then
[Link] = [Link](a, 3 /
[Link])
Else
If operacion = 9 Then
[Link] = a Mod
[Link]
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
[Link]
a = [Link]
[Link] = ""
operacion = 2
End Sub
Private Sub Cmdmult_Click(sender As Object, e As EventArgs) Handles
[Link]
a = [Link]
[Link] = ""
operacion = 3
End Sub
Private Sub Cmddiv_Click(sender As Object, e As EventArgs) Handles [Link]
a = [Link]
[Link] = ""
operacion = 4
End Sub
Private Sub Cmdclear_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
a = 0
End Sub
Private Sub Cmdmc_Click(sender As Object, e As EventArgs) Handles [Link]
m = 0
End Sub
Private Sub Cmdmr_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = m
End Sub
Private Sub Cmdms_Click(sender As Object, e As EventArgs) Handles [Link]
m = [Link]
End Sub
Private Sub Cmdmmas_Click(sender As Object, e As EventArgs) Handles
[Link]
m = m + [Link]
End Sub
Private Sub Cmdmres_Click(sender As Object, e As EventArgs) Handles
[Link]
m = m - [Link]
End Sub
Private Sub Cmdmclear_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
End Sub
Private Sub Cmdraiz_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]([Link])
End Sub
Private Sub cmdparenteciscerrado_Click(sender As Object, e As EventArgs)
Handles [Link]
[Link] = [Link] & "("
End Sub
Private Sub cmdparentecisabierto_Click(sender As Object, e As EventArgs)
Handles [Link]
[Link] = [Link] & ")"
End Sub
Private Sub cmdcos_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link]([Link])
End Sub
Private Sub cmdsin_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link]([Link])
End Sub
Private Sub cmdtan_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link]([Link])
End Sub
Private Sub cmdsinh_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]([Link])
End Sub
Private Sub cmdcosh_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]([Link])
End Sub
Private Sub cmdtanh_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]([Link])
End Sub
Private Sub cmdlog_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = Math.Log10([Link])
End Sub
Private Sub cmdexp_Click(sender As Object, e As EventArgs) Handles [Link]
a = [Link]
[Link] = ""
operacion = 6
End Sub
Private Sub cmdxelevadoala2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]([Link], 2)
End Sub
Private Sub cmdxelevadalatres_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]([Link], 3)
End Sub
Private Sub cmdxelevadoalay_Click(sender As Object, e As EventArgs) Handles
[Link]
a = [Link]
[Link] = ""
operacion = 5
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link]([Link], 10)
End Sub
Private Sub cmdln_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link]([Link])
End Sub
Private Sub cmdfactorial_Click(sender As Object, e As EventArgs) Handles
[Link]
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
a = [Link]
[Link] = ""
operacion = 7
End Sub
Private Sub cmdpi_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = [Link]
End Sub
Private Sub cmdraizcubica_Click(sender As Object, e As EventArgs) Handles
[Link]
a = [Link]
[Link] = ""
operacion = 8
End Sub
Private Sub cmdint_Click(sender As Object, e As EventArgs) Handles [Link]
[Link] = Int([Link])
End Sub
Private Sub cmdmod_Click(sender As Object, e As EventArgs) Handles [Link]
a = [Link]
[Link] = ""
operacion = 9
End Sub
Private Sub cmdpunto_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = [Link] & "."
End Sub
Private Sub frmcalculadora_Load(sender As Object, e As EventArgs) Handles
[Link]
End Sub
