PWM برای سوسو کردن LED؟

[sina1359]

سلام دوستان من به یک برنامه با بیسکام نیاز دارم (در صورت امکان با تاینی 13) که با PWM ال ای دی را به صورت سوسو کردن روشن خاموش کند
( همانند کرم شبتاب که نورش سوسو میکند )
با تشکر

[sina1359]

پاسخ : PWM برای سوسو کردن LED؟

دوستانی که تجربه کار با نوکیا 5800 را دارند
وقتی این گوشی SMS در یافت میکرد
LED ایندیکیتور گوشی چشمکهای سوس مانند سفید میزد که خیلی آرامش بخش بود
من دنبال چنین چیزی هستم
دوستان میتوانند کمکم کنند ؟

[ab88]

پاسخ : PWM برای سوسو کردن LED؟

سلام
امیدوارم مطالب زیر مفید باشند.
http://www.instructables.com/id/Real...uino-and-LEDs/
http://www.instructables.com/id/Flickering-LED-Candle/

[AMIN GHAFFARI]

پاسخ : PWM برای سوسو کردن LED؟

کافیه مقدار PWM میکرو رو در فاصله زمانی معینی افزایش و کاهش بدیم

[sina1359]

پاسخ : PWM برای سوسو کردن LED؟

سلام دوستان
ممنون برای پاسخ ...

نمونه برنامه ای با بسکتم ندارید؟ قبلا شما چنین کاری نکردید؟
من خیلی وقت پیش (حدود 3 - 4 سال پیش) این کار را یک بار با PWM کرده بودم و بعد از مدتی میکرو قفل میکرد
نمیدونستم دلیلش چی بود , بعد از مدتی بی خیالش شدم

اگر اشتباه نکنم برنامه این بود (از آرشیوم پیداش کردم):

$regfile = "M8DEF.DAT"
$crystal = 8000000

Config Portb.3 = Output

'Config Timer2 = Pwm , Pwm = On|off , Compare Pwm = Clear Up|clear Down|disconnect , Prescale = 1|8|32|64|128|256|1024  
Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 8
Dim A As Byte

Main:
Waitms 200

Do
Ocr2 = A
Waitus 500
Incr A

If A = 255 Then
Waitms 1
Do
Ocr2 = A
Waitus 500
Decr A
If A = 5 Then Gosub Ss
Loop
End If

Loop

End

Ss:
Waitms 20
Do
Ocr2 = A
Waitus 500
Incr A
If A = 255 Then Gosub Aa
Loop
Return

Aa:
Waitms 1
Do
Ocr2 = A
Waitus 500
Decr A
If A = 1 Then Gosub Main
Loop
Return

[mahan.rafiee]

پاسخ : PWM برای سوسو کردن LED؟

برنامه رو اصلاح کردم :
به مدت یک ساعت تست کردم
برنامه اصلاح شده اصلا قفل نشد
ولی برنامه شما بعد یک دقیقه قفل میشد
کد اصلاح شده:

$regfile = "M8DEF.DAT"
$crystal = 8000000

Config Portb.3 = Output

'Config Timer2 = Pwm , Pwm = On|off , Compare Pwm = Clear Up|clear Down|disconnect , Prescale = 1|8|32|64|128|256|1024
Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 8
Dim A As Byte

Main:
Waitms 200

Do
Ocr2 = A
Waitus 500
Incr A

If A = 255 Then
Waitms 1
Do
Ocr2 = A
Waitus 500
Decr A
If A = 5 Then Goto Ss
Loop
End If

Loop

End

Ss:
Waitms 20
Do
Ocr2 = A
Waitus 500
Incr A
If A = 255 Then Goto Aa
Loop


Aa:
Waitms 1
Do
Ocr2 = A
Waitus 500
Decr A
If A = 1 Then Goto Main
Loop

برنامه شما به این دلایل قفل میکنه:
باید بجای دستورgosubازدستور gotoاستفاده میکردین
در ضمن دستور returnلازم نیست
خودتان هم تست کنین

[sina1359]

پاسخ : PWM برای سوسو کردن LED؟

بینهایت ممنون دوست عزیز
بله دقیقا حق با شماست
میرم تست میکنم

بازم ممنون

[sina1359]

پاسخ : PWM برای سوسو کردن LED؟

چیشد تست کردی؟؟؟؟

سلام دوست عزیز
بله حدود 3 ساعتی تست کردم و مشکلی نداشت (دستتون درد نکنه)
برنامه هم برای چند سال پیش هست و حالا که بهش نگاه میکنم میبینم خیلی بد نوشته شده :mrgreen: و میشه با یکی دو خط ساده به همین نتیجه رسید...