۲۷-آبان-۱۳۸۹, ۲۲:۳۸:۴۷
سلام
من یه تکه ای از یه برنامه که فکر کنم یکی از دوستان توی همین فروم گذاشته بودن رو جدا کردم ...
این تکه شکل اسبی هستش که از چپ به راست حرکت میکنه ... اما مشکلم اینه که تا آخر سطر حرکت نمیکنه
میخواستم که طوری باشه که تا آخر حرکت کنه و دوباره از اول برگرده و شروع کنه و ...
البته دوباره بر میگرده ... فقط تا آخر نمیره
اینم برنامش:
----------------------------------
بازیگران تنها ریاکاران صادقند
من یه تکه ای از یه برنامه که فکر کنم یکی از دوستان توی همین فروم گذاشته بودن رو جدا کردم ...
این تکه شکل اسبی هستش که از چپ به راست حرکت میکنه ... اما مشکلم اینه که تا آخر سطر حرکت نمیکنه
میخواستم که طوری باشه که تا آخر حرکت کنه و دوباره از اول برگرده و شروع کنه و ...
البته دوباره بر میگرده ... فقط تا آخر نمیره
اینم برنامش:
کد 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
----------------------------------
بازیگران تنها ریاکاران صادقند