BASCOM Alarm SMS-GSM na atmega8a i sim800L z dualną czujką PIR i MW

Witam, próbuje zmontować alarm z powiadomieniem za pomocą SMSa.

Części składowe to:
- Atmega8a
- moduł GSM SIM800L
- czujki PIR HC-SR501
- czujki MW HFS-DC06
- moduł 2 przekaźników
- przycisk reset - wyłączenie syreny (tymczasowo bo będę chciał to robić za pomocą SMS)

Działanie polega na wykryciu ruchu przez dwie czujki (PIR i MW, które są w jednej obudowie) wtedy załącza się przekaźnik i następuje ciągłe wysyłanie wiadomości SMS - ALARM !!!.

Jak zrobić by nie wysyłał ciągle tego SMSa by wysłał go tylko raz gdy przekaźnik zostanie włączony do czasu jego zresetowania (wyłączenia alarmu).

[code]

Trzeba zrobić detekcję zbocza np. poprzez użycie dodatkowej zmiennej- flagi
Zmienna ta ustawiana byłaby np. na 1 po wysłaniu SMS-a, a wejście do podprogramu wysyłającego SMS pod warunkiem, że ta zmienna = 0

If Pir_1 = 0 And Mw_1 = 0 And Flaga = 0 Then
....... (program wysyłający SMS)
Flaga = 1
En If

Gdzieś w głównym programie

If Pir_1 = 1 And Mw_1 = 1 Then
Flaga = 0
End If

Tak swoją drogą to Twój program jest mało elegancki.
O wiele lepiej by było, gdyby procedura wysyłania SMS-a była wykonywana jako obsługa przerwania.

Działa

Jeden problem odhaczony teraz jeszcze funkcje aktywacja i dezaktywacja, reset alarmu oraz załączanie dodatkowych Przekaźników za pomocą SMS.

Domyślam się, że kod programu nie jest piękny ale na tyle mnie stać. Opieram się na tym co znajdę w sieci i jestem w stanie zrozumieć na obecnym moim etapie oraz zaimplementować to u siebie.

Jestem zadowolony z tego co udało mi się już zrobić, a dzięki Twojej podpowiedzi nie wysyła mi już ciągle SMS-ów co by wyczerpało ich limit na karcie SIM.

Obsługa przerwania nie mam pojęcia?

Poniżej jak to teraz wygląda.
Oczywiście pozostaje rozpisać wszystko dla pozostałych czujek ale to na zasadzie kopiuj wklej i zamień nazwy.

Komenda Print jest łatwa do zastosowania ale jak odebrać dane?
Znalazłem, że odpowiada za to Input

zrobiłem tak

Input = +CMTI: "SM",1 then
Print "AT+CMGR=1" ; Chr(13) ;
Input = (jeśli w odebranej wiadomości występuje OFF) then
Pk_syrena = 0
Print "AT+CMGD=1" ; Chr(13) ;


ale nie działa "Print "AT+CMGR=1" ; Chr(13) ;" po odczycie "Input = +CMTI: "SM",1 then"
więc nawet nie zabrałem się za kombinowanie z "Input = (jeśli w odebranej wiadomości występuje OFF) then
Pk_syrena = 0
Print "AT+CMGD=1" ; Chr(13) ;"


Proszę o pomoc


Próbuję coś z tej strony wygrzebać ale nie czaje gdzie jest odczyt tego co przychodzi.

Potrzebuje coś łopatologicznego jak z PRINT

Dodano po 5 [godziny] 27 [minuty]:







Udało mi się coś takiego. Po wysłaniu OFF dioda, która na obecną chwilę zastępuje Pk_syerna gaśnie.
Choć jest problem natury sprzętowej (zakłócenia) związane z odbieraniem wiadomości powodują reakcję na czujce PIR i MW co powoduje ponowne załączenie alarmu i wysłanie SMS - ALARM!!! a nawet paru SMSów.

Czy w części odbierającej trzeba coś jeszcze poprawić - usunąć.
Skopiowałem z innego projektu wszystko choć nie wiem czy wszystko jest potrzebne.
Nie bardzo rozumiem działanie kodu odbierającego SMSy ale ważne, że działa choć wolał bym wiedzieć dlaczego tak to ma wyglądać.

Problemem może być jeśli przyjdzie SMS z sieci bo będzie on na pozycji 1, a moja wiadomość na pozycji np. 2 czy 3 wtedy będzie lipa

Może znajdzie się dobra duszyczka by mi to wytłumaczyć

Ma ktoś pomysł na wyeliminowanie zakłóceń między modułami. Jak czujnik mikrofalowy ustawię na max odległość to reaguje na załączanie i wyłączanie się czujki PIR rozkręconej na max (ok 7m)

