TOPOGRAFIA – CRIANDO FUNÇÕES EM VISUAL BASIC PARA TRANSFORMAÇÕES DE RUMOS / AZIMUTES NO EXCEL

Autor: Prof. Dr. Paulo Sergio Oliveira de Carvalho (Fevereiro de 2013)

Transformações de Rumos em Azimutes e vice-versa. Para as instruções básicas sobre o assunto, consulte a nota de aula Topografia – Visual Basic – Graus

Rumos – Azimutes

Esta função transforma Rumos em Azimutes. São fornecidos como argumentos: o valor angular em decimais e a direção em forma de texto representado pelas letras: NE, SE, SW e NW.

Function Rumo_Azimute(Rumo As Double, Direcao As Variant)
With Application
‘ 1° Quadrante
If Direcao = “NE” Then Azimute = Rumo
‘ 2° Quadrante
If Direcao = “SE” Then Azimute = 180 – Rumo
‘ 3° Quadrante
If Direcao = “SW” Then Azimute = 180 + Rumo
‘ 4° Quadrante
If Direcao = “NW” Then Azimute = 360 – Rumo
‘ Exibindo o resultado
Rumo_Azimute = Azimute
End With
End Function
Sub Transf_Rumo_em_Azimute()
End Sub

Azimutes – Rumos

Para transformação de Azimutes em Rumos precisaremos de duas funções. Uma que determina o quadrante (Direção) e uma outra que transforma o valor   angular. Lembrando que os Rumos possuem valores angulares no intervalo: [0° a 90°] e os Azimutes  [0° a 360°]

Function Azimute_Direcao(Azimute) As Variant
‘ 1° Quadrante
If Azimute = 0 Then Direcao = “N”
If Azimute > 0 And Azimute < 90 Then Direcao = “NE”
‘ 2° Quadrante
If Azimute = 90 Then Direcao = “E”
If Azimute > 90 And Azimute < 180 Then Direcao = “SE”
‘ 3° Quadrante
If Azimute = 180 Then Direcao = “S”
If Azimute > 180 And Azimute < 270 Then Direcao = “SW”
‘ 4° Quadrante
If Azimute = 270 Then Direcao = “W”
If Azimute > 270 And Azimute < 360 Then Direcao = “NW”
‘Exibindo o valor final em Graus
Azimute_Direcao = Direcao
End Function
Sub Transf_Azimute_Direcao_Rumo()
End Sub

Function Azimute_Rumo(Azimute) As Variant
With Application
‘ 1° Quadrante
If Azimute >= 0 And Azimute <= 90 Then Rumo = Azimute
‘ 2° Quadrante
If Azimute > 90 And Azimute <= 180 Then Rumo = 180 – Azimute
‘ 3° Quadrante
If Azimute > 180 And Azimute <= 270 Then Rumo = Azimute – 180
‘ 4° Quadrante
If Azimute > 270 And Azimute <= 360 Then Rumo = 360 – Azimute
‘ Exibindo o resultado
Azimute_Rumo = Rumo
End With
End Function
Sub Transf_Azimute_em_Rumo()
End Sub

[ Topo da Página]  [Início]