اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

[rafiq]

وقتی کیبورد رو به میکرو وصل میکنم بعد از راه اندازی اعداد عجیب غریب نشون میده یعنی 1 رو که میزنم رو lcd مینویسه100=
و تا آخر :808 و202 و 909 و... کمکم کنید لطفا

[امیرعلی بلورچیان]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

از چه فرکانسی استفاده میکنید ؟ سعی کنید فرکانس در حد 2-4 مگ باشه بیشتر باشه بعضا پروتوس قاطی می کنه .
بهتر هم هست سورس کد و فایل شبیه سازی رو اینجا بزارین تا چک کنیم.

[rafiq]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

از فرکانس 8 مگ استفاده میکنم وقتی با سیمولاتور bascom امتحانش میکنم قشنگ جواب میده با این حساب فکر نکنم برنامه مشکلی داشته باشه ولی باز اگه میبینین لازمه سورس رو بزارم

[mypalex]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

اگه لطف کنید و سورس کد و فایل شبیه سازی رو بزارین که خیلی بهتره!

[rafiq]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

ببخشید من باید اینارو اپلود کنم؟برنامش همونی هست که تو قسمت 6 اموزش avr رو سایت گذاشتین
تو پروتئوس هم من پایه های کیبورد رو به ترتیب به یکی از پورتهای میکرو وصل کردم
از اونطرفم lcd رو وصل کردم
نمیدونم باید چیکار کنم
چند روزه دارم روش فکر میکنم به نتیجه نمیرسم
:sad:

[rafiq]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

با عرض سلام و تبریک سال نو خدمت تمامی دوستان بابت تاخیرم عذرخواهی میکنم مشکلی برام پیش اومده بود طبق دستور فایل hex و پروتئوس را
گذاشتم اینم سورس برنامه پیشاپیش از راهنماییتون ممنونم
http://www.4shared.com/file/43083627/6e42f9ae/ECA.html
http://www.4shared.com/file/43083612/35055ee2/eca.html
Config Kbd = Porta
Config Portb = Output
Dim A As Byte
Dim B As Byte
Do
A = Getkbd()
B = Lookup(a , Flash)
If B < 16 Then
Cls
Lcd B
End If
Loop
End
Flash:
Data 1 , 2 , 3 , 10 , 4 , 5 , 6 , 11 , 7 , 8 , 9 , 12 , 13 , 0 , 14 , 15

[mypalex]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

ببین من اومدم تو شبیه سازیت جای سطر و ستون هاتو عوض کردم.
و برنامتو اجرا کردم.
هیچ مشکلی نداشت.
دقیقا همون عددهایی که تو جدول نوشته بودی رو بر میگردوند.
خودت یه چک بکن.

[rafiq]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

امکان داره مشکل از نرم افزارم باشه؟ شما ورژنتون چنده؟من 6.2

[mypalex]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

چرا اینقدر ورژن پایین استفاده می کنید؟؟
من با ورژن 7.2 کار میکنم ولی با 7.1 و 6.9 هم جواب می ده.
احتمال داره عیب از نرم افزار باشه...

[rafiq]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

بالاخره ورژن 7.2 رو دانلود کردم و همونطور که گفته بودبد مشکلم حل شد از راهنماییتون ممنونم :wow:

[absa2004]

پاسخ : اشکال در اسکن کیبورد 4*4 ماتریسی در پروتئوس؟

تو شبیه سازی صفحه کلید با پروتوس
فقط سطر اول که اعداد 1 و 4 و 7 و 13 باشه رو میخونه
روی هر کلیدی هم که میزنی متناسب با اینکه کدوم عدد سطر باشه یکی از اعداد بالا رو نشون میده فقط

'--------------------------------TARIFE ERTEBAT BA COMPUTER
$regfile = "m32def.dat"

'---------------------------------TARIFE SAFE KELID VA LCD
Config Kbd = Portb
Config Porta.0 = Output
Config Porta.1 = Output
Reset Porta.0
Set Porta.1
Config Portb = Output

Config Lcdpin = Pin , Db4 = Portc.6 , Db5 = Portc.5 , Db6 = Portc.4 , Db7 = Portc.3 , E = Portc.1 , Rs = Portc.2
Config Lcd = 16 * 2


Dim A As Byte
Dim B As Byte
Do
A = Getkbd()
B = Lookup(a , Flash)
If B < 16 Then
Cls
Lcd B
End If
Loop
End
Flash:
Data 1 , 2 , 3 , 10 , 4 ,