مشکل ساده با روشن نگه داشتن led

[i4man12]

[glow=red,2,300]سلام[/glow]
من یک برنامه نوشتم که بهش 3 تا شاسی وصله هرکدوم بزنیم روشن شه و بمونه بعد دفعه بعد بزنیم خاموش شود.
مشکل اینه که برنامه سریع خاموش میکنه.(منظورم اینه که دست کاربر رو دکمه بمونه led خاموش میشه)
اومدم waitms گذاشتم کند شد!
و برنامشم ابتدایی .
یک راهنمایی کوچیک

Do

     If P1 = 0 Then Toggle L1 : Le1 = 1 
     If P2 = 0 Then Toggle L2 : Le2 = 1
       If P3 = 0 Then Toggle L3 : Le3 = 1  

   
Loop

[ehsanbagheri]

پاسخ : مشکل ساده با روشن نگه داشتن led

سلام
من یک برنامه نوشتم که بهش 3 تا شاسی وصله هرکدوم بزنیم روشن شه و بمونه بعد دفعه بعد بزنیم خاموش شود.
مشکل اینه که برنامه کند شده.
و برنامشم ابتدایی .
یک راهنمایی کوچیک

Do

     If P1 = 0 Then Toggle L1 : Le1 = 1 
     If P2 = 0 Then Toggle L2 : Le2 = 1
       If P3 = 0 Then Toggle L3 : Le3 = 1  

     If Le1 = 1  Then
     If P1 = 0 Then Reset L1 : Le1 = 0
     End If
     If Le2 = 1  Then
     If P2 = 0 Then Reset L2 : Le2 = 0
     End If
     If Le3 = 1  Then
      If P3 = 0 Then Reset L3 : Le3 = 0
      End If
     
Loop

نیاز به کد اضافی نیست

     If P1 = 0 Then Toggle L1 
     If P2 = 0 Then Toggle L2 
     If P3 = 0 Then Toggle L3

همین سه خط کافیه دیگه
البته pull up داخلی رو فعال کنید و کلید رو به زمین وصل کنید

[i4man12]

پاسخ : مشکل ساده با روشن نگه داشتن led

اشتباهمو بعد زدن تاپیک فهمیدم . اومدم پستمو پاک کنم که دیدم نمیشه!

ولی دستون درد نکنه

ولی الان یه مشکل دیگه دارم.نمیدونم چرا اینجوری شد!

   If P1 = 0 Then Toggle L1 : Cls : Lcd " ON 1"

طبق بالا اومدم خروجی وقتی کلید زده میشه نمایش بدم .
ولی هنوز کلید نزدم رو lcd مینویسه ON 1 (البته تو پروتوس)

[i4man12]

پاسخ : مشکل ساده با روشن نگه داشتن led

گفتم شاید برنامه مشکل داره اومدم سیستم دوباره راه اندازی کردم ولی درست نشد :(

اخه این دستور If P1 = 0 Then Toggle L1 : Cls : Lcd " ON 1" چطور هنوز شرط برقرار نشده میره تو if و رو lcd مینویسه ON 1

[ehsanbagheri]

پاسخ : مشکل ساده با روشن نگه داشتن led

گفتم شاید برنامه مشکل داره اومدم سیستم دوباره راه اندازی کردم ولی درست نشد :(

اخه این دستور If P1 = 0 Then Toggle L1 : Cls : Lcd " ON 1" چطور هنوز شرط برقرار نشده میره تو if و رو lcd مینویسه ON 1

این رو تست کن چون کدت ایراد داره

if P1=0 then 
toggle L1
cls
lcs " on 1"
end if

[i4man12]

پاسخ : مشکل ساده با روشن نگه داشتن led

الان تو این برنامه هر بار که کلید بزنم مینویسه on ! چه led روشن باشه چه خاموش.

[r-el]

پاسخ : مشکل ساده با روشن نگه داشتن led

دوست من شما هیج تاخیری تو برنامت نداری? اخه حداقل 100میلی ثانیه بذار

[ehsanbagheri]

پاسخ : مشکل ساده با روشن نگه داشتن led

الان تو این برنامه هر بار که کلید بزنم مینویسه on ! چه led روشن باشه چه خاموش.

ببخشید حواسم نبود اصلاحش کردم

if P1=0 then 
toggle L1
end if
if L1=1 then
cls
lcs " on 1"
else
cls
lcd " OFF 1"
end if