مشکل چشمک زن شدن {حل شد}led rgb

[zoheyr79]

پاسخ : مشکل چشمک زن شدن led rgb

اون دستورات input و output رو کامل پاک کنین و تست بگیرین و نتیجه رو بگین...
نکته اینجاس که من قبلا همچین پروژه ای رو دقیقا با همین فرم برنامه تحویل صاحابش دادم

بازم نشد :-((
راستی اینم بگم که فقط زمانی چشمک میزنه که تو کمترین نور باشه یعنی پتانسیومتر نزدیک 0 باشه :NO:

[zoheyr79]

پاسخ : مشکل چشمک زن شدن led rgb

اوکی هست .....
اینم لینک دانلود سورس + پروتیوسش:
http://up.persianscript.ir/uploads/5da3-pwm.zip

این که برنامه خودمه :eek:

[sinaitg]

پاسخ : مشکل چشمک زن شدن led rgb

خب اینو از اول بگو
اینو نمیتونی کاریش کنی ..
چون تمام PWM هات 8 بیتی کار شدن ...
(میخوای منظورمو بهتر متوجه شی ، تایمر 1 رو بصورت :
[code=qbasic]Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1 [/code]
پیکره بندی کن تا تفاوت را احساس کنی ....

---

اضافه شده در تاریخ :
خواهشا دقت کن.......
بله برنامه خودته ..
منتها اصلاح شده ش!!!!!!!!
خط مربوط به پیکره بندی ADC رونگاه کن!!!!!!
تازه AVCC رو هم باید بزنی به 5V+ ...

[zoheyr79]

پاسخ : مشکل چشمک زن شدن led rgb

خواهشا دقت کن.......
بله برنامه خودته ..
منتها اصلاح شده ش!!!!!!!!
خط مربوط به پیکره بندی ADC رونگاه کن!!!!!!
تازه AVCC رو هم باید بزنی به 5V+ ...

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

[SAMAN.ASADI]

پاسخ : مشکل چشمک زن شدن led rgb

چرا از برنامه هایی که نوشتم استفاده نمی کنید؟؟؟
تازه میتوانید هر پایه ای که خواستید استفاده کنید ...
به عنوان مثال می خواهیم از پایه D0,D1,D2 به صورت PWM استفاده کنیم ...
دو جور برنامه می توانید بنویسید
برنامه شماره یک به اینصورت که با یک ولوم بتوانید رنگتون رو مشخص کنید...
برنامه دوم به این صورت هست که هر کدام از رنگها را با یک ولوم کنترل کنید ...

[code=vb] $regfile = "m8def.dat"
$crystal = 8000000

Led1 Alias Portd.0
Led2 Alias Portd.1
Led3 Alias Portd.2
Max_var_pwm Alias 7

Dim Pwm(5) As Byte , A As Byte , _adc As Word
A = Max_var_pwm
'Config All =============================================
'Config Timers
Config Timer2 = Timer , Prescale = 32
Enable Compare2
On Compare2 T2
'Timer / Counter 2 Initialization
'Clock source: System Clock
'Clock value: 250 kHz
'Mode: CTC top=OCR2
'OC2 output: Disconnected
Tccr2 = 11
Ocr2 = 124
'for 16MHz OCR0A = 249
'for 8 MHz OCR0A = 124
'for 4 MHz OCR0A = 61
'for 2 MHz OCR0A = 31
'for 1 MHz OCR0A = 15
'Config Ports
Ddrd = 7
' Global enable interrupts
Enable Interrupts
'Config ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc

'End Config ============================================

Declare Sub Rgb(byval Rgb_0_to_511 As Word)

'________________________________________
Do
Start Adc
_adc = Getadc(0)
Stop Adc
_adc = _adc / 2
Call Rgb(_adc)
Waitms 50
Loop
'________________________________________
'or
'________________________________________
Do
Start Adc
_adc = Getadc(0)
Pwm(1) = _adc / 146
_adc = Getadc(1)
Pwm(2) = _adc / 146
_adc = Getadc(2)
Pwm(3) = _adc / 146
Stop Adc
Waitms 50
Loop
'________________________________________
End

T2:
IF A > 0 THEN
IF A = Pwm(1) THEN Led1 = 1
IF A = Pwm(2) THEN Led2 = 1
If A = Pwm(3) Then Led3 = 1
End If
Decr A
If A = 255 Then
A = Max_var_pwm
Portd = Portd And 248
End If
Return

Sub Rgb(byval Rgb_0_to_511 As Word)
Pwm(1) = Rgb_0_to_511 And 7
Rgb_0_to_511 = Rgb_0_to_511 / 8
Pwm(2) = Rgb_0_to_511 And 7
Rgb_0_to_511 = Rgb_0_to_511 / 8
Pwm(3) = Rgb_0_to_511 And 7
End Sub[/code]
امتحانش کنید ...

موفق باشید
=================
برنامه ویرایش شد

[Pixar]

پاسخ : مشکل چشمک زن شدن led rgb

درود بر آقا سامان گرامی ...

الان یه چیزی به فکرم رسید

میتونی برنامه PWM رو جوری انجام بدی که 3 تا 3 تا روی هر کدوم از پورتها ، PWM جداگانه داشته باشیم تابتونیم به هر کدوم از این 3 تا پایه یدونه RGB LED وصل کنیم .

بعد هرکدوم از اونا خیلی نرم از رنگی به رنگ دیگه به تدریج تغییر کنن .اینجوری خیلی جالب در میاد و یکی از بهترین انواع افکتها در نورپردازی میشه .


اگه بتونی انجام بدی خیلی جالب و کاربردی میشه و مطمئناً طرفدارای زیادی هم خواهد داشت ...

[SAMAN.ASADI]

پاسخ : مشکل چشمک زن شدن led rgb

درود بر آقا سامان گرامی ...

الان یه چیزی به فکرم رسید

میتونی برنامه PWM رو جوری انجام بدی که 3 تا 3 تا روی هر کدوم از پورتها ، PWM جداگانه داشته باشیم تابتونیم به هر کدوم از این 3 تا پایه یدونه RGB LED وصل کنیم .

بعد هرکدوم از اونا خیلی نرم از رنگی به رنگ دیگه به تدریج تغییر کنن .اینجوری خیلی جالب در میاد و یکی از بهترین انواع افکتها در نورپردازی میشه .


اگه بتونی انجام بدی خیلی جالب و کاربردی میشه و مطمئناً طرفدارای زیادی هم خواهد داشت ...

درود وحید جان
صبحتون به خیر و شادی :mrgreen:
این کار قبلا انجام شده ...
ولی متاسفانه زیاد استقبال نشد ... یا شاید شده و استفاده هم شده ولی چون کسی تشکر نکرده حدس میزنم براشون جالب نبوده !!!
ساخت 7 RGB و 22 PWM با ATmega8 و ساخت 10 RGB و 32 PWM با ATmega16,32 (با بسکام)
ساخت 17 RGB و 53 PWM با میکروهای ATmega64,128
ساخت 28 RGB و 86 PWM با میکروهای ATmega640,1280,2560

---

ساخت 7 RGB و 22 PWM با Mega8 و ساخت 10 RGB و 32 PWM با Mega16,32 (با کدویژن)
ساخت 17 RGB و 53 PWM با Mega64,128
ساخت 28 RGB و 86 PWM با Mega640,1280,2560

ساخت 7 RGB و 22 PWM با Mega8 و ساخت 10 RGB و 32 PWM با Mega16,32 (با اتمل استودیو)
ساخت 17 RGB و 53 PWM با Mega64,128
ساخت 28 RGB و 86 PWM با Mega640,1280,2560

[Pixar]

پاسخ : پاسخ : مشکل چشمک زن شدن led rgb

درود وحید جان
صبحتون به خیر و شادی :mrgreen:
این کار قبلا انجام شده ...
ولی متاسفانه زیاد استقبال نشد ... یا شاید شده و استفاده هم شده ولی چون کسی تشکر نکرده حدس میزنم براشون جالب نبوده !!!

آره الان دیدم ... :applause:

باید روی برد بورد تست کنم ببینم چجوریاست عملکردش ... :agree:

دستت درد نکنه . ندیده بودم اون تاپیکو

یقیناً طرفدار داره . اما خوب ایرانی هستیم دیگه ... حاضریم در شرایط نیاز بریم پول بدیم و چنین پروژه ای رو بخریم . اما همینطوری که یه نفر زحمت میکشه و در اختیار بقیه میذاره ، تشکر خشک و خالی هم بلد نیستیم انجام بدیم !

من از طرف بقیه ازت سپاسگزارم ... دست مریزاد :applause: :applause: :applause:

[zoheyr79]

پاسخ : پاسخ : مشکل چشمک زن شدن led rgb

چرا از برنامه هایی که نوشتم استفاده نمی کنید؟؟؟
تازه میتوانید هر پایه ای که خواستید استفاده کنید ...
به عنوان مثال می خواهیم از پایه D0,D1,D2 به صورت PWM استفاده کنیم ...
دو جور برنامه می توانید بنویسید
برنامه شماره یک به اینصورت که با یک ولوم بتوانید رنگتون رو مشخص کنید...
برنامه دوم به این صورت هست که هر کدام از رنگها را با یک ولوم کنترل کنید ...

[code=vb] $regfile = "m8def.dat"
$crystal = 8000000

Led1 Alias Portd.0
Led2 Alias Portd.1
Led3 Alias Portd.2
Max_var_pwm Alias 7

Dim Pwm(5) As Byte , A As Byte , _adc As Word
A = Max_var_pwm
'Config All =============================================
'Config Timers
Config Timer2 = Timer , Prescale = 32
Enable Compare2
On Compare2 T2
'Timer / Counter 2 Initialization
'Clock source: System Clock
'Clock value: 250 kHz
'Mode: CTC top=OCR2
'OC2 output: Disconnected
Tccr2 = 11
Ocr2 = 124
'for 16MHz OCR0A = 249
'for 8 MHz OCR0A = 124
'for 4 MHz OCR0A = 61
'for 2 MHz OCR0A = 31
'for 1 MHz OCR0A = 15
'Config Ports
Ddrb = 255
Ddrc = 63
Ddrd = 255
' Global enable interrupts
Enable Interrupts
'Config ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc

'End Config ============================================

Declare Sub Rgb(byval Rgb_0_to_511 As Word)

'________________________________________
Do
Start Adc
_adc = Getadc(0)
Stop Adc
_adc = _adc / 2
Call Rgb(_adc)
Waitms 50
Loop
'________________________________________
'or
'________________________________________
Do
Start Adc
_adc = Getadc(0)
Pwm(1) = _adc / 146
_adc = Getadc(1)
Pwm(2) = _adc / 146
_adc = Getadc(2)
Pwm(3) = _adc / 146
Stop Adc
Waitms 50
Loop
'________________________________________
End

T2:
IF A > 0 THEN
IF A = Pwm(1) THEN Led1 = 1
IF A = Pwm(2) THEN Led2 = 1
If A = Pwm(3) Then Led3 = 1
End If
Decr A
If A = 255 Then
A = Max_var_pwm
Portd = Portd And 248
End If
Return

Sub Rgb(byval Rgb_0_to_511 As Word)
Pwm(1) = Rgb_0_to_511 And 7
Rgb_0_to_511 = Rgb_0_to_511 / 8
Pwm(2) = Rgb_0_to_511 And 7
Rgb_0_to_511 = Rgb_0_to_511 / 8
Pwm(3) = Rgb_0_to_511 And 7
End Sub[/code]
امتحانش کنید ...

موفق باشید

سلام این دستور مشکل داره ظاهرا

 On Compare2 T2

راستی میشه بگین ورودی ولوم و خروجی rgb این برنامه کدوماست؟؟؟؟

[SAMAN.ASADI]

پاسخ : پاسخ : مشکل چشمک زن شدن led rgb

سلام این دستور مشکل داره ظاهرا

 On Compare2 T2

درود
برای من که کامپایل میشه ... مشکلی هم نداره ...
کل این برنامه را که براتون گذاشتم کپی کنید توی بسکام و آن را کامپایل کنید ...
اگر خطا داد خطای آن را کپی کنید ببینم چه خطایی داره ...

راستی میشه بگین ورودی ولوم و خروجی rgb این برنامه کدوماست؟؟؟؟

خروجی ها پایه های 2 و3و4 هستند
ورودی های ولوم پایه های 23 و 24 و 25
هر کدام از حلقه ها را نخواستید پاک کنید و برنامه را کامپایل کنید ...
موفق باشید

[Study]

پاسخ : مشکل چشمک زن شدن led rgb

سلام به دوستان :bye
من با pwm میکرو نور led هارو کم و زیاد میکنم اما تو نور کم به خاطر پالس led چشمک زن میشه میشه کمکم کنید تا مشکل حل شه :nerd:

من کاری ندارم شما با چه کامپایلری برنامه نوشتی و کد چی بوده و میخواید چکار کنید اما از آنجا که مشکل چشمک زدن شما در نور کم اتفاق میوفته دلیلش برمیگرده به فرکانس پالس PWM که به ال ای دی اعمال میکنید، همونطور که میدونید در این روش شما با تغییر مدت زمان یک بودن پایه به مدت زمان صفر بودن اون یا در واقع تغییر duty cycle دارید متوسط نور رو کم و زیاد میکنید، زمانی که مقدار 1 بودن شما نسبت به 0 بودن زیاد هست عملا یک لحظه کوتاه نور قطع میشه و چشمک زدنش رو تشخیص نمیدید اما زمانی که مدت زمان صفر بودن زیاد بشه دیگه به چشم میاد، حالا شما باید کاری کنید که این مدت زمان صفر بودن های بین یک ها کوتاه تر بشه، برای اینکار باید فرکانس کلی پالس زیاد بشه. یعنی در واقع شما باید فرکانس پالس PWM رو بالا ببرید همونطور که اگر یک موج مربعی با فرکانس 1 هرتز به ال ای دی بدید خیلی واضح روشن و خاموش شدنش رو میبینید اما وقتی فرکانس بالا بره اصلا متوجه خاموش و روشن شدنش نمیشید در حالی که دقیقا همون برنامه داره اجرا میشه فقط سرعت اجرا تغییر کرده!

[zoheyr79]

پاسخ : مشکل چشمک زن شدن led rgb

ممنون از همه ی شما که جواب منو دادین.منم کلا بیخیال این چشمک زدن شدم و تصمیم گرفتم نور رو تا آخر کم نکنم :mrgreen:
اما یه مشکل دیگه هم هست.... :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry:
این که اگه همرو خاموش کنم و با پتانسیومتر فقط یکی رو بخوام روشن کنم انگاری روی بقیه هم دارم پالس وارد میکنم و بقیه هم روشن,خاموش میشن ولی با زمان های نامنظم به نظر شما مشکل چیه

[SAMAN.ASADI]

پاسخ : مشکل چشمک زن شدن led rgb

ممنون از همه ی شما که جواب منو دادین.منم کلا بیخیال این چشمک زدن شدم و تصمیم گرفتم نور رو تا آخر کم نکنم :mrgreen:
اما یه مشکل دیگه هم هست.... :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry:
این که اگه همرو خاموش کنم و با پتانسیومتر فقط یکی رو بخوام روشن کنم انگاری روی بقیه هم دارم پالس وارد میکنم و بقیه هم روشن,خاموش میشن ولی با زمان های نامنظم به نظر شما مشکل چیه

[code=vb]$regfile = "m8def.dat"
$crystal = 8000000

Led1 Alias Portd.0
Led2 Alias Portd.1
Led3 Alias Portd.2
Max_var_pwm Alias 7

Dim Pwm(5) As Byte , A As Byte , _adc As Word
A = Max_var_pwm
'Config All =============================================
'Config Timers
Config Timer2 = Timer , Prescale = 32
Enable Compare2
On Compare2 T2
'Timer / Counter 2 Initialization
'Clock source: System Clock
'Clock value: 250 kHz
'Mode: CTC top=OCR2
'OC2 output: Disconnected
Tccr2 = 11
Ocr2 = 124
'for 16MHz OCR0A = 249
'for 8 MHz OCR0A = 124
'for 4 MHz OCR0A = 61
'for 2 MHz OCR0A = 31
'for 1 MHz OCR0A = 15
'Config Ports
Ddrd = 7
' Global enable interrupts
Enable Interrupts
'Config ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc

'End Config ============================================

Declare Sub Rgb(byval Rgb_0_to_511 As Word)
'________________________________________
Do
Start Adc
_adc = Getadc(0)
Pwm(1) = _adc / 146
_adc = Getadc(1)
Pwm(2) = _adc / 146
_adc = Getadc(2)
Pwm(3) = _adc / 146
Stop Adc
Waitms 50
Loop
'________________________________________
End

T2:
IF A > 0 THEN
IF A = Pwm(1) THEN Led1 = 1
IF A = Pwm(2) THEN Led2 = 1
If A = Pwm(3) Then Led3 = 1
End If
Decr A
If A = 255 Then
A = Max_var_pwm
Portd = Portd And 248
End If
Return

Sub Rgb(byval Rgb_0_to_511 As Word)
Pwm(1) = Rgb_0_to_511 And 7
Rgb_0_to_511 = Rgb_0_to_511 / 8
Pwm(2) = Rgb_0_to_511 And 7
Rgb_0_to_511 = Rgb_0_to_511 / 8
Pwm(3) = Rgb_0_to_511 And 7
End Sub[/code]

میخوای خاموش و روشن کنی ؟؟؟

[zoheyr79]

پاسخ : مشکل چشمک زن شدن led rgb

[code=vb]$regfile = "m8def.dat"
$crystal = 8000000

Led1 Alias Portd.0
Led2 Alias Portd.1
Led3 Alias Portd.2
Max_var_pwm Alias 7

Dim Pwm(5) As Byte , A As Byte , _adc As Word
A = Max_var_pwm
'Config All =============================================
'Config Timers
Config Timer2 = Timer , Prescale = 32
Enable Compare2
On Compare2 T2
'Timer / Counter 2 Initialization
'Clock source: System Clock
'Clock value: 250 kHz
'Mode: CTC top=OCR2
'OC2 output: Disconnected
Tccr2 = 11
Ocr2 = 124
'for 16MHz OCR0A = 249
'for 8 MHz OCR0A = 124
'for 4 MHz OCR0A = 61
'for 2 MHz OCR0A = 31
'for 1 MHz OCR0A = 15
'Config Ports
Ddrd = 7
' Global enable interrupts
Enable Interrupts
'Config ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc

'End Config ============================================

Declare Sub Rgb(byval Rgb_0_to_511 As Word)
'________________________________________
Do
Start Adc
_adc = Getadc(0)
Pwm(1) = _adc / 146
_adc = Getadc(1)
Pwm(2) = _adc / 146
_adc = Getadc(2)
Pwm(3) = _adc / 146
Stop Adc
Waitms 50
Loop
'________________________________________
End

T2:
IF A > 0 THEN
IF A = Pwm(1) THEN Led1 = 1
IF A = Pwm(2) THEN Led2 = 1
If A = Pwm(3) Then Led3 = 1
End If
Decr A
If A = 255 Then
A = Max_var_pwm
Portd = Portd And 248
End If
Return

Sub Rgb(byval Rgb_0_to_511 As Word)
Pwm(1) = Rgb_0_to_511 And 7
Rgb_0_to_511 = Rgb_0_to_511 / 8
Pwm(2) = Rgb_0_to_511 And 7
Rgb_0_to_511 = Rgb_0_to_511 / 8
Pwm(3) = Rgb_0_to_511 And 7
End Sub[/code]

میخوای خاموش و روشن کنی ؟؟؟

آقا سامان برنامرو که پروگرم میکنم مگه توی خط 15 compare2 رو نمیشناسه :cry2:

[zoheyr79]

پاسخ : مشکل چشمک زن شدن led rgb

درستش کردم :applause:
سوتی دادم در حد.....
بین ledها و میکرو یه مقاومت(330 اهم) گذاشتم :mrgreen:دیگه این چشمک ها مشخص نمیشن مگه این که چشمو جفت ال ای دی کنی :mrgreen:
فقط الان نورش خعلی کم شد چی کار کنم :NO: با ترانزیستور میشه تقویت کرد؟؟؟ :nerd: