Função VBA para converter graus decimais em sexagesimais

Função VBA para converter graus decimais em sexagesimais

Função que converte grau Decimal para Decimal Minutos Segundos. Fornecidas as devidas instruções, descrevem como usar o campo calculate values para converter graus decimais armazenados em um campo numérico para Graus Minutos Segundos armazenado em um campo Texto. A saída, por omissão será no seguinte formato:
ADD, Â º MM'SS. SS "S

Procedimento de uso:

Passo 1) Adicione a tabela no Arcmap.

Passo 2) Com o botão direito do mouse sobre a tabela na Tabela de Conteúdo e selecione Abrir

Passo 3) Verificar se na barra de Editor a função Start, não pode está ativado. Clique no botão Opções e selecione Adicionar campo(Add Field).

Passo 4) Para o nome do campo digite "DMSLat" e selecione "text" no combo para tipo de campo. Se DMSLat já é usado como um nome de campo, escolha um nome que não está sendo usado. Altere o tamanho para 20.

Passo 5) Botão direito do mouse sobre o campo DMSLat e selecione Calculate Values.

Passo 6) Clique em Sim, se apresentado com uma caixa de mensagem. Marque a caixa de seleção Avançado.

Passo 7) Cole o seguinte código na caixa expressão:


Dim DDField
Dim zM1 As Double

Dim Suffix As String
Dim DMS As String
Dim zY As Double
Dim zD As Double, zM As Double, zS As Double
Dim Dchr As String, Mchr As String, Schr As String
Dim Degree As String, Minute As String, Second As String

'=================================================
'Adjust the variables below
DDField = [DDLat] 'Change to field with decimal degree values
Dchr = Chr(186) 'Character after degrees

Mchr = Chr(39) 'Character after minutes
Schr = Chr(34) 'Character after seconds
'=================================================
zY = DDField
If zY >= 0 Then
Suffix = "N" 'N if Latitude, E if Longitude
Else
Suffix = "S" 'S if Latitude, W if Longitude
End If
zY = Abs(zY)
zD = Int(zY)
Degree = CStr(zD)

zM = (zY - zD) * 60
zM1 = Int(zM)
Minute = CStr(zM1)
zS = FormatNumber(((zM - zM1) * 60), 2)
zS1 = Int(zS)
Second = CStr(zS)
DMS = Degree & Dchr & Minute & Mchr & Second & Schr & Suffix


Passo 8 ) Altere o valor dentro dos parênteses ao lado de 'DDField =' ao campo na tabela que contém a latitude grau valores decimais. Para mudar os caracteres depois de graus minutos e segundos depois de editar o valor 'Dchr =', 'Mchr =', e 'Schr =', respectivamente.

Passo 9) Cole o seguinte código no "DMSLat = 'caixa na parte inferior da caixa de diálogo: DMS.

Passo 10) Clique em OK para executar o Campo Calculadora (field calculator).

Passo 11) Repita os passos 3 a 10 para os valores de longitude, mas mudar os valores dentro do código onde Sufixo = "N" para Sufixo = "E" e onde Sufixo = "S" para Sufixo = "W". Além disso, altere o valor ao lado de 'DDField =' para o campo na tabela que contém o grau de longitude valores decimais.


Criação: Centro de suporte da ESRI
Contribuição e tradução:
José Ricardo Pitanga Negrão
Engenheiro Agrimensor
Especialista GIS
Professor de Geoprocessamento - UFBA
rnegrao@ufba.br
71-8143-1465

SATÉLITES

Prezados,
Está disponível no site http://www.sindct.org.br/files/livro.pdf
o livro "Os satélites e suas aplicações",
de autoria da geógrafa Teresa Gallotti Florenzano, pesquisadora na Divisão de SensoriamentoRemoto do Instituto Nacional de Pesquisas Espaciais - INPE em São José dos Campos - SP, editado em 2008 pelo SindCT - Sindicato dos Servidores Públicos Federais na Área de Ciência e Tecnologia do Vale do Paraíba.

Sumário
Introdução
1. O que é um satélite?
2. Os tipos de órbita
3. Composição de um satélite
4. Sensores: os "olhos" do satélite
5. A finalidade dos satélites
6. Principais programas de satélite
7. Satélites brasileiros
8. Como são interpretadas as imagens de satélite
9. Aplicações das imagens de satélite
9.1 Detecção e monitoramento de queimadas
9.2 Detecção e monitoramento de desflorestamento
9.3 Mapeamento da cana-de-açúcar
9.4 Expansão urbana
9.5 Outras aplicações
10. Conclusão
11. Referências Bibliográficas

Livro de METEOROLOGIA E CLIMATOLOGIA

Autor: Mário Adelmo Varejão-Silva Lançada em julho de 2005, a edição foi apresentada no XIV Congresso Brasileiro de Agrometeorologia, que ocorreu em Campinas, de 18 a 21 de julho. Essa versão apresenta algumas alterações, principalmente das ilustrações, com relação às edições impressas de 2000 e 2001, que estão esgotadas.Download do livro está disponível no site da Agritempo.

Converter atributo de texto total caixa alta para só inicial - Labels

Processo:


1. No ArcMap, abra a caixa de diálogo Label Expression

A. Click com o botão direito no layer, na tebela de conteúdos e selecione Propriedades(Properties) para visualizar a caixa de diálogo de propriedades do Layer

B. Selecione a aba Labels

C. Click no botão Expression a direita da opção Label Field para visualizar a caixa de diálogo Label Expression.

2. Click no botão Advanced

