باسلام خدمت دوستان عزیز
من یدونه برنامه نوشتم برا مگا هشت وpwmاونو راه اندازی کردم و led به طور منظم کم نور و پرنور میشه و لی نیاز دارم که وقتی مثلا pinc.0 که به عنوان ورودی در نظر گرفته شده وقتی یک شد led شروع به پر نور شدن بکنه و وقتی دیوتی سایکل به 100% رسید همینجوری ثابت بمونه تا وقتی که یکی دیگه از پین های ورودی(pinc.1) یک شد دیوتی سایکل شروع به کاهش کنه و وقتی به کمترین حد رسید ثابت بمونه تا وقتی که pinc.0 دوباره 1 بشه .حالا تو بسکام میتونم خروجی ها رو نسبت به ورودی ها کنترل کنم و با یک شدن ورودی دستور مورد نظر رو انجام بده ولی متاسفانه نتونستم pwm رو کنترل کنم لطفا دوستان راهنمایی کنن تا برنامه رو تکمیل کنم اینم برنامه ای که برا pwm نوشتم:
من یدونه برنامه نوشتم برا مگا هشت وpwmاونو راه اندازی کردم و led به طور منظم کم نور و پرنور میشه و لی نیاز دارم که وقتی مثلا pinc.0 که به عنوان ورودی در نظر گرفته شده وقتی یک شد led شروع به پر نور شدن بکنه و وقتی دیوتی سایکل به 100% رسید همینجوری ثابت بمونه تا وقتی که یکی دیگه از پین های ورودی(pinc.1) یک شد دیوتی سایکل شروع به کاهش کنه و وقتی به کمترین حد رسید ثابت بمونه تا وقتی که pinc.0 دوباره 1 بشه .حالا تو بسکام میتونم خروجی ها رو نسبت به ورودی ها کنترل کنم و با یک شدن ورودی دستور مورد نظر رو انجام بده ولی متاسفانه نتونستم pwm رو کنترل کنم لطفا دوستان راهنمایی کنن تا برنامه رو تکمیل کنم اینم برنامه ای که برا pwm نوشتم:
$regfile = "m8def.dat"
$crystal = 1200000
Config Timer1 = Pwm , Prescale = 8. , Pwm = 10 , Compare A Pwm = Clear Down , _
Compare B Pwm = Clear Up
Dim A As Integer , B As Integer
Reset Pwm1a
Do
For A = 0 To 1024 Step
Pwm1a = A
Waitms 100
Next A
For B = 1024 To 0 Step -1
Pwm1a = B
Waitms 100
Next B
Loop
End
$crystal = 1200000
Config Timer1 = Pwm , Prescale = 8. , Pwm = 10 , Compare A Pwm = Clear Down , _
Compare B Pwm = Clear Up
Dim A As Integer , B As Integer
Reset Pwm1a
Do
For A = 0 To 1024 Step
Pwm1a = A
Waitms 100
Next A
For B = 1024 To 0 Step -1
Pwm1a = B
Waitms 100
Next B
Loop
End
دیدگاه