پاسخ : مشکل چشمک زن شدن led rgb
LED از این معمولی ها گذاشتی ؟؟
مدارتون رو اینطوری ببند ...

نوشته اصلی توسط zoheyr79
مدارتون رو اینطوری ببند ...

$regfile = "M8DEF.DAT" $crystal = 8000000 '________________________________PWM Config____________________________________ Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1 '________________________________Variables______________________________________ Dim R As Word Dim G As Word Dim B As Word Pwm1a = R Pwm1b = G Ocr2 = B R = 0 G = 0 B = 0 '__________________________________-RGB-________________________________________ R: Do Pwm1a = R B = 0 Ocr2 = B Waitms 5 Incr R If R = 50 Then Goto G Loop G: Do Pwm1b = G Pwm1a = R R = 0 Waitms 5 Incr G If G = 50 Then Goto B Loop B: Do Ocr2 = B G = 0 Pwm1b = G Waitms 5 Incr B If B = 50 Then Goto R Loop
$regfile = "M8DEF.DAT" $crystal = 8000000 '________________________________PWM Config____________________________________ Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1 '________________________________Variables______________________________________ Dim R As Word Dim G As Word Dim B As Word Pwm1a = R Pwm1b = G Ocr2 = B R = 0 G = 0 B = 0 '__________________________________-RGB-________________________________________ R: Do Pwm1a = R B = 0 Ocr2 = B Waitms 5 Incr R If R = 50 Then Goto G Loop G: Do Pwm1b = G Pwm1a = R R = 0 Waitms 5 Incr G If G = 50 Then Goto B Loop B: Do Ocr2 = B G = 0 Pwm1b = G Waitms 5 Incr B If B = 50 Then Goto R Loop
$regfile = "M8DEF.DAT" $crystal = 8000000 '________________________________PWM Config____________________________________ Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1 '________________________________Variables______________________________________ Dim R As Word Dim G As Word Dim B As Word Pwm1a = R Pwm1b = G Ocr2 = B R = 0 G = 0 B = 0 '__________________________________-RGB-________________________________________ R: Do Pwm1a = R B = 0 Ocr2 = B Waitms 5 Incr R If R = 50 Then Goto G Loop G: Do Pwm1b = G Pwm1a = R R = 0 Waitms 5 Incr G If G = 50 Then Goto B Loop B: Do Ocr2 = B G = 0 Pwm1b = G Waitms 5 Incr B If B = 50 Then Goto R Loop
دیدگاه