سلام
اقایون لطفا یه کمکی کنین ببینین این برنامه که نوشتم درسته ؟
اخه فقط 4 تا از دکمه های keypad کار میکنه که دوتای اون عدد 15 و 2 تای دیگه عدد 11 رو نشون میده در حالتی که هیچ کلیدی فشرده نشده عدد 7 رو نشون میده
oo:
کیبورد رو تست کردم سالمه ( با اهم متر :mrgreen
اینم برنامه :
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config Kbd = Portc , Debounce = 50
Dim A As Byte
Main:
A = Getkbd()
If A > 15 Then Goto Main
Lcd A
Waitms 200
Cls
Goto Main
End
اقایون لطفا یه کمکی کنین ببینین این برنامه که نوشتم درسته ؟
اخه فقط 4 تا از دکمه های keypad کار میکنه که دوتای اون عدد 15 و 2 تای دیگه عدد 11 رو نشون میده در حالتی که هیچ کلیدی فشرده نشده عدد 7 رو نشون میده
oo:کیبورد رو تست کردم سالمه ( با اهم متر :mrgreen
اینم برنامه :
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config Kbd = Portc , Debounce = 50
Dim A As Byte
Main:
A = Getkbd()
If A > 15 Then Goto Main
Lcd A
Waitms 200
Cls
Goto Main
End
دیدگاه