3. Utilize o seguinte código ao converter apenas um campo.
(Você pode copiar e colar todo o bloco de código). Lembre-se de alterar o nome do campo a partir de [NAME] para corresponder ao nome do campo em seu banco de dados em dois locais onde é referenciado abaixo.


Function FindLabel ([NAME])

FindLabel = PCase([NAME])

End Function



Function PCase(strInput)

Dim iPosition

Dim iSpace

Dim strOutput

iPosition = 1

Do While InStr(iPosition, strInput, " ", 1) <> 0

iSpace = InStr(iPosition, strInput, " ", 1)

strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))

iPosition = iSpace + 1

Loop

strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))

PCase = strOutput

End Function




Colaboração: Negrão

The Installation Guide - ArcGis 9.2

Guia de Instalação - ArcGIS 9.2 - Plataforma Windows X.P


1. Dentro do CD > Navegar até a pasta: E:\ArcGIS Desktop 9.2

2. Duplo click em ESRI (aplicativo)

3. Click em ArcGIS 9.2 Desktop > ArcGIS ArcView

4. Click em InstallArcGIS License Manager

5. Em Browuse... navegue até a pasta > E:\ArcGIS Desktop 9.2\Desktop\License > selecione: license.dat

6. Next > Next - ATENÇÃO: NÃO REINICIAR A MÁQUINA

7. Dentro do CD > Navegar até a pasta: E:\ArcGIS Desktop 9.2\Desktop\License Copiar os arquivos: License.dat e ARCGIS(aplicativo) Colar na pasta: C:\Arquivos de programas\ESRI\License\arcgis9x - ATENÇÃO: SOBRESCREVER

8. Dentro da pasta: C:\Arquivos de programas\ESRI\License\arcgis9x > editar o arquivo license.dat* *Abra esse arquivo utilizando o Notepad > Na primeira linha do script > substitua a palavra ASTEC_02 pelo hostname da máquina(nome da máquina que está sendo instalado o GIS) SALVE e feche o bloco de notas

9. Click em Iniciar > Programas > ArcGIS > license Manager (9.x) > License Manager Tools

10. Na aba Service/License File > habilitar a opção: Configuration using Services

11. Na aba Configure Services > na opção: Path to the license file > navegue com o browse ate a pasta: C:\Arquivos de programas\ESRI\License\arcgis9x > selecione o arquivo license.dat depois Save Service

12. Na aba Start/Stop/Reread > click em Stop Server, depois Start Server > fechar o LM Tools

13. Reiniciar a máquina

14. Dentro do CD > Navegar até a pasta: E:\ArcGIS Desktop 9.2

15. Duplo click em ESRI (aplicativo)

16. Click em ArcGIS 9.2 Desktop > ArcGIS ArcView

17. Install ArcGIS Desktop

18. Segue instalação normalmente.

ATENÇÃO: Escolher as opções: ArcInfo - versão Completa




Elaboração:Flávio Sousa - Analista de Sistemas
Ricardo Negrão - Especialista em GIS

Contact:

Compainha de Desenvolvimento Urbano do Estado da Bahia - CONDER
Sistema de Informações Geográficas Urbanas do Estado da Bahia - INFORMS
71-3117-7200
http://www.informs.conder.ba.gov.br/

Secretaria da Segurança Pública do Estado da Bahia
71-3115-1962
http://www.ssp.ba.gov.br/

PROPOSTA CRIAÇÃO DO CURSO DE GRADUAÇÃO EM ENGENHARIA DE AGRIMENSURA E CARTOGRÁFICA NA UFBA

UNIVERSIDADE FEDERAL DA BAHIA


REITOR
Naomar Monteiro de Almeida Filho
VICE-REITOR
Francisco José Gomes Mesquita
PRÓ-REITORA DE ENSINO DE GRADUAÇÃO
Maerbal Bittencourt Marinho

ESCOLA POLITÉCNICA

End: Rua Prof. Aristides Novis, 02 - FederaçãoCEP: 40210-910 Salvador- BA
DIRETOR
Diretor: Luís Edmundo Prado de Campos

DEPARTAMENTO DE TRANSPORTES
Chefe de Departamento: Artur Caldas Brandão








IDENTIFICAÇÃO DO CURSO




CURSO
Engenharia de Agrimensura e Cartográfica


TÍTULO DO PROFISSIONAL
Engenheiro Agrimensor e Cartógrafo


PORTARIA DE RECONHECIMENTO
Portaria MEC


TURNO(S)
Noturno


CARGA HORÁRIA
horas


DURAÇÃO
Mínimo: 4,5 anos/Média: 6,5 anos/Máximo: 9 anos


VAGAS NO VESTIBULAR(ANUAL)
45


PERFIL (COMPETÊNCIA)
Formar profissionais capacitados ao desempenho técnico das diversas atividades da mensuração: levantamentos topográficos, geodésicos, batimétricos e aerofogramétricos; projeto de loteamento, sistema de saneamento, irrigação e drenagem, túneis, traçado de cidades, estradas, serviços afins correlatos.


ÁREAS DE ATUAÇÃO
Empresas públicas ou privadas, órgãos governamentais nas três esferas de governo, indústrias, mineradoras, escritórios de engenharia, peritagem judicial, profissional autônomo, magistério superior e centro de pesquisa


Agenda:

Set/2007 – aprovação da idéia de criação do curso pelo Departamento de Transportes
2008 – elaboração do projeto político-pedagógico do curso
2009.1 – apreciação da proposta pela Congregação da Escola Politécnica
2009 – apreciação da proposta pelas instâncias superiores da UFBA
2010 – inicio do curso (1a turma)

CONTATO DO CURSO (E-mail)
dt@ufba.br

acaldas@ufba.br

rnegrao@ufba.br