دوستان من میخوام با ولوم نور LEDرو دربسکام تنظیم کنم LEDها هم روی پورتDهستندبااین برنامه که نوشتم حالا
با چرخوندن ولوم زمان پیدا میکنه برای کم نور شدن وبعد خاموش میشه LED ها وسریع روشن میشن وهمین عمل تکرار میشه من اگه دوستان کمکم کنن ممنون میشم
لینک دانلود : http://yon.ir/vfkDl
برنامه :
$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
با چرخوندن ولوم زمان پیدا میکنه برای کم نور شدن وبعد خاموش میشه LED ها وسریع روشن میشن وهمین عمل تکرار میشه من اگه دوستان کمکم کنن ممنون میشم
لینک دانلود : http://yon.ir/vfkDl
برنامه :
$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
دیدگاه