دوستان من میخوام با ولوم نور LED رو در بسکام تنظیم کنم LEDها هم روی پورت D هستند با این برنامه که نوشتم حالا با چرخوندن ولوم زمان پیدا میکنه برای کم نور شدن و بعد خاموش میشه LED ها وسریع روشن میشن و همین عمل تکرار میشه من اگه دوستان کمکم کنن ممنون میشم.
لینک دانلود : noname4

کد:
  	$regfile = "m۸def.dat"
	$crystal = ۸۰۰۰۰۰۰
	Config Timer۰ = Timer , Prescale = ۱
	Enable Interrupts
	Enable Ovf۰
	On Ovf۰ Pwm_all
	Config Pind.۰ = Output
	Config Pinc.۰ = Input
	Config Adc = Single , Prescaler = Auto , Reference = Internal
	Dim Xtime As Word
	Dim Pwm As Byte , C۰ As Byte
	Start Timer۰
	Do
	Incr C۰
	Xtime = Getadc(۰)
	If C۰ = Xtime Then
	C۰ = Xtime
	End If
	Waitms Xtime
	Loop
	Pwm_all:
	If Pwm = ۲۵۵ Then
	Pwm = ۰
	End If
	If Pwm = C۰ Then Set PortD
	If Pwm < C۰ Then Reset PortD
	Incr Pwm
	Return