USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página