راه اندازی تام آژیر واسه دزدگیر

[meysamjet]

با سلام خدمت دوستان و اساتید محترم.
بنده اطلاعات کمی راجع به برنامه نویسی AVR دارم. از دوستان و اساتید محترم میخوام که یه برنامه ساده واسه تایم آژیر با بسکام بذارن تو انجمن.
البته تایم آژیری هم که میگم به این صورت باشه: دوشستی مثلا به Pb.0 و Pb.1 و یک LED یا رله به Pd.0 وصله. اگر Pb.0 یک شد LED یا رله رو به مدت 20 ثانیه فعال کنه. تا اینجاش مشکلی نیست. اما از اینجا به بعد گرفتارم!!!
حال اگر 10 یا 15 یا 8 ثانیه (منظورم قبل از زمان کلی که همون 20 ثانیه هست) از فعال شدن LED یا رله که گذشته بتونیم با Pb.1 آژیر یا LED رو غیر فعال کنیم. مثله آژیر خودرو و یا دزدگیر های امنیتی. :read:

از دوستان خواهش میکنم هرچی بلدن بذارن تو فروم
با تشکر

[meysamjet]

پاسخ : راه اندازی تام آژیر واسه دزدگیر

از دوستان محترم خواهش میکنم راهنماییم کنن! :cry2:

[saeedxs]

پاسخ : راه اندازی تام آژیر واسه دزدگیر

$regfile = "M8def.dat"
$crystal = 1000000

Ddrb.0 = 0
Ddrb.1 = 0
Ddrd.0 = 1
'b.0 va b.1 ro pull down kon
Key1 Alias Pinb.0
Key2 Alias Pinb.1
Relay Alias Portd.0

Config Timer0 = Timer , Prescale = 1024

Dim T1 As Integer

Dim T3 As Integer



Enable Interrupts
Enable Timer0
On Timer0 K
Start Timer0
Do

'kelidha bayad lahzeyi bashand yani pas az feshordan bayad raha shavand
'ba feshordane key1 rele vasl mishe va shomareshgar ham sefr mishe va amade baraye shemordan
If Key1 = 1 Then
Relay = 1
T1 = 0
End If


'bad az 20 sanie rele ghat mishe
If T1 > 19 Then Relay = 0


'ba feshordane lahzeyie key2 niz rele ghat mishe
If Key2 = 1 Then Relay = 0


Loop
End







K:
Incr T3


'bad az 3bar sar riz shodan T1 yek vahed yani yek sanie ziad mishe
If T3 > 3 Then
Incr T1

T3 = 0
End If



Return

[meysamjet]

پاسخ : راه اندازی تام آژیر واسه دزدگیر

$regfile = "M8def.dat"
$crystal = 1000000

Ddrb.0 = 0
Ddrb.1 = 0
Ddrd.0 = 1
'b.0 va b.1 ro pull down kon
Key1 Alias Pinb.0
Key2 Alias Pinb.1
Relay Alias Portd.0

Config Timer0 = Timer , Prescale = 1024

Dim T1 As Integer

Dim T3 As Integer



Enable Interrupts
Enable Timer0
On Timer0 K
Start Timer0
Do

'kelidha bayad lahzeyi bashand yani pas az feshordan bayad raha shavand
'ba feshordane key1 rele vasl mishe va shomareshgar ham sefr mishe va amade baraye shemordan
If Key1 = 1 Then
Relay = 1
T1 = 0
End If


'bad az 20 sanie rele ghat mishe
If T1 > 19 Then Relay = 0


'ba feshordane lahzeyie key2 niz rele ghat mishe
If Key2 = 1 Then Relay = 0


Loop
End







K:
Incr T3


'bad az 3bar sar riz shodan T1 yek vahed yani yek sanie ziad mishe
If T3 > 3 Then
Incr T1

T3 = 0
End If



Return

تشکر تشکر تشکر مرسی مرسی مرسی ^^