اطلاعیه

Collapse
No announcement yet.

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

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    مشکل در برنامه ی چاپ اعداد صفحه کلید روی 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

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

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

    دیدگاه

    لطفا صبر کنید...
    X