Bluetooth łączy mikrokontrolery, część 2.pdf

K U R S

Bluetooth łączy

mikrokontrolery, część 2

Przykład systemu bezprzewodowego

nadajnika oraz odbiornika

sygnałów z czujek alarmowych

Prosty system pokazany w tym

przykładzie wykorzystuje bezprzewo-

dowe przesyłanie sygnałów z ośmiu

oddalonych czujek alarmowych do

centrali alarmowej. Sygnały z czujek

mogą być przesyłane jako logiczne

„0” lub „1”. Do nadajnika może być

dołączonych maks. 8 czujek oraz

jedna linia sabotażowa. Odbiornik bę-

dzie wystawiał na swoich wyjściach

identyczne sygnały, jakie wystawiają

czujniki dla nadajnika. Wyjścia te

można dołączyć do wejść centralki

alarmowej. Taki system mógłby być

zastosowany, np. w przypadku dom-

ku wielopiętrowego, w którym nie

ma możliwości przeciągnięcia wielu

przewodów. Stosując opisywany sys-

tem, przewody od czujek należałoby

poprowadzić tylko w ramach jedne-

go piętra, piwnicy lub parteru. Do

realizacji takiego prostego systemu

znakomicie mogą się nadawać mo-

duły BT. Ich dużą zaletą jest wyso-

ka odporność na zakłócenia, co jest

bardzo istotne w podobnych aplika-

cjach. Dodatkowym atutem przy tego

typu rozwiązaniu będzie skorzystanie

z możliwości autoryzacji i szyfrowa-

nia danych, jakie oferują moduły BT

i rmy ConnectBlue. W opisywanym

przykładzie nadajnik sygnałów z czu-

Bluetooth (w skrócie BT) zdobywa coraz większą popularność

w dziedzinie bezprzewodowego przesyłania danych na

odległość. Wykorzystuje do tego częstotliwość 2,4 GHz.

O popularności BT świadczy coraz częstsze jego występowanie

w urządzeniach powszechnego użytku. BT można spotkać nie

tylko w komputerach, mamy go w komórkach i wielu innych

urządzeniach.

jek będzie pracował z modułem BT

skoni gurowanym jako klient, a od-

biornik z modułem pracującym jako

serwer. W przypadku wykorzystywa-

nia funkcji „Multidrop” będzie moż-

liwa jednoczesna praca z wieloma

nadajnikami. Jak już pisałem, w tym

systemie zostały wykorzystane dodat-

kowe funkcje modułów BT związane

z autoryzacją połączenia i szyfro-

waniem danych. Aby była możliwa

bezpieczna autoryzacja, a przesyłane

dane były szyfrowane, należy włączyć

tryby szyfrowania danych w obu ko-

munikujących się modułach BT. Do-

datkowo, przy procedurze autoryzacji

wymagany jest klucz (pin), który

powinien być identyczny dla obu ko-

munikujących się ze sobą modułów.

Przy wykorzystaniu funkcji modułów

związanych z bezpieczeństwem należy

„związać” ze sobą moduły, które będą

komunikować się ze sobą (należy zro-

bić z nich parę). W tym celu, w ko-

munikujących się modułach powinny

zostać włączone funkcje parowania

modułu. Aby dokonać związania

modułów, należy w jednym module

wysłać komendę tworzenia kontaktu

(pary), a następnie komendy, któ-

re umożliwią utworzenie połączenia

(tak, jak to było w kliencie tempe-

ratury z poprzedniego przykładu). Na

rys. 3 został przedstawiony schemat

ideowy nadajnika sygnałów z czujek.

Przyciski na schemacie reprezentują

sygnały z czujek alarmowych. Przy-

cisk S9 symbolizuje dodatkową linię

sabotażową. Dioda LED sygnalizuje,

tak jak to było w przypadku serwera

temperatury, błąd wykonania komen-

dy (dioda miga) oraz prawidłowość

