jueves, 27 de octubre de 2011
calculadora
https://docs.google.com/open?id=0B4b0D88H-MS7MGExODFkMDAtMzhlYy00OGQ1LTg1YjYtZmEzZjIwOWFlOGFk
Código de la función RealizaCálculos - Calculadora
Function RealizaCalculos(Cadena As String) As Double
Dim i, operador1, operador2, LargoCadena As Integer
Dim caracter As String
LargoCadena = Len(Cadena)
For i = 1 To LargoCadena
caracter = Mid(Cadena, i, 1)
If caracter = "+" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 + operador2
End If
If caracter = "-" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 - operador2
End If
If caracter = "*" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 * operador2
End If
If caracter = "/" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 / operador2
End If
Next i
End Function
Dim i, operador1, operador2, LargoCadena As Integer
Dim caracter As String
LargoCadena = Len(Cadena)
For i = 1 To LargoCadena
caracter = Mid(Cadena, i, 1)
If caracter = "+" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 + operador2
End If
If caracter = "-" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 - operador2
End If
If caracter = "*" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 * operador2
End If
If caracter = "/" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 / operador2
End If
Next i
End Function
Suscribirse a:
Comentarios (Atom)