خوش آمديد!
21:27 جمعه 29 ارديبهشت ماه ، 1391
سايت مهندس لاچيني | پروژه ها و آموزش الكترونيك و تابلوروان: تالار گفتمان

HLachini.com :: نمايش موضوعات - کنترل LED RGB

کنترل LED RGB
رفتن به صفحه قبلي  1, 2
 

ارسال موضوع جديد  پاسخ به اين موضوع   ارسال تشکر 

   HLachini.com صفحه اول انجمن -> AVR
نمايش موضوع قبلي :: نمايش موضوع بعدي  
نويسنده پيغام

adelavr
کاربر فعال
کاربر فعال

وضعيت: آفلاين
2 شهريور ماه ، 1388
تعداد ارسالها: 269
امتياز: 531
تشکر کرده: 4
تشکر شده 45 بار در 44 پست

محل سكونت: تبریز
ارسالارسال شده در: چهارشنبه، 4 اسفند ماه ، 1389 13:03:57    موضوع مطلب: پاسخ همراه با اعلان
شرمنده که دیر شد تاحالا وقت اومدن به نت رو نداشتم
اینم برنامه
درضمن به پایه های OC1A , OC1B , OC2 ( پایه های 15و16و17 )هرکدوم یه LED با مقاومت 330 اهمی وصل کن (LED ها رو سبز و قرمز و آبی بذار)
سوالی داشتی بپرس
:كد

$regfile = "m8def.dat"
$crystal = 8000000

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 256
Config Timer2 = Pwm , Compare Pwm = Clear Up , Prescale = 256 , Pwm = On


Config Portb = Output


Dim W As Byte
Dim P As Byte
Dim I As Byte


Do


'State 1

For I = 1 To 255
 Incr Pwm1a
 Waitms 12
Next

For W = 1 To 5


For P = 1 To 6

For I = 1 To 255

 Select Case P
  Case 1
   Incr Pwm1b
  Case 2
   Decr Pwm1a
  Case 3
   Incr Ocr2
  Case 4
   Decr Pwm1b
  Case 5
   Incr Pwm1a
  Case 6
   Decr Ocr2
 End Select

 Waitms 12

Next
Next
Next


'State 2

For W = 1 To 5

For I = 1 To 13

 Select Case I
  Case 1
   Pwm1a = 255 : Pwm1b = 0 : Ocr2 = 0
  Case 2
  Pwm1a = 255 : Pwm1b = 255 : Ocr2 = 255
  Case 3
   Pwm1a = 0 : Pwm1b = 0 : Ocr2 = 255
  Case 4
   Pwm1a = 255 : Pwm1b = 255 : Ocr2 = 0
  Case 5
   Pwm1a = 0 : Pwm1b = 255 : Ocr2 = 255
  Case 6
   Pwm1a = 190 : Pwm1b = 255 : Ocr2 = 20
  Case 7
   Pwm1a = 255 : Pwm1b = 140 : Ocr2 = 200
  Case 8
   Pwm1a = 170 : Pwm1b = 210 : Ocr2 = 255
  Case 9
   Pwm1a = 255 : Pwm1b = 190 : Ocr2 = 0
  Case 10
   Pwm1a = 255 : Pwm1b = 180 : Ocr2 = 180
  Case 11
   Pwm1a = 0 : Pwm1b = 255 : Ocr2 = 0
  Case 12
   Pwm1a = 255 : Pwm1b = 0 : Ocr2 = 255
  Case 13
   Pwm1a = 150 : Pwm1b = 255 : Ocr2 = 210
 End Select

 Waitms 400

Next

Next

Pwm1a = 0 : Pwm1b = 0 : Ocr2 = 0


'State 3

 For P = 1 To 6

For I = 1 To 255

 Select Case P
 Case 1
  Incr Pwm1a
 Case 2
  Incr Pwm1a : Incr Pwm1b
 Case 3
  Incr Pwm1b
 Case 4
  Incr Pwm1b : Incr Ocr2
 Case 5
  Incr Ocr2
 Case 6
  Incr Pwm1a : Incr Ocr2
 End Select

 Waitms 8

Next
For I = 1 To 255

 Select Case P
 Case 1
  Incr Pwm1b : Incr Ocr2
 Case 2
  Incr Ocr2
 Case 3
  Incr Pwm1a : Incr Ocr2
 Case 4
  Incr Pwm1a
 Case 5
  Incr Pwm1a : Incr Pwm1b
 Case 6
  Incr Pwm1b
 End Select

 Waitms 8

Next





For I = 1 To 255

 Select Case P
 Case 1
  Decr Pwm1b : Decr Ocr2
 Case 2
  Decr Ocr2
 Case 3
  Decr Pwm1a : Decr Ocr2
 Case 4
  Decr Pwm1a
 Case 5
  Decr Pwm1a : Decr Pwm1b
 Case 6
  Decr Pwm1b
 End Select

 Waitms 8

Next
For I = 1 To 255

 Select Case P
 Case 1
  Decr Pwm1a
 Case 2
  Decr Pwm1a : Decr Pwm1b
 Case 3
  Decr Pwm1b
 Case 4
  Decr Pwm1b : Decr Ocr2
 Case 5
  Decr Ocr2
 Case 6
  Decr Pwm1a : Decr Ocr2
 End Select

 Waitms 8

Next

 Next P



Loop
End

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي ارسال ايميل بازديد از سايت ارسال كننده مطلب

sunboy
کاربر فعال
کاربر فعال

وضعيت: آفلاين
30 دي ماه ، 1389
تعداد ارسالها: 17
امتياز: 41
تشکر کرده: 0
تشکر شده 2 بار در 2 پست
ارسالارسال شده در: چهارشنبه، 4 اسفند ماه ، 1389 18:17:21    موضوع مطلب: پاسخ همراه با اعلان
سلام
میبخشید میشه راجب بر نامه یکم توضیح بدین من دوست دارم بدونم هر خط دقیقا چکار میکنه
راستی منظورتون از led ها اینه که سه تا led تک رنگ بگیرم اما با رنگ های قرمز وآبی وسبز؟

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي

adelavr
کاربر فعال
کاربر فعال

وضعيت: آفلاين
2 شهريور ماه ، 1388
تعداد ارسالها: 269
امتياز: 531
تشکر کرده: 4
تشکر شده 45 بار در 44 پست

محل سكونت: تبریز
ارسالارسال شده در: پنجشنبه، 5 اسفند ماه ، 1389 11:37:56    موضوع مطلب: پاسخ همراه با اعلان
led قرمز رو به پايه 15 و سبز رو به 16 و آبي رو به 17 وصل كن
اول از همه تايمر هاي 1 و 2 رو در مد PWM و به صورت 8 بيتي پيكره بندي ميكنيم بعد با دستورات زير ميتوني مقدار دلخواه رو در پايه هاي خروجي PWM قرار بدي
هر LED تك رنگ هست كه با تركيب نور اونها ميتوني با PWM هشت بيتي 16 ميليون و خورده اي رنگ توليد كني مثلا اگه تو برنامه رنگ قرمز يعني PWM1A رو مساوي 255 قرار بدي و PWM1B و Ocr2 رو صفر بذاري فقط led قرمز با حداكثر نور روشن ميشه
ويا مثلا pwm1a و pwm1b رو 255 بذار تا تركيب قرمز و سبز يعني رنگ زرد روشن بشه
توي نرم افزار paint طيف رنگها وجود داره از روي اونها رنگ دلخواه رو با تركيب رنگها نمايش بده
به همين راحتي

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي ارسال ايميل بازديد از سايت ارسال كننده مطلب

sajjad85
کاربر فعال
کاربر فعال

وضعيت: آفلاين
4 مرداد ماه ، 1389
تعداد ارسالها: 89
امتياز: 162
تشکر کرده: 0
تشکر شده 1 بار در 1 پست

محل سكونت: تبريز
ارسالارسال شده در: پنجشنبه، 5 اسفند ماه ، 1389 19:45:09    موضوع مطلب: پاسخ همراه با اعلان
با سلام
ميشه در مورد ال اي دي هاي چهار پايه rgb و طرز نوشتن برنامه اونها هم توضيح بديد

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي بازديد از سايت ارسال كننده مطلب

adelavr
کاربر فعال
کاربر فعال

وضعيت: آفلاين
2 شهريور ماه ، 1388
تعداد ارسالها: 269
امتياز: 531
تشکر کرده: 4
تشکر شده 45 بار در 44 پست

محل سكونت: تبریز
ارسالارسال شده در: شنبه، 14 اسفند ماه ، 1389 21:13:24    موضوع مطلب: پاسخ همراه با اعلان
خیلی راحته یه پایه مشترکه( آند مشترک یا کاتد مشترک) و سه تا هم همون رنگهای قرمز و سبز و آبی هستن

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي ارسال ايميل بازديد از سايت ارسال كننده مطلب

