تابلو روان با LCD 16*2

[elish]

سلام يه تابلو روان مي خوام كه مثلا happy birthday رو از سمت راست تابلو يك حرف يك حرف وارد كنه . زبانش بيسيك باشه و از دستوراتي مثل m = len (a و p = left(a,2 و ... هم داخل برنامه استفاده شه . lcd16*2 هستش . ممنونم . كمك كنيد .

[hadii]

سلام يه تابلو روان مي خوام كه مثلا happy birthday رو از سمت راست تابلو يك حرف يك حرف وارد كنه . زبانش بيسيك باشه و از دستوراتي مثل m = len (a و p = left(a,2 و ... هم داخل برنامه استفاده شه . lcd16*2 هستش . ممنونم . كمك كنيد .

اینی که میخوای تابلو روان نیست که!!!

[t3r!p3000]

مهندس اول خودت قدم اول رو بردار و شروع !

ما هم در ادامه همراهت هستیم !

البته بدون اون دستورات خیلی راحت تر می شه این کار رو انجام داد !



فقط کافیه بریزی تو یه رشته متنتو و هر بار یه کارکارتش رو جدا کنی و نشون بدی !

کد php:

For a = 1 To 16 
S = Mid(Ss , A , 1 ) : Locate 2 , A : Lcd S 
Next 


[elish]

به ما گفتن تابلو روانه . يه كم از تعريفا اوليه برنامرو نوشتم كه ميذارمش كمك كنيد مال آز ميكروه بايد فردا تحويل بدم . ممنون ميشما .

---

اينم برنامه كه تا اينجا نوشتم

[elish]

آخرين برنامه اي كه نوشتم اين بود كه الان ميفرستم . با اين برنامه از آخر lcd مكان نما مياد داخل lcd و تا اولش ادامه داره حركت مكان نما . اما فقط مكان نماست و حرفي رو نمي بينم . چه كنم؟

---

اينم برنامش

[t3r!p3000]

ببخشین !

من آفیس 2007 ندارم !

بهتره خود فایل بسکامش رو بذارین bas.*

یا اینکه اصل برنامه رو تو پستتون بذارین !

[ajlajlajl]

برنامه ای که جناب elish گذاشتن :

کد:

$regfile = "m16def.dat"
$crystal = 8000000
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Rs = Pinc.0 , Db4 = Pinc.4 , Db5 = Pinc.5 , Db6 = Pinc.6 , Db7 = Pinc.7 , E = Pinc.2
Dim S As Eram String * 1 , A As Byte , D As String * 1 , M As Byte , B As Byte
Cls
Home
S = "HAPPY BIRTHDAY TO YOU"
M = Len(s)
Locate 1 , 16
For A = 16 To 1 Step -1
D = Mid(s , A , 1 ) : Locate 1 , A : Lcd D
Waitms 100
Next
End

[t3r!p3000]

این که خیلی شبیه برنامه نمونه من هستش !

کد php:

For A = 16 To 1 Step -1
D = Mid(s , A , 1 ) : Locate 1 , A : Lcd D
Waitms 100
Next 


و اینم برنامه نمونه که تو چند پست قبل گذاشته بودم !

کد php:

For a = 1 To 16 
S = Mid(Ss , A , 1 ) : Locate 2 , A : Lcd S 
Next 


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

الان مشکل برنامه چیه ؟
من که مشکلی نمی بینم !

[elish]

آخه دقيقا ايده شما رو نوشتم . مشكلش اينه كه توي پروتيوس فقط مكان نما نشون داده مي شه و فقط مكان نماست كه از سمت راست lcd وارد ميشه و از سمت چپ lcd خارج ميشه و حرفي ديده نميشه . كمك كنيد فردا تحويله. مرسي .

[t3r!p3000]

مهندس این برنامه رو تست کن :

کد php:

$regfile = "m16def.dat" : $crystal = 1000000

Config Lcdpin = Pin , Rs = Pinc.0 , Db4 = Pinc.4 , Db5 = Pinc.5 , Db6 = Pinc.6 , Db7 = Pinc.7 , E = Pinc.2
Config Lcd = 16 * 2 : Cursor Off : Cls

Dim S As String * 16 , Ss As String * 16
Dim A As Byte , D As String * 1 , M As Byte , B As Byte


S = " HAPPY BIRTHDAY "
Ss = "WWW.IRANLED.COM"

For A = 16 To 1 Step -1
 D = Mid(s , A , 1 ) : Locate 1 , A : Lcd D
 Waitms 200
Next

For a = 1 To 16
 D = Mid(ss , A , 1 ) : Locate 2 , A : Lcd D
 Waitms 200
Next

Wait 3

For A = 1 To 16
 Locate 1 , A : Lcd " "
 Waitms 200
Next

For A = 16 To 1 Step -1
 Locate 2 , A : Lcd " "
 Waitms 200
Next

Wait 3

End 


فکر کنم مشخص بشه ایراد کارتون کجاست !

اینم تست برنامه در پروتئوس به همراه اصل برنامه !

  TEST LCD SHIFT FOR elish.rar (اندازه: 8.65 KB / تعداد دفعات دریافت: 258)

[elish]

ايشالا ارشد قبول بشي مهندس . يه سوال ديگه اگه عبارتم بزرگ تر بود مثلا happy birthday to you i wish you will be happy كه از حرف اول وارد lcd بشه و همين جور شيفت پيدا كنه تا كل جمله روي lcd نشون داده بشه بايد چه تغييري تو برنامه داد؟ خدا خيرت بده