چطور میتونم کل صفحه ی کیبورد رو اسکن کنم

[shima_mohkami]

سلام
یه برنامه میخواستم که بتونه کل کلید های کیبورد کامپیوتر رو اسکن کنه و روی LCD نششون بده
لطفا یه برنامه بدید که عملی باشه. تا حالا هرچی دانلود کردم یه جای کار ERROR میداد
خیلی ضروریه
IC اونم فقط باید ATMEGA32 یا 16 یا 8535 باشه
مرسی

[milad_arm]

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

این برنامه را من 1 سال پیش نوشتمش دقیق یادم نمیاد ...ولی ساده است واسه بیسکام
خیلی ساده است می تونید پایه های lcd و نوع آی سی را هم توی خود بیسکام تنظیم کنید
با if هم کاری نداشته باش واسه پاک کردن ،شیفت، رفتن به سطر دوم و...

Config Keyboard = Pind.2 , Data = Pind.3 , Keydata = Keydata
Dim A As Byte , M As Byte , J As Byte
Star:
M = 1
J = 1
Do
A = Getatkbd()
If A > 0 Then

 Locate J , M : Lcd ; Chr(a)

 Incr M

 End If
 If M > 16 Then
 J = 2
 M = 1
 End If
 If A = 32 Then
 Incr M
 End If
 If A = 44 Then
 M = M - 2
 End If
 If A = 8 Then
Cls
Goto Star
 End If
 If A = 52 Then
 Shiftlcd Left
 End If
 If A = 54 Then
 Shiftlcd Right
 End If
Loop

Keydata:

'normal keys lower case

Data 0 , 0 , 0 , 0 , 0 , 200 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , &H5E , 0

Data 0 , 0 , 0 , 0 , 0 , 113 , 49 , 0 , 0 , 0 , 122 , 115 , 97 , 119 , 50 , 0

Data 0 , 99 , 120 , 100 , 101 , 52 , 51 , 0 , 0 , 32 , 118 , 102 , 116 , 114 , 53 , 0

Data 0 , 110 , 98 , 104 , 103 , 121 , 54 , 7 , 8 , 44 , 109 , 106 , 117 , 55 , 56 , 0

Data 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0 , 0 , 46 , 45 , 108 , 48 , 112 , 43 , 0

Data 0 , 0 , 0 , 0 , 0 , 92 , 0 , 0 , 0 , 0 , 13 , 0 , 0 , 92 , 0 , 0

Data 0 , 60 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0

Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0



'shifted keys UPPER case

Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

Data 0 , 0 , 0 , 0 , 0 , 81 , 33 , 0 , 0 , 0 , 90 , 83 , 65 , 87 , 34 , 0

Data 0 , 67 , 88 , 68 , 69 , 0 , 35 , 0 , 0 , 32 , 86 , 70 , 84 , 82 , 37 , 0

Data 0 , 78 , 66 , 72 , 71 , 89 , 38 , 0 , 0 , 76 , 77 , 74 , 85 , 47 , 40 , 0

Data 0 , 59 , 75 , 73 , 79 , 61 , 41 , 0 , 0 , 58 , 95 , 76 , 48 , 80 , 63 , 0

Data 0 , 0 , 0 , 0 , 0 , 96 , 0 , 0 , 0 , 0 , 13 , 94 , 0 , 42 , 0 , 0

Data 0 , 62 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 0

Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0

: :read::