sajjad85
کاربر فعال
کاربر فعال

وضعيت: آفلاين
4 مرداد ماه ، 1389
تعداد ارسالها: 89
امتياز: 162
تشکر کرده: 0
تشکر شده 1 بار در 1 پست

محل سكونت: تبريز
ارسالارسال شده در: يكشنبه، 15 اسفند ماه ، 1389 09:27:32    موضوع مطلب: پاسخ همراه با اعلان
منظورم اينكه چطوري مي تونم يه نوشته ثابتي كه با ال اي دي هاي rgb ساخته شدهرو با رنگهاي مختلف نمايش بدم آيا براي برنامش از pwm استفاده كنم يا نه ؟

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي بازديد از سايت ارسال كننده مطلب

sunboy
کاربر فعال
کاربر فعال

وضعيت: آفلاين
30 دي ماه ، 1389
تعداد ارسالها: 17
امتياز: 41
تشکر کرده: 0
تشکر شده 2 بار در 2 پست
ارسالارسال شده در: سه شنبه، 17 اسفند ماه ، 1389 20:09:38    موضوع مطلب: پاسخ همراه با اعلان
سلام مهندس اگه میشه یه برنامه کوچولو بر تابلو 8*8 با ال ای دی rgb توی سایت بذار با تشکر
پروتیوس که led rgb ندار؟ درسته ؟
با تشکر

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي

adelavr
کاربر فعال
کاربر فعال

وضعيت: آفلاين
2 شهريور ماه ، 1388
تعداد ارسالها: 269
امتياز: 531
تشکر کرده: 4
تشکر شده 45 بار در 44 پست

محل سكونت: تبریز
ارسالارسال شده در: سه شنبه، 17 اسفند ماه ، 1389 21:08:55    موضوع مطلب: پاسخ همراه با اعلان
فعلا با LED RGB در تابلو روان کار نکردم ولی خب باشه سعی میکنم برنامه ساده ای بنویسم و بذارم اینجا ولی فعلا سرم خیلی شلوغه اگه منتظر من باشی بهتره یکم صبر کنی ویا خودت شروع کن

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي ارسال ايميل بازديد از سايت ارسال كننده مطلب

sajjad85
کاربر فعال
کاربر فعال

وضعيت: آفلاين
4 مرداد ماه ، 1389
تعداد ارسالها: 89
امتياز: 162
تشکر کرده: 0
تشکر شده 1 بار در 1 پست

محل سكونت: تبريز
ارسالارسال شده در: جمعه، 20 اسفند ماه ، 1389 09:54:28    موضوع مطلب: پاسخ همراه با اعلان
اگه بخواهيم مثلا ال اي دي ها رو به شكل حروف A بچينيم و به رنگهاي مختلف نمايش دهيم از چه روشي براي بستن ال اي دي ها و نوشتن برنامه استفاده كنيم

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي بازديد از سايت ارسال كننده مطلب

adelavr
کاربر فعال
کاربر فعال

وضعيت: آفلاين
2 شهريور ماه ، 1388
تعداد ارسالها: 269
امتياز: 531
تشکر کرده: 4
تشکر شده 45 بار در 44 پست

محل سكونت: تبریز
ارسالارسال شده در: دوشنبه، 23 اسفند ماه ، 1389 22:03:52    موضوع مطلب: پاسخ همراه با اعلان
اگه اون حرفی که میگی ثابته یعنی مثلا فقط A رو میخوای نشون بدی خوب کافیه همه LED ها رو با هم موازی کنی و با یه میکرو رنگ دلخواه رو تولید کنی البته یه درایور هم برای LED ها میخواد
اما اگه ثابت نیست باید توسط اسکن اون ماتریس LED رو کنترل کنی

بازگشت به بالا
رويت مشخصات كاربر ارسال پيغام شخصي ارسال ايميل بازديد از سايت ارسال كننده مطلب
تمامي مطالب ارسال شده:   
ارسال موضوع جديد   پاسخ به اين موضوع   ارسال تشکر

   HLachini.com صفحه اول انجمن -> AVR

 زمان پيشفرض سايت: ساعت گرينويچ + 3.5 ساعت
رفتن به صفحه قبلي  1, 2
صفحه 2 از 2
  
نام کاربري:      کلمه عبور:     

~ يا ~
عضويت در سايت

  


 

Powered by phpBB © 2001, 2008 phpBB Group
جهت درج تبلیغ خود در اینجا با ما تماس بگیرید 09123812060