:-(( :-(($regfile = "M8DEF.DAT" $crystal = 8000000 '______________________________Configuration____________________________________ Config Pind.2 = Input Config Pind.3 = Input Config Portd.7 = Output Config Portd.4 = Output Config Portd.5 = Output '________________________________ADC & PWM______________________________________ Config Adc = Single , Prescaler = Auto 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 Dim C As Byte '__________________________________-RGB-________________________________________ Do Start Adc R = Getadc(0) G = Getadc(1) B = Getadc(2) R = R / 3.99 G = G / 3.99 B = B / 3.99 Pwm1a = R Pwm1b = G Ocr2 = B Loop
دیدگاه