کلید با دستور debounce

[arashdj]

با سلام
نمیدونم مشکل آسونه یا من بزرگش کردم
یه کلید با debounce داریم میخوام وقتی یک بار میزنم لامپ 1 روشن بشه وقتی 1 بار دیگه میزنم لامپ 2 روشن بشه یه بار دیگه لامپ 3
تر تیبش چه طوری باشه درسته
میشه بنویسید
یه چیزی تو این مایه ها

do

debounce button , 0 , 1
loop
1:
set led1
else
reset led1
debounce button , 0 , 2
return
2:
set led2
else
reset led2
debounce button , 0 , 3
return
3:
set led3
else
reset led3
debounce button , 0 , 1
return

[arashdj]

پاسخ : کلید با دستور debounce

نبود :redface:

[reza_agha]

پاسخ : کلید با دستور debounce

آقاجون!
اولا شما انتخاب های متعددی داری به ازای یک عمل واحد. پس بیا اول کار یک متغیر بگیر. در یک حلقه دایمی کلید رو چک کن و به ازای هر فشار کلید این متغیر رو اضافه کن. بعد بر اساس مقدار متغیر led ها رو روشن و خاموش کن. مثل این:

Dim State As Byte

Reset Led1
Reset Led2
Reset Led3
Do
Debounce Button, 0, Triggered
Loop
Triggered:
Incr State
Select Case State
Case 1:
Set Led1
Case 2:
Reset Led1
Set Led2
Case 3:
Reset Led2
Set Led3
Case 4:
State = 0
Goto Triggered
End Select
Loop

[newlag]

پاسخ : کلید با دستور debounce

باسلام
من مشکلی مشابه مشکل بالا دارم
من میخوام با ران شدن برنامه ، دو تا لامپ روشن شوند ، و با زدن کلید ، لامپ 1 روشن بمونه و لامپ 2 خاموش بشود و با زدن همان کلید لامپ 1 خاموش شود و لامپ 2 روش شود ، و با زدن مجدد همان کلید ، هر دو تا لامپ دوباره روشن شوند
و این عمل تکرار شود
مشه کمکم کنید
ممنونم

[jafar2000]

پاسخ : کلید با دستور debounce

میتونی یه متغیر تعریف کنی که با هر بار زدن کلید یک واحد مقدارش رو افزایش بده و با دستورات شرط بسته به مقدار متغییر چراغ ها رو خاموش و روشن کنی