افزایش شماره با شستی

electronic_eng

عضو جدید
با سلام یک برنامه رو میخواهم بنویسم که با 2 تا شستی ( کلید فشاری ) کار میکنه و روی LCD کاراکتری اعداد رو نمایش میده. هنگامی که شستی اول رو میزنیم یه دونه به عدد اضافه میشه, به همین ترتیب با هر بار زدن شستی, یکی به شماره اضافه بشه که از دو شستی استفاده شده و یکی در بالا نمایش داده میشه و یکی در پایین ولی جدا از هم کار میکنند.

$regfile = "m32def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Portc = Output
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2_
, Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5

Dim A As Byte
Dim B As Byte
Dim C As Byte

A = 0
B = 0

Do
Debounce Pina.0 , 1 , Q , Sub
Debounce Pina.1 , 1 , W , Sub
Loop

Q:
Locate 1 , 1
Incr A
Lcd A
Waitms 100
Debounce Pina.1 , 1 , W
Return

W:
Locate 2 , 1
Incr B
Lcd B
Waitms 100
Debounce Pina.0 , 1 , Q
Return
من این برنامه رو نوشتم ولی مشکل اینجاست هر کدوم از شستی هارو میزنم روی LCD عدد رو نشون میده و بعدش دیگه هیچ عملکری نداره, در حالی که من میخوام هر بار شستی زده میشه یکی هم به اون عدد اضافه بشه. ممنون میشم راهنمایی کنید.
 

Similar threads

بالا