Witam!
Mam problem z połączeniem się z GPS. Otóż Mam breloczek z modułem GPS Bluetooth. Chce odczytać z niego dane przez Atmege8 i wyświetlić na LCD. W środku odnalazłem line TX i RX podłączyłem do atmegi tx-rx rx-tx to tego gnd jednak nic nie odczytuje
GPS Specification:
Chipset – MTK. 51 Channels “All-In-View” tracking. Protocol: NMEA 0183/GGA, GSA, GSV, RMC.
Baud Rate: 115.200bps. Frequency L1, 1,575.42 Mhz. Tracking Sensitivity: 158 dBm. WASS/EGNOS/MSAS Enabled, Position deviation*: 10 meters 90%. 2D RMS 1-5 meters. Velocity: 0.1 m/sec. Effective temperatures: Storage: -40°C +70°C. Working: -20°C +60°C. Air humidity: 5 – 90%· Cold/Warm/Hot start: 36/33/1 sec.
Czy ktoś potrafi mi powiedzieć gdzie tkwi problem?
Mam problem z połączeniem się z GPS. Otóż Mam breloczek z modułem GPS Bluetooth. Chce odczytać z niego dane przez Atmege8 i wyświetlić na LCD. W środku odnalazłem line TX i RX podłączyłem do atmegi tx-rx rx-tx to tego gnd jednak nic nie odczytuje
GPS Specification:
Chipset – MTK. 51 Channels “All-In-View” tracking. Protocol: NMEA 0183/GGA, GSA, GSV, RMC.
Baud Rate: 115.200bps. Frequency L1, 1,575.42 Mhz. Tracking Sensitivity: 158 dBm. WASS/EGNOS/MSAS Enabled, Position deviation*: 10 meters 90%. 2D RMS 1-5 meters. Velocity: 0.1 m/sec. Effective temperatures: Storage: -40°C +70°C. Working: -20°C +60°C. Air humidity: 5 – 90%· Cold/Warm/Hot start: 36/33/1 sec.
'Odebranie jakiejkolwiek informacji z modułu GPS
$regfile = "m8def.dat" 'PLIK KONFIGURACYJNY
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Cls
Dim Dana As String * 1
Dim Licznik As Byte
Dim Tekst As String * 32
Dim Warunek As Bit
Warunek = 0
Lcd "Start"
Do
If Ischarwaiting() = 1 Then
Dana = Inkey()
If Dana = "$" Then 'Obrebrano znak $
Tekst = ""
For Licznik = 1 To 5
Do
Loop Until Ischarwaiting() = 1 ' czeka na następny znak
Dana = Inkey()
Tekst = Tekst + Dana
Next Licznik
Lowerline
Lcd "Znalazlem poczatek ramki"
Lcd Tekst
If Tekst = "GPGGA" Then
Thirdline
Lcd "Znalazl te Ramke!"
Warunek = 1
End If
End If
End If
Loop Until Warunek = 1
Do
Loop
End
Czy ktoś potrafi mi powiedzieć gdzie tkwi problem?