مشکل در برنامه ی چاپ اعداد صفحه کلید روی lcd

[دانشجوی خسته]

سلام
تو این برنامه ی چاپ اعداد صفحه کلید روی lcd با زدن هر کلید فقط عدد اول اون سطر چاپ میشه؟؟مثلا 1 2 3 توی یه سطرند اما من چه 1 چه 2 چه 3 رو که میزنم فقط 1 رو چاپ میکنه همچنین در مورد سطرهای دیگر هم برای تمام اعداد اون سطر فقط عدد اول رو چاپ میکنه! مشکلش چیه؟؟؟؟؟؟ oo:
' keyboard


$regfile = "m16def.dat"
$crystal = 1000000
Config Lcdpin = Pin , E = Porta.0 , Rs = Porta.1 , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7
Config Kbd = Portc , Debounce = 30 , Delay = 100
Config Lcd = 16 * 2
Dim Row As Byte
Dim Column As Byte
Dim A As Byte
Column = 1
Row = 1
Cls
Lcd "push a botton"
Wait 2
Cls
Do
Main:
A = Getkbd()
If A > 15 Then Goto Main
A = Lookup(a , Number)
Locate Row , Column
If A = 12 Then
Lcd "*"
Elseif A = 14 Then
Lcd "#"
Else
Lcd A
End If
Waitms 500
Incr Column
If Column > 15 Then
Column = 1
Incr Row
End If
If Row > 2 Then
Row = 1
End If
Loop
End 'end program
Number:
Data 1 , 2 , 3 , 11 , 4 , 5 , 6 , 13 , 7 , 8 , 9 , 15 , 12 , 0 , 14 , 16

[nimooly]

پاسخ : مشکل در برنامه ی چاپ اعداد صفحه کلید روی lcd

سلام
برنامه مشکل ساختاری نداره . توی نرم افزار شبیهسازی میکنی یا عملی جواب نمیده !؟ من حدس میزنم اتصال پورت هات مشکل داشته باشه !