شمارش با سگمنت بدون تایمر کانتر

[arashdj]

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

do

if pina.7 = 1 then incr d



Portb = Lookup(d , Ebi)
Set Porta.4 : Reset Porta.5
Waitms 10
Set Porta.5
loop

[mojtaba_led]

پاسخ : شمارش با سگمنت بدون تایمر کانتر

با سلام
کدتون رو به صورت زیر تغییر بدید ببینید درست میشه :

Dim I As Bit
Do

If Pina.7 = 1 Then
If I = 0 Then Incr D
I = 1
Else
I = 0
End If


Portb = Lookup(d , Ebi)
Set Porta.4 : Reset Porta.5
Set Porta.5
loop

[arashdj]

پاسخ : شمارش با سگمنت بدون تایمر کانتر

مرسی مشکلم حل شد اشکال از پول پ بود :redface:
کد شما هم مفید میباشد
با تشکر
یادت باشه شماره 100 تشکرت منم