تابلو روان در lcd 2*16 با متن فارسي

[jansfred]

با سلام خدمت دوستان
ميخام يه متن فارسي مثل "استاد دشتبان" رو در lcd 2*16 به صورت روان (مانند تابلو روان) در بيارم
يه نمونه برنامه نوشتم اما درست جور در نمياد
لطفا برناممو نگاه كنيد و راهنماييم كنيد
با تشكر

[aKaReZa75]

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

[jansfred]

اونطوري هزينه زياد ميشه
اين هم يه پروژه اس ديگه
كاريش نميشه كرد
اصلا راهي هست كه اين كلمه "استاد دشتبان" رو به صورت روان روي lcd 2*16 نمايش داد؟
ميشه راهنماييم كنيد
با تشكر

[hadikh73]

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

[omid_phoenix]

به نظرم این دوستمون اگه کمی خلاقیت به خرج بدن میتونن باتعداد کاراکترهای پایینتر هم اینکار و بکنن
فرضا دوتا حرف یک کاراکتر بشه

[Ambassador]

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


  iranled#live_1389#shift lcd.rar (اندازه: 13.42 KB / تعداد دفعات دریافت: 155)

[jansfred]

دوستان عزيز ببينيد
الان من "استاد دشتبان " رو به اين صورت يا lcd diesigner طراحي كردم :
هر حرف رو در دو كاراكتر
حالا ميخام همين دو كاراكتر به سمت راست شيفت داده بشه به صورتي كه كاراكتر هاي بعدي درست نشون داده بشه
برناممو يه نگاه بندازيد متوجه ميشيد
خودم هر چي فك ميكنم كه با حلقه for يا همچين چيزي بنويسم چيزي به مخم خطور نميكنه
لطفا راهنماييم كنيد
با تشكر

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

دوسته عزيز برنامه شما كاملا درسته اما متن فارسي باشه ديگه

[behzady]

کلا LCD ها فقط می تونن 8 کارکتر دلخواه رو ذخیره کنن اگه شما بیشتر بخوای ذخیره بگنی هی باید حافظه رو پاک کنی جاش یه حرف دیگه بنویسی + اگه شیفت بدی تمامی حروف توی صفحه باید توی حافظه باشن
حالا چند راه داری 1- ال سی دی فارسی بخری
2-حروفت رو توی یک خونه بنویسی (اگه مشخص باشه!)
3-بیخیال بشی
اینجا گفته کارکتر های دلخواه چه جوری ذخیره میشن
البته توجه داشته باش که در این صورت خودت باید با ال سی دی ارتباط برقرار کنی و بیخیال کتابخونه های بسکام بشی
--
حالا دوستان نظر دیگه ای دارن رو نمی دونم!

[aKaReZa75]

سلام.
داداشی از خوشی این که عربی نمیوفتم تو پُست خودم نمی گنجم.
اینم شرینی من به شما

سورس:

کد:

$regfile = "M32def.dat"
$crystal = 8000000

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

Cls

Dim A As String * 10
Dim Pice As String * 1
Dim L As Byte
Dim W As Byte
Dim X As Byte
Dim Y As Byte
Dim I As Byte


Deflcdchar 0 , 32 , 1 , 1 , 1 , 1 , 1 , 1 , 32              ' replace [x] with number (0-7)
Deflcdchar 1 , 32 , 1 , 1 , 1 , 31 , 32 , 10 , 32           ' replace [x] with number (0-7)
Deflcdchar 2 , 32 , 32 , 32 , 1 , 1 , 2 , 12 , 32           ' replace [x] with number (0-7)
Deflcdchar 3 , 32 , 4 , 4 , 4 , 4 , 4 , 4 , 32              ' replace [x] with number (0-7)
Deflcdchar 4 , 32 , 32 , 17 , 21 , 17 , 17 , 31 , 32        ' replace [x] with number (0-7)
Deflcdchar 5 , 32 , 32 , 3 , 5 , 7 , 1 , 2 , 4              ' replace [x] with number (0-7)
Deflcdchar 6 , 32 , 1 , 1 , 1 , 31 , 32 , 10 , 32           ' replace [x] with number (0-7)
Deflcdchar 7 , 32 , 31 , 2 , 4 , 8 , 18 , 8 , 7             ' replace [x] with number (0-7)

Cursor Off

Locate 1 , 1 : Lcd "Www.IranLed.Com" : Locate 2 , 1 : Lcd "h.unique" : Wait 2 : Cls

Do

Y = 16
For I = 0 To 7 Step 1
Locate 1 , Y
Lcd Chr(i)
Decr Y
Waitms 500
Next I

Wait 2 : Cls : Wait 1

Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1

For Y = 9 To 16 Step 1
Locate 1 , Y
Lcd " "
Waitms 500
Next Y

Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1

Loop

End

نکته : شبیه ساز و سورس رو پیوست کردم.
برو زندگی کن