با فشردن کلید inc و dec مقدار عرض پالس تغییر نماید و در نمایشگر نشان داده شود، در نمایش گر این ها نوشته شود.
Duty cycle=50%
Ocr=127
Last key pressed=inc
Duty cycle=50%
Ocr=127
Last key pressed=inc
$regfile = "M8def.dat" $crystal = 1000000 Config Pind.4 = Input Config Pind.5 = Input Dim A As Byte Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1 Do Pwm1a = A If Pind.4 = 1 Then Incr A If Pind.5 = 1 Then Decr A Waitms 20 Loop
دیدگاه