como você calcula distância em Lat. e Long.(transforma para UTM ??) Stainle
Davi <[EMAIL PROTECTED]> escreveu: Caro Ronaldo, Já conseguiu resolver seu problema quanto à cerca eletrônica? O que na realidade você precisa fazer é calcular a distancia entre dois pontos e medir se a distancia total ultrapassa o valor pré-definido da ancora! Utilize a fórmula básica da Geometria Plana para isso: D= (X²-X¹)+(Y²-Y¹) Quem em delphi daria: var pos,dist: real; lat1,long1,lat2,long2: string; begin pos:= Sqrt( Sqr( StrToFloat(lat2.Text) - StrToFloat(lat1.Text) ) + Sqr( StrToFloat(long2.Text) - StrToFloat(long1.Text) ) ); dist:= pos*100; end; ou seja, se a distancia entre o veiculo (lat1 e long1) for maior que o raio da ancora (lat2 e long2) ele gera uma chave de deteção para o software. Defina um raio para a ancora e teste este recurso que tenho certeza que vai funcionar... Boa Sorte! Atenciosamente, +==============+==============+ Davi de Sousa Calixto Suporte Técnico Informática [EMAIL PROTECTED] (62) 249-9000 / 9046 SAC 0800-646-3020 -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ronaldo Marcelo Pena Enviada em: terça-feira, 21 de março de 2006 18:07 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] GPS - Cerca Eletronica TEnho um sistema desenvolvido para uma empresa de rastreamento de veículos. Estou precisando desenvolver para eles uma cerca eletronica, que nada mais é do que pontos que definem um poligono e preciso saber ser determinado ponto esta dentro ou fora do poligono. Alguém tem alguma idéia ou site que eu possa pesquisar? Obrigado Ronaldo Pena. -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE var lrec_target="_blank";var lrec_URL=new Array(); lrec_URL[1]="http://br.ard.yahoo.com/SIG=12fg7rh51/M=396553.7942726.8983424.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1143123589/A=3378475/R=0/id=flashurl/SIG=154eokgva/*http://lt.dell.com/lt/lt.aspx?CID=11648&LID=321747&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";; var lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/200306_y300x250_mar07_dhs_dim5150.swf?clickTAG=javascript:LRECopenWindow(1)"; var lrec_altURL="http://br.ard.yahoo.com/SIG=12fg7rh51/M=396553.7942726.8983424.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1143123589/A=3378475/R=1/id=altimg/SIG=154eokgva/*http://lt.dell.com/lt/lt.aspx?CID=11648&LID=321747&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";; var lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/200306_y300x250_mar07_dhs_dim5150.gif";; var lrec_width=300;var lrec_height=250; --------------------------------- Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. --------------------------------- Yahoo! Acesso Grátis Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
![http://br.i1.yimg.com/br.yimg.com/i/br/ads7/200306_y300x250_mar07_dhs_dim5150.gif"](http://br.i1.yimg.com/br.yimg.com/i/br/ads7/200306_y300x250_mar07_dhs_dim5150.gif"){kind=link}