در بعضی اماکن از قبیل ادارات و یا منازل که ورود و خروج افراد زیاد انجام میشود و اطلاع از آن برای ما اهمیت دارد و نیز بازماندن درب آن مکان چه در فصل تابستان و چه در زمستان از نظر اتلاف انرژی و یا موارد دیگر برای ما حائز اهمیت است ، وجود چنین سیستمی ضروری به نظر می رسد.

در این ورژن ، دستگاه دارای یک دکمه FUNCTION میباشد که این اجازه را به ما میدهد تا بتوانیم به دلخواه عملکرد دستگاه را تنظیم کنیم.

با هر بار فشار این دکمه میتوانیم حالت "فقط 5 ثانیه" ، "فقط 1 دقیقه" ، "هر دو حالت" و یا "هیچ حالت" را انتخاب نماییم. یعنی به این صورت که اگر فقط تایم 5 ثانیه فعال باشد ، زمانی که سنسور عمل کند بدون در نظر گرفتن وضعیت سنسور (یعنی اگر بعنوان مثال از مگنت روی درب استفاده کرده باشیم چه باز بماند و چه بسته شود) ، آلارم فعال شده و بعد از این زمان قطع خواهد شد تا این که وضعیت سنسور به حالت عادی برگردد و سپس دوباره فعال شود . نوع سنسور میتواند PIR و یا مگنت و ... باشد.

اگر تایم فقط یک دقیقه فعال باشد (که این حالت عملکرد بیشتر جهت استفاده بامگنت مناسب میباشد) فقط زمانی آلارم عمل خواهد کرد که مگنت یا هر المان دیگری به مدت یک دقیقه باز بماند . آلارم قطع نخواهد شد تا زمانی که سنسور بسته شود. این حالت برای اطلاع از باز ماندن درب بخصوص در زمستان برای جلوگیری از اتلاف انرژی و نیز در تابستان جهت جلوگیری از ورود حشرات و ... مناسب میباشد.

اگر هر دو تایم فعال باشد با تحریک سنسور، رله فعال شده و بدون در نظر گرفتن وضعیت سنسور قطع خواهد شد ،حال چنانچه تا یک دقیقه باز بماند رله مجدد فعال شده و تا بسته شدن سنسور ادامه خواهد داشت. اگر هیچ حالت فعال نباشد چراغ Stand By روشن خواهد شد.

کلیه تنظیمات در حافظه EEPROM ذخیره خواهد شد.

شماتیک:

سورس برنامه :

NAME : Door Alarm
VER : 2.0
Designer : Esmaeil Mohammad Zadeh
Date : 1388/7/24
Mobile : 09139545140
Email : Esmaeil_AVR@yahoo.com

$regfile = "m8def.dat"
$crystal = 8000000

Config Portc.0 = Output : Config Portc.1 = Output : Config Portc.2 = Output
Config Portc.3 = Output : Config Portd.6 = Output : Config Portd.7 = Output
Config Portd.5 = Output
Config Pind.2 = Input : Config Pind.3 = Input

Config Clock = Soft : Enable Interrupts : Disable Timer2

Defbyte A : Dim Ea As Eram Byte

REN
_open Alias Portc.0 : 60sec Alias Portc.1 : 5sec Alias Portc.2
St_by Alias Portc.3 : Beep Alias Portd.5
Out5 Alias Portd.6 : Out60 Alias Portd.7
Sens Alias Pind.2 : Func Alias Pind.3
Waitms 10 : A = Ea

-------------------------------------------------------------------------------
S0:
Disable Timer2
Do
If Sens = 0 Then
If A = 1 Or A = 3 Then
JMP S1
Elseif A = 2 Then
JMP S2
End If
Else
Gosub Esmaeil : Disable Timer2 : Reset Out60 : Reset _open
End If
If Func = 1 Then
Do
Loop Until Func = 0
Incr A
If A > 3 Then A = 0
Waitms 10
Ea = A
End If
Select Case A
Case 0:
5sec = 0 : 60sec = 0 : St_by = 1 : Goto Standby
Case 1:
5sec = 1 : 60sec = 0 : St_by = 0
Case 2:
5sec = 0 : 60sec = 1 : St_by = 0
Case 3:
5sec = 1 : 60sec = 1 : St_by = 0
End Select
Loop
---------------------------- 5 SEC TIME --------------------------------------
S1:
Gosub Esmaeil : Enable Timer2
Do
Set Out5
If Sens = 0 Then
Set _open
Else
Reset _open
End If
Loop Until _sec = 5
Reset Out5
If A = 1 Then
Do
Loop Until Sens = 1
Goto S0
Elseif A = 3 Then
Goto S2
End If
---------------------------- 60 SEC TIME --------------------------------------
S2:
Gosub Esmaeil : Enable Timer2
Do
If Sens = 0 Then
Set _open
If _min = 1 Then
Set Out60
Do
Loop Until Sens = 1
Jmp S0
End If
Else
JMP S0
End If
Loop
--------------------------- STAND BY ------------------------------------------
Standby:
If Func = 1 Then
Do
Loop Until Func = 0
Incr A : Goto S0
End If
JMP Standby
--------------------------- RESET TIME ----------------------------------------
Esmaeil:
_hour = 0 : _min = 0 : _sec = 0
Return