اتصال کیبرد به تابلو روان

[mehrdadgh]

[electera]

ممكن است كد هگز حروف فارسي 16 در 8 را بگذاريد.
متشكرم

[SoS]

electera برای دریافت فونت تابلو روان برای ابعاد 16 در 8 به لینک زیر مراجعه کنید :
http://www.hlachini.com/modules.php?name=Products&op=details&iid=1

mehrdadgh برنامه شما درست نوشته نشده، شما باید طبق الگوریتم زیر اقدام به برنامه نویسی کنید :
1- دریافت متن از کیبورد و ذخیره در یک متغییر رشته ای.
2- تفکیک حروف رشته (مثلا با دستور MID)
3- تبدیل هر کاراکتر به کد اسکی
4- بدست آوردن کدهای گلایف هر کاراکتر در جدول با استفاده از کد اسکی
5- نمایش اطلاعات.

[mehrdadgh]

جانم من هم تو این نمایش موندم دیگه

بقیش حله !
میتونی یه مثال بزاری که فرضا یه حرفی رو گرفته و فقط میخاد از جدول کدهارا بگیره و نمایش بده ( کد اسکی و ... نمی خاد)
یعنی برنامه ای که از جدول میخونه فقط با این نکته که کدها رو از بین فرضا صدتا کد حروف دیگه باید طوری بخونه که با حروف دیگه گاتی نشه .
نمی دونم منظورم رو تونستم برسونم یا نه
اگه متوجه نشدید بگید با مثال بگم

[SoS]

مراحل نوشتن برنامه به شرح زیر است :
1- یک جدول گلایف برای تمام حروف و علائم درست کنید. بهترین انتخاب این است که از علامت تعجب "!" شروع کنید و طبق جدول کدهای اسکی که نمونه آن در برنامه Character Map نیز هست حروف را بچینید و آخرین علامت را برای سازگاری بیشتر علامت "~" قرار دهید.
2- عرض هر کاراکتر را یک مقدار مشخص مثلا 5 در نظر بگیرید. مثلا برای علامت تعجب شما میتوانید با عرض یک هم آنرا بسازید ولی باید 2 ستون در سمت راست و 2 ستون در سمت چپ خالی قرار دهید تا عرض آن به 5 برسد.
3- دقت داشته باشید تمامی حروف در یک جدول تعریف میشوند و نیازی به ساخت جدولهای مختلف نیست من برای شما با استفاده از برنامه آنلاین تبدیل متن به کدهای هگز جدول فوق را درست کردم که در زیر موجود است :

[mohammadali]

ر مورد دستور lookup در بسکام بیشر توضیح دهید لطفا ، ضمنا" تو help بسکام هم گشتم نبود اصلا معنی این اعداد چیه چطوری باید استفاده بشه؟

[adelavr]

از این دستور برای دریافت کدهای کاراکتر ها استفاه شده

[ghosh]

سلام خدمت مهندس عزیز. من خیلی چیزها درباره تابلو روان از شما یاد گرفتم.
پروژه ای که دارم بدین صورته که حروف رو از صفحه کلید کامپیوتر بگیره و روی تابلو روان نشون بده(فارسی):
Main1:
Daryaft = Getatkbd()
main2:
Select Case Daryaft

Case 102 :
K = 0
For I = 0 To 7
Ki = 7 - I
Kol1(j) = Lookup(ki , Bv)
Incr J
If J > 1 Then

If Kol1(j -1) = 0 Then

Kol1(j -1) = Kol1(j)
P = P + 1
J = J - 1

End If
End If
Next I
K = 1
Goto Main1
Case 13:
If J < 8 Then
For I = J To 8
Kol1(i) = &HFF
Next I
End If
' For S = 0 To 7
For Refresh = 1 To 5
Scan = &HFE
For S1 = 1 To 8
D = S1 '+ S
Portb = Kol1(d)
Porta = Scan
Rotate Scan , Left , 1
Waitus 600
Portb = &H00

Next S1
Next Refresh
' Next S
Goto Main
Case Else :


End Select





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
این برنامه برای امتحان نوشتم.گرفتن کد اسکی حرفf از کیبورد.بعد از زدن کلید اینتر ارایه رو با کد هگز معادل شده bv پر میکنه. از متغییر هایی برای اینکه بین حروف زیاد فاصله نباشه کمک گرفتم.پروژه رو بستم .یه متن برای نمایش در ابتدا داره.که کار میکنه.ولی دیتایی از صفحه کلید نمیگره.پیکربندی موجود در کتاب کاهه رو نوشتم.لطفا رهنماییم کنید که بتونم سریع ارایه بدم. مهاتی ندارم.ممنون

[HAMID1110]

