تابلو روان با lcd

[parisa4]

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

می خواهم یک تابلو روان با lcd کارکتری بسازم-برای اینکه کلمه مرتبا در حال حرکت باشه نیاز به یک حلقه دارم
چه باید استفاده کنم؟

[afshinr]

پاسخ : تابلو روان با lcd

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

می خواهم یک تابلو روان با lcd کارکتری بسازم-برای اینکه کلمه مرتبا در حال حرکت باشه نیاز به یک حلقه دارم
چه باید استفاده کنم؟

سلام.

برای یک موضوع، ایجاد کردن یک تاپیک کافیه. لطفا تاپیک تکراری ایجاد نکنید. :angry:

اگه از کدویژن استفاده می کنید به این صورت کار کنید .

int x=0,y=0;
while(x<15)
{
lcd_clear();
lcd_putsf("salam"
delay_ms(100);
x++;
lcd_gotoxy(x,y);

} //end of while

[r.p]

پاسخ : تابلو روان با lcd

$regfile = "M16def.dat"
$crystal = 8000000
$baud = 9600 '$sim
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = _
Portc.4 , E = Portd.2 , Rs = Portd.3
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
Do
Cls
Home
Input "INPUT TEXT THEN PRESS ENTER:" , A
L = Len(a)
For W = 1 To L
Pice = Mid(a , W , 1)
Y = 16 - W
For I = 1 To Y
X = 16 - I
Locate 1 , X
Lcd Pice
Incr X
Locate 1 , X
Lcd " "
Waitms 100
Next
Next
Wait 10
Loop
End 'end program

نمونه برنامه که یکی از دوستان در انجمن گذاشتن
[move]موفق باشین[/move]

[vivaams]

پاسخ : تابلو روان با lcd

اینم کد تابلو روان با ال سی دی ولی یه اسب توش چهار نعل میره
میتونی عوضش کنی اسم خودت توش بره

$regfile = "m8535.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pb.0 , E = Pb.2 , Db4 = Pb.4 , Db5 = Pb.5 , Db6 = Pb.6 , Db7 = Pb.7
Dim I As Byte
Cursor Off
Cls
I = 1
'---------------------------
Do
Cls
Gosub Horse1
Gosub Lcd_picture
Cls
Gosub Horse2
Gosub Lcd_picture
Cls
Gosub Horse3
Gosub Lcd_picture
If I = 19 Then
I = 1
End If
Loop
End 'end program
'---------------------------
Lcd_picture:
Locate 1 , I
Lcd Chr(0) ; Chr(1) ; Chr(2) ; Chr(3)
Locate 2 , I
Lcd Chr(4) ; Chr(5) ; Chr(6) ; Chr(7)
Waitms 200
I = I + 1
Return
'---------------------------
Horse1:
Deflcdchar 0 , 32 , 32 , 32 , 32 , 3 , 7 , 14 , 14
Deflcdchar 1 , 32 , 32 , 32 , 32 , 15 , 31 , 31 , 31
Deflcdchar 2 , 32 , 32 , 32 , 32 , 3 , 31 , 31 , 31
Deflcdchar 3 , 32 , 1 , 31 , 31 , 31 , 27 , 19 , 16
Deflcdchar 4 , 12 , 24 , 16 , 1 , 1 , 1 , 32 , 32
Deflcdchar 5 , 31 , 31 , 30 , 23 , 32 , 32 , 16 , 32
Deflcdchar 6 , 31 , 31 , 3 , 2 , 18 , 2 , 1 , 32
Deflcdchar 7 , 28 , 28 , 4 , 4 , 8 , 32 , 32 , 32
Return
Horse2:
Deflcdchar 0 , 32 , 32 , 32 , 32 , 32 , 7 , 15 , 30
Deflcdchar 1 , 32 , 32 , 32 , 32 , 14 , 31 , 31 , 31
Deflcdchar 2 , 32 , 32 , 32 , 32 , 7 , 31 , 31 , 31
Deflcdchar 3 , 32 , 2 , 31 , 31 , 31 , 27 , 19 , 16
Deflcdchar 4 , 16 , 32 , 32 , 1 , 1 , 1 , 32 , 32
Deflcdchar 5 , 31 , 31 , 27 , 18 , 1 , 1 , 17 , 32
Deflcdchar 6 , 31 , 31 , 1 , 1 , 1 , 1 , 32 , 32
Deflcdchar 7 , 24 , 28 , 4 , 8 , 16 , 32 , 16 , 32
Return
Horse3:
Deflcdchar 0 , 32 , 32 , 32 , 7 , 15 , 14 , 28 , 24
Deflcdchar 1 , 32 , 32 , 32 , 15 , 31 , 31 , 31 , 31
Deflcdchar 2 , 32 , 32 , 32 , 3 , 31 , 31 , 31 , 31
Deflcdchar 3 , 1 , 31 , 31 , 31 , 27 , 27 , 16 , 16
Deflcdchar 4 , 19 , 19 , 2 , 2 , 4 , 32 , 32 , 32
Deflcdchar 5 , 31 , 7 , 14 , 6 , 1 , 32 , 32 , 32
Deflcdchar 6 , 15 , 7 , 19 , 15 , 32 , 16 , 32 , 32
Deflcdchar 7 , 16 , 24 , 12 , 4 , 2 , 1 , 32 , 32
Return