reproductor





miércoles, 2 de mayo de 2012

Funciones matemáticas (Visual Basic)

Las funciones matemáticas de Visual Basic 6 han sido reemplazadas por métodos equivalentes en la clase System.Math de .NET Framework.

Los métodos matemáticos de .NET Framework funcionan del mismo modo que sus equivalentes de Visual Basic 6, si bien algunos de sus nombres han sufrido ligeras diferencias. Así, por ejemplo, el equivalente en .NET Framework de la función Atn de Visual Basic 6 es Atan. En la siguiente tabla se detallan los nombres de las funciones matemáticas de Visual Basic 6 y sus métodos equivalentes en .NET Framework:

Función de Visual Basic 6
Método en .NET Framework
Descripción
Abs
Abs
Devuelve el valor absoluto de un número especificado.
Atn
Atan
Devuelve un valor Double que contiene el ángulo cuya tangente es el número especificado.
Cos
Cos
Devuelve un valor Double que contiene el coseno del ángulo especificado.
Exp
Exp
Devuelve un valor Double que contiene e (base de los logaritmos naturales) elevado a la potencia especificada.
Log
Log
Devuelve un valor Double que contiene el logaritmo del número especificado. Este método está sobrecargado y puede devolver o bien el logaritmo natural (de base e) del número especificado o bien el logaritmo del número especificado en una base especificada.
Round
Round
Devuelve un valor de tipo Double que contiene el número más próximo al valor especificado. Existen funciones de redondeo adicionales disponibles como métodos de los tipos intrínsecos, tales como Round.
Sgn
Sign
Devuelve un valor Integer que indica el signo de un número.
Sin
Sin
Devuelve un valor Double que especifica el seno de un ángulo.
Sqr
Sqrt
Devuelve un valor Double que especifica la raíz cuadrada de un número.
Tan
Tan
Devuelve un valor Double que contiene la tangente de un ángulo.

Además, la clase matemática de .NET Framework ofrece constantes y otros métodos estáticos para funciones trigonométricas, logarítmicas y otras funciones matemáticas habituales. Todo ello puede utilizarse en un programa de Visual Basic.
Para utilizar estas funciones sin calificación, importe el espacio de nombres System.Math a su proyecto agregando el siguiente código en la parte superior del código fuente:
 
Imports System.Math
 
En este ejemplo se utiliza el método Abs de la clase Math para calcular el valor absoluto de un número.


' Returns 50.3.
Dim MyNumber1 As Double = Math.Abs(50.3)
' Returns 50.3.
Dim MyNumber2 As Double = Math.Abs(-50.3)
En este ejemplo se utiliza el método Atan de la clase Math para calcular el valor de pi.
Public Function GetPi() As Double
    ' Calculate the value of pi.
    Return 4.0 * Math.Atan(1.0)
End Function
En este ejemplo se utiliza el método Cos de la clase Math para devolver el coseno de un ángulo.
Public Function Sec(ByVal angle As Double) As Double
    ' Calculate the secant of angle, in radians.
    Return 1.0 / Math.Cos(angle)
End Function
En este ejemplo se utiliza el método Exp de la clase Math para devolver e elevado a una potencia.
Public Function Sinh(ByVal angle As Double) As Double
    ' Calculate hyperbolic sine of an angle, in radians.
    Return (Math.Exp(angle) - Math.Exp(-angle)) / 2.0
End Function
En este ejemplo se utiliza el método Log de la clase Math para devolver el logaritmo natural de un número.
Public Function Asinh(ByVal value As Double) As Double
    ' Calculate inverse hyperbolic sine, in radians.
    Return Math.Log(value + Math.Sqrt(value * value + 1.0))
End Function
En este ejemplo se utiliza el método Round de la clase Math para redondear un número al entero más próximo.
' Returns 3.
Dim MyVar2 As Double = Math.Round(2.8)
En este ejemplo se utiliza el método Sign de la clase Math para determinar el signo de un número.
' Returns 1.
Dim MySign1 As Integer = Math.Sign(12)
' Returns -1.
Dim MySign2 As Integer = Math.Sign(-2.4)
' Returns 0.
Dim MySign3 As Integer = Math.Sign(0)
En este ejemplo se utiliza el método Sin de la clase Math para devolver el seno de un ángulo.
Public Function Csc(ByVal angle As Double) As Double
    ' Calculate cosecant of an angle, in radians.
    Return 1.0 / Math.Sin(angle)
End Function
En este ejemplo se utiliza el método Sqrt de la clase Math para calcular la raíz cuadrada de un número.
' Returns 2.
Dim MySqr1 As Double = Math.Sqrt(4)
' Returns 4.79583152331272.
Dim MySqr2 As Double = Math.Sqrt(23)
' Returns 0.
Dim MySqr3 As Double = Math.Sqrt(0)
' Returns NaN (not a number).
Dim MySqr4 As Double = Math.Sqrt(-4)
En este ejemplo se utiliza el método Tan de la clase Math para devolver la tangente de un ángulo.
Public Function Ctan(ByVal angle As Double) As Double
    ' Calculate cotangent of an angle, in radians.
    Return 1.0 / Math.Tan(angle)
End Function