راهنمایی در حلقه for در بسکام

[meysamjet]

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

ببینید من دو ورودی مثلا PB.0 و PB.1 دارم و یک خروجی PC.0 که میگم LED هست

حالا با استفاده از حلقه FOR میخوام با کلید PB.0 ال ای دی ده بار چشمک بزنه و با کلید PB.1 چشمک زدن رو متوقف کنه. مثلا اگر 6 بار چشمک زد با این کلید عملیات رو متوقف کنه.

ممنون میشم راهنماییم کنید.

[meysamjet]

پاسخ : راهنمایی در حلقه for در بسکام

مهندسین فقط یه راهنمایی...!

[silicon0]

پاسخ : راهنمایی در حلقه for در بسکام

باید از تایمر استفاده کنید (برنامه و فایل پروتئوس ضمیمه شده)

$regfile = "m32def.dat"
$crystal = 8000000
Config Debounce = 150
Dim I As Byte
Dim J As Byte
Config Pinc.0 = Output
Config Timer1 = Timer , Prescale = 256
Enable Timer1
Enable Interrupts
On Timer1 Timer1_isr
Timer1 = 49911
Stop Timer1
Do
Debounce Pinb.0 , 0 , Main
Loop

Main:
Start Timer1
For I = 1 To 10
Do
Debounce Pinb.1 , 0 , _stop
Loop Until J = 2
J = 0
Next



_stop:
Stop Timer1
Do : Loop

End

Timer1_isr:
Incr J
Timer1 = 49911
If J = 1 Then
Set Portc.0
End If
If J = 2 Then
Reset Portc.0
End If
Return

http://www.mediafire.com/download/c6l95rckk7zusjj/test3.zip

[meysamjet]

پاسخ : راهنمایی در حلقه for در بسکام

باید از تایمر استفاده کنید (برنامه و فایل پروتئوس ضمیمه شده)

$regfile = "m32def.dat"
$crystal = 8000000
Config Debounce = 150
Dim I As Byte
Dim J As Byte
Config Pinc.0 = Output
Config Timer1 = Timer , Prescale = 256
Enable Timer1
Enable Interrupts
On Timer1 Timer1_isr
Timer1 = 49911
Stop Timer1
Do
Debounce Pinb.0 , 0 , Main
Loop

Main:
Start Timer1
For I = 1 To 10
Do
Debounce Pinb.1 , 0 , _stop
Loop Until J = 2
J = 0
Next



_stop:
Stop Timer1
Do : Loop

End

Timer1_isr:
Incr J
Timer1 = 49911
If J = 1 Then
Set Portc.0
End If
If J = 2 Then
Reset Portc.0
End If
Return

http://www.mediafire.com/download/c6l95rckk7zusjj/test3.zip

مرسی از راهنماییتون