پاسخ : مشکل در اجرای برنامه {حل شد}

[zoheyr79]

سلام به دوستان :smile:
آقا یکی بگه مشکل این برنامه چیه

$regfile = "M8DEF.DAT"
$crystal = 8000000
'________________________________PWM Config____________________________________

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1

Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1
'________________________________Variables______________________________________
Dim R As Word
Dim G As Word
Dim B As Word

Pwm1a = R
Pwm1b = G
Ocr2 = B

R = 0
G = 0
B = 0
'__________________________________-RGB-________________________________________
R:
Do
Pwm1a = R
B = 0
Ocr2 = B
Waitms 5
Incr R
If R = 50 Then Goto G
Loop

G:
Do
Pwm1b = G
Pwm1a = R
R = 0
Waitms 5
Incr G
If G = 50 Then Goto B
Loop

B:
Do
Ocr2 = B
G = 0
Pwm1b = G
Waitms 5
Incr B
If B = 50 Then Goto R
Loop

میخوام با سه تا pwm سه تا led رو نورشونو به نوبت از کم به زیاد برسونم اما led که به ocr2 وصله روشنه میمونه و اصلا خاموش نمیشه(عین قورباغه نگات میکنه :eek: )
نمیدونم اشکال کار چیه :NO:
ممممممنون :applause:

[011]

پاسخ : مشکل در اجرای برنامه (تایمر2 pwm درست کار نمیکن&#

سلام
من بیسیک بلد نیستم اما این ببین شاید مشکلتو حل کنه

http://avrhelp.mcselec.com/index.html?config_timer2.htm

:NO:
http://www.eca.ir/forum2/index.php?topic=88852.0

[zoheyr79]

پاسخ : مشکل در اجرای برنامه (تایمر2 pwm درست کار نمیکن&#

سلام
من بیسیک بلد نیستم اما این ببین شاید مشکلتو حل کنه

http://avrhelp.mcselec.com/index.html?config_timer2.htm

:NO:
http://www.eca.ir/forum2/index.php?topic=88852.0

ممنونم ولی من میخوام بدونم اشکال کار چیه که اینطوری میشه تا دیگه به مشکل برنخورم

[SAMAN.ASADI]

پاسخ : مشکل در اجرای برنامه (تایمر2 pwm درست کار نمیکن&#

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

[zoheyr79]

پاسخ : مشکل در اجرای برنامه (تایمر2 pwm درست کار نمیکن&#

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

ممنون آقا سامان برنامه خودم درست شد :wow: :applause:
مشکلشم این بود که باید Compare Pwm روی Clear Down میبود نه روی clear up
اگه روی clear up باشه دستور بر عکس میشه یعنی led از روشن به خاموش میره :eek:
اما تایمر یک اینطوری نیست :agree:
شما میدونی چرا؟؟؟

---

اضافه شده در تاریخ :

سلام به دوستان :smile:
آقا یکی بگه مشکل این برنامه چیه

$regfile = "M8DEF.DAT"
$crystal = 8000000
'________________________________PWM Config____________________________________

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1

Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1
'________________________________Variables______________________________________
Dim R As Word
Dim G As Word
Dim B As Word

Pwm1a = R
Pwm1b = G
Ocr2 = B

R = 0
G = 0
B = 0
'__________________________________-RGB-________________________________________
R:
Do
Pwm1a = R
B = 0
Ocr2 = B
Waitms 5
Incr R
If R = 50 Then Goto G
Loop

G:
Do
Pwm1b = G
Pwm1a = R
R = 0
Waitms 5
Incr G
If G = 50 Then Goto B
Loop

B:
Do
Ocr2 = B
G = 0
Pwm1b = G
Waitms 5
Incr B
If B = 50 Then Goto R
Loop

میخوام با سه تا pwm سه تا led رو نورشونو به نوبت از کم به زیاد برسونم اما led که به ocr2 وصله روشنه میمونه و اصلا خاموش نمیشه(عین قورباغه نگات میکنه :eek: )
نمیدونم اشکال کار چیه :NO:
ممممممنون :applause:

[SAMAN.ASADI]

پاسخ : مشکل در اجرای برنامه (تایمر2 pwm درست کار نمیکن&#

ممنون آقا سامان برنامه خودم درست شد :wow: :applause:
مشکلشم این بود که باید Compare Pwm روی Clear Down میبود نه روی clear up
اگه روی clear up باشه دستور بر عکس میشه یعنی led از روشن به خاموش میره :eek:
اما تایمر یک اینطوری نیست :agree:
شما میدونی چرا؟؟؟

خواهش میکنم
ببین من حقیقتش بسکام رو خوب بلد نیستم ...
میرم توی محیطش نمیدونم چرا هیچی یادم نمیاد ...
ولی میتونم یه کدی براتون بنویسم که به راحتی میتونید با تایمر یک و دو سه تا PWM بگیرید ...
قبوله ؟؟
کنترل کردنش هم خیلی راحته ...

[zoheyr79]

پاسخ : مشکل در اجرای برنامه (تایمر2 pwm درست کار نمیکن&#

خواهش میکنم
ببین من حقیقتش بسکام رو خوب بلد نیستم ...
میرم توی محیطش نمیدونم چرا هیچی یادم نمیاد ...
ولی میتونم یه کدی براتون بنویسم که به راحتی میتونید با تایمر یک و دو سه تا PWM بگیرید ...
قبوله ؟؟
کنترل کردنش هم خیلی راحته ...

نه آقا سامان الان همه مشکلم حل شد
از هر سه تا pwm هم دارم استفاده می کنم

[SAMAN.ASADI]

پاسخ : مشکل در اجرای برنامه (تایمر2 pwm درست کار نمیکن&#

نه آقا سامان الان همه مشکلم حل شد
از هر سه تا pwm هم دارم استفاده می کنم

به هر صورت
این برنامه پیشنهادی منه ...
خیلی راحت میشه سه تا PWM را کنترل کنید ...

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 20
$swstack = 20
$framesize = 20

Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output


Pwm_1 Alias Ocr1al
Pwm_2 Alias Ocr1bl
Pwm_3 Alias Ocr2

' Timer/Counter 1 initialization
' Clock source: System Clock
' Clock value: 31.250 kHz
' Mode: Fast PWM top=&H00FF
' OC1A output: Non-Inv.
' OC1B output: Non-Inv.
' Input Capture on Falling Edge
Tccr1a = &HA1
Tccr1b = &H0C
' Timer/Counter 2 initialization
' Clock source: System Clock
' Clock value: 31.250 kHz
' Mode: Fast PWM top=&HFF
' OC2 output: Non-Inverted PWM
Tccr2 = &H6E



Pwm_1 = 0
Pwm_2 = 85
Pwm_3 = 170

Do
  Incr Pwm_1
  Incr Pwm_2
  Incr Pwm_3
  Waitms 10
Loop
End

موفق باشید