۱۳-بهمن-۱۳۹۲, ۱۶:۴۴:۰۳
صفحه‌ها: 1 2
۲۷-مهر-۱۳۹۳, ۱۸:۲۷:۰۰
کد 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
۲۵-آبان-۱۳۹۳, ۱۴:۱۹:۴۱
(۲۲-آبان-۱۳۹۲, ۱۹:۰۳:۱۷)EBKA نوشته است: [ -> ]سلام اگر تمامی دزدگیرهای اماکن توی بازاررو نگاه کنید بعد از رگلاتور 12 داده شده به یک فیوز شیشه ای 4آمپر ووصل شده به باطری شارژر جداگونه اییا خاصی نداره ، من مدارکامل با آمپلی فایر وخروجی چشمها وشارژ و اسپیکروآژیر ساختم وخوب کار میکنه فقط عیبی که داره فقط نتونستم برنامه آژیر رو مثل بازاریها بنویسم وهمراه با نویز است اگر میشه برنامه آژیر با بیسیک رو راهنمایی کنید ممنون میشم متشکر(۲۲-آبان-۱۳۹۲, ۱۸:۲۴:۲۳)Ambassador نوشته است: [ -> ]سلام.(۲۲-آبان-۱۳۹۲, ۱۷:۳۵:۴۴)EBKA نوشته است: [ -> ]سلام..
ببین دوسته من
ساخت دزدگیر یه کم پیچیدگی خاصی داره..
1- باطری بک اپ..در صورت قطع برق عمل کنه..
2-سیستم ارسال الارم به گوشی همراه یا تلفن خونه..
3-کدینگ
4-اتصال سنسور بی سیم و با سیم..
5-پرسسوری که نویز پذیری کمی داشته باشه..(امید شما اول به خدا است بعد به سیستمی که طراحی میکنید)
و..........
اینی که شما ساختین ابتدایی ترین نمونه دزدگیره..
ولی برای شروع بد نیست..
موفق باشین
آره ابراهیم جان حرفاتون صحیح، برا من همین که یه چیزی صداش دربیاد برا دزده کافیه خیلی سریع جیم میشه،:) مثلاً بعد از اینکه دزد دید 10 دقیقه آژیر رو به صدا در بیاره و بعد خاموش بشه که بدون شک توهمون ثانیه اول فرار کرده :)
و اینکه میشه یک پروژه ای مثل همین رو کم کم ارتقا داد...
اینا برای قبل بود.. اول میان برق رو قطع میکنن بعد میان تو..
خیلی راحت این کار رو میکنن.. یه سیم کلفت میکنن تو پریز برق و بعد کنتور میپره.. و اونوقت ..........
این باطری مکافات داره وصل کردنش به مدار که شارزش کنه و از این داستانها..
اگر کسی مداری از شارژ اتوماتیک داره و مطمئنه که کار میکنه بزاره تا تستش کنم.
موفق باشین
۲۵-آبان-۱۳۹۳, ۱۵:۴۶:۰۹
سلام دوست عزیز
من خودمم مدار اژیرو با ای سی ساختم چون با میکرو نویز میگرفت ولی زیاد ور نرفتم باهاش که حل بشه
احتمال داره با اضافه کردن خازن عدسی بعد خروجی صدا از میکرو وضعیت بهتر شه
من خودمم مدار اژیرو با ای سی ساختم چون با میکرو نویز میگرفت ولی زیاد ور نرفتم باهاش که حل بشه
احتمال داره با اضافه کردن خازن عدسی بعد خروجی صدا از میکرو وضعیت بهتر شه
صفحه‌ها: 1 2