wykonania wszystkich wysyłanych

komend (dioda świeci światłem cią-

głym). W tym przykładzie moduł

BT został również dołączony poprzez

konwerter poziomów RS232.

Na list. 3 został przedstawiony

program w języku Bascom sterujący

nadajnikiem pracującym jako klient.

Rys. 3. Schemat ideowy nadajnika sygnałów z czujek alarmowych

Elektronika Praktyczna 8/2004

K U R S

List. 3. Program sterujący nadajnikiem sygnałów z czujek alarmowych

‘Przykład programu nadajnika radiowego sygnałów z czujek do centrali alarmowej z wykorzystaniem Bluetooth

‘Mozliwosc nadawania sygnalow z 8 czujek oraz jednej linii sabotazowej

‘Modul Bluetooth skonigurowany do pracy jako klient

‘Transmisja danych pomiedzy nadajnikiem a odbiornikiem kodowana

‘stan 8 linii nadajnika jest przesylany w formacie wxxxxxxxx gdzie x to stany (0 lub 1) poszczegolnych wejsc nadajnika

‘stan linii sabotazowej jest przesylany w formacie sx gdzie x to stan (0 lub 1) linii sabotazowej nadajnika

‘Marcin Wiazania

‘marcin.wiazania@ep.com.pl

$regile = „m8def.dat” ‘rejestry mikrokontrolera atmega8

$crystal = 7372800 ‘czestotliwosc taktowania mikrokontrolera

$baud = 57600 ‘informuje kompilator o predkosci transmisji

Conig Portb = Input ‘linie portu b jako wejscia

Conig Portc = &B00001000 ‘linie portu c.3 jako wyjscie, pozostale linie jako wejscia

Conig Serialin = Buffered , Size = 10 ‘koniguracja by interfejs rs232 uzywal przy odbiorze transmisji buforowej

‘(bufor o wielkosci 10 znakow)

Declare Sub Sprawdz_stat ‘procedura sprawdzajaca status wykonania wyslanego polecenia at

Dim Odczyt As String * 10 ‘zmienna string ktora przechewuje odczytanu status z bluetooth oraz dane odebrane

‘od nadajnika

Dim S As String * 1 ‘pomocnicza zmienna tekstowa

Dim Wej As Byte ‘zmienna przechowuje wartosc stanu wyjsc czujek dolaczonych do nadajnika

Br_kom_l Alias Portc.3 ‘przypisanie aliasu br_kom_l linii pc.3

Sab Alias Pinc.2 ‘przypisanie aliasu sab do rejestru odbiorczego linii pc.2

Portb = Portb Or &B00111111 ‘do linii wejsciowych 0..5 dolaczone zostana rezystory podciagaja ce

Portc = Portc Or &B00001111 ‘linie 0..3 portu pc w stanie wysokim

‘(do linii wejsciowych 0..2 dolaczone zostana rezystory podciagajace)

Echo Off ‘wylaczenie echa instrukcji input

Enable Interrupts ‘globalne odblokowanie przerwan

Wait 1 ‘czekaj 1 sekunde

Print „///”; ‘wyslij 3x”/” bez wysylania dodatkowego kodu 13 (CR - enter) - przelacza modul BT

‘w tryb AT z trybu danych

Wait 2 ‘czekaj 2 sekundy

Print „ate0” ‘wyłączenie echa wysyłanych komend

Call Sprawdz_stat ‘sprawdzenie statusu wykonania wyslanej do BT komendy

Print „at*agdm=1,0” ‘modul BT nie bedzie widoczny dla innych modulow BT

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agcm=2,0” ‘wlaczenie przyjmowania i akceptowania polaczen

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agpm=2,0” ‘wlaczenie trybu parowania modulow

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agsm=2,0” ‘wlaczenie bezpieczenstwa polaczen (autoryzacja i szyfrowanie)

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agmsp=1,0” ‘modul BT w nadchodzacych polaczeniach bedzie pozwalal drugiej stronie zadecydowac

