SmarTracker

[kast]

Nada disso msaleiro

Se pesquisares bem vais ver que já é possível ter precisão ao milimetro. Basta ter correcção diferencial. E acredita que sei do que estou a falar. Só por acaso o meu pai é topógrafo e trabalha com um gps para fazer levantamentos topográficos.

Por isso acredita que sei bem do que é que estou a falar.

Para o comum dos "mortais" o galileo apenas vai ter 1 metro de erro, 1 metro e não centimetros, isso só mesmo com correcção diferencial.
No entanto há possibilidade do galileo fazer melhor que 1 metro, mas isso só a pagantes....

Kast

[metRo_]

Eu por acaso tenho visto esta discussão, e quanto a esses erros propositados não sabia de nada, no entanto é normal esses erros pois pelo vi estamos todos a usar GPS's de normais, tipo, meia duzia de euros e não centenas, acho que a qualidade não deve ser nada de outro mundo.
Para um projecto da faculdade, nós compramos um IMU+GPS (custou à volta de uns milhares de euros) e na janela do laboratório e sem estar apanhar muitos satelites nós tínhamos precisão +- de 1metro ou menos.

[msaleiro]

Para o comum dos "mortais" o galileo apenas vai ter 1 metro de erro, 1 metro e não centimetros, isso só mesmo com correcção diferencial.

É claro que é sempre necessário ter a correcção diferencial para ter boas precisões. O que eu estava a querer dizer é que o Galileo só por si terá mais precisão que o sistema GPS actual, logo o sistema Galileo com correcção diferencial também terá mais precisão que o sistema GPS com a mesma correcção. De qualquer maneira já estive a ver e segundo o que vi em alguns sites o erro do DGPS anda por volta de um pouco menos de 10 cm. Já é bem bom, mas ainda não chega ao milímetro. Mas pronto.. cada site tem os seus valores. Uns dizem mais, outros dizem menos..De qualquer maneira precisões dessas é só para quem tem dinheiro para comprar um receptor como deve ser, não um GPS comercial daqueles para ter no carro.

[kast]

Bom pessoal

Acho que esta discussão da precisão do gps não tem muito a ver com o tópico ....

Neste momento estou a tentar fazer tudo no bascom mas tá dificil.

Alguém já experimentou fazer algo em bascom para o arduino ?

Kast

[kast]

Finalmente já consigo ligar telemóvel e gps e programar tudo no bascom ...

Provavelmente vou abandonar o C ...

[tr3s]

Tens razão

Infelizmente não te consigo ajudar :S nunca fiz nada em BASCOM :S

[kast]

Ora bem

Este código devolve o que o gps transmite ... em bascom claro ....

Código: [Seleccione]

'--------------------------------------------------------------
' SmarTracker
' Kast
' 23 Julho 2009
'--------------------------------------------------------------
$crystal = 16000000
$baud = 4800


Dim Sync_char As String * 1
Dim I As Integer

Open "comb.3:4800,8,N,1" For Input As #1                    ' ligado no pin 11

