اشکال در خواندن عدد از صفحه کلیدو...

[fmohamadi]

سلام خسته نباشید ما یک lcdوkbd را به یک میکرو وصل کردیم و به آن برنامه دادیم ولی فقط یک سطر از lcdروشن می شود و هیچ کلمه ای را از صفحه کلید نمی خواند
باید چه کار کنیم همه اتصالات را چند بار چک کردیم چیکار کنیم؟؟؟
at m 8 میکرویمان است.
با تشکر
برنامه را هم پیوست کردم

[1nafar]

با سلام :
اینم برنامه:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = _
Pinb.5 , Rs = Pind.6 , E = Pind.7
Config Lcd = 16 * 2
Config Kbd = Portc
Dim Row As Byte , Column As Byte , A As Byte
Column = 1 : Row = 1
Locate 1 , 1
Lcd "1234"
Waitms 500
Cls
Main:

A = Getkbd()
If A > 11 Then
Goto Main
End If
Locate Row , Column
Lcd A
Waitms 500
Incr Column
If Column > 15 Then
Column = 1 : Incr Row
End If
If Row > 2 Then
Cls
Row = 1
Column = 1
End If
jmp main
End
$sim'baray sorat barname dar shbeh sazi ziad shavad
موفق باشی