‘czy ma byc masterem czy slavem

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agfp={034}1199{034},0” ‘zapis pinu 1199 uzywanego podczas zwiazku

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agln={034}Nadajnik{034},0” ‘nadaje nazwe „Client BT” modulowi BT

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*aglc=0,0” ‘zapisuje COD modułu BT

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*addcp=0,0” ‘wlaczenie proilu dla clienta (wylaczenie pracy jako serwer)

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*addsp=255,0” ‘wylaczenie proilu portu szeregowego dla serwera (praca jako client)

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*adnrp=1,0” ‘modul BT bedzie mial mozliwosc laczenia sie tylko do jednego odleglego modulu BT

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agub=00803719bea4” ‘wykasowanie adresu urzadzenia BT z ktorym bedzie odbywac sie zwiazek

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agfp?” ‘odczyt zapisanego wczesniej pinu (pin:1199)

Do ‘poczatek petli

S = Inkey() ‘zapisz do zmiennej s znak odczytany z bufora odbiorczego

Loop Until S = Chr(10) ‘zakoncz petle gdy odebrany znak ma kod ascii 13 (CR - enter)

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agb=00803719bea4” ‘zapisanie adresu urzadzenia BT z ktorym bedzie odbywac sie zwiazek

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*adwdrp=0,00803719bea4,3,0,{034}Odbiornik{034},0” ‘wpisanie adresu modulu bt z ktorym bedzie odbywac sie komunikacja

‘(w tym przypadku bedzie to numer modulu serwera)

‘oraz modul bedzie caly czas sie probowal polaczyc a takze gdy beda wysylane dane

Print „at*adwm=0,0,0”

‘wylaczenie mozliwosci jednoczesnej pracy z wieloma modulami BT

‘(wylaczenie trybu wireless MultiDrop)

Call Sprawdz_stat

‘sprawdzenie statusu wykonania komendy

Print „at*accb=0,0”

‘wyłacza mozliwosc zdalnej koniguracji modulu BT

Call Sprawdz_stat

‘przelacza modul BT z powrotem w tryb transmisji danych‘

Call Sprawdz_stat

‘sprawdzenie statusu wykonania komendy

Wait 1

‘czekaj 1 sekunde

Wej = Pinb And &B00111111

‘zapisz do temp wartosc stanu 6 najmlodszych linii portu b

Wej.6 = Pinc.0

‘zapisz do bitu 6 (0..7) zmiennej wej stan linii pc.0

Wej.7 = Pinc.1

‘zapisz do bitu 7 (0..7) zmiennej wej stan linii pc.1

Print „w” ; Wej

‘wyslij znak w oraz wartosc zmiennej wej (stan wyjsc 8 czujek)

If Sab = 1 Then

‘jesli linia wejsciowa sab (pc.2) = 1 to

Print „s1”

‘wyslij do odbiornika znaki „s1”

Else

‘w przeciwnym razie

Print „s0”

‘wyslij do odbiornika znaki „s0”

End If

Waitms 50

Loop

‘koniec petli glownej programu

End

Sub Sprawdz_stat

‘procedura sprawdzania statusu wykonania komendy

Odczyt = „”

‘zaladowanie do zmiennej string wartosci pustej

S = Inkey()

‘zapisz do zmiennej s znak odczytany z bufora odbiorczego

Loop Until S = Chr(10)

‘zakoncz petle gdy odebrany znak ma kod ascii 13 (CR - enter)

‘poczatek drugiej warunkowej petli do-loop

S = Inkey()

‘zapisz do zmiennej s znak odczytany z bufora odbiorczego

If S = „O” Or S = „K” Then

‘jesli znak zapisany do s to O lub K to

Odczyt = Odczyt + S

‘dodaj do zmiennej odczyt znak zapisany w zmiennej s

