برنامه led چشمک زن با پروتوس

[feshwari]

سلام. کسی می تونه این برنامه رو با پروتوس اجرا کنه. یه led به پین portb.0 وصل است که با دو کلید که به INT0 و INT1 وصل شده. با زدن کلید ها باید سرعت چشمک زدن کم یا زیاد بشود.
لطفا کمکم کنید.

$regfile = "m32def.dat"
$crystal = 8000000
Enable Interrupts
Enable Int0
Enable Int1

On Int0 Up
On Int1 Down

Config Int0 = Rising
Config Int1 = Rising
Config portb.0 = output
Dim Delay_time As Word

Delay_time = 50

Do
Portb.0 = 1
Waitms Delay_time
Portb.0 = 0
Waitms Delay_time
Loop
End

Up:
Delay_time = Delay_time + 5
Return

Down:
Delay_time = Delay_time - 5
Return

[bambio]

پاسخ : برنامه led چشمک زن با پروتوس

من این برنامه رو نوشتم تو پروتئوس جواب گرفتم امیدوارم به دردت بخوره

$regfile = "m32def.dat"
$crystal = 8000000
'---------------------------------------------
Config Portd.0 = Output
Config Portc.0 = Input
Config Portc.1 = Input
Config Int0 = Rising
Config Int1 = Rising
Enable Interrupts
Enable Int0
Enable Int1
On Int0 Up
On Int1 Down
Dim Delay_time As Byte
Delay_time = 100
'-------------------------------------------------------------------------
Do
Toggle Portd.0
Waitms Delay_time
Loop
End 'end program



Up:
Delay_time = 100
Delay_time = Delay_time + 100
Return


Down:
Delay_time = 100
Delay_time = Delay_time - 50
Return

[hamed_online62]

پاسخ : برنامه led چشمک زن با پروتوس

این برنامه جواب میده؟ چطور؟
اینارو چرا نوشتی:
Config Portc.0 = Input
Config Portc.1 = Input

ضمنا فرض کن سه بار کلید Up رو میزنی چه اتفاقی می افته؟
باراول بعد از اجرای روتین وقفه مقدار Dely_time میشه 200
بار دوم که فشرده میشه باز هم میشه 200
و بار سوم هم

فکر می کنم همون برنامه اولی صحیح تر باشه

[bambio]

پاسخ : برنامه led چشمک زن با پروتوس

من برنامه رو طوری نوشتم که فقط دو مقدار خاص بگیره وگرنه میتونیم با هر بار فشردن کلید تاخیرو ز یاد کنیم در ضمن اون دوتا config اشتباه نوشتم

[M.M.-T]

پاسخ : برنامه led چشمک زن با پروتوس

سلام دوست من.
من برنامه شمارو تغییر خاصی ندادم فقط یه موارد کوچیک رو بهش اضافه کردم.خیلی خوب کار می کرد.
$regfile = "m32def.dat"
$crystal = 8000000

Config Portb.0 = Output

Config Int0 = Rising
Config Int1 = Rising

Enable Interrupts
Enable Int0
Enable Int1

On Int0 Up
On Int1 Down


Dim Delay_time As Word

Delay_time = 500

Do
Set Portb.0
Waitms Delay_time
Reset Portb.0
Waitms Delay_time
Loop

End

Up:

Delay_time = Delay_time + 100
If Delay_time > 65400 Then Delay_time = 65400

Return

Down:

Delay_time = Delay_time - 100
If Delay_time > 65400 Then Delay_time = 0

Return[/left][/right][/left][/pre][/center]