ATNEL tech-forum

Re: Moduł GSM - Problem z odbieraniem danych.

2017-07-25T00:10:36+01:00

Dzięki za przykład.

Niestety nie działa.
Czy przyczyną może być format odpowiedzi.

+HTTPREAD: 2

OK

Czemu nie mogę wykryć tych danych w buforze jak przychodzą z modułu.
Gdy przychodzą z komputera Atmega odbiera dane.

Statystyki: Napisane przez wojno — 25 lip 2017, o 00:10

Re: Moduł GSM - Problem z odbieraniem danych.

2017-07-24T06:09:29+01:00

[syntax=basic4gl]Dim Znak As Byte
Dim Bufor As Byte
Dim Dana As String * 20
Dim Pomocdana As String * 1
Dim Zmiennanext As Byte
Dim Wej(20) As Byte
Dim Nr As Byte
Nr = 1
Bufor = Ischarwaiting() 'zmienna pomocnicza
If Bufor = 1 Then 'sprawdzamy czy są dane w buforze jeżeli są to
Znak = Inkey() 'pobieramy pierwszy znak i sprawdzamy czy to ten którego oczekujemy
If Znak = 43 Then 'jeżeli znak="+" czyli 43 dziesiętnie to
Input Dana ' wczytujemy dane
For Zmiennanext = 10 To 20 ' tu okreslamy ile i które elementy chcemy wydobyć z odebranej transmisji
Pomocdana = Mid(dana , Zmiennanext , 1) 'przechwytujemy po jednym znaku dane z bufora od 10 do 20 znaku

Wej(nr) = Val(pomocdana) 'zamieniamy stringi na postać dziesiętną i zapisujemy do tablicy
Incr Nr ' zwiększamy nr tablicy

Next Zmiennanext
Nr = 1
End If
Clear Serialin
End If[/syntax]

Coś takiego napisane na szybko może zawierać jakieś błędy ale powinno Cię nakierować.
Warunek modem musi wysyłać na końcu znak "CR"
Polecam też polski help na początek http://www.pe.ifd.uni.wroc.pl/BascomBasicAVR3.pdf

Statystyki: Napisane przez mrek33 — 24 lip 2017, o 06:09

Re: Moduł GSM - Problem z odbieraniem danych.

2017-07-23T19:14:38+01:00

Wydaje polecenie AT żeby odczytał dane ze strony www.

[syntax=basic4gl]At+httpread=197,2 ' To Echo polecenia które wysyłam
'tutaj jest pusta linijka
+HTTPREAD: 2 'To zwraca moduł
2 '<- Mnie interesują te dane, tutaj będą cyfry.
OK 'To tez zwraca moduł.[/syntax]

Statystyki: Napisane przez wojno — 23 lip 2017, o 19:14

Re: Moduł GSM - Problem z odbieraniem danych.

2017-07-23T17:49:54+01:00

Kolego polecenie Inkey() zwraca kod ASCII pierwszego znaku znajdującego się w buforze transmisji szeregowej.
Polecenie dobre aby sprawdzić czy dane w buforze to te na które czekamy.
Jeżeli Twój modem kończy transmisję kodem CR czyli 13 w kodzie ASCII polecam polecenie Input.
Jeżeli modem nie nadaje znaku końca transmisji można użyć polecenia Inputbin.
Polecam również help do Bascoma tam jest wszystko opisane.
Napisz co zawiera transmisja i co chcesz z niej wyłuskać.

Statystyki: Napisane przez mrek33 — 23 lip 2017, o 17:49

Re: Moduł GSM - Problem z odbieraniem danych.

2017-07-23T14:57:58+01:00

Dziękuje za zainteresowanie moim problemem.

Generalnie komunikacja komputer - atmega32 działa, dane idą w obu kierunkach.
Problem jest z modułem g510 Fibocom. Dane idą do modułu, moduł realizuje komendy AT.

Nie mogę tych danych odebrać.
Komunikacja wygląda tak.

Statystyki: Napisane przez wojno — 23 lip 2017, o 14:57

Re: Moduł GSM - Problem z odbieraniem danych.

2017-07-23T07:12:37+01:00

Gdzieś tu w czeluściach jest bardzo fajny bascomowy poradnik jak odbierać dane z uart. Nie wiem niestety gdzie on leży. Napisz na priv to dam ci gotowca choć będziesz musiał sobie go dopasować pod swoje wymogi

Statystyki: Napisane przez grzeniu 73 — 23 lip 2017, o 07:12

Moduł GSM - Problem z odbieraniem danych.

2017-07-22T19:35:17+01:00

Witam

Szukam pomocy w rozwiązaniu mojego problemu związanego z odbieraniem danych z modułu GSM
Do komunikacji wybrałem Atmege32 i moduł G510.

Poniżej przykład jak staram się odebrać dane.
[syntax=basic4gl]Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin = Buffered , Size = 64

Config Timer0 = Timer , Prescale = 256
Enable Timer0 : On Timer0 Prztimer0
Enable Interrupts

Dim Serial_flag As Byte
Dim Ramka(64) As Byte

Do

Serial_flag = Ischarwaiting()
If Serial_flag = 1 Then
Call Dane
End If

Loop

Sub Dane

For Index = 1 To 64
Ramka(index) = Inkey()
Lcd Ramka(index)
Next Index

End Sub[/syntax]

Jeśli ktoś byłby w stanie rozwiązać lub nakierować na rozwiązanie, byłbym uradowany.

Statystyki: Napisane przez wojno — 22 lip 2017, o 19:35