End If

Loop Until S = Chr(10)

‘zakoncz petle gdy odebrany znak ma kod ascii 13 (CR - enter)

If Odczyt <> „OK” Then

‘jesli wartosc zapisana w odczyt rozna ok slowa „OK” to

Toggle Br_kom_l

‘zmien na przeciwny stan diody br_kom_l

Waitms 250

‘czekaj 250 ms

Loop

‘koniec nieskonczonej petli do-loop

End If

End Sub

‘koniec procedury sprawdzajacej status wykonania komendy

Elektronika Praktyczna 8/2004

Call Sprawdz_stat

‘sprawdzenie statusu wykonania komendy

Print „at*addm”

‘sprawdzenie statusu wykonania komendy

‘petla glowna programu

‘czekaj 50 ms

‘poczatek petli

‘poczatek petli nieskonczonej do-loop

K U R S

Na początku programu zostają odpo-

wiednio skonigurowane linie portów.

W tym przypadku zostanie również

wykorzystana odbiorcza transmi-

sja buforowa z RS232. Procedura

sprawdz_stat jest identyczna, jak

w programie serwera temperatury.

Ponieważ moduł BT w nadajniku

zostanie skonigurowany jako klient,

niektóre wysyłane komendy będą

identyczne, jak w kliencie tempera-

tury. W tym przypadku pojawią się

jednak nowe, dodatkowe komendy.

Poniżej zostaną podane jedynie nowe

komendy oraz różnice w komendach

umożliwiających włączenie bezpie-

czeństwa komunikacji. W komendzie

„agpm...” pierwszy parametr ma tym

razem wartość „2”, co oznacza włą-

czenie trybu parowania modułów.

Identycznie jest z następną komendą

„agsm...”, która z parametrem także

równym „2” włącza tryb bezpieczeń-

stwa połączeń i przesyłanych danych.

Komenda „agap...” zapisuje w module

pin o wartości „1199”, który umiesz-

czony jest w cudzysłowach. Piny

zapisane w modułach powinny być

identyczne. Pin może się składać

maksymalnie z 16 cyfr. Aby możli-

we było sparowanie modułów, należy

usunąć komendą „agub...” (której pa-

rametrem jest adres drugiego modułu)

adres modułu, z którym będzie zwią-

zany (sparowany). Następnie przed

wykonaniem parowania wymagane

jest odczytanie (zapisanego wcześniej)

pinu komendą „agft?...”. Instrukcje po

komendzie odczytu pinu służą do

zignorowania otrzymanych informa-

cji o pinie, gdyż w tym przypadku

nie są one do niczego potrzebne.

Instrukcje te odbierają znaki, aż do

otrzymania znaku LF (kod ASCII 10).

Dopiero po wykonaniu odczytu pinu

można wysłać komendę parowania

modułów. Parowanie modułów odby-

wa się po wysłaniu komendy „agb...”

z adresem modułu, z którym będzie

parowany. Po wykonaniu pozostałych,

znanych już komend, podczas nawią-

zywania połączenia będzie przeprowa-

dzana autoryzacja, a przesyłane dane

będą szyfrowane. Oczywiście podczas

wykonywania komend związanych

z parowaniem wymagane jest, by

był już odpowiednio skonigurowany

moduł z którym będzie odbywać się

parowanie. Moduł odbiornika musi

więc już być skonigurowany. W opi-

sywanym programie drugi parametr

komendy „adwdrp...” został ustawiony

na wartość „3”, czyli połączenie mo-

dułów będzie odbywało się, kiedy to

możliwe oraz gdy zostanie rozpozna-

ne przesyłanie danych. Także temu

modułowi została nadana nazwa „Na-

dajnik”. Program główny odczytuje

dane z linii wejściowych i wysyłała

je do odbiornika. Stany linii czujek

są poprzedzone znakiem „w”, a stan

linii sabotażowej znakiem „s”. Każdy

