تنظیم نور led با ولوم روی portd در بسکام

[nh1936]

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


لینک دانلود : noname4


برنامه :

$regfile = "m8def.dat"
$crystal = 8000000
Config Timer0 = Timer , Prescale = 1
Enable Interrupts
Enable Ovf0
On Ovf0 Pwm_all
Config Pind.0 = Output
Config Pinc.0 = Input
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim Xtime As Word
Dim Pwm As Byte , C0 As Byte
Start Timer0


Do
Incr C0
Xtime = Getadc(0)
If C0 = Xtime Then
C0 = Xtime
End If
Waitms Xtime
Loop




Pwm_all:
If Pwm = 255 Then
Pwm = 0
End If
If Pwm = C0 Then Set PortD
If Pwm < C0 Then Reset PortD
Incr Pwm
Return