Mirley - Elektronika i Programowanie

Na wstępie mam nadzieje że nie będziesz zły Mirek że kolejnym "czymś" zaśmiecam ci forum.Ale mam nadzieje że większa ilość realizacji skłoni użytkowników do publikacji swoich wykonań oraz jak sam wiesz im więcej opisów i realizacji tym strona ciekawsza.(Jeżeli myślisz inaczej to powiedz).

Chciałem podziękować autorowi(Mirkowi) za wszelką pomoc którą zaoferował przy tym projekcie.Był on zrealizowany dosyć dawno bo w Grudniu ale miałem chwile czasu to pokazuje.

Wszelkie prawa autorskie należą do autora strony ponieważ to jego projekt został przeze mnie zmodyfikowany.

Kilka słów wstępu:

Otóż jak zawsze wszystko zaczęło się od zbudowania podstawowej wersji projektu Mirleja a dopiero później padło pytanie.? Do czego to wykorzystać. No i tak z braku pomysłu na wykorzystanie sterownika szyfrowego wpadłem na pomysł przerobienia, dorobienia i wyszedł z tego alarm.

Co prawda nie jest to profesjonalne wykonanie alarmu, no i nie taki był cel jednakże projekt jest.
Alarm jest wykonany trochę niekonwencjonalnie i dlatego niektóre parametry i zasada działania może odbiegać od profesjonalnych wykonań dlatego podkreślam iż jest to HOME MADE.

Wady:

-Przy odrobienie czasu i możliwościach można wymyśleć o wiele lepszy alarm.

-To wykorzystanie sprawiło dosyć kłopotów nie będę opisywał wszystkich.

-Alarm nie jest zoptymalizowany pod względem wszystkich parametrów.

Natomiast zaletą tego było to że był to doskonały przykład na potrenowanie, rozpatrzenie wielu problemów i poćwiczenie pewnych aspektów z dziedziny elektroniki.

Teraz do sedna i do projektu.

Na początek przedstawię co wchodzi w skład owego alarmu:

-Szyfrowy sterownik 4 urządzeniami.

-Czujnik ruchu z lampy halogenowej.

-Timer

-Telefon stacjonarny pozbawiony zbędnych materiałów połączony z timerem nazywany później centralką.
-Syreny lub jak kto woli piszczałki.

Całość pokazana na poglądowym schemacie blokowym.

Teraz zasada działania alarmu.

Nie podaje naprawdę wszystkich szczegółów działania układu więc będzie to bardziej krótszy opis niż szczegółowe rozjaśnienie jak to działa.

1.Wpisujemy kod aktywujący urządzenie nr.1 i mamy uzbrojony alarm. Obwód czujnika ruchu zostaje zamknięty i czujnik ruchu jest aktywny.

2.W momencie wykrycia ruchu przez czujnik zostaje podany sygnał na timer który jest wyposażony w 3 przekaźniki które załączają się na określony czas. Dwa po10min,jeden 3s.

A wszystko po to aby moc wykonać połączenie telefoniczne na podany wcześniej numer kom. Oraz aby uruchomić syrene.

3.Wyłączenie wzbudzonego alarmu (wyjącego)odbywa się poprzez wciśnięcie guzika reset umieszczonego przy module wykonawczym.(Aby mieć pewność że się sprawdzi czy wszystko ok).

4.Wyłączenie nie wzbudzonego alarmu odbywa się normalnie poprzez podanie kodu dezaktywującego alarm.

Wszystko wydaje się być banalnie proste.

Teraz kilka zdjęć i opisy.

I. Czujnik ruchu wraz z zasilaczem impulsowym 5V ponieważ czujnik był zasilany 230V i taki też obwód zamykał więc potrzebowałem 5V zasilacz by móc wykonywać prace na niskich poziomach zasilania.

II. Czujnik

III. Klawiatura do aktywowania alarmu.(Klawiatura jest nie do zajechania,przyciski zostaly wyjęte z kalkulatora ukraińskiej produkcji lat 80 dziala na zasadzie magnesów i kontaktronów więc się nie eksploatuje.)

IV. Układ wykonawczy szyfrowego sterownika.

V. Timer(3`ci przekaźnik znajduje się na białym przewodzie).

VI. Całość.(Zmontowana oczywiście na fazę testów)

timer jest upakowany w centralce.

Kilka kwestii wyjaśnień. Cały układ działa poprawnie jednak nie jest zmontowany na ?sztywno? gdyż jest jeszcze w fazie testów.

Minusem mojej pracy jest to że wszystko działa na płytkach uniwersalnych ale zapewniam że był to ostatni projekt na uniwersalkach .Starałem się robić wszystko dokładnie i ładnie wyszło jak wyszło ale w końcu na wystawie nie będzie.

Wydaje mi się że nie ma potrzeby udostępniania schematów połączeń gdyż jako takiego nie ma. Program bascom timera na Attiny zamieszczam poniżej:

'************* Konfiguracja uC *****************
 
'***********************************************
 
$regfile = "attiny2313.dat"
 
$crystal = 8000000
 
 
 
Config Portb = &B11111111 : Portb = &B11111111
 
Config Portd = &B11111110 : Portd = &B11111111
 
 
 
 
 
Config Timer0 = Timer , Prescale = 256
 
Enable Timer0 : On Timer0 Prztimer0
 
 
 
Pinwe Alias Pind.0                                          'pin wejściowy
 
Port1 Alias Portb.0                                         'port zalaczany na x1 sek.
 
Port2 Alias Portb.1                                         'port zalaczany na x2 sek.
 
 
 
Enable Interrupts
 
'********** Konfiguracja uC Koniec  ************
 
 
 
'******************  Zmienne *******************
 
'***********************************************
 
Dim Dzielnik As Byte
 
Dim Licznik As Byte
 
Dim X1 As Word , X2 As Word
 
Dim Flaga_8ms As Bit , Flaga_praca As Bit
 
Dim Licz_sw As Word
 
'*************  Zmienne Koniec  ****************
 
 
 
'**************  Petla glowna ******************
 
'***********************************************
 
 
 
X1 = 600                                                    'czas w sekundach 1-65535 (max = 18 godzin)
 
X2 = 3                                                      'czas w sekundach 1-65535
 
Flaga_praca = 0
 
 
 
Do
 
  If Flaga_8ms = 1 Then
 
    Flaga_8ms = 0
 
 
 
    If Pinwe = 0 And Flaga_praca = 0 Then
 
      Incr Licz_sw
 
      If Licz_sw = 10 Then
 
        Set Flaga_praca                                     'ustaw flagę odliczania
 
        Reset Port1
 
        Waitms 2000                                         'wlacz oba wyjscia na stan niski
 
        Reset Port2
 
 
 
        Timer0 = 5                                          'zerowanie timera i dzielnikow itp.
 
        Dzielnik = 0
 
        Licznik = 0
 
 
 
      End If
 
    Else
 
      Licz_sw = 0
 
    End If
 
 
 
  End If
 
Loop
 
End
 
'************ Petla glowna Koniec **************
 
 
 
'************ Przerwanie timer 0 ***************
 
'***********************************************
 
Prztimer0:                                                  'co 8ms
 
  Timer0 = 5
 
  Incr Dzielnik
 
  Set Flaga_8ms
 
  If Dzielnik = 125 Then                                    'co 1s
 
    Dzielnik = 0
 
    '****************************************************************
 
    If Flaga_praca = 1 Then
 
      Incr Licznik
 
 
 
      If Licznik >= X1 Then
 
        Set Port1
 
      End If
 
 
 
      If Licznik >= X2 Then
 
        Set Port2
 
        Reset Flaga_praca
 
      End If
 
 
 
    Else
 
      Licznik = 0
 
    End If
 
 
 
    '****************************************************************
 
  End If
 
Return
 
 
 
'***********************************************

Macie pytania chcecie coś wiedzieć pytajcie.Zachęcam do komentowania i zgłaszania swoich uwag.

Dzięki.

Pozdrawiam.Marcin.P(White88)