
<!--Document.write(Decorar & "<center><img src='Rodape.gif'></center></Div>")-->
document.write("</td></tr></table>")
document.write("</td></tr></table>")


<!--Script language=vbscript>
dim Exp_Lev,msgLev , msg,msgCAD,msgOUT,msgEst,Exp_Cad,Exp_Est,Exp_Out

Function Decorar(Conteudo)
Decorar="<div style='position:relative;height:10;top:5;left:0;filter:wave(strength=2, freq=1, lightstrength=30, add=0, phase=90)'>" & Conteudo & "</div>"
'Decorar=Conteudo 
end function



Dim nG,Inc,W,IncW,ContTop,MudarCor,G,Cor
Dim Topicos(207),TotalTop,IndTop
TotalTop=0:IndTop=1
Sub AddTop(Nome)
	TotalTop=TotalTop+1
	Topicos(TotalTop)=Nome
End sub
AddTop "TopoHAM":AddTop "Manipulação de Arquivos":AddTop "Script, DXF":AddTop "Edição de Dados"
AddTop "Definição":AddTop "Caderneta de Campo":AddTop "Ajustamento MMQ.":AddTop "Resumo":AddTop "Desenho da Poligonal":AddTop "Distâncias Horizontais":AddTop "Recebe, envia dados para Estação Total. "
AddTop "Coordenadas Totais":AddTop "Curva Horizontal":AddTop "Coordenadas Geográficas":AddTop "Elementos de Esquina"
AddTop "Azimute Verdadeiro":AddTop "Estrada de Rodagem":AddTop "Definição da Estrada":AddTop "Eixo da Estrada"
AddTop "Curva Horiz. Circular":AddTop "Curva Horiz. Circular Espiral"::AddTop "Seção Trasnversal Primitiva": AddTop "Greide da Estrada"
AddTop "Projetando Seção":AddTop "Seção Transversal Acabada":AddTop "Material e Orçamento":AddTop "Volume (PrimitivoxAcabado)":AddTop "Projeto Completo"

AddTop "TopoHAM-CAD"
AddTop "Menu Arquivo"
AddTop "Exportar"
AddTop "Imprimir Gráfico"
AddTop "Menu Editar"
AddTop "Selecionar Entidades"
AddTop "Editar Pontos"
AddTop "Menu MDT"
AddTop "Triangular"
AddTop "Trocar Aresta"
AddTop "Curva de Nível"
AddTop "Visualizar em 3D"
AddTop "Área de Indundação"
AddTop "Direção de Fluxo"
AddTop "Fatiamento"
AddTop "Menu Exibir"
AddTop "Camadas"
AddTop "Engate"
AddTop "Malha"
AddTop "Grid"
AddTop "Menu Desenhar"
AddTop "Linha, Circulo"
AddTop "Arco, Retângulo"
AddTop "Spline, Texto"
AddTop "Hachurar, Talude"
AddTop "Tabela, Auto Linha"
AddTop "Menu Projeto"
AddTop "Eixo"
AddTop "Curva Horizontal"
AddTop "Primitivo e Acabado"
AddTop "Plataforma"
AddTop "Barragem"
AddTop "Tanque"
AddTop "Gleba"
AddTop "Memorial do Georefericiamento"
AddTop "Perfil Livre"
AddTop "Arruamento"
AddTop "Loteamento"
AddTop "Elementos de Esquina"
AddTop "Linha de Tubo"
AddTop "Ponte"
AddTop "Memorial"
AddTop "Asbuild"
AddTop "Menu Medição"
AddTop "Segmentos, Locação"
AddTop "Menu Ferramentas"
AddTop "Rotacionar e Mover"
AddTop "Escalonar e Chamfrar"
AddTop "Extender, Copiar e OffSet"
AddTop "Fillet, Cortar e Quebrar"
AddTop "Espelhar, Decorar e Legenda"
AddTop "Quadro Ampliado, Inverte Sentido"
AddTop "Propriedades de Objetos"
AddTop "Engatar Objetos e Séries"
AddTop "Organizar Camadas, Converte Linha" 
AddTop "Folha e Carimbo"

Apresentar= "<center><marquee DIRECTION=up height=40 scrolldelay=500 truespeed=350 width:350>"
'Apresentar=Apresentar & "<font face=Verdana style={font-size:8pt;color:white}>"

Apresentar=Apresentar & "<div class=Section1>"

Apresentar=Apresentar & "<font face=Verdana style={font-size:14pt;color:0}><p>TopoHAM<p></p></p>"

