lمشکل با pwm و adc

[hsoft2]

با سلام من چهار کانال pwm در مگا 32 درست کردم و میخوام کنترل دور چهار تا فن 8*8 رو انجام بدم ولی حالا با هر ولومی که میچرخونم همه فن ها دورش کم و زیاد میشه ولی من میخوام با هر ولوم یک فن سرعتش تغییر کنه
این برنامه
$regfile = "m32def.dat"
$crystal = 4000000
Config Timer0 = Pwm , Clear Timer = 0 , Compare Pwm = Clear Up , Prescale = 8

Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down
Config Timer2 = Pwm , Pwm = On , Prescale = 8 , Compare Pwm = Clear Up
Config Adc = Single , Prescaler = Auto

Config Pina.0 = Output
Config Pina.1 = Output
Config Pina.2 = Output
Config Pina.3 = Output
Start Adc
Start Timer0
Start Timer1
Start Timer2
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Do
A = Getadc(0)
B = Getadc(1)
C = Getadc(2)
D = Getadc(3)
Pwm0 = A
Pwm1a = B
Pwm1b = C
Pwm2 = D
Loop
End

[hsoft2]

پاسخ : lمشکل با pwm و adc

با سلام مجدد کسی از اساتید نمیخواد کمکم کنه

[slh]

پاسخ : lمشکل با pwm و adc

شما باید تمام پایه های خروجی PWM رو اول بحنوان خروجی تعریف کنید و بعد استفاده کنید و پایه هایی که مربوط یه ADC هستند رو نباید خروجی تعریف کنید.
شاید هم سخت افزار مشکل داره. مثلا یکی از کانالهای ADC رو VCC کنید و بقیه رو GND کنید. در این حالت باید یکی از فن ها روشن بشه.

[hsoft2]

پاسخ : lمشکل با pwm و adc

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

[hsoft2]

پاسخ : lمشکل با pwm و adc

راستی اینATMEGA 32 L است این L مشکلی نداره

[slh]

پاسخ : lمشکل با pwm و adc

راستی اینATMEGA 32 L است این L مشکلی نداره

نه مشکلی نداره

[erfan m]

پاسخ : lمشکل با pwm و adc

سلام

دقیقا نمی دونم احتمالا مشکل از متغیر هست ADC 10 بیتی هست باید توی WORD بریزیدش بعد تقسین بر 4 کنید بریزید توی BYTE :biggrin:

تا اون جایی هم که می دونم تایمر 0 PWM نداره برای دسترسی به PWM تایمر 2 از دستور OCR2 استفاده میشه

اول دونه دونه مقدر ADC رو روی ال سی دی نشون بدید بعد اگه مشکلی نبود برید سراغ PWM

[سوران آراسته]

پاسخ : lمشکل با pwm و adc

با سلام بر همه.
نمی دونم من بلد نیستم یا کار با تایمر کانتر تو بسکام خیلی مسخره اس. :sad:
این برنامه رو تست کن ببین مشکلت حل میشه یا نه ؟

$regfile = "m32def.dat"
$crystal = 4000000
'******************************
Config Timer0 = Pwm , Compare Pwm = Clear Up , Prescale = 8
Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down
Config Timer2 = Pwm , Pwm = On , Prescale = 8 , Compare Pwm = Clear Up
Config Adc = Single , Prescaler = Auto , Reference = Avcc
'******************************
Start Adc
Enable Adc
Start Timer0
Start Timer1
Start Timer2
'*****************************
Dim A As Word
Dim B As Word
Dim C As Word
Dim D As Word
'*****************************
Do
A = Getadc(0)
Waitms 1
B = Getadc(1)
Waitms 1
C = Getadc(2)
Waitms 1
D = Getadc(3)
Waitms 1
Ocr0 = A
Pwm1a = B
Pwm1b = C
Ocr2 = D
Loop
End

[erfan m]

پاسخ : lمشکل با pwm و adc

نمی دونم من بلد نیستم یا کار با تایمر کانتر تو بسکام خیلی مسخره اس. :sad:

بسکام مسخره هست یا سی که همش ()()()() از اینا داره

:mrgreen: :mrgreen:

[hsoft2]

پاسخ : lمشکل با pwm و adc


اینم عکس شماتیک اونم تست کردم (سوران اراسته)
ولی جواب نداد
راستی به گوشه راست عکس نگاه کنید هر چهار تا pwm هستند

[erfan m]

پاسخ : lمشکل با pwm و adc

شما اینو تست کن کار میکنه :biggrin:


$regfile = "m32def.dat"
$crystal = 4000000
Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down
Config Adc = Single , Prescaler = Auto

Config Pina.0 = Output
Config Pina.1 = Output
Config Pina.2 = Output
Config Pina.3 = Output
Start Adc
Start Timer0
Start Timer1
Start Timer2
Dim A As Byte
Dim B As word
Dim C As word
Dim D As Byte
Do
B = Getadc(1)
C = Getadc(2)
b=b/4
c=c/4
a=b
d=c
Pwm1a = a
Pwm1b = d
Loop
End

[سوران آراسته]

پاسخ : lمشکل با pwm و adc

بسکام مسخره هست یا سی که همش ()()()() از اینا داره

:mrgreen: :mrgreen:

اقا عرفان خوب چرا می زنی شوخی کردم. :icon_razz:
این برنامه که شما نوشتی واسه دوتا pwm تایمر 1 هست ولی ایشون چهار تا می خواد.

اینم عکس شماتیک اونم تست کردم (سوران اراسته)
ولی جواب نداد
راستی به گوشه راست عکس نگاه کنید هر چهار تا pwm هستند

دوست عزیز متاسفانه من شماتیکی نمی بینم.
اگه با زبان C می خواین بگین تا برنامه شو براتون بزارم اون قبلی هم من با اسیلوسکوپ تو پروتیوس چک کردم کار می کرد هااااا.

[erfan m]

پاسخ : lمشکل با pwm و adc

این برنامه که شما نوشتی واسه دوتا pwm تایمر 1 هست ولی ایشون چهار تا می خواد

چه فرقی داره دوتا یا چهارتا نداریم که :mrgreen:
اگه جواب داد اضافه کردن دوتای دیگه کاری نداره که اون قسمت خروجی پورت A هم اضافه هست من یادم رفت پاکش کنم :nice:

[hsoft2]

پاسخ : lمشکل با pwm و adc

این عکسی که گذاشتم توی پروتیوس مقدار تغییر میکنه ولی سرعت موتور ها نه در عمل هم یا اصلا موتور ها راه اندازی نمیشند یا همه با هم فرمان میگیرند
حالا اگر میتونید با c هم بنویسید یه تستی میکنیم دیگه خیلی ممنون

[سوران آراسته]

پاسخ : lمشکل با pwm و adc

سلام.
به خاطر تاخیری که داشتم عذر می خوام.
دوست عزیز در فایل زیر من یه شماتیک + برنامه اون رو براتون گذاشتم که با تغییر پتانسیومترها سرعت هر موتور هم تغییر می کنه. متاسفانه وقت نشد عملا تستش کنم ولی شما اون سخت افزار رو پیاده کنید و اگر باز با مشکل مواجه شدین بفرمایین تا خودم عملآ اون رو تست کنم.
موفق باشید

http://wdl.persiangig.com/pages/download/?dl=http://rose111.persiangig.com/Project/test.rar