دوست عزیز شما باید یک جدول lookup هم داشته باشی که توش همه حروف و کد های هگز اون رو که مربوط به تابلو میشه رو قرار داده باشی
شما میخاین رو تابلو حروف روی کیپد رو نمایش بدین و به فارسی
اگر این حروف انگلیسی بودن خیلی سخت نبود
ولی چون داری فارسی مینویسی باید مشخص شه که حرف اول هست آخر هست یا وسط نوشته و یا تنها
میتونی کد هایی رو که میخوایی توسط نرم افزار mxcoder به دست بیاری
کتاب علی کاهه هم اینجا به کارت نمیاد
کمی ابتکار باید تو برنامه نویسیت به خرج بدی
در ضمن طول و مختصات تابلو هم باید در نظر بگیری
داخل سی دی کتاب علی کاهه نرم افزار KeyCode هم برای پیدا کردن کدهای اسکی میتونه کمکت کنه
موفق باشی

[ghosh]

سلام.ممنونکه پاسخ دادید.
جدول llookup روبا با استفاده fast lcd ساختم. دربرنامه داده شده فقط برای یک کلیدیعنی f گذاشتم که ب وسط رو طراحی کرده بودم.توی پر شدن ارایه kol1 مشکلی نیست؟
زمان اجرا مقداری از کیبورد کامپیوتر نمیگیره(در پروژه).یا نمایش نمیده!
لطفا راهنماییم کنید.دوتا کیبوردم دیروز سوخت.الآن با کیبورد مجازی نوشتم.ممنون
اینم جدول لوک اپ:
Bv:
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HEF , &HAF , &HE7

[HAMID1110]

دوست خوبم این دیتایی که نوشتی فقط یه ب وسط رو نمایش میده که نصف ماتریس رو هم نمیگیره
کمی باید سایز نوشته ها رو بزرگ کنی
معمولا تو اینجور کارها اول از راحت ترین مراحل شروع میکنن
شما اول امتحان کن ببین انگلیسی رو قبول میکنه
یعنی با انگلیسی درست کار میکنه
بعد کم کم کارت رو گسترش بده
در ضمن برنامه ایی رو که نوشتی خیلی غلط پولوط نوشتی
اگر تونستی برنامه کاملتو بزار من در خدمتم
بعدشم شما جدول رو دقیقا از کتاب کاهه کپی کردی
اگر دقت کرده باشی به کتاب میبینی که آخرش نوشته برای کامل تر کردن جدول باید به جای صفر ها عدد مناسب بزاری که شما این کارو نکردی
واسه همین کامل نمینویسه
به جای استفاده از این دیتا, از دیتای صفحه 215 کتاب استفاده کن که کامله نه دیتای صفحی214
در ضمن وقتی میخایی تو برنامه بیسیک یه for بنویسی که از بالا بیاد پایین معمولا مینویسن For i = x to 0 step -1
نه اینکه شولوغش کنی برنامتو
موفق باشی

[ghosh]

سلام.ممنون .چشم مطالب و رعایت میکنم .نتیجه رو اعلام میکنم. موفق باشی

[ghosh]

سلام
سورس برنامه میکرو وصفحه کلید وlcd مهندس لاچینی به صورت زیر هست که به طور عملی اجرا کردم و پاسخ گرفتم.
'*********************************************
$regfile = "m32def.dat"
$crystal = 4000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , Rs = Porta.0 , E = Porta.1
Config Keyboard = Pind.2 , Data = Pind.4 , Keydata = Keydata

Dim Text As String * 20
Dim I As Byte
Dim L As Byte

$serialinput = Kbdinput
$serialinput2lcd

Text = "This is a Test!"
L = Len(text)
Cursor Off
Cls
Print Text
Wait 1
For I = 1 To 16
Shiftlcd Right
Wait 1
Next I

For I = 1 To L
Shiftlcd Left
Wait 1
Next I

Do

Cls
Cursor Blink
Cursor On
Print "Enter Text :"
Locate 2 , 1
Input Text
L = Len(text)
Cursor Noblink
Cursor Off
Cls
Print Text
For I = 1 To 16
Shiftlcd Right
'Wait 1
Next I
Wait 1
L = L + 16
For I = 1 To L
Shiftlcd Left
Wait 1
Next I
Loop

End

Kbdinput:

$asm

push r16 ; save used register

push r25

push r26

push r27



Kbdinput1:

rCall _getatkbd ; call the function

tst r24 ; check for zero

breq Kbdinput1 ; yes so try again

pop r27 ; we got a valid key so restore registers

pop r26

pop r25

pop r16

$end Asm

Return

I = Getatkbd()

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

من کلیه دستورهای مربوط به lcd پاک کردم.حتی دستور:
$serialinput2lcd
که برنامه به شکل زیر می شود:
$regfile = "m32def.dat"
$crystal = 4000000
Config Keyboard = Pind.2 , Data = Pind.4 , Keydata = Keydata
$serialinput = Kbdinput
Input Text

Kbdinput:

$asm

push r16 ; save used register

push r25

push r26

push r27



Kbdinput1:

rCall _getatkbd ; call the function

tst r24 ; check for zero

breq Kbdinput1 ; yes so try again

pop r27 ; we got a valid key so restore registers

pop r26

pop r25

pop r16

$end Asm

Return
I1 = Getatkbd()
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
ایا در برنامه بدست امده بالا متغیر text با استفاده از صفحه کلید مقداردهی میشود؟
ممنون میشم کمکم کنید.