Rozbudowałem program o dodatkowe funkcje
Aktywacja alarmu
Dezaktywacja alarmu
Jak by jeden rodzaj czujek powodował problem można je wyłączyć - sterowanie tranzystorem zasilającym czujki - można też programowo będę nad tym pracował - dużo pisania i kombinowania
Reset alarmu po przypadkowym wykryciu ruchu
Włączanie i wyłączanie przekaźników 4 sztuki

Witam, albo mi się wydaje albo widzę poważny problem. Po odebraniu sms z pamięci 1 jest sprawdzany ciąg znaków, jeśli się zgadza to jest coś tam wykonywane i kasowany sms z pozycji 1. Przyjmijmy że ktoś się pomyli i wyśle jakikolwiek sms, który zapełni pozycję 1. Program sprawdzając ciąg znaków nie wykryje ciągu, nic nie zrobi i nie usunie sms z pozycji 1? Instrukcję kasowania trzeba by przenieść przed instrukcję If...Then

If Odb_sms > 0 Then

będę wstawiał komendę AT+CMGL="ALL"
a potem AT+CMGD=1, AT+CMGD=2, AT+CMGD=3, AT+CMGD=4
ale mam inny problem
na terminalu ale na atmega8a wszystko działa prawidłowo
natomiast po zmontowaniu z modułem SIM800 już nie bardzo
czasem wysyła te same SMSy
jak by nie łapał komendy AT+CMGD=1 i nie kasował SMSa
komendy do czyszczenia bufora "_rs_head_ptr0 = 0 _rs_tail_ptr0 = 0" tak jak by nie działały i nie czyściły bufora co powoduje, że jak moduł ma mi wysłać "Alarm zresetowany" to jak by ponownie do bufora trafiał string i wyciągany był by z niego "reset" i się zapętla. Podobnie wysyłam "wlacz" aktywuje się alarm wysyła "Alarm wlaczony" i znowu wyciąga z niego string "wlacz"

dwa najważniejsze problemy to kasowanie wiadomości i bufora choć jak nie będzie wiadomości to i może z buforem nie będzie problemu.

podsłuchane dane w terminalu między atmega i SIM800
wysłałem 1on - załącz przekaźnik 1 przekaźnik został załączony ale skąd mu się wzięło "Alarm zresetowany"

No cóż, jeśli korzysta się ze starej, szczepionej, wersji Bascoma to będą dostępne tylko stare procesory. Proponuję postarać się o legalną wersję Bascoma lub poprostu przejść na C i wtedy nie będzie problemu z legalnością oprogramowania, no i nic to nie będzie kosztować

Nie wiem jak w sim800 bo ja używam najczęściej Q2687. Wstępnie konfiguruję go między innymi na tryb tekstowy a później komendą zapisuję to w pamięci. Nie muszę w programie tego zawierać. Wtedy pozostaje nam tylko odbiór kasowanie i wysyłanie sms.

Już głupieje co jest nie tak w terminalu wszystko działa prawidłowo i widzę ze wysyła komendę do kasowanie SMSa "AT+CMGD=1"
Odsyłane są również stany, że przekaźnik nr 1 został włączony lub wyłączony czy alarm został aktywowany czy dezaktywowany lub zresetowany.
Natomiast jak podepnę SIM800 i w programie w części dotyczącej odczytu SMS przestawię na aktywną komendę do odczytu "Print "AT+CMGR=1" ; Chr(13) ;" daje 1 sekundę na odczytanie.
po przejściu do Xdane to już wolna amerykanka.

Obecny kod testowy na atmega8a (kompilacja 85%) na razie pozostawiłem odczyt wiadomości z pozycji 1, a nie ALL

Niech kolega próbuje usunąć wszystkie wiadomości z pamięci (jedną komendą AT), u mnie wysyłam

AT+CMGD=0,4

Znalazłem, że na SIM800 jest to komenda AT+CMGDA="DEL ALL" więc ją wstawię do kasowania z karty wszystkich wiadomości SMS, a do odczytu będzie AT+CMGL="ALL".
Przetestowałem na razie czujki w terminalu i wszystko jest OK

Jeśli chodzi o kasowanie wiadomości niech kolega spróbuje zamiast

Odb_sms = Instr(odb_txt , Alarm_sms) 'sprawdź czy w odebranym ciągu znaków nie ma "Alarm"

If Odb_sms > 0 Then 'jeżeli jest to

Sms = 0 'flaga blokująca SMSa "ALARM !!!" - by nie wysyłał tej wiadomosci non stop

Alarm_pk = 1

Dopisz_sms = " Reczne zalaczenie" 'załącz syrenę alarmową

Print "AT+CMGD=1" ; Chr(13) ; 'Delete SMS 1 z SIM w celu odebrania ponownie pod tą samą pozycją nr 1 kolejnego SMSa

End If

Odb_sms = Instr(odb_txt , Alarm_sms) 'sprawdź czy w odebranym ciągu znaków nie ma "Alarm"

Print "AT+CMGDA="DEL ALL" ; Chr(13) ; 'Delete SMS

If Odb_sms > 0 Then 'jeżeli jest to

Sms = 0 'flaga blokująca SMSa "ALARM !!!" - by nie wysyłał tej wiadomosci non stop

Alarm_pk = 1

Dopisz_sms = " Reczne zalaczenie" 'załącz syrenę alarmową

End If

"

Poddaje się nie mam pojęcia o co chodzi.
Reaguje na odbierane wiadomości natomiast z wysyłaniem to loteria podejrzewam funkcję przerywacza alarmu (modulowanie syreny) nie potrafię jej zrobić na timerze.
Ja usuwanie SMS dałem jako pierwsze zadanie w IF (czyli o jedna linijkę niżej) doszedłem do tego wcześniej by to zadanie było pierwsze.
Poprawiło się ale czasem ma jakąś blokadę
Wysyła dobrze info z przekaźników, aktywacji i dezaktywacji jak wykryje ruch to tak samo dobrze wysyła ale jak dam ręczne załączenie to już nie chce albo reset to stawia bloka wykonuje zadanie ale nie wysyła wiadomości i po tym to już różnie czasem zadziała dezaktywacja i aktywacja, a czasem nie.
Jak dzwonię na moduł to nie ma żadnej reakcji i dziwnego działania.

Obecnie kod wygląda tak

Panowie spotkał się ktoś z Was, że programator źle wczytywał program do mikrokontrolera choć to mało prawdopodobne, że tak się dzieje u mnie bo podsłuchując w terminalu uC widzę, prawidłowe działanie programu bynajmniej to co ma zostać wysłane do modułu GSM poza ustawieniami flag czy resetu pamięci lub stringów.

Zrobiłem osobne linie do wysyłania SMS dla alarmu z czujek PIR i MW, osobny dla Aktywacji, Dezaktywacji, Resetu i Ręcznego załączenia syreny oraz osobny dla przekaźników.

Na razie aktywacja i dezaktywacja czujek PIR lub MW nie jest ruszana do póki nie uda mi się uporać z losowym wysyłaniem SMS.

Działanie nieraz jest losowe.
Np wysyłam Aktywacja dioda czerwona świeci zielona gaśnie brak zwrotki SMS, wysyłam Dezaktywacja dioda zielona świeci czerwona gaśnie dostaję zwrotkę SMS ponownie wysyłam Aktywacja dioda czerwona świeci zielona gaśnie dostaję zwrotkę sms.

Z przekaźnikami też jest podobnie załączam/wyłączam pojedynczo jest zwrotka SMS załączam 2 razem przekaźniki nie ma zwrotki SMS natomiast wyłączam 2 razem jest zwrotka SMS.
Ponownie załączam 2 przekaźniki dalej brak zwrotki SMS teraz wyłączam przekaźnik nr 2 otrzymuję zwrotkę SMS ale nie dotyczy się ona tylko tego przekaźnika, a 2 przekaźników tak jak by wcześniejszej wiadomości bo otrzymuję zwrotkę "Przekaźnik 1 włączony Przekaźnik 2 wyłączony" tylko zaktualizowaną o obecny stan przekaźnika 2.
Dosłownie loteria.

Obecna wersja programu na uC m8a oczywiście nie wszystko ustawione bo za mało pinów ma ten uC

Można zrezygnować z wysyłania wiadomości po zmianie stanu pinu, a zrobić oddzielnie w pętli sprawdzanie pinów, dodatkowo by wysłało tylko jednego sms'a można dać zmienne, które będą się zmieniać po wysłaniu wiadomości.

