کنترل 2پین از میکرو با کلید

[majidshahbazi68]

سلام
دوستان میخوام 2 پین میکرو رو با یه کلید کنترل کنم مثلا
کلید رو زدم pinb.0 . یک بشه و اگه دوباره کلید رو زدم اینبار pinb.1 یک بشه و pinb.0 صفر بشه
دوستان اگه کمک کنید با بیسیک بنویسم ممنون میشم

[ajapyy]

پاسخ : کنترل 2پین از میکرو با کلید

من بیسیک بلد نیستم اما راهنماییت می کنم.
ساده ست. اول کار دو تا پایه رو برعکس هم مقدار بده. یعنی یکی 1 باشه ، یکی هم صفر.
حالا تو برنامت هر بار که کلید زده شد، اون دو تا پایه رو تاگل کن.

[tofan_2050]

پاسخ : کنترل 2پین از میکرو با کلید

سلام
دوستان میخوام 2 پین میکرو رو با یه کلید کنترل کنم مثلا
کلید رو زدم pinb.0 . یک بشه و اگه دوباره کلید رو زدم اینبار pinb.1 یک بشه و pinb.0 صفر بشه
دوستان اگه کمک کنید با بیسیک بنویسم ممنون میشم

If Pinb.2 = 0 And Pinb.0 = 0 Then
Set Pinb.0
Reset Pinb.1
Else
Reset Pinb.0
Set Pinb.1
End If
با فرض اینکه کلید به pinb.2 نصب شده باشه و صفر شدن این پایه به منزله فشرده شدن کلید باشد

[mehrzad119]

پاسخ : کنترل 2پین از میکرو با کلید

سلام
$regfile = "m32def.dat"
$crystal = 8000000
Dim B As Byte
B = 0

Config Portc.0 = Output
Set Portc.0
Config PORTC.1 = Output
Reset Portc.1
Config Pinb.0 = Input
Config Portc.2 = Output
Portc.2 = 0
Do
Debounce Pinb.0 , 0 , Mm , Sub
Config Debounce = 100
Set Portc.2
Loop
End
Mm:
Incr B
If B > 1 Then
B = 0
End If
Reset Portc.2
If B = 0 Then
Set Portc.0
Reset Portc.1
Reset Portc.2
Waitms 100
End If
If B = 1 Then
Set Portc.1
Reset Portc.0
Reset Portc.2
Waitms 100
End If
Return

[md3848]

پاسخ : کنترل 2پین از میکرو با کلید

اگه تایمر بلدی....
اگه دکمه یه بار فشرده شد>>>>تایمر شروع به کار کنه (مثلا 5 ثانیه بشمره)>>اگه دکمه ای فشرده شد>>>یه کار کنه و اگه فشرده نشد یه کار دیگه....

[mehrzad119]

پاسخ : کنترل 2پین از میکرو با کلید

سلام دوست من لطفا روشنتر بیان بفرمایید (یکاری کنه ؟)