|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Operações Matemáticas)
|
|
 |
Título da Dica: Área e Volume
|
 |
|
|
|
Postada em 13/9/2003 por Ð@®l@n
Para um módulo com estas funções usar:
Option Compare Database
Option Explicit
1- ÁREA DO CÍRCULO
Function ACírculo(Raio As Double) As Double
'
' Área do círculo em função do raio
' Usar a função PI() do módulo Trigonometria
'
ACírculo = Raio * Raio * PI()
End Function
2- ÁREA DO RETÂNGULO
Function ARetang(B As Double, H As Double) As Double
'
' Área do retângulo em função da Base e da altura
'
ARetang = B * H
End Function
3- ÁREA DO SETOR CIRCULAR
Function AAnel(RaioInterno As Double, RaioExterno As Double) As Double
'
' Área do Anel (setor circular em função dos raios interno e externo
'
AAnel = ACírculo(RaioExterno) - ACírculo(RaioInterno)
End Function
4- ÁREA DA ESFERA
Function AEsfera(r As Double) As Double
'
' Em função do raio
'
AEsfera = 4 * PI() * r * r
End Function
5- ÁREA DO QUADRADO
Function AQuadrado(Lado As Double) As Double
'
' Em função do lado
AQuadrado = Lado * Lado
End Function
Function AQuadrado2(Diag As Double) As Double
'
' Em função da diagonal
'
AQuadrado2 = Diag * Diag / 2
End Function
6- ÁREA DO TRAPÉZIO
Function ATrapézio(H As Double, Bma As Double, Mme As Double)
'
' Em função da altura e dos lados paralelos
'
ATrapézio = H * (Bma + Bme) / 2
End Function
7- ÁREA DO TRIÂNGULO
Function ATriângulo(B As Double, H As Double) As Double
'
' Em função da base e da altura perpendicular
'
ATriângulo = B * H / 2
End Function
ALTERNATIVA:
Function ATriângulo2(a As Double, B As Double, C As Double) As Double
'
' Área do triângulo em função dos lados
'
Dim CosC As Double
CosC = (a * a + B * B - C * C) / (2 * a * B)
ATriângulo2 = a * B * Sqr(1 - CosC * CosC) / 2
End Function
8- DIAGONAL DO RETÂNGULO
Function DiagRetângulo(H As Double, B As Double) As Double
'
' Em função da Base e da altura
'
DiagRetângulo = Sqr(H * H + B * B)
End Function
9- DIAGONAL DO QUADRADO
Function DiagQuadrado(L As Double) As Double
'
' Em função da raiz quadrada do Lado
DiagQuadrado = L * Sqr(2)
End Function
Function VCone(H As Double, r As Double) As Double
'
' Em função do raio da base e da altura
'
VCone = H * r * r * PI() / 3
End Function
10- VOLUME DO CILINDRO
Function VCilindro(H As Double, r As Double) As Double
'
' Altura e raio
' Usar PI() do Trig module
'
VCilindro = PI() * r * r * H
End Function
11- VOLUME DO CILUNDO ÔCO
Function VTubo(H As Double, RaioExterno As Double, RaioInterno As Double) As Double
'
' Volume de um Tubo (Cilindro vasado) em função da subtração dos volumes
'
VTubo = VCilindro(H, RaioExterno) - VCilindro(H, RaioInterno)
End Function
12- VOLUME DA PIRÂMIDE
Function VPirâmide(H As Double, ÁreaBase As Double) As Double
'
' Área da base e altura
'
VPirâmide = H * ÁreaBase / 3
End Function
13- VOLUME DA ESFERA
Function VEsfera(r As Double) As Double
'
' Em função do raio
'
VEsfera = PI() * r * r * r * 4 / 3
End Function
14- VOLUME DO TRONCO DE PIRÂMIDE
Function VPirâmideTrunc(H As Double, ÁreaBase1 As Double, ÁreaBase2 As Double) As Double
'
' Altura e áreas da base e do topo
'
VPirâmideTrunc = H * (ÁreaBase1 + ÁreaBase2 + Sqr(ÁreaBase1) * Sqr(ÁreaBase2)) / 3
End Function
|
|
|
|
|