bit wartości wysłanej po znaku „w”

odpowiada danemu wyjściu dołączo-

nej czujki. Badana jest tylko jedna

linia sabotażowa, więc w jej przypad-

ku po znaku „s” może być wysłana

wartość 0 lub 1. Wysyłanie danych

o stanie wejść nadajnika odbywa się

w nieskończonej pętli, co ok. 50 ms.

Na rys. 4 został przedstawiony

schemat ideowy odbiornika sygna-

łów z czujek alarmowych. Tu także

moduł BT został dołączony poprzez

konwerter MAX232. Odebrane bez-

przewodowo stany sygnałów z czujek

są sygnalizowane przez diody D1..D8.

Dioda D9 sygnalizuje stan linii sabo-

tażowej. Dioda D10 sygnalizuje brak

komunikacji z nadajnikiem (nie są

otrzymywane dane z nadajnika), na-

tomiast dioda D11 sygnalizuje swym

miganiem, tak jak w przypadku na-

dajnika, błąd wykonania komendy,

a stałym świeceniem poprawne skon-

igurowanie modułu BT.

Na list. 4 został przedstawiony

program w języku Bascom sterujący

odbiornikiem. Na początku programu

konigurowane zostają odpowiednio

linie portów mikrokontrolera. I w

tym przypadku zostanie również wy-

korzystana odbiorcza transmisja bu-

forowa z RS232. Program odbiornika

koniguruje moduł BT do pracy jako

serwer i posiada komendy konigu-

racyjne, podobne jak w przypadku

„serwera temperatury” z poprzedniego

przykładu. W tym przypadku zostały

one jednak uzupełnione o komendy

związane z funkcjami bezpieczeń-

stwa. Tak jak w nadajniku, tak i w

odbiorniku (module pracującym jako

serwer), zostaje włączony tryb pa-

rowania, tryb bezpieczeństwa oraz

zostaje zapisany identyczny pin,

jak w module nadajnika o wartości

„1199”. Wystarczy to, by w przypad-

ku tego modułu wykorzystać funkcje

bezpieczeństwa. Resztą zajmuje się

moduł BT nadajnika. Modułowi BT

odbiornika zostaje nadana nazwa

„Odbiornik”. Program główny składa

się z nieskończonej pętli, w której

druga, wewnętrzna pętla zostanie wy-

konana 5000 razy, jeżeli nie zostaną

odebrane żadne dane od nadajnika.

Pętla ta zakończy swe działanie po

ok. 5 sekundach, gdyż znajduje się

w niej 1 ms opóźnienie, po którym

inkrementowana jest wartość zmien-

nej licz . Jeżeli w ciągu 5 sekund

nie zostaną odebrane żadne dane od

nadajnika, włączana jest dioda D10,

sygnalizująca brak komunikacji z na-

dajnikiem. W przypadku ciągłego od-

bierania danych z nadajnika zmienna

licz jest okresowo zerowana, więc

Rys. 4. Schemat ideowy odbiornika sygnałów z czujek

Elektronika Praktyczna 8/2004

K U R S

List. 4. Program sterujący odbiornikiem sygnałów z czujek alarmowych

‘Przykład programu odbiornika radiowego sygnałów z czujek do centrali alarmowej z wykorzystaniem Bluetooth

‘Mozliwosc odbioru sygnalow z 8 czujek oraz jednej linii sabotazowej

‘Modul Bluetooth skonigurowany do pracy jako serwer

‘Transmisja danych pomiedzy nadajnikiem a odbiornikiem kodowana

‘stan 8 linii nadajnika jest przesylany w formacie wxxxxxxxx gdzie x to stany (0 lub 1) poszczegolnych wejsc nadajnika

‘stan linii sabotazowej jest przesylany w formacie sx gdzie x to stan (0 lub 1) linii sabotazowej nadajnika

‘Marcin Wiazania

‘marcin.wiazania@ep.com.pl

$regile = „m8def.dat” ‘rejestry mikrokontrolera atmega8

$crystal = 7372800 ‘czestotliwosc taktowania mikrokontrolera

$baud = 57600 ‘informuje kompilator o predkosci transmisji

Conig Portb = &B00111111 ‘linie 0..5 portu pb jako wyjscia

Conig Portc = &B00011111 ‘linie 0..4 portu pc jako wyjscia

Conig Serialin = Buffered , Size = 10 ‘koniguracja by interfejs rs232 uzywal przy odbiorze transmisji buforowej (bufor o wielkosci 10 znakow)

Declare Sub Sprawdz_stat ‘procedura sprawdzajaca status wykonania wyslanego polecenia at do modulu BT

Dim Odczyt As String * 10 ‘zmienna string ktora przechewuje odczytanu status z bluetooth oraz dane odebrane od nadajnika

Dim S As String * 1 ‘pomocnicza zmienna tekstowa

Dim Licz As Integer ‘zmienna licznikowa czasu braku odpowiedzi od nadajnika

Dim Param As String * 1 ‘przechowuje odebrany znak identyikujacy przesylany parametr

Dim Wej As Byte ‘zmienna przechowuje odebrana wartosc stanu wyjsc czujek dolaczonych do nadajnika

Dim Sab As Byte ‘zmienna przechowuje stan linii sabotazowej

Sab_l Alias Portc.2 ‘przypisanie aliasu sab_l linii pc.2

Blad_l Alias Portc.3 ‘przypisanie aliasu blad_l linii pc.3

Br_kom_l Alias Portc.4 ‘przypisanie aliasu br_kom_l linii pc.4

Portc = Portc Or &B00011111 ‘linie 0..4 portu pc w stanie wysokim

Portb = Portb Or &B00111111 ‘linie 0..5 portu pb w stanie wysokim

Echo Off ‘wylaczenie echa instrukcji input

Enable Interrupts ‘globalne odblokowanie przerwan

Wait 1 ‘czekaj 1 sekunde

Print „///”; ‘wyslij 3x”/” bez wysylania dodatkowego kodu 13 (CR - enter) - przelacza modul BT w tryb AT z trybu danych

Wait 2 ‘czekaj 2 sekundy

Print „ate0” ‘wyłączenie echa wysyłanych komend

Call Sprawdz_stat ‘sprawdzenie statusu wykonania wyslanej do BT komendy

Print „at*agdm=1,0” ‘modul BT nie bedzie widoczny dla innych modulow BT

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agcm=2,0” ‘wlaczenie przyjmowania i akceptowania polaczen

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agpm=2,0” ‘wlaczenie trybu parowania modulow

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agsm=2,0” ‘wlaczenie bezpieczenstwa polaczen (autoryzacja i szyfrowanie)

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agmsp=0,0” ‘modul BT w nadchodzacych polaczeniach zawsze bedzie probowal stac sie masterem

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agfp={034}1199{034},0” ‘zapis pinu 1199 uzywanego podczas zwiazku

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*agln={034}Odbiornik{034},0” ‘nadaje nazwe „Server Temp” modulowi BT

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*aglc=0,0” ‘zapisuje COD modułu BT

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*addcp=255,0” ‘wylaczenie proilu dla clienta (wylaczenie pracy jako clienta)

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*addsp=0,0” ‘wlaczenie proilu portu szeregowego dla serwera (praca jako serwer)

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*adwm=0,0,0” ‘wylaczenie mozliwosci jednoczesnej pracy z wieloma modulami BT (wylaczenie trybu wireless MultiDrop)

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*accb=0,0” ‘wyłacza mozliwosc zdalnej koniguracji modulu BT

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Print „at*addm” ‘przelacza modul BT z powrotem w tryb transmisji danych‘

Call Sprawdz_stat ‘sprawdzenie statusu wykonania komendy

