سلام
خب حتما تا به حال این سنسور های راه پله رو دیدن پروژه ای که براتون گذاشتم عمللکرد مشابه این سنسور ها رو داره به اضافه این که امکان وصل کردن کلید برای تحریک خارجی هم براش هست
[glow=red,2,300]این یک پروژه کامل هست که فایل توضیحات و شماتیک و برنامش رو از آخر پست براتون قرار دادم[/glow]
در حال حاضر بیشترین زمان تایمر 99 ثانیه هست که بسته به نیازتون میتونین این زمان رو داخل برنامه تغییر بدین
خب بریم سراغ شماتیک
برای تشخیض حضور انسان هم از سنسور HC-SR501 استفاده شده
اینم از برنامه
[code=vb]$regfile = "m8def.dat"
$crystal = 8000000
Config Timer1 = Timer , Prescale = 256
Enable Interrupts
Enable Timer1
On Timer1 Secc
Config Portb = Output
Config Portd.7 = Output
Config Portd.6 = Output
Config Portc.2 = Output
Dahen Alias Portd.6
Yeken Alias Portd.7
Relay Alias Portc.2
Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Dahafza Alias Pind.0
Yakafza Alias Pind.1
Shooroo Alias Pind.2
Dim Yekan As Byte , Dahgan As Byte , Yekrom As Byte , Dahrom As Byte
Yekan = 9 : Dahgan = 9 : Yekrom = 9 : Dahrom = 9 : Reset Relay
Main:
Sound Portc.3 , 100 , 1500
Stop Timer1
Timer1 = 34285
Yekan = Yekrom : Dahgan = Dahrom : Reset Relay
Do
Set Dahen
Reset Yeken
Portb = Dahgan
Waitms 1
Set Yeken
Reset Dahen
Portb = Yekan
Waitms 1
If Shooroo = 0 Then
If Timer1 = 34285 Then
Yekrom = Yekan : Dahrom = Dahgan
End If
Set Relay
Start Timer1
End If
If Yakafza = 0 Then
Incr Yekan
Waitms 500
If Yekan = 10 Then Yekan = 0
End If
If Dahafza = 0 Then
Incr Dahgan
Waitms 500
If Dahgan = 10 Then Dahgan = 0
End If
If Yekan = 0 And Dahgan = 0 Then Goto Main
Loop
End
Secc:
Yekan = Yekan - 1
Sound Portc.3 , 20 , 1500
If Yekan = 255 Then
Yekan = 9 : Dahgan = Dahgan - 1
If Dahgan = 255 Then Dahgan = 0
End If
Timer1 = 34285
Start Timer1
Return[/code]
اینم از لینک دانلود کل فایل ها پروژه
توضیحات
http://cld.persiangig.com/dl/IGGCV/Ry1F23htvN/help.rar
شماتیک و برنامه
http://cld.persiangig.com/dl/JfBjJ/8pGbblMSC4/shematic&source.rar
خب حتما تا به حال این سنسور های راه پله رو دیدن پروژه ای که براتون گذاشتم عمللکرد مشابه این سنسور ها رو داره به اضافه این که امکان وصل کردن کلید برای تحریک خارجی هم براش هست
[glow=red,2,300]این یک پروژه کامل هست که فایل توضیحات و شماتیک و برنامش رو از آخر پست براتون قرار دادم[/glow]
در حال حاضر بیشترین زمان تایمر 99 ثانیه هست که بسته به نیازتون میتونین این زمان رو داخل برنامه تغییر بدین
خب بریم سراغ شماتیک
برای تشخیض حضور انسان هم از سنسور HC-SR501 استفاده شده
اینم از برنامه
[code=vb]$regfile = "m8def.dat"
$crystal = 8000000
Config Timer1 = Timer , Prescale = 256
Enable Interrupts
Enable Timer1
On Timer1 Secc
Config Portb = Output
Config Portd.7 = Output
Config Portd.6 = Output
Config Portc.2 = Output
Dahen Alias Portd.6
Yeken Alias Portd.7
Relay Alias Portc.2
Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Dahafza Alias Pind.0
Yakafza Alias Pind.1
Shooroo Alias Pind.2
Dim Yekan As Byte , Dahgan As Byte , Yekrom As Byte , Dahrom As Byte
Yekan = 9 : Dahgan = 9 : Yekrom = 9 : Dahrom = 9 : Reset Relay
Main:
Sound Portc.3 , 100 , 1500
Stop Timer1
Timer1 = 34285
Yekan = Yekrom : Dahgan = Dahrom : Reset Relay
Do
Set Dahen
Reset Yeken
Portb = Dahgan
Waitms 1
Set Yeken
Reset Dahen
Portb = Yekan
Waitms 1
If Shooroo = 0 Then
If Timer1 = 34285 Then
Yekrom = Yekan : Dahrom = Dahgan
End If
Set Relay
Start Timer1
End If
If Yakafza = 0 Then
Incr Yekan
Waitms 500
If Yekan = 10 Then Yekan = 0
End If
If Dahafza = 0 Then
Incr Dahgan
Waitms 500
If Dahgan = 10 Then Dahgan = 0
End If
If Yekan = 0 And Dahgan = 0 Then Goto Main
Loop
End
Secc:
Yekan = Yekan - 1
Sound Portc.3 , 20 , 1500
If Yekan = 255 Then
Yekan = 9 : Dahgan = Dahgan - 1
If Dahgan = 255 Then Dahgan = 0
End If
Timer1 = 34285
Start Timer1
Return[/code]
اینم از لینک دانلود کل فایل ها پروژه
توضیحات
http://cld.persiangig.com/dl/IGGCV/Ry1F23htvN/help.rar
شماتیک و برنامه
http://cld.persiangig.com/dl/JfBjJ/8pGbblMSC4/shematic&source.rar
eca در 
دیدگاه