حرکت شکلک اسب در lcd کاراکتری

[رسول]

سلام

من یه تکه ای از یه برنامه که فکر کنم یکی از دوستان توی همین فروم گذاشته بودن رو جدا کردم ...

این تکه شکل اسبی هستش که از چپ به راست حرکت میکنه ... اما مشکلم اینه که تا آخر سطر حرکت نمیکنه

میخواستم که طوری باشه که تا آخر حرکت کنه و دوباره از اول برگرده و شروع کنه و ...

البته دوباره بر میگرده ... فقط تا آخر نمیره

اینم برنامش:

کد php:

$regfile = "M8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , Rs = Portc.4 , E = Portc.5

Dim I As Byte , Mm1 As Byte , Mm2 As Byte

Tablig1:

Cls
Mm1 = 1
For I = 1 To 3

 Gosub Horse1
Gosub Lcd_picturm
Gosub Horse2
Gosub Lcd_picturm
Gosub Horse3
Gosub Lcd_picturm

Next
Return

Lcd_picturm:
Mm2 = Mm1 - 1
Locate 1 , Mm2 : Lcd " "
Locate 2 , Mm2 : Lcd " "
Locate 1 , Mm1
Lcd Chr(0) ; Chr(1) ; Chr(2) ; Chr(3)
Locate 2 , Mm1
Lcd Chr(4) ; Chr(5) ; Chr(6) ; Chr(7)
Waitms 30
Mm1 = Mm1 + 1
If Mm1 > 18 Then Mm1 = 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 


----------------------------------
بازیگران تنها ریاکاران صادقند

[t3r!p3000]

مهندس اون خطی که نوشته :

کد php:

For I = 1 To 3 


3 رو تغییر بده و نتیجه رو ببین !

پیشنهاد می کنم 6 بذاری :

کد php:

For I = 1 To 6