Do

   Sync_char = Inkey(#1)
   Print Sync_char;

Loop                                                        '

Close #1

End
Simples não é ?

Acho que tenho mesmo de abandonar C.

[msaleiro]

Acho que tenho mesmo de abandonar C

Se estás ou pensas vir a estar numa carreira relacionada com electrónica isso é o maior erro que podes fazer. Todos os microcontroladores têm uma coisa em comum no que diz respeito às linguagens de programação.. e essa coisa é nada mais nada menos que o C. Se souberes C.. pegas em qualquer microcontrolador e em pouco tempo fazes o que quiseres. Além disso o C é mais eficiente que o Basic ou qualquer outra linguagem, excepto o assembly.
Além disso o C é uma espécie de linguagem universal.. pk quer seja para software ou hardware podes programar em C.

[kast]

Carreira na electrónica

Epá na minha carreira só os tijolos e o cimento contam ...  

[msaleiro]

lol. Mas mesmo assim aconselho-te a aprender C.. é a base da programação.. mas vai aprendendo aos poucos, com tempo.. entretanto acho que fazes bem em ir experimentando com o BASCOM se achas fácil é sempre uma maneira de ter motivação Força nesses projectos!

[kast]

Bom ... para quem estiver interessado ... posto aqui o código em bascom para sacar alguns dados do gps:

Código: [Seleccione]

'--------------------------------------------------------------
' SmarTracker
' Kast
' 23 Julho 2009
'--------------------------------------------------------------
$crystal = 16000000
$baud = 4800


Dim Car As String * 1 , Linha As String * 90 , I As Integer , Virgula As Integer
Dim Hora As String * 10 , Estado As String * 1 , Lat As String * 9 , Lats As String * 1 , Lon As String * 10 , Lons As String * 1 , Veloc As String * 7 , Direc As String * 7 , Dat As String * 8


Open "comb.3:4800,8,N,1" For Input As #1                    ' ligado no pin 11

Do

   Car = Inkey(#1)
'   Print Car;
   If Car = Chr(13) Or Car = Chr(10) Then
      If Instr(1 , Linha , "$GPRMC") > 0 Then
         Virgula = 0
         Hora = ""
         Estado = ""
         Lat = ""
         Lats = ""
         Lon = ""
         Lons = ""
         Veloc = ""
         Direc = ""
         Dat = ""
         For I = 0 To Len(linha)

            If Mid(linha , I , 1) = "," Then
               Virgula = Virgula + 1


            Else
            Select Case Virgula
               Case 1
               Hora = Hora + Mid(linha , I , 1)

               Case 2
               Estado = Estado + Mid(linha , I , 1)

               Case 3
               Lat = Lat + Mid(linha , I , 1)

               Case 4
               Lats = Lats + Mid(linha , I , 1)

               Case 5
               Lon = Lon + Mid(linha , I , 1)

               Case 6
               Lons = Lons + Mid(linha , I , 1)

               Case 7
               Veloc = Veloc + Mid(linha , I , 1)

               Case 8
               Direc = Direc + Mid(linha , I , 1)

               Case 9
               Dat = Dat + Mid(linha , I , 1)
            End Select

            End If


         Next I

      Print "Hora: " ; Hora
      Print "Estado: " ; Estado
      Print "Lat: " ; Lat ; Lats
      Print "Lon: " ; Lon ; Lons
      Print "Veloc: " ; Veloc
      Print "Direc: " ; Direc
      Print "Data: " ; Dat
      Print
      End If
      Linha = ""

   Else
      Linha = Linha + Car

   End If

Loop



Close #1

End

O que sai pelo serial é qq coisa como isto :


Hora: 234234.000
Estado: A
Lat: 39**.8292N
Lon: 008**.6046W
Veloc: 0.00
Direc:
Data: 230709

Hora: 234235.000
Estado: A
Lat: 39**.8942N
Lon: 008**.6046W
Veloc: 0.00
Direc:

Vou tentar melhorar isto com umas funções e procedimentos.

kast

[kast]

Boas pessoal

Posso anunciar que o alarme já está a funcionar, isto é, quando recebe uma chamada devolve um sms com as coordenadas da viatura. Tudo isto programado com o bascom.
Quero ver se hoje ou amanhã coloco aqui um video a mostrar isto, no entanto não sei como postar aqui um video, se alguma alma caridosa tiver a paciência para explicar isso agradecia.

Agora que já tenho o alarme a funcionar quero melhorá-lo.
Como já vos disse, neste momento o alarme está muito básico, mas quero acrescentar algumas melhorias, a nível de software e hardware.
Por exemplo:
-Aviso de pancadas na viatura
-Aviso de saída de uma zona pré-delimitada.
-Imobilização da viatura remotamente.
-Método para reduzir o consumo de energia.
-etc.

Se alguém tiver mais ideias agradeço.

Kast

[tr3s]

Parabéns !

Sim faz um video que a malta ajuda-te a pô-lo online!

[kast]

Bom já tenho o filme

Alguém me explica como colocar o filme no fórum fazer isso ?

[metRo_]

Está no youtube? Se sim basta colocar aqui o link