Funções Matemáticas (Visual Basic)

Artigo
08/25/2010

As funções matemáticas no Visual Basic 6 foram substituídas por métodos equivalentes na classe System.Math do Framework .NET.

Comentários

Os métodos do Framework .NET são funcionalmente idênticos aos seus equivalentes do Vsiaul Basic 6, ainda que alguns tenham nomes um pouco diferentes.Por exemplo, o equivalente do Framework .NET da função Atn do Visual Basic 6 é AtanA seguinte tabela lista as funções matemáticas do Visual Basic 6 e seus respectivos métodos equivalentes do Framework .NET.

Função do Visual Basic 6	método do Framework .NET.	Descrição
Abs	Abs	Retorna o valor absoluto de um número específico.
Atn	Atan	Retorna um valor Double contendo o ângulo cuja tangente é o número especificado.
Cos	Cos	Retorna um valor Double contendo o cosseno do ângulo especificado.
Exp	Exp	Retorna um valor Double contendo e (a base dos logaritmos naturais) elevado à potência especificada.
Log	Log	Retorna um valor Double contendo o logaritmo de um número especificado.Este método é sobrecarregado e pode retornar tanto o logaritmo natural (e) de um número especificado como o logaritmo de um certo número numa outra base.
Round	Round	Retorna um valor Double contendo o número mais próximo do valor especificado.Funções de arredondamento adicionais estão disponíveis como métodos dos tipos intrínsecos como Round
Sgn	Sign	Retorna um valor Integer indicando o sinal de um número.
Sin	Sin	Retorna um valor Double especificando o seno de um ângulo.
Sqr	Sqrt	Retorna um valor Double especificando a raiz quadrada de um número.
Tan	Tan	Retorna um valor Double contendo a tangente de um ângulo.

Além disso, a classe math do Framework .NET fornece constantes e outros métodos estáticos para funções trigonométricas, logarítmicas e outras funções matemáticas comuns.Todas estas podem ser usadas num programa em Visual Basic.

Para usar estas funções sem restrições, importe o namespace System.Math para seu projeto adicionando o seguinte código ao topo do código-fonte:

'Imports System.Math

Exemplo

Este exemplo usa o método Abs da classe Math para calcular o valor absoluto de um número.

' Returns 50.3.
Dim MyNumber1 As Double = Math.Abs(50.3)
' Returns 50.3.
Dim MyNumber2 As Double = Math.Abs(-50.3)

Este exemplo usa o método Atan da classe Math para calcular o valor de pi.

Public Function GetPi() As Double
    ' Calculate the value of pi.
    Return 4.0 * Math.Atan(1.0)
End Function

Este exemplo usa o método Cos da classe Math para retornar o cosseno de um â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

Este exemplo usa o método Exp da classe Math para retornar e elevado a um expoente.

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

Este exemplo usa o método Log da classe Math para retornar o logaritmo natural de um 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

Este exemplo usa o método Round da classe Math para arredondar um número para o inteiro mais próximo.

' Returns 3.
Dim MyVar2 As Double = Math.Round(2.8)

Este exemplo usa o método Sign da classe Math para determinar o sinal de um 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)

Este exemplo usa o método Sin da classe Math para retornar o seno de um â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

Este exemplo usa o método Sqrt da classe Math para calcular a raiz quadrada de um 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)

Este exemplo usa o método Tan da classe Math para retornar a tangente de um â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