سلام دوستای گلم من این برنامه رو از تاپیک های دیگه برداشتم ولی مشکلی که دارم اینه که نوشته روی تابلو بصورت ثابت میمونه و حرکت نمیکنه میخاستم ببینم اشکال از کجای برنامست یا اصلا با این برنامه باید نوشته حرکت کنه یا نه!؟
کد:
$regfile = "m16def.dat" $crystal = 4000000 Config Portb = Output Config Portc = Output Config Portd = Output Dim Index As Byte Dim A As Byte , I As Byte , B As Word Do If Index > 15 Then Index = 0 : End If Portb = &H00 Portc = &H01 For I = 0 To 7 A = Lookup(index , Dat) A = Not A Portd = A Waitus 250 Portd = &HFF Rotate Portc , Left Incr Index Next Portc = &H00 Portb = &H01 For I = 0 To 7 A = Lookup(index , Dat) A = Not A Portd = A Waitus 250 Portd = &HFF Rotate Portb , Left Rotate Portc , Left Incr Index Next Loop End Dat:
دیدگاه