Reset Blad_l ‘zapala diode LED

Licz = 0 ‘wyzerowanie zmiennej licz

Do ‘poczatek petli glownej programu

Do ‘druga wewnetrzna petla do-loop

While _rs_head_ptr0 <> _rs_tail_ptr0 ‘petla while wykonawana dotad dokad parametry w warunku IF sa rozne

S = Inkey()

‘zapisz do zmiennej s znak odczytany z bufora odbiorczego

Param = S

‘zapisz odebrany znak w zmiennej param

Elseif S > Chr(31) Then

‘jesli znak zapisany do s ma kod ascii wiekszy niz 31 to

Odczyt = Odczyt + S

‘dodaj do zmiennej odczyt znak zapisany w zmiennej s

End If

If S = Chr(13) Then

If Param = „w” Then

‘oraz zmienna param posiada zapisany znak w to

Wej = Val(odczyt)

‘zapisz do zmiennej wej przetworzona na postać dziesiętną wartosc zmiennej tekstowej odczyt

Portb = Wej And &B00111111

‘zapisz do portub (linie 0..5) wartosc zmiennej wej z wyzerowanymi dwo najstarszymi bitami

Portc.0 = Wej.6

‘zapisz stan bitu 6 (0..7) zmiennej wej do linii wyjsciowej pc0

Portc.1 = Wej.7

‘zapisz stan bitu 7 (0..7) zmiennej wej do linii wyjsciowej pc1

Elseif Param = „s” Then

‘w przeciwnym wypadku jesli zmienna param ma zapisany znak „s” to

Sab = Val(odczyt)

‘zapisz do zmiennej sab przetworzona na postać dziesiętną wartosc zmiennej tekstowej odczyt

Sab_l = Sab

‘zapis stan zmiennej sab do sab_l ktory wskazuje na linie c.2

End If

Set Br_kom_l

Odczyt = „”

‘zaladowanie do zmiennej string wartosci pustej

Licz = 0

‘wyzerowanie zmiennej licz

End If

Wend

Waitms 1

‘koniec petli while

Incr Licz

‘zwieksz o jeden wartosc zmiennej licz

Loop Until Licz = 5000

‘wykonuje petle do-loop az licz=5000 (uplynie ok 5 sekund)

Reset Br_kom_l

‘zeruj linie portu wskazywana przez br_kom_l

Loop

‘koniec petli glownej programu

End

‘koniec programu

Sub Sprawdz_stat

‘procedura sprawdzania statusu wykonania komendy

Odczyt = „”

‘zaladowanie do zmiennej string wartosci pustej

S = Inkey()

‘zapisz do zmiennej s znak odczytany z bufora odbiorczego

Loop Until S = Chr(10)

‘zakoncz petle gdy odebrany znak ma kod ascii 13 (CR - enter)

‘poczatek drugiej warunkowej petli do-loop

S = Inkey()

‘zapisz do zmiennej s znak odczytany z bufora odbiorczego

If S = „O” Or S = „K” Then

‘jesli znak zapisany do s to O lub K to

Odczyt = Odczyt + S

‘dodaj do zmiennej odczyt znak zapisany w zmiennej s

End If

Loop Until S = Chr(10)

‘zakoncz petle gdy odebrany znak ma kod ascii 13 (CR - enter)

If Odczyt <> „OK” Then

‘jesli wartosc zapisana w odczyt rozna ok slowa „OK” to

Toggle Blad_l

‘poczatek petli nieskonczonej do-loop

Waitms 250

‘czekaj 250 ms

Loop

‘koniec nieskonczonej petli do-loop

End If

End Sub

‘koniec procedury sprawdzajacej status wykonania komendy

Elektronika Praktyczna 8/2004

If S = „w” Or S = „s” Then

‘jesli odebrany znak w lub s to

‘jesli s ma kod znaku 13 (enter)

‘ustaw linie br_kom_l

