کی پد با استفاده از وقفه

[tofan_2050]

پاسخ : کی پد با استفاده از وقفه

با سلام خدمت دوستان بلاخره برنامه اسکن کی پد 4*4 رو با استفاده از وقفه و با bascom درست کردم
فایل زیر شامل سورس فایل هگز و پروتوس هست
http://www.mediafire.com/?f5wch1cdf3tfjec

و یا

http://www.4shared.com/file/w_4AA4v7/Key_pad.html

[raoofsh]

پاسخ : کی پد با استفاده از وقفه

با سلام خدمت دوستان بلاخره برنامه اسکن کی پد 4*4 رو با استفاده از وقفه و با bascom درست کردم
فایل زیر شامل سورس فایل هگز و پروتوس هست
http://www.mediafire.com/?f5wch1cdf3tfjec

و یا

http://www.4shared.com/file/w_4AA4v7/Key_pad.html

سلام

مهندس پسورد فایلتو بزار بقیه هم استفاده کنن.
ممنون

[tofan_2050]

پاسخ : کی پد با استفاده از وقفه

سلام

مهندس پسورد فایلتو بزار بقیه هم استفاده کنن.
ممنون

شرمنده
پسوردش www.eca.ir

[shadi_computer]

پاسخ : کی پد با استفاده از وقفه

سلام من کامپیوتر می خونم و از الکترونیک زیاد سر در نمیارم.پایان نامه ام درمورد ساخت قفل رمز دیجیتاله .الان یک کد اسکن صفحه کلید دارم برا کیپد 4*4 اما نمی دونم جدول lookup رو چطوری بنویسم که اعداد درست نمایش داده بشه میشه کمکم کنید.اساس جدول lookup رو نمی دونم

7 8 9 ÷
4 5 6 *

1 2 3 -
ON/C 0 = +

کیپد به شکل بالاست اما با کد من به شکل زیر هست:
0 1 2 3
4 5 6 7
8 9 10 11
12 13 14 15

اینم کد :
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.2 , E = Pinb.3
Config Lcd = 16 * 2
Config Portc = Input
Config Portb = Output
Dim Asd As Byte
Dim A As Byte
Waitms 1

Enable Interrupts
Enable Int0
Config Int0 = Rising
On Int0 Int11
Do
Loop
End

Int11:
A = Pinc
A = A And &B00001111
Home
Lcd A
Return
حالا جدول lookup رو کجاش بذارم و چطوری ؟ مرسی

[shadi_computer]

پاسخ : کی پد با استفاده از وقفه

سلام من کامپیوتر می خونم و از الکترونیک زیاد سر در نمیارم.پایان نامه ام درمورد ساخت قفل رمز دیجیتاله .الان یک کد اسکن صفحه کلید دارم برا کیپد 4*4 اما نمی دونم جدول lookup رو چطوری بنویسم که اعداد درست نمایش داده بشه میشه کمکم کنید.اساس جدول lookup رو نمی دونم

7 8 9 ÷
4 5 6 *

1 2 3 -
ON/C 0 = +

کیپد به شکل بالاست اما با کد من به شکل زیر هست:
0 1 2 3
4 5 6 7
8 9 10 11
12 13 14 15

اینم کد :
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.2 , E = Pinb.3
Config Lcd = 16 * 2
Config Portc = Input
Config Portb = Output
Dim Asd As Byte
Dim A As Byte
Waitms 1

Enable Interrupts
Enable Int0
Config Int0 = Rising
On Int0 Int11
Do
Loop
End

Int11:
A = Pinc
A = A And &B00001111
Home
Lcd A
Return
حالا جدول lookup رو کجاش بذارم و چطوری ؟ مرسی
کمک فوری می خوام لطفا

[tofan_2050]

پاسخ : کی پد با استفاده از وقفه

اول اینکه اگه می خوای رشته نشون بدی اول یه متغیر رشته ای تعریف کن
بعد یا قبل از دستور Home این دستور رو بنویس
Keychar = Lookupstr(A , Keystrdata)

Keystrdata:
Data "/" , "9" , "8" , "7"
Data "*" , "6" , "5" , "4"
Data "-" , "3" , "2" , "1"
Data "+" , "=" , "ON/C" , "0"


تعریف متغیر ذشته ای
Dim Keychar As String * 5

homeاگر هم میخوای عدد برگردونه قبل و بعد از
این خط رو اضافه کنی
A = Lookup(A , Keydata)
Keydata:
Data 1 , 2 , 3 , 10
Data 4 , 5 , 6 , 11
Data 7 , 8 , 9 , 12
Data 13 , 0 , 14 , 15
اگه جابه جا بود کافی جای کارکترها رو عوض کنی