if pwm_kanal4_ee >= 1 and pwm_kanal5_ee = 0 then 'PWM-Ausgänge aktivieren
select case pwm_prescale_ee '
case 10 'A
Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 1024 '1024 = 15Hz
case 11 'B
Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 256 '256 = 61Hz
case 12 'C
Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 64 '64 = 244Hz
case 13 'D
Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 8 '8 = 1953Hz
case 14 'E
Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 1 '1 = 15625Hz
end select
end if
if pwm_kanal4_ee = 0 and pwm_kanal5_ee >= 1 then 'PWM-Ausgänge aktivieren
select case pwm_prescale_ee '
case 10 'A
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1024 '1024 = 15Hz
case 11 'B
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 256 '256 = 61Hz
case 12 'C
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 64 '64 = 244Hz
case 13 'D
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 8 '8 = 1953Hz
case 14 'E
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1 '1 = 15625Hz
end select
end if
if pwm_kanal4_ee >= 1 and pwm_kanal5_ee >= 1 then 'PWM-Ausgänge aktivieren
select case pwm_prescale_ee '
case 10 'A
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1024 '1024 = 15Hz
case 11 'B
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 256 '256 = 61Hz
case 12 'C
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 64 '64 = 244Hz
case 13 'D
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8 '8 = 1953Hz
case 14 'E
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 '1 = 15625Hz
end select
end if
|