‘czekaj 1 ms

‘poczatek petli

‘zmien na przeciwny stan diody blad_l

K U R S

nie osiągnie wartości 5000 i pętla

się nie zakończy. Takie rozwiązanie

nie wstrzymuje działania programu,

który może zajmować się innymi za-

daniami oraz umożliwia sygnalizację

braku danych z nadajnika nie od

razu, lecz po określonym czasie. Jeśli

zmienne pomocnicze _rs_head_ptr0

oraz _rs_tail_ptr0 są różne, to

w buforze znajdują się odebrane

znaki z RS232. Znaki odbierane są

w pętli while , aż do zrównania się

wartości tych zmiennych pomocni-

czych. Jeśli pierwszym odebranym

znakiem jest „w” lub „s”, to jeden

z nich jest zapisywany w zmiennej

param . W przeciwnym przypadku,

jeśli odebrany znak ma kod ASCII

większy od 31, to znak jest dodawa-

ny do zmiennej odczyt . W zmien-

nej tej znajdą się wartości stanów

wejść nadajnika (wyjść czujek), które

będą zapisane na pozycjach bitowych

zmiennej typu bajt. Także w przy-

padku linii sabotażowej do zmiennej

odczyt zostanie wpisana wartość „0”

lub „1”. Jeżeli odebranym znakiem

jest CR, oznacza to, że napotkano

na koniec nadawanych w danym mo-

mencie informacji z nadajnika. Jeśli

tak jest i jeśli wcześniej do zmiennej

param został zapisany znak „w”, to

znaczy, że odebrano informację o sta-

nie wyjść czujek. Zapisana w zmien-

nej odczyt wartość tekstowa stanu

linii czujek jest poprzez funkcję val

zamieniana na postać cyfrową i wysy-

łana odpowiednio na linie wyjściowe

portów PB i PC, do których zostały

dołączone diody sygnalizujące stan

linii czujek. Jeśli zapisanym znakiem

w zmiennej param był znak „s”, to

oznacza, że otrzymano informację

o stanie linii sabotażowej. Otrzy-

many stan linii sabotażowej także

jest zamieniany na postać cyfrową

oraz wykorzystany do sterowania li-

nii z dołączoną diodą D9 (SAB). Po

otrzymany znaku CR i odpowiednim

zinterpretowaniu otrzymanych danych,

czyszczone są zmienne odczyt oraz

licz . W tym przypadku procedura

odbioru danych i ich interpretacji

także okazała się dość prosta.

Oczywiście przedstawiony system

można rozbudować o nowe możli-

wości. Przykład ten miał pokazać

sposób skonigurowania modułów BT

w celu uzyskania pewnego bezpie-

czeństwa przesyłania danych. Przed-

stawione przykłady systemów można

także sprawdzić w działaniu bez

modułów BT łącząc układy przewo-

dem RS232. Należy wtedy z pro-

gramów usunąć instrukcje konigu-

racyjne przeznaczone dla modułów

BT. Przykłady te niewątpliwie poka-

zały, że zastosowanie coraz szybciej

rozwĳającego się i coraz bardziej

popularnego systemu Bluetooth nie

stwarza specjalnych problemów we

własnych zastosowaniach. Z pewno-

ścią Bluetooth może znaleźć wiele

niebanalnych zastosowań nie tylko

w profesjonalnych urządzeniach, ale

również amatorskich, przeznaczonych

do codziennego, domowego użytku.

Przykładowo mogą to być urządzenia

służące do zdalnego sterowania świa-

tłem itp. Podpierając się pierwszym,

przedstawionym przykładem można

wykonać np. termostat ze zdalnym

czujnikiem temperatury. Bluetooth za-

pewne już wkrótce stanie się czymś

tak normalnym, jak teraz jest USB.

Marcin Wiązania, EP

marcin.wiazania@ep.com.pl

Elektronika Praktyczna 8/2004

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: