مشکل شمارنده 0 تا 9

[ajamee]

سلام
من در بیسکم مبتعدی یک شمارند می سازم که با فشارد دادن کلید یک عدد به آن می افزاید لطفا یک نگاه به برنامه کنید و بفرماید مشکل کجاست



$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Config Portd = Input
Dim A As Byte
Dim B As Byte
Do

A = 5
Porta = Lookup(a , Data1)





If Portd.0 = 1 Then Incr A


A = A / 10






Loop


End

Data1:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6

[m.plusboy]

پاسخ : مشکل شمارنده 0 تا 9

a=5 رو از حلقه ببر بیرون و
pind.0=0 درسته

[Ahp_online]

پاسخ : مشکل شمارنده 0 تا 9

سلام
دوست عزیز شما debaunce کلید رو در نظر نگرفتید.اگر تو عمل تست کنید خواهید دید با هر بار زدن کلید چند بار میشماره.بعدم شما برای نمایش روی سون سگمنت یکان و دهگان رو جدا نکردید!! برای جدا کردن یکان دهگان باید به صورت زیر عمل کنید:
b=a/10
c=a mod 10
شما اومدی از خود A که شمارنده است برای تقسیم استفاده کردی که باید از دو متغیر جدا تعریف کنید مثلا b , c
موفق و پیروز باشید

[SAMAN.ASADI]

پاسخ : مشکل شمارنده 0 تا 9

سلام
از دستور

Bitwait Pinb.0 , Reset

هم استفاده کنی بهتره