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

[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

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