$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
:applause:
$regfile = "m8def.dat" $crystal = 8000000 $hwstack = 50 $swstack = 50 $framesize = 50 ' Timer/Counter 2 initialization ' Clock source: System Clock ' Clock value: 31.250 kHz ' Mode: Fast PWM top=0xFF ' OC2 output: Non-Inverted PWM Tccr2 = &H6E Ddrb = &B00001000 Do Do Incr Ocr2 Waitms 10 Loop Until Ocr2 = 255 Do Decr Ocr2 Waitms 10 Loop Until Ocr2 = 0 Loop End
@};- @};- @};- @};- @};-
دیدگاه