Całą obsługę modemu masz źle, ponieważ opierasz się na stałych opóźnieniach a powinieneś po wysłaniu komendy AT oczekiwać jej rezultatu ("OK"," ERROR") a w przypadku wysłania komendy AT+CMGS="+48..." lub AT+CMGS=+48...:
1. Zaczekać na znak zachęty (">"),
2. Wpisać treść SMS'a i zakończyć znakiem CTRL+Z ({026}) bez RETURN'a ({013}) na końcu,
3. Poczekać na rezultat ("OK, "ERROR")
Cała procedura wysyłania SMS'a może potrwać nawet 3 sekundy.

Na Twoim miejscu zrobiłbym swoją obsługę komunikacji z modemem w oparciu o przerwanie RXC z parsowaniem "w locie" + generacja timeout'ów przez przerwanie od przepełnienia TIMER'a z obsługą w pętli głównej.

ps. Zrób test przy użyciu aktualnego kodu:
1. Zmień Waitms 10 po AT+CMGS na 1-2 sekundy (Waitms 1000 lub Waitms 2000)
2. Wyślij Print "Tresc SMS" ; Chr(26); (bez Chr(13); na końcu)
3. Odczekaj 5 sekund

U mnie przykładowa procedura z jakiegoś tam programu wygląda tak:

If A1 = 1 Then

Print "AT+CMGS=+48xxxxxxxxx;"

Wait 1

Print "Alarm 1" ; Chr(26);

Wait 8

End If

Dziękuję za podpowiedzi
Jaca to co napisałeś o czekaniu na rezultat czyli na potwierdzenie lub nie wykonania zadania przez moduł GSM jest bardzo dobre tylko nie na moim poziomie wiedzy, bo nie wiem jak odebrać te rezultaty. To co napisałem w kodzie rozumiem poza 1 sprawą dotycząca bufora to skopiowałem z innego projektu i nie bardzo rozumiem dlaczego tak to ma wyglądać.
Wysyłanie jest proste odpowiada za to print ale co odpowiada za wejście nie wiem.

Przykładowo miało by to pewnie wyglądać "input" określę jako wejście gdzie odbieram dane z modułu GSM

pomożecie z tym odbiorem znaku zachęty?

Ja korzystam najczęściej z dwóch sposobów. Funkcją input oraz urxc.
Przykłady:

$regfile = "m8def.dat"

$crystal = 16000000

$baud = 19200

Dim Rs As String * 10

Do

Input Rs

If Rs = "XXXXXXXXXX" Then

End If

Loop

$regfile = "m8def.dat"

$crystal = 16000000

$baud = 19200

Dim Znaki As String * 10

Dim Ascii As Byte

Dim Odebrane As String * 10

On Urxc Rs232

Enable Urxc

Enable Interrupts

Do

'Zmienna Odebrane To Odebrane Znaki Po Uart

Loop

Rs232:

Disable Urxc

Ascii = Inkey()

Znaki = Znaki + Chr(ascii)

If Len(znaki) = 10 Then

Odebrane = Znaki

Znaki = ""

End If

If Znaki = "XXXXXXXXXX" Then

'Tu instrukcje gdy odebrane treści równają się "XXXXXXXXXX"

End If

Enable Urxc

Return

If Znaki = "XXXXXXXXXX" Then

'Tu instrukcje gdy odebrane treści równają się "XXXXXXXXXX"

End If

Dla testu wykorzystując jeden z przekaźników zrobiłem w ten sposób

Dim Rs As String * 1 'potem zmieniłem na 7 bo nie wiem jak interpretuje Chr(62)

Input RS
If Rs = Chr(62) Then 'użyłem Chr(62) bo > jest znakiem operatorem więc go zastąpiłem ascii
Pk_2 = 1
End If

Ale to nie działa

A niech kolega spróbuje zamiast Chr(62) użyć zmiennej o wartości ">" i wtedy porównywać tą zmienną, wtedy to musi zadziałać. Bascom czasami dziwnie się zachowuje, nie wiem dlaczego. Ja używam wersji 2.0.7.8 na wcześniejszych nie chciał mi działać między innymi OLED mimo że program był poprawny. Może w tym leży problem, albo w części sprzętowej. Ale najpierw niech kolega spróbuje tak jak napisałem. Można napisać na szybko jakikolwiek program testowy żeby sprawdzić np komunikację, a dopiero później wszystko "zlepić" w całość.

Autorze tematu,
Rzecz jasna zasilanie SIM800L to 3,8-4,2 czyli LM317 i jechana. A sygnały z procka puściłeś bepośrednio? W specyfikacji wyczytałem, że sygnał RXD może mieć max 3V więc TXD z pricka puściłem przez dzielnik 1,2K i 2K. Skorzystałem z części twojego kodu lecz mi nie działa. Czy problem może leżeć w TXD z procka?

$regfile = "m8def.dat"

$crystal = 8000000



$hwstack = 40

$swstack = 40

$framesize = 40

$baud = 9600



Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portb.1 , Rs = Portb.2

Config Lcd = 16 * 2



Config Portd.2 = Input                                      'zadeklarowanie wszystkich portów b jako wyjście

Set Pind.2

Portd.2 = 1

Declare Sub Pr1



Locate 1 , 1

Cls

Lcd "sim"

Dim A As Byte

A = 0



Wait 3

                                          

Do

Waitms 10



       Debounce Pind.2 , 0 , Pr1 , Sub

       Locate 1 , 1

       Cls

       lcd "czekam"



     Loop

     End









Return





Pr1:



Print "AT" ; Chr(13) ;

     Waitms 10

     Print "AT+CMGF=1" ; Chr(13) ;

     Waitms 10

     Print "AT+CMGS=" ; Chr(34) ; "+48502 bla bla bla" ; Chr(34) ; Chr(13) ;

     Waitms 10

     Print "SMS" ; Chr(26) ; ;



Cls

Locate 1 , 1

Lcd "wyslano"

Waitms 500





Return