Apresentar=Apresentar & "<p style='font-size:12.0pt;font-family:Verdana;Arial'>Software para cálculo e desenho de levantamentos topográficos.<p></p></p></b>"

Apresentar=Apresentar & "<font face=Verdana style={font-size:10pt;color:0}>"
Apresentar=Apresentar & "<p>O <b>TopoHAM </b> é totalmente intuitivo"
Apresentar=Apresentar & " e com uma interface agradável e facíl de usar e entender, possui diversos "
Apresentar=Apresentar & " módulos, todos descritos abaixo: <p></p></p>"

Apresentar=Apresentar & "<p>Manipulação de <b>Arquivos:</b> O TopoHAM"
Apresentar=Apresentar & " permite manipular arquivos como: criar ou abrir poligonal, lê e recebe"
Apresentar=Apresentar & " dados de <b>estações totais e GPS</b>, importa dados de outra poligonal ou "
Apresentar=Apresentar & " coordenadas, exporta a poligonal para o <b>AutoCAD®...</b> <p></p></p>"

Apresentar=Apresentar & "<p>Editando Dados: <b>Definição</b> do"
Apresentar=Apresentar & " Levantamento: informando os dados da propriedade e tipo de poligonal [Aberta ou"
Apresentar=Apresentar & " Fechada], método de leitura das distâncias [Horizontais ou Inclinadas], entre"
Apresentar=Apresentar & " outros... <p></p></p>"

Apresentar=Apresentar & "<p><b>Caderneta de Campo</b>"
Apresentar=Apresentar & " : é em uma planilha com recursos básicos, semelhante"
Apresentar=Apresentar & " ao do <b>Excel</b>. <p></p></p>"

Apresentar=Apresentar & "<p><b>Cálculos da Poligonal</b>"
Apresentar=Apresentar & " com as opções de compensação; <b>Proporcional</b> a <b>Distância</b>"
Apresentar=Apresentar & " ou <b>Coordenadas</b> e ainda pelo <b>método dos minímos método dos quadrados. <p></p></b></p>"

Apresentar=Apresentar & "<p>Visualização gráfica do <b>Desenho da"
Apresentar=Apresentar & " poligonal</b> de base com recursos de <b>zoom</b>. <p></p></p>"

Apresentar=Apresentar & "<p>Visualização do <b>Resumo</b> da"
Apresentar=Apresentar & " Poligonal-de-base tais como: Erro <b>linear</b>, <b>angular</b> e <b>altimétrico</b>"
Apresentar=Apresentar & " de fechamento com visualização gráfica da poligonal. <p></p></p>"

Apresentar=Apresentar & "<p>Quadro de <b>Relatório</b> é um editor de"
Apresentar=Apresentar & " texto interno que permite visualizar e manipular arquivos e salvar arquivos em"
Apresentar=Apresentar & " diversos formatos tais como: <b>*.doc; *.txt; *.rtf</b>. <p></p></p>"

Apresentar=Apresentar & "<p>Cadastro da <b>Distâncias Horizontais</b> a"
Apresentar=Apresentar & " ré com cálculo do <b>desvio padrão</b> entre distâncias e desniveis. <p></p></p><p>Cálculo do <b>Azimute Verdadeiro</b> atraves"

'Apresentar=Apresentar & "<p>Cálculo do <b>Azimute Verdadeiro</b> através"
Apresentar=Apresentar & " do Sol informando os ângulos horizontias e verticais, declinação, Latitude e"
Apresentar=Apresentar & " Longitude, sendo possível obter o azimute para o ponto visado. <p></p></p>"

Apresentar=Apresentar & "<p><b>Coordenadas</b>"
Apresentar=Apresentar & " <b>Totais</b> em uma planilha com recurso básicos"
Apresentar=Apresentar & " semelhante ao do Excel com impotação e exportação de dados para o <b>AutoCAD,"
Apresentar=Apresentar & " Word, Excel</b> entre outros, como: visualização gráfica das coordenadas. <p></p></p>"

Apresentar=Apresentar & "<p><b>Coordenadas Geográficas</b>"
Apresentar=Apresentar & " importa, exporta e converte dados de origem para um"
Apresentar=Apresentar & " destino: '<b>Geográficas, UTM, LTM, RTM</b>', informandos os dados, em uma"
Apresentar=Apresentar & " planilha eletrónica. <p></p></p>"

Apresentar=Apresentar & "<p><b>Elementos de Esquina</b>"
Apresentar=Apresentar & " serve para o cálculo de cantos de esquinas tais como"
Apresentar=Apresentar & " área a ser descontada ou acrescentada no lote ou quadra e pavimento de ruas"
Apresentar=Apresentar & " informando o <b>ângulo central</b> interno e raio. <p></p></p>"

Apresentar=Apresentar & "<p><b>Estrada de Rodagem</b>"
Apresentar=Apresentar & " serve para cadastro, construção e eleboração de um"
Apresentar=Apresentar & " Anti-Projeto de estrada exibindo e editando os dados da <b>definição</b>, eixo"
Apresentar=Apresentar & " ou linha de fé, seções <b>primitivas</b>, curva <b>horizontais</b> e <b>verticais</b>,"
Apresentar=Apresentar & " projetando <b>greide</b> e visualizando gráficos, <b>diagrama de massas</b>,"
Apresentar=Apresentar & " seções do projeto ou <b>seção tipo</b>. Cálculos de <b>Volumes</b> entre o"
Apresentar=Apresentar & " Primitivox Acabado/Projeto, Materiais, <b>Orçamento</b> e Quantitativo de itens"
Apresentar=Apresentar & " de material. Impressão e exportação de <b>Perfis</b>, <b>Seções</b>, <b>Planta"
Apresentar=Apresentar & " Baixa, Projeto Completo</b> entre outros... <p></p></p>"

Apresentar=Apresentar & "<p>O módulo <b>CAD</b> do TopoHAM chama-se <b>TopoHAM-CAD</b>"
Apresentar=Apresentar & " e auxilia na elaboração de projetos tais como: <p></p></p>"

Apresentar=Apresentar & "<p>Manipulação de <b>Arquivos</b>: Cria, salva"
Apresentar=Apresentar & " e abre um arquivo existênte, carrega os pontos da poligonal, exporta os dados"
Apresentar=Apresentar & " para o <b>AutoCAD 2000</b> e nos formatos: <b>*.DXF, *.SCR, *.TXT</b>, exporta"
Apresentar=Apresentar & " também <b>blocos</b>, Locação de pontos para a <b>estação</b> ou teodolito, <b>Math"
Apresentar=Apresentar & " LAB</b> e módulo de <b>Impressão</b> [*.prh]. <p></p></p>"

Apresentar=Apresentar & "<p><b>Importa dados </b>"
Apresentar=Apresentar & "do <b>AutoCAD 2000</b>, TopoHAM-CAD, e nos formatos"
Apresentar=Apresentar & " *.TXT também importa <b>blocos</b> e arquivos de impressão [*.prh]. <p></p></p>"

Apresentar=Apresentar & "<p><b>Compacta</b>"
Apresentar=Apresentar & " os dados em um arquivo de segurança. Repara e <b>otimiza</b>"
Apresentar=Apresentar & " os dados. <b>Configura</b> a impressora e Envia os dados para um módulo de <b>Impressão</b>."
Apresentar=Apresentar & "<p></p></p>"

Apresentar=Apresentar & "<p>O módulo de <b>MDTs</b>: cria MDT's, <b>Triângulos</b>,"
Apresentar=Apresentar & "<b>Curva de Nível</b>, <b>Visualização em 3d</b> e <b>fatiamento</b> da"
Apresentar=Apresentar & " visualização em 3d, <b>Volume</b> entre MDT's, Área de <b>Inundação</b>, <b>Fatiamento</b>,"
Apresentar=Apresentar & " <b>Direção</b> de Fluxo entre outros... <p></p></p>"

Apresentar=Apresentar & "<p><b>Exibe as Configuração</b>"
Apresentar=Apresentar & ", Recursos de <b>Zoom</b>, <b>Propriedades</b> de"
Apresentar=Apresentar & " objetos, <b>Malha</b>, <b>Grid</b>, <b>Engate, Camadas</b> entre outros... <p></p></p>"

Apresentar=Apresentar & "<p>Desenha <b>Pontos , Linhas, Splines, Textos,"
Apresentar=Apresentar & " Hachuras, Taludes, </b>cria<b> Auto Linha </b>e insere<b> Tabelas .</b> <p></p></p>"

Apresentar=Apresentar & "<p>O módulo de <b>Projeto</b> insere <b>Curva"
Apresentar=Apresentar & " Horizontais</b> e cria projetos de <b>Estradas, Plataforma, Barragens, Glebas,"
Apresentar=Apresentar & " Perfil Livre, Arruamento, Loteamento, Elementos de Esquina, Tubos, Pontes,"
Apresentar=Apresentar & " Tanques, Perfil sobre MDT´s, Terraplenagem, Memorial Descritivo, Canal de Derivação, Quadrícula"
Apresentar=Apresentar & " e Asbuild.</b> <p></p></p>"

Apresentar=Apresentar & "<p>O módulo de <b>Medição</b>: mede <b>Azimutes</b>,"
Apresentar=Apresentar & "<b>Rumos, Distâncias, Ângulo Anti-Horário, Cota Coordenadas, Estaquea</b>,"
Apresentar=Apresentar & " cálcula a <b>Área</b> entre <b>pontos</b> ou <b>objetos</b>, cria pontos"
Apresentar=Apresentar & " através de <b>Locação</b> e <b>intersecção</b> de ângulos <b>internos</b> ou <b>Pothenot</b>."
Apresentar=Apresentar & "<p></p></p>"

Apresentar=Apresentar & "<p><b>Ferramentação</b>"
Apresentar=Apresentar & " e modificação de objetos: <b>Movendo, Rotacionando,"
Apresentar=Apresentar & " Quebrando, Ampliando, Escalonando, Extendendo, Copiando e inserindo folhas e"
Apresentar=Apresentar & " carimbo, Legenda, Organização de Camadas</b>, entre outros... <p></p></p>"

Apresentar=Apresentar & "<p>As classes de importação do TopoHAM é baseado em <b>Activex dll</b>, é destinada para programadores e usuários de nível avançados. "
Apresentar=Apresentar & "Podendo ser acessado em qualquer <b>software da microsoft</b> como: Word, Excel, Power Point, entre outros, inclusive da <b>AutoDesk (AutoCAD)</b>, desde que as mesmas possua o <b>Visual Basic Editor</b> Instalado na aplicação. "
Apresentar=Apresentar & "A ferramenta de programação para acesso das bibliotecas (dll) é o <b>Visual Basic</b>, caso possua outra Ferramenta que aceite não testamos ainda."

Apresentar=Apresentar & "</div>"

Apresentar=Apresentar & "</marquee></div>"

nG=0:Inc=5
'Apres.InnerHTML=""
valor=setTimeout("ExCont()",100)
'valor=setTimeout("Piscar()",100)
valor=setTimeout("Sombra()",100)

w="100%":IncW=10
MudarCor=0
'----------------------------------------------------------------------------------
Sub Sombra()
msg01 = tb1.innerTEXT
'tb1.height=30
'tb1.width="100%"
'tb1.bgcolor="#FFFFFF"
'tb1.background:rgb(" & 190 & "," & 190 & "," & 190 & ");
tb1.InnerHTML="<div class=corpbluetit style='position:relative; left:0; top:0; width:" & 100 & "%;height:30'><font style='font-size:14pt; color:white; bold'>" &  "<dt style='position:relative; left:0; top:0; background:rgb(" & 128 & "," & (128) & "," & 255 & "); width:" & 99 & "%; height:25'><font style='font-size:14pt; color:white'><b>" & msg01 & "</b></dt></div>"
end sub
'----------------------------------------------------------------------------------
sub Piscar()
nG=nG+Inc
if nG >= 255 then 
   nG=255
   Inc=Inc*-1
   ExCont
elseif nG <= 190 then
   nG=190
   Inc=Inc*-1
   MudarCor=MudarCor+1
   indTop=IndTop+2
   ExCont
end if
if MudarCor > 6 then MudarCor = 0
MudarCor = 6

G=255-nG
Cor="RGB(" & G & "," & G & "," & G & ")"
Cor="RGB(" & 255 & "," & 196 & "," & 132 & ")"

Cor1="RGB(" & 255-G & "," & 255-G & "," & 255-G & ")"
'MudarCor = 0
if MudarCor = 0 then
   Conteudo.InnerHTML="<dt style='position:relative; left:1; top:2;background:rgb(" & ng & "," & ng & "," & 0 & "); width:" & w & "'><font style='color:" & Cor & "'>" & ContTop & "</dt>"
elseif MudarCor = 1 then
   Conteudo.InnerHTML="<dt style='position:relative; left:1; top:2;background:rgb(" & 0 & "," & (ng) & "," & ng & "); width:" & w & "'><font style='color:" & Cor & "'>" & ContTop & "</dt>"
elseif MudarCor = 2 then
   Conteudo.InnerHTML="<dt style='position:relative; left:1; top:2;background:rgb(" & ng & "," & (0) & "," & ng & "); width:" & w & "'><font style='color:" & Cor & "'>" & ContTop & "</dt>"
elseif MudarCor = 3 then
   Conteudo.InnerHTML="<dt style='position:relative; left:1; top:2;background:rgb(" & ng & "," & (0) & "," & 0 & "); width:" & w & "'><font style='color:" & Cor & "'>" & ContTop & "</dt>"
elseif MudarCor = 4 then
   Conteudo.InnerHTML="<dt style='position:relative; left:1; top:2;background:rgb(" & 0 & "," & (ng) & "," & 0 & "); width:" & w & "'><font style='color:" & Cor & "'>" & ContTop & "</dt>"
elseif MudarCor = 5 then
   Conteudo.InnerHTML="<dt style='position:relative; left:1; top:2;background:rgb(" & 0 & "," & (0) & "," & ng & "); width:" & w & "'><font style='color:" & Cor & "'>" & ContTop & "</dt>"
elseif MudarCor = 6 then
   Conteudo.InnerHTML="<dt style='position:relative; left:1; top:2;background:rgb(" & ng & "," & ng & "," & ng & "); width:" & w & "'><font style='color:" & Cor & "'>" & ContTop & "</dt>"
end if
	   
'if w >= 640 then 
'   incW=incW*-1
'elseif w < (len(ContTop)*7) then
'   incW=incW*-1
'end if
'tb1.InnerHTML="<Center><dt style='background:rgb(" & 128 & "," & (192) & "," & ng & "); width:" & w & "'><font style='font-size:14pt; color:black'>" & msg & "</dt></center>"   
'w=w+incW
'valor=setTimeout("Piscar()",500)
end sub
'----------------------------------------------------------------------------------
Sub ExCont()
G=255-nG
Cor="RGB(" & G & "," & G & "," & G & ")"
if Indtop then
   ContTop= "<center><table height=17 cellspacing=0 cellpading=0 width=100%><tr><td bgcolor=rgb(200,200,200) width=165 style='BACKGROUND-IMAGE: url(Conteudo.gif)' ></td><td><FONT face='Arial' Style='font-size:8pt; color:" & Cor & "'>  " & Apresentar & "</td><td bgcolor=rgb(200,200,200) width=165 style='BACKGROUND-IMAGE: url(Conteudo.gif)'></td></tr></table></dd>"
 else
    ContTop= "<center><table height=17 cellspacing=0 cellpading=0 width=100%><tr><td bgcolor=rgb(200,200,200) width=85 style='BACKGROUND-IMAGE: url(Conteudo.jpg)'></td><td><FONT face='Arial' Style='font-size:8pt; color:" & Cor & "'><b><marquee direction=right>  " & IndTop & " - "  & Topicos(IndTop) & "     ." & (IndTop+1) & " - "  & Topicos(IndTop+1) & "     ." & (IndTop+2) & " - " & Topicos(IndTop+2) & "</marquee></td><td bgcolor=rgb(200,200,200) width=85 style='BACKGROUND-IMAGE: url(Conteudo.gif)'></td></tr></table></dd>"
 end if



Conteudo.InnerHTML="<dt style=Background:black>" & ContTop & "</dt>"
if Indtop > TotalTop-2 then indtop = 1
'valor=setTimeout("ExCont()",9000)
indtop=indtop+1
end Sub

'----------------------------------------------------------------------------------
dim Busca(20000),Tb,Arquivo(20000)
Sub Buscador()
dim cont,pos
cont = ucase(buscacont.value)
tb=0
if cont="" then
	msgbox "Informe o conteúdo da pesquisa!",64
	exit sub
end if
call ListaArquivos()
resultado.InnerHTML="<hr><ol>"
for i= 1 to tb
	pos=0
	if  InStr(ucase(busca(i)), cont) then
	nmsg=Busca(i)
	nmsg = replace(ucase(nMsg),Cont,"<b>" & Cont & "</b>")
	'if len(nmsg) >=60 then nmsg= left(nmsg,60)
	nmsg="<li><font face=Arial size=2>" & nmsg & "<br><font face=Arial size=2>"
	resultado.InnerHTML=resultado.InnerHTML & nmsg & "<a href='" & arquivo(i) & "'>" & Arquivo(i) & "</a><p>"
	end if
next
End Sub

</script-->

