[سوال] طریقه وصل کردن کلید به میکرو

[mehdisb]

سلام دوستان عزیز
من میخوام یک کلید فشاری به میکرو وصل کنم و زمانی که کلید زده میشود در حد چند صدم ثانیه یک پایه از میکرو یک بدهد و بعدش دوباره صفرشود ولی کلید همچنان فشرده یاشد و برای چند دقیقه کلید فشرده است و دوباره وقتی کلید زده میشود یک پالس دیگه خارج کند و دوباره پایه خزوجی صفرشود وهمچنان دکمه فشرده می باشد با تشکر

[kimiafars]

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

[sadegh1rezaei]

ما که نفهمیدیم که شما چه فرمودید ولی این مدار شاید بکارت بیاد
http://www.iranled.com/forum/attachment.php?aid=12624
حالا هر جا که دوست داشتی یه پورت برای چند صدم ثانیه یک باشد زیر
If A > 10 And A < 100 Then
می تونی بنویسی
portx=1
waitms 10
portx=0
و ادامه برنامه ات

[parsegade]

این برنامه رو من واسه یه مداری نوشته بودم.اگه کلید رو لحظه ای میزدی یکی از پورتها یک میشد(به صورت لحظه ای)اگه کلید رو نگه میداشتی پایه دیگه میکرو به صورت لحظه ای روشن میشد

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.0 = Output
Config Pind.5 = Output
Config Pinc.4 = Input
Dim A As Long , B As Word
A = 0
B = 0


Do

If Pinc.4 = 1 Then
Waitms 100
Goto Q

End If
Goto Halghe

Q:

Do
A = A + 1
Waitms 20
Loop Until Pinc.4 = 0

If A <= 30 Then
Toggle Portd.0
Waitms 500
Reset Pind.5

Goto Halghe
End If

If A > 30 Then
Toggle Portd.5
Waitms 500
Reset Pind.0

Goto Halghe
End If

Halghe:

Waitms 500

Reset Portd.0
Reset Portd.5

A = 0
Loop