کی پد و ال سی دی = کمک میخوام.

[farzadkhoshlahn]

با سلام خدمت تمامی دوستان عزیز. :cry:
من یک مشکل دارم که مطرح میکنم و امیدوارم جوابی از دوستان عزیزم بگیریم.
من روی یک کی پد4*4 2کار میخوام انجام دهم.در قسمت اول 8کلید را روشن کنم و در قسمت دوم کی پد 8چراغ را خاموش کنم.
برای مثال با زدن کلید بالا اول سمت چپ که کلید 7ماست چراغی روشن شود و با زدن کلید1 آن چراغ خاموش شود.البته تا اینجا رو نوشتم اما بقیه چراغها
رو نتونستم.
اگر کسی میتونه کمکم کنه لطف کنه زودتر برام پیام بده.

اما در قسمت بعد من میخوام بازدن کلیدهای روشن کننده ال ای دی ها یک اسم در ال سی دی کاراکتری نوشته شود.مثلا با زدن 7بنویسه فرزاد و با زدن 1اونو خاموش
کنم و الا آخر.
منتظر کمک همه شما دوستان عزیزم هستم. :roll: :roll:
اینم زیر برنامه ای که نوشتم:

$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Config Portd = Input
Config Kbd = Portd , Debounce = 50 , Delay = 1
Dim A As Byte
Do
A = Getkbd()
If A < 16 Then
Select Case A
Case 0 :
Set Portb.0
Case 1 :
Set Portb.1
Case 2 :
Set Portb.2
Case 3 :
Set Portb.3
Case 4 :
Set Portb.4
Case 5 :
Set Portb.5
Case 6 :
Set Portb.6
Case 7 :
Set Portb.7
Case 0 :
Reset Portb.0
End Select
End If
Loop
End

[khast khodaiebehnam]

پاسخ : کی پد و ال سی دی = کمک میخوام.

$regfile = "m8def.dat"
$crystal = 8000000
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------

Config Portb = Output
Config Portd = Input
Config Kbd = Portd , Debounce = 50 , Delay = 1
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------

'khorooji ha port b ast
'lcd portc
'keybord portd

Config Lcdpin = Pin , Db4 = Pinc.5 , Db5 = Pinc.6 , Db6 = Pinc.7_
            , Db7 = Pinc.0 , Rs = Pinc.0 , E = Pinc.1    'ko ;)

Config Lcd = 20 * 4

'-----------------------------------------------------------------------------

Dim A As Byte

'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
Main:
Do
A = Getkbd()
If A < 16 Then
Select Case A
Case 0 :

Cls
lcd"farzad  0"
toggle Portb.0



Case 1 :
Cls
Lcd "farzad  1"
Toggle Portb.1



Case 2 :
Cls
Lcd "farzad  2"
Toggle Portb.2



Case 3 :
Cls
Lcd "farzad  3"
Toggle Portb.3



Case 4 :
Cls
Lcd "farzad 4"
Toggle Portb.4



Case 5 :
Cls
Lcd "farzad  5"
Toggle Portb.5



Case 6 :
Cls
Lcd "farzad  6"
Toggle Portb.6


Case 7 :
Cls
Lcd "farzad  7"
Toggle Portb.7



End Select
End If
Loop
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
End

lcd پورت c
کیبورد پورت d
و پورت b برای خروجی

[farzadkhoshlahn]

پاسخ : کی پد و ال سی دی = کمک میخوام.

بابا ای ول چه سریع.فدات شم رفیق.بزار امتحانش بکنم ببینم جواب میده یا نه :applause: :applause: :wow: :wow: :wow: :nerd:

[hess]

پاسخ : کی پد و ال سی دی = کمک میخوام.

بابا ای ول چه سریع.فدات شم رفیق.بزار امتحانش بکنم ببینم جواب میده یا نه :applause: :applause: :wow: :wow: :wow: :nerd:

"یـــا نـــه؟" !!! :surprised: پست های ایشون حجته .. من که روی کدهایی که مینویسن قسم میخورم .. (He is one of the bests) ..

[farzadkhoshlahn]

پاسخ : کی پد و ال سی دی = کمک میخوام.

$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Config Portd = Input
Config Kbd = Portd , Debounce = 50 , Delay = 1


Config Lcdpin = Pin , Db4 = Pind.5 , Db5 = Pind.6 , Db6 = Pind.7_
           , Db7 = Pinb.0 , Rs = Pind.0 , E = Pind.1   'ko ;)

Config Lcd = 20 * 4



Dim A As Byte
Do
A = Getkbd()
If A < 16 Then
Select Case A
Case 0 :

Cls
lcd"farzad 0"
toggle Portb.0



Case 1 :
Cls
Lcd "farzad 1"
Toggle Portb.1



Case 2 :
Cls
Lcd "farzad 2"
Toggle Portb.2



Case 3 :
Cls
Lcd "farzad 3"
Toggle Portb.3



Case 4 :
Cls
Lcd "farzad 4"
Toggle Portb.4



Case 5 :
Cls
Lcd "farzad 5"
Toggle Portb.5



Case 6 :
Cls
Lcd "farzad 6"
Toggle Portb.6


Case 7 :
Cls
Lcd "farzad 7"
Toggle Portb.7



End Select
End If
Loop
End

بابا ای ول چه سریع.فدات شم رفیق.بزار امتحانش بکنم ببینم جواب میده یا نه :applause: :applause: :wow: :wow: :wow: :nerd:

$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Config Portd = Input
Config Kbd = Portd , Debounce = 50 , Delay = 1


Config Lcdpin = Pin , Db4 = Pind.5 , Db5 = Pind.6 , Db6 = Pind.7_
           , Db7 = Pinb.0 , Rs = Pind.0 , E = Pind.1    'ko ;)

Config Lcd = 20 * 4



Dim A As Byte
Do
A = Getkbd()
If A < 16 Then
Select Case A
Case 0 :

Cls
lcd"farzad  0"
toggle Portb.0



Case 1 :
Cls
Lcd "farzad  1"
Toggle Portb.1



Case 2 :
Cls
Lcd "farzad  2"
Toggle Portb.2



Case 3 :
Cls
Lcd "farzad  3"
Toggle Portb.3



Case 4 :
Cls
Lcd "farzad 4"
Toggle Portb.4



Case 5 :
Cls
Lcd "farzad  5"
Toggle Portb.5



Case 6 :
Cls
Lcd "farzad  6"
Toggle Portb.6


Case 7 :
Cls
Lcd "farzad  7"
Toggle Portb.7



End Select
End If
Loop
End

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

[farzadkhoshlahn]

پاسخ : کی پد و ال سی دی = کمک میخوام.

اینم مشکل من.اینم عکس از پروتیوسی که گرفتم.
http://www.ecapic.ir/image/ECA-090605132211.jpg
ببینید مهندس.منتظرما....فداتم به مولا

[hamid_adel]

پاسخ : کی پد و ال سی دی = کمک میخوام.

با سلام خدمت همه دوستان

من برای اتصال کی پد به میکرو از پورت A استفاده می کنم 4تا ی اولی را ورودی 4 تای بعدی را خروجی می زارم

این نحوه اتصال کی پد به میکرو ات مگ 16 یا 32 است

حمید :biggrin: :biggrin:

[mohamad07]

پاسخ : کی پد و ال سی دی = کمک میخوام.

سلام
الان مشکلتون چیه ؟
نمیتونید رو lcd چیزی ببینید یا اشتباه می بینید ؟مثلا 2 میزنید 5 میبینید ؟

[khast khodaiebehnam]

پاسخ : کی پد و ال سی دی = کمک میخوام.

"یـــا نـــه؟" !!! :surprised: پست های ایشون حجته .. من که روی کدهایی که مینویسن قسم میخورم .. (He is one of the bests) ..

شنا نسبت به من لطف داری رفیق تو رو خدا خجالتم نده

با سلام خدمت همه دوستان

من برای اتصال کی پد به میکرو از پورت A استفاده می کنم 4تا ی اولی را ورودی 4 تای بعدی را خروجی می زارم

این نحوه اتصال کی پد به میکرو ات مگ 16 یا 32 است

حمید :biggrin: :biggrin:

دوست عزیز پست رو ویریش کردم و یه توضیح دادم
دوباره برنامت رو کامپایل کن در ضمن به نظر من عملی ببند من به سیمولیت اعتقاد ندارم و با پرتیوس اصلا رابطه خوبی ندارم
برنامه برای مگا 8 نوشته شده دوست عزیز مگه شما برنامه نویسی کار نکردین؟خط اول نوع میکرو مشحص شده است

اینم مشکل من.اینم عکس از پروتیوسی که گرفتم.
http://www.ecapic.ir/image/ECA-090605132211.jpg
ببینید مهندس.منتظرما....فداتم به مولا

این شماتیک با چیزی که من گزاشتم تفاوت داره لطفا به برنامه دقت کن همه چیز واضح است ولی با این وجود
cd پورت c
کیبورد پورت d
و پورت b برای خروجی