سلام به همگی من می خوام برنامه ای بنویسم که بشه از کیبرد 4*4 مثل صفحه کلید موبایل استفاده کرد یعنی از یک کلید بصورت چند منظوره اما نمی دونم از چه دستوری باید استفاده کنم؟ :sad: اگه کسی میدونه plzکمک کنه 
-
-
پاسخ : برنامه صفحه کلید موبایل
باید برا این کار یک بایت تعیین کنید که سطح دسترسی و عملکرد این کلید رو نشون میده مثلا اگه 0 باشه عمکلرد کلید رو فلان زیر روال تعیین کنهو و اگه 1 باشه و.... به همین روال .
من با این روال خوب نتیجه گرفتممهم نیست که چه اندیشه ای در سر و چه ترسی در دل دارید؛ مهم آن است که بیکار ننشینید و دست به کاری بزنید و وارد میدان عمل بشوید.
نمی توانید به کودکی بیاموزید که از خود مواظبت کند، مگر آنکه او را آزاد بگذارید تا برای مواظبت از خود بکوشد؛ ممکن است اشتباه کند، ولی دانایی او از میان همین اشتباهات سرچشمه می گیرد. -
پاسخ : برنامه صفحه کلید موبایل
ممنون از راهنمایی تون .من برنامه رو نوشتم یه جای برنامه ایراد داره که وقتی مثلا کلید 2 رو می زنم کاراکترهای پشت سر هم خورش می یاد abc2 ::
برای این که با هر بار فشار دادن کلید یه کاراکترو ببینم باید چیکار کرد؟ : :eek:
میشه برنامه رو یه نگاه بندارین و اشکال شو بگین
$regfile = "m16def.dat"
$crystal = 4000000
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7_
= Portb.7 , E = Portb.3 , Rs = Portb.2
Config Kbd = Portd
Dim A As Byte
Dim B As Byte
Main:
S:
A = Getkbd()
If A = 16 Then Goto S
If A = 0 Then Lcd "1"
If A = 1 Then Goto D
If A = 2 Then Goto E
If A = 4 Then Goto F
If A = 5 Then Goto G
If A = 6 Then Goto H
If A = 8 Then Goto I
If A = 9 Then Goto J
If A = 10 Then Goto K
If A = 13 Then Lcd "0"
If A = 3 Then Goto L
If A = 7 Then Goto M
If A = 11 Then Goto N
If A = 12 Then Goto O
If A = 14 Then Goto P
If A = 15 Then Goto Q
Waitms 10
Goto Main
End 'end program
L:
Shiftcursor Left
Lcd " "
Shiftcursor Left
Waitms 10
Goto Main
M:
Shiftcursor Right
Waitms 10
Goto Main
N:
Home
Waitms 10
Goto Main
O:
Locate 1 , 16
Waitms 10
Goto Main
P:
Cls
Waitms 10
Goto Main
Q:
Home L
Waitms 10
Goto Main
D:
Lcd "a"
Waitms 3
Cls
Lcd "b"
Waitms 3
Cls
Lcd "c"
Waitms 3
Cls
Lcd "2"
Waitms 10
Goto Main
E:
Lcd "d"
Waitms 3
Cls
Lcd "e"
Waitms 3
cls
Lcd "f"
Waitms 3
cls
Lcd "3"
Waitms 10
Goto Main
F:
Lcd "g"
Waitms 3
cls
Lcd "h"
Waitms 3
cls
Lcd "i"
Waitms 3
cls
Lcd "4"
Waitms 10
Goto Main
G:
Lcd "j"
Waitms 3
cls
Lcd "k"
Waitms 3
Cls
Lcd "l"
Waitms 3
cls
Lcd "5"
Waitms 10
Goto Main
H:
Lcd "m"
Waitms 3
cls
Lcd "n"
Waitms 3
cls
Lcd "o"
Waitms 3
cls
Lcd "6"
Waitms 10
Goto Main
I:
Lcd "p"
Waitms 3
cls
Lcd "q"
Waitms 3
cls
Lcd "r"
Waitms 3
cls
Lcd "s"
Waitms 3
cls
Lcd "7"
Waitms 10
Goto Main
J:
Lcd "t"
Waitms 3
cls
Lcd "u"
Waitms 3
cls
Lcd "v"
Waitms 3
cls
Lcd "8"
Waitms 10
Goto Main
K:
Lcd "w"
Waitms 3
cls
Lcd "x"
Waitms 3
Cls
Lcd "y"
Waitms 3
cls
Lcd "z"
Waitms 3
Lcd "9"
Waitms 10
Goto Main
دیدگاه
-
پاسخ : برنامه صفحه کلید موبایل
سلام
دوست عزیز شما در برنامه باید debounce و delay هم تعریف می کردید به این صورت:
Config Kbd = Portd , Debounce = 350 , Delay = 200
اینو در برنامه تعریف کن مشکلت حل میشه.
موفق باشید
دیدگاه
دیدگاه