Neste artigo vou abordar alguns cálculos que utilizamos na matemática pura e aplicada. Esses cálculo são essenciais para a criação de sistema na área da engenharia. A idéia é transformar os cálculos mais conhecidos, em cálculos voltados para o VB6.
Acho que todo mundo lembra um pouco das famosas fórmulas da trigonométrica que quebrava nossas cabeças no ensino médio e no superior para quem precisou.
Como já abordei em outros artigos a respeito das funções internas do VB6, hoje não vai ser diferente! Teremos que aprender outros tipos de funções, que vão ser as funções matemáticas do VB6. Vamos ver algumas delas agora:
Sin
Finalidade: Calcula o seno de um número.
Sintaxe: Sin(Número)
Obs.: Número - Qualquer expressão numérica válida que expresse um ângulo em radianos.
Exemplo:
Msgbox Sin(1.25) ‘Teste = 0.948984619355586
Msgbox Sin(.79) ‘Teste = 0.710353272417608
Cos
Finalidade: Calcula o cosseno de um ângulo.
Sintaxe: Cos(Número)
Obs.: Número - Pode ser qualquer expressão numérica válida que expresse um ângulo em radianos.
Exemplo:
Const PI = 3.14159265
Msgbox Cos(PI) ‘Teste = -1
Msgbox Cos(PI/2) ‘Teste = 1.79489651491878E-09
Atn
Finalidade: Calcula o Arco Tangente de um número.
Sintaxe: Atn(Número)
Obs.: A função Atn retorna o número de radianos referentes ao arco tangente do ângulo
Exemplo:
Msgbox Atn(30) ‘Teste = 1.53747533091665
Msgbox Atn(45) ‘Teste = 1.54857776146818
Tan
Finalidade: Calcula a tangente de um número.
Sintaxe: Tan(Número)
Obs.: Número - Qualquer expressão numérica válida que expresse um ângulo em radianos note que utilizamos um ponto antes do numero para expressar esse valor que simboliza 0.79
Exemplo:
Msgbox Tan(.79) ‘Teste = 1.00924628838275
Exp
Finalidade: Retorna o valor de e (base de um logaritmo natural) elevado a uma potência qualquer.
Sintaxe: Exp(Número)
Obs.: Número - Qualquer expressão numérica válida.
Exemplo:
Msgbox Exp(1) ‘Teste = 2.71828182845905
Msgbox Exp(2) ‘Teste = 7.38905609893065
Msgbox Exp(-2) ‘Teste = 0.13533528323661
O valor é aproximadamente 2,718282. Se o valor do número for superior a 709,782712893, ocorrerá um erro de overflow.
Log
Finalidade: Calcula o logaritmo natural de um número.
Sintaxe: Log(Número)
Obs.: Número - Qualquer expressão numérica válida maior que zero.
Exemplo:
Msgbox Log(0) ‘Teste = 1
Msgbox Log(5) ‘Teste = 1.6094379124341
Sqr
Finalidade: Calcula a raiz quadrada de um número.
Sintaxe: Sqr(Número)
Obs.: Qualquer expressão numérica válida maior ou igual a zero.
Exemplo:
Msgbox Sqr(16) ‘Teste = 4
Fix
Finalidade: Retorna a parte inteira de um número.
Sintaxe: Fix(Número)
Obs.: Número - Qualquer expressão numérica válida. Se número contém Null, o valor de retorno será Null também.
Exemplo:
Msgbox Fix(12.556) ‘Teste = 12
Msgbox Fix(-12.556) ‘Teste = -12
Msgbox Fix(1.6) ‘Teste = 1
Int
Finalidade: Retorna a parte inteira de um número.
Sintaxe: Int(Número)
Obs.: Número - Qualquer expressão numérica válida. Se número contém Null, o valor de retorno será Null também.
Exemplo:
Esta função opera de forma idêntica à função Fix.
Rnd
Finalidade: Retorna um número aleatório (randômico).
Sintaxe: Rnd[(Número)]
Obs.: Número - Qualquer expressão numérica válida.
Esta função retorna um valor menor que 1 e maior ou igual a zero.
Exemplo:
Msgbox Rnd
Sgn
Finalidade: Retorna um inteiro conforme o sinal do número.
Sintaxe: Sgn(Número)
Obs.: Número - Qualquer expressão numérica válida.
Ajustes:
Se Número: Sgn Retorna:
Maior que zero 1
Igual a zero 0
menor que zero -1
Exemplo:
Msgbox Sgn(12) ' Teste = 1
Msgbox Sgn(-2.4) ' Teste = -1
Msgbox Sgn(0) ' Teste = 0
Agora com essas funções que acabamos de aprender, iremos criar para o VB6 as fórmulas matemáticas em questão. Vamos começar?
Secante
Sintaxe: Sec(X) = 1 / Cos(X)
Fórmula:
Dim X, Sec
X = 45
Sec = 1 / Cos(X)
MsgBox Sec ‘1,9035....
Cosecante
Sintaxe: Cosec(X) = 1 / Sin(X)
Fórmula:
Dim X, Cosec
X = 45
Cosec = 1 / sin(X)
MsgBox Cosec ‘1,1752….
Cotangente
Sintaxe: Cotan(X) = 1 / Tan(X)
Fórmula:
Dim X, Cotan
X = 45
Cotan = 1 / Tan(X)
MsgBox Cotan ‘1,6173….
Arcoseno
Sintaxe: Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Fórmula:
Dim X, Arcsin
X = 0.45
Arcsin = Atn(X / Sqr(-X * X + 1))
MsgBox Arcsin ‘0,4667…
Arcocoseno
Sintaxe: Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Fórmula:
Dim X, Arccos
X = 0.35
Arccos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
MsgBox Arccos ‘1,21....
Não se assustem, mas as fórmulas estão aumentando mesmo!
Arcosecante
Sintaxe: Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) -1) * (2 * Atn(1))
Fórmula:
Dim X, Arcsec
X = 90
Arcsec = Atn(X / Sqr(X * X - 1)) + Sgn((X) - 1) * (2 * Atn(1))
MsgBox Arcsec ‘2,35...
Arcocosecante
Sintaxe: Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
Fórmula:
Dim X, Arccosec
X = 60
Arccosec = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
MsgBox Arccosec ‘0,7854…
Arcocotangente
Sintaxe: Arccotan(X) = Atn(X) + 2 * Atn(1)
Fórmula:
Dim X, Arccotan
X = 36
Arccotan = Atn(X) + 2 * Atn(1)
MsgBox Arccotan '3,11...
Seno Hiperbólico
Sintaxe: HSin(X) = (Exp(X) - Exp(-X)) / 2
Fórmula:
Dim X, HSin
X = 75
HSin = (Exp(X) - Exp(-X)) / 2
MsgBox HSin '1,86...
Coseno Hiperbólico
Sintaxe: Hcos(X) = (Exp(X) + Exp(-X)) / 2
Fórmula:
Dim X, Hcos
X = 45
Hcos = (Exp(X) - Exp(-X)) / 2
MsgBox Hcos '1,74...
Tangente Hiperbólica
Sintaxe: Htan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Fórmula:
Dim X, Htan
X = 45
Htan = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
MsgBox Htan '1
Secante Hiperbólica
Sintaxe: HSec(X) = 2 / (Exp(X) + Exp(-X))
Fórmula:
Dim X, HSec
X = 45
HSec = 2 / (Exp(X) + Exp(-X))
MsgBox HSec '5,72...
Cosecante Hiperbólica
Sintaxe: Hcosec(X) = 2 / (Exp(X) - Exp(-X))
Fórmula:
Dim X, Hcosec
X = 75
Hcosec = 2 / (Exp(X) - Exp(-X))
MsgBox Hcosec '5,35...
Cotangente Hiperbólica
Sintaxe: Hcotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Fórmula:
Dim X, Hcotan
X = 0.9
Hcotan = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
MsgBox Hcotan '1,39…
Arcoseno Hiperbólico
Sintaxe: Harcsin(X) = Log(X + Sqr(X * X + 1))
Fórmula:
Dim X, Harcsin
X = 10
Harcsin = Log(X + Sqr(X * X + 1))
MsgBox Harcsin '2,99...
Arcocoseno Hiperbólico
Sintaxe: Harccos(X) = Log(X + Sqr(X * X - 1))
Fórmula:
Dim X, Harccos
X = 20
Harccos = Log(X + Sqr(X * X - 1))
MsgBox Harccos '3,68...
Arcotangente Hiperbólica
Sintaxe: Harctan(X) = Log((1 + X) / (1 - X)) / 2
Fórmula:
Dim X, Harctan
X = 0.35
Harctan = Log((1 + X) / (1 - X)) / 2
MsgBox Harctan '0,36...
Arcosecante Hiperbólica
Sintaxe: Harcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Fórmula:
Dim X, Harcsec
X = 0.75
Harcsec = Log((Sqr(-X * X + 1) + 1) / X)
MsgBox Harcsec '0,79...
Arcocosecante Hiperbólica
Sintaxe: Harccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)
Fórmula:
Dim X, Harccosec
X = 1
Harccosec = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
MsgBox Harccosec '0,88...
Arcocotangente Hiperbólica
Sintaxe: Harccotan(X) = Log((X + 1) / (X – 1)) / 2
Fórmula:
Dim X, Harccotan
X = 45
Harccotan = Log((X + 1) / (X - 1)) / 2
MsgBox Harccotan '0,22...
Logaritmo em base N
Sintaxe: LogN(X) = Log(X) / Log(N)
Fórmula:
Dim X, N, LogN
X = 1
N = 10
LogN = Log(X) / Log(N)
MsgBox LogN '0
Então é isso! Essas fórmula foram todas testadas, mas caso fique alguma dúvida, por favor entre em contato. Espero que essas fórmulas sejam bem-vindas para quem está precisando programar cálculos matemático no VB6. O VB6 é FASCINANTE.
Até a próxima com certeza!
Fonte: Imasters
Por: R. Alexandre
