ايران ويج

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

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

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

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

کد: 
$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

mehdisb

kimiafars

sadegh1rezaei

parsegade