با سلام و عرض خسته نباشید خدمت دوستای گلم
من یه پروژه تابلو روان 8*16 درست کردم که یه مشکل کوچیک داره اونم اینه که وقتی راه اندازی میکنم led هایی که قراره روشن بشه خاموش میشه و led هایی که قراره خاموش باشه روشن میشه و به عبارت دیگه زمینه روشنه ونوشته بصورت led خاموش حرکت میکنه :angry:
اینم برنامشه
ممنون میشم اگه کمکم کنید
من پروتییوس شبیه سازی نکردم ولی اگه لازم بود بگید تا بذارم...
من یه پروژه تابلو روان 8*16 درست کردم که یه مشکل کوچیک داره اونم اینه که وقتی راه اندازی میکنم led هایی که قراره روشن بشه خاموش میشه و led هایی که قراره خاموش باشه روشن میشه و به عبارت دیگه زمینه روشنه ونوشته بصورت led خاموش حرکت میکنه :angry:
اینم برنامشه
کد:
$regfile = "m16def.dat" $crystal = 4000000 Config Portb = Output Config Portc = Output Config Portd = Output Config Timer1 = Timer , Prescale = 64 Start Timer1 Enable Interrupts Enable Ovf1 On Ovf1 Shift_1 Timer1 = 55535 Dim Index As Word Dim A As Byte , B As Word , I As Byte Declare Sub Show S1 Alias Portb.0 S2 Alias Portb.1 Portd = &H01 Do Reset S1 : Set S2 Call Show Set S1 : Reset S2 Call Show Index = B If B > 115 Then B = 0 : End If Loop End Show: For I = 0 To 7 A = Lookup(index , Dat) A = Not A Portc = A Waitms 1 Portc = &HFF Rotate Portd , Left Incr Index Next Return Shift_1: Incr B Timer1 = 55535 Return Dat:
من پروتییوس شبیه سازی نکردم ولی اگه لازم بود بگید تا بذارم...
دیدگاه