مشکل در اسکن صفحه کلید 4*4

[alirsdp2]

سلام دوستان من تازه دارم AVR یاد می گیرم می خام یک کیپد 4*4 را توی پروتئوس به میکروی atmega16 وصل کنم وهر عددی را که روی کیپد وارد کردم را روی LCD ببینم اما فقط اعداد 0 4 8 12 را روی LCD می بینم مشکل چیه ؟
برنامه:

Config Portc = Output
Config Pina.0 = Input
Config Kbd = Portb , Debounce = 100
Dim Key As Byte
Dim K As Byte
K = 0
Main:
Do
Key = Getkbd()
If Key < 16 Then Goto Ali
Loop
End
Ali:
Cls
Lcd Key
Do
Key = Getkbd()
Loop Until Key = 16
Goto Main

[amir2012new]

پاسخ : مشکل در اسکن صفحه کلید 4*4

1. برنامه رو اینطور اصلاح کن :

Config Portc = Output
Config Pina.0 = Input
Config Kbd = Portb , Debounce = 100 , delay = 100
Dim Key As Byte
declare sub ali
Dim K As Byte
K = 0
Main:
Do
Key = Getkbd()
If Key < 16 Then Gosub Ali
Loop
End
Ali:
Cls
Lcd Key
Do
Key = Getkbd()
Loop Until Key = 16
Goto Main
return


2. مدار رو بزار .

[blue_pulse]

پاسخ : مشکل در اسکن صفحه کلید 4*4

با تشکر از دوستمون اقای XBlueSky
برنامه اصلی هم درسته :agree:
اما!
در پروتئوس باید به هر پایه یک مقاومت 470 وصل شه طبق گفته help بسکام!

[amir2012new]

پاسخ : مشکل در اسکن صفحه کلید 4*4

بله برنامه اصلی کار می کند.
اما من برنامه کامل تر و روتین تر رو گذاشتم .
من فقط برچسب ali رو به ساب (sub) علی تبدیل کردم و یه تیکه جامونده تو کانفیگ کیپد رو نوشتم.

به هر حال انتخاب با پرسشگر است و من صرفا نظر شخصی خودم را گفتم.

[alirsdp2]

پاسخ : مشکل در اسکن صفحه کلید 4*4

خیلی ممنون از دوستانی که حوصله کردند به سوالم جواب دادند مشکل حل شد :nice: