کمک در مورد برنامه RGB با PWM توسط میکرو

[feshwari]

سلام دوستان
کسی برنامه تولید رنگ RGB با استفاده از PWM رو داره؟ البته با Bascom avr......

اگر نه . برنامه ای باشد که با PWM نور یک LED معمولی رو کم و زیاد کنیم.
با تشکر
محمد شرفی

[hess]

پاسخ : کمک در مورد برنامه RGB با PWM توسط میکرو

سلام ..............

با C میتونم براتون بذارم .. اما بسکام نه .. ولی این لینک رو نگاه کنید شاید براتون مفید بود .

http://www.eca.ir/forum2/index.php?topic=5671.msg22639

موفق باشید .

[aliyaghoobi88]

پاسخ : کمک در مورد برنامه RGB با PWM توسط میکرو

سلام محمد جان

این برنامه من خیلی وقت پیش نوشتم ، البته اینی که گذاشتم قسمتی از برنامه است و به بد بختی تونستم پیداش کن مچون کل اطلاعات من از روی هاردم از بین رقته

فرکانس pwm چیزی نزدیک به 60 هرتزه و شما duty cycle رو بین 0 تا 255 تنظیم میکنی ( البته در قسمتی چون ولتاژ کم میشه led خاموش میشه ) و به راحتی با مقدار دهی به سه تا کانال میتونی رنگ های متفاوتی ایجاد کنی ، متاسفانه چیز دیگه ای یادم نیست که بنویسم ، فقط چند تا عکس و فیلم از عملکرد مدار داشتم که برای شما میزارم

این برنامه رو من کمپایل نکردم ( هیچی رو سیستمم نصب نیست ) و چون قسمتی از برنامه است میتونه ایراد داشته باشه ولی ظاهرا این جوری نیست با این حال اگه ایرادی داشت ....
[tt]

$regfile = "m8def.dat"
$crystal = 8000000
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output
Config Pind.5 = Input
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 256
Config Timer2 = Pwm , Prescale = 256 , Pwm = On , Compare Pwm = Clear Down

'******************* variable dimension ************************************
Dim A As Word : Dim Count As Byte : Dim I As Byte : Dim Fade As Byte
Dim I1 As Byte
Dim Rgbfade As Byte : Dim Delays As Word , State As Bit


Rb Alias Ocr2 'red brights
Bb Alias Pwm1a 'blue brights
Gb Alias Pwm1b 'green brights

loops:
For I = 0 To 255
Bb = 255 : Rb = 255
Gb = I
Waitms Rgbfade
Next I
'///////////////
For I = 0 To 255
Bb = 255 : Rb = 0
Gb = I
Waitms Rgbfade
Next I
'/////////////////
For I = 255 To 0
Bb = 0 : Rb = 255
Gb = I
Waitms Rgbfade
Next I
'///////////////
For I = 255 To 0
Bb = 0 : Rb = 0
Gb = I
Waitms Rgbfade
Next I
goto loops

end

[/tt]

[feshwari]

پاسخ : کمک در مورد برنامه RGB با PWM توسط میکرو

ممنون آقای یعقوبی
محمد شرفی

[FAM]

پاسخ : کمک در مورد برنامه RGB با PWM توسط میکرو

سلام
میشه کمی راجع به سخت افزارتون توضیح بدید و کارایی این مدار
مرسی

[aliyaghoobi88]

پاسخ : کمک در مورد برنامه RGB با PWM توسط میکرو

سلام
سخت افزار ساده ای داره که تشکیل شده از سه تا led که به میکرو متصل میشن ، فکر کنم واسه قرمز مجبور بودم مقاومت بذارم ولی بقیه ( سبز و آبی )احتیاجی به مقاومت نداشتند

کاربردش هم متنوعه ولی با الی ای دی کم وات بیشتر واسه نور پردازی داخلیه و شاید هم تابلو های رنگی استفاده بشه ( من کاربرد حرفه ای رو نمی دونم من واسه یه کاری میخواستم که چون هزینه رو نتونستم تامین کنم بی خیالش شدم )

خیلی از طیف نوری تولیدی این مدار خوشم میاد ، فقط مشکلم ترکیب رنگ بود که اون هم با یک قوطی پلاستیکی ( تو شکل مشخصه ) تونستنم رنگها رو خیلی خوب ترکیب کنم

[FAM]

پاسخ : کمک در مورد برنامه RGB با PWM توسط میکرو

سلام
میشه بگید LED ها چگونه به میکرو وصل میشن؟؟
مرسی :redface:

[feshwari]

پاسخ : کمک در مورد برنامه RGB با PWM توسط میکرو

سلام. می شود این مثال رو کامل کرد؟

[aliyaghoobi88]

پاسخ : کمک در مورد برنامه RGB با PWM توسط میکرو

سلام
میشه بگید LED ها چگونه به میکرو وصل میشن؟؟
مرسی :redface:

led ها ر, به پایه های زیر وصل کنید ( فقط قرمز مقاومت میخواست که مقدار مقاومتش یادم نیست ، واقها شرمندم )
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output

سلام. می شود این مثال رو کامل کرد؟

برنامه ساده است ، شما نگاه کن الان تو این مثال تغییرات روی ال ای دی سبز اعمال میشه (gb) و دو led دیگر هم خاموش و روشن میشوند که کل حالاتی که سبز، رنگ پایه است رو بسازند
تاخیر هم که با متغییر Rgbfade کنترل میشه ، حالا اگه شما میخواهی توسعه بدی بیا یک رنگ رو متغییر کن و دو رنگ دیگر رو خاموش یا روشن و این کار رو واسه تمام led ها انجام بده

ممنون ، خداحافظ