[پروژه] دزدگیر اماکن !

[a.mehran]

سلام
من میخوام امکان کد لرنینگ (گیرنده لرن کد )رو به برنامه دزدگیر اضافه کنم کسی هست کمک کنه ؟

[a.mehran]

کد php:

'***********************---------------***************************************
'***********************-MEHRAN ABBASI-***************************************
'***********************---------------***************************************
'*********---------------***********-----------------*************************
'*********-WWW.AVRPRJ.IR-------------WWW.IRANLED.COM-*************************
'*********---------------***********-----------------*************************
'*****************************************************************************
'*******************(((((09366495878)))))*************************************
'*****************************************************************************
$regfile = "m8def.DAT"
$crystal = 8000000
Config Pinb.0 = Input

Config Pind.6 = Input
Config Portc.5 = Output
Config Portd.1 = Output
Config Portc.4 = Output
Config Portd.7 = Input
Config Portd.2 = Output
Config Portd.6 = Input
Config Pinb.1 = Input
Config Pinb.7 = Input

Dim Frq As Word
Dim D As Word
Reset Portc.5
Reset Portd.1
Reset Portc.4
Reset Portd.2
Set Portc.4
Wait 1
Reset Portc.4
M:
Spkr Alias Pind.1
Do

Debounce Pinb.0 , 0 , Dz4

Debounce Pind.7 , 0 , Dz5
Loop
End
Dz:
Set Portc.5
Set Portc.4
Waitms 500
Reset Portc.4
End



Dz4:
Set Portc.4
Set Portc.5
Waitms 100
Reset Portc.4
Waitms 44
Set Portc.4
Waitms 67
Reset Portc.4

Do
If Pinb.1 = 0 Then Gosub Dz1 , -
   Debounce Pinb.7 , 0 , Off
Loop


Dz5:
Set Portc.4
Waitms 150
Reset Portc.4
Do

If Pind.6 = 0 Then Gosub Dz1 , -
  Debounce Pinb.7 , 0 , Off
Loop

Dz1:
Do
Set Portc.4
Set Portd.2
For Frq = 50 To 30 Step -1                                  'Step -1 => Speed
      D = 51 - Frq
      Sound Spkr , D , Frq
   Next Frq
   For Frq = 30 To 50 Step 3                                'Step  1 => Speed
      D = 51 - Frq
      Sound Spkr , D , Frq
   Next Frq1 , -
  Debounce Pinb.7 , 0 , Off
 Loop
 End




Off:
Reset Portc.4
Reset Portd.2
Waitms 450
Set Portc.4
Waitms 300
Reset Portc.4
Gosub M
End                                                         'end program 


اینم کدش که قبلا نوشتم
هنوز قابلیت شماره گیری نداره
ولی دستورش سادست
DTMFOUT number, 70
اول برنامم این باید باشه : Enable Interrupts

[رضاعلی]

سلام..
ببین دوسته من
ساخت دزدگیر یه کم پیچیدگی خاصی داره..
1- باطری بک اپ..در صورت قطع برق عمل کنه..
2-سیستم ارسال الارم به گوشی همراه یا تلفن خونه..
3-کدینگ
4-اتصال سنسور بی سیم و با سیم..
5-پرسسوری که نویز پذیری کمی داشته باشه..(امید شما اول به خدا است بعد به سیستمی که طراحی میکنید)
و..........
اینی که شما ساختین ابتدایی ترین نمونه دزدگیره..
ولی برای شروع بد نیست..
موفق باشین

آره ابراهیم جان حرفاتون صحیح، برا من همین که یه چیزی صداش دربیاد برا دزده کافیه خیلی سریع جیم میشه،:) مثلاً بعد از اینکه دزد دید 10 دقیقه آژیر رو به صدا در بیاره و بعد خاموش بشه که بدون شک توهمون ثانیه اول فرار کرده :)

و اینکه میشه یک پروژه ای مثل همین رو کم کم ارتقا داد...

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

سلام اگر تمامی دزدگیرهای اماکن توی بازاررو نگاه کنید بعد از رگلاتور 12 داده شده به یک فیوز شیشه ای 4آمپر ووصل شده به باطری شارژر جداگونه اییا خاصی نداره ، من مدارکامل با آمپلی فایر وخروجی چشمها وشارژ و اسپیکروآژیر ساختم وخوب کار میکنه فقط عیبی که داره فقط نتونستم برنامه آژیر رو مثل بازاریها بنویسم وهمراه با نویز است اگر میشه برنامه آژیر با بیسیک رو راهنمایی کنید ممنون میشم متشکر

[a.mehran]

سلام دوست عزیز
من خودمم مدار اژیرو با ای سی ساختم چون با میکرو نویز میگرفت ولی زیاد ور نرفتم باهاش که حل بشه
احتمال داره با اضافه کردن خازن عدسی بعد خروجی صدا از میکرو وضعیت بهتر شه