اسکن صفحه کلید ماتریسی

[majidn92]

سلام دوستان
من میخوام یه صفحه کلید 4*4 رو به یه mega32 وصل کنم که یه پورت دیگه از میکرو هم به یه lcd 16*2 وصل باشه و هر عددی رو که تو صفحه کلید فشرده میشه تو lcd نشون بده.هر کاری میکنم نمیشه دوستان اگه کسی برنامش رو داره یا میتونه راهنمایی کنه ممنون میشم
با تشکر

[nimooly]

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

جناب از codevision استفاده می کنی یا از bascom ؟!
برنامه ی کیبورد تو کدویژن طولانی ولی تو بسکام دو خط بیشتر نیست ! ال سی دی هم همینطور .

[majidn92]

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

ممنون از شما
درسته من هم شنیدم تو بسکام خیلی راحته ولی من بنا به دلایلی باید از کدویژن استفاده کنم (اون دو خطی رو که تو بسکام نوشته میشه رو بزارید ممنون میشم برای اگاهی بیشتر) :applause:

[ali_rk]

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

سلام دوست من
اینم یه برنامه با سون سگمنت

http://www.4shared.com/file/162529529/884a3969/keypad.html

[majidn92]

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

سلام دوست من
اینم یه برنامه با سون سگمنت

http://www.4shared.com/file/162529529/884a3969/keypad.html

اقا ممنون از لطفت :applause:

[nimooly]

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

تو بسکام میشه

Config Kbd = Portx , Delay = 150
C = Getkbd

البته جلوی getkbd یک ( ) هم داره !
همین ...

[mojtababodo22222]

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

دوستان یه رانمایی فوری میخواستم ...من با بسکام کار میکنم.اتصالات صفحه کلید هم کاملا درسته و دستورات من به صورت زیره...مشکل من اینه که دو سطر از صفحه کلید کار نمیکنه کسی میدونه چرا...خستم کرده تا حالا اینجوریش رو ندیده بودم

هر هشت پایه هم ردیف به پورت d متصل کردم ...کمک کنید به خدا خسته شدم :angry: :angry: :angry:


Config Portd = Input


Config Kbd = Portd , Debounce = 100 , Delay = 200



Main2:

Do


A = Getkbd()
A = Lookup(a , Read_key)


If A < 15 Then








Select Case A
Case 0 To 9:
Lcd A

I = I * 10
I = I + A
Case 10 :
Cursor Off


Case 11:
Cursor Off

Case 12:
Cursor Off

Case 13:
Cursor Off

Case 14:
Cursor On

Case 15:
Goto Moji
End Select

End If

Loop
end
Read_key:
Data 1 , 4 , 7 , 10 , 2 , 5 , 8 , 0 , 3 , 6 , 9 , 11 , 12 , 13 , 14 , 15

[mojtababodo22222]

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

کسی اینجا نیست :cry2: :cry2: :cry2: :cry2: