تغییر adc وpwm هم زمان

[abbasalifix]

سلام
میخوام مقدار pwm و adc رو هم زمان توی بسکام کنترول کنم یعنی وقتی adc کم شد یا زیاد شد pwm هم کم یا زیاد بشه

[behzady]

خوب یه حلقه هست دیگه

کد:

Do
pwm1a=getadc(0)
loop

یا کلا کدش رو میخواید؟

[abbasalifix]

خوب نه دیگه نمیشه
چون adc مقدارش بین 0 تا 1023 هست و pwm بین 0 تا 255 اصلا باهم مساوی در نمیاد

[aKaReZa75]

خب چرا از 10 بیتی استفاده نمیکنی؟
برای 8 بیتی این کارو کن:

کد:

a=getadc(0)
a=a*0.249266862170088
pwm=a

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

[behzady]

گرفتم

کد:

dim a as word
do
a=getadc(0)
a=a*255
a=a/1023
pwm0=a

حالا هر چند بیتی که باشه باشه شما جای اون 255 بزار
(استوکیومتری هست)

[omid_phoenix]

عباس جان چرا تقسیم بندی نمی کنی؟
مثلا بیای adc رو به مقدار 4.011 تقسیم کنی؛

کد:

Dim A As Word
A = Getadc(0)
A = A / 4.011

و بعد مقدار adc رو که برابر 255 میشه، تو pwm قرار بدی؛

کد:

Pwm = A

---

هر سه با هم پست زدیم

[abbasalifix]

کار نکرد فقط pwm روشنه

[behzady]

برنامه ی کی رو میگید من؟
یه دستور وقفه هم بزارید تا بعد از خواندن ADC منتظر جواب بمونه
2- الان روشنه یعنی یه مقداری داره یا میدونین تنظیمه فقط؟

---

ADC رو استارت کردید؟

---

کد:

$regfile = "M32DEF.DAT"
$crystal = 8000000
Config Timer2 = Pwm , Pwm = On , Prescale = 256 , Compare_pwm = Clear_up
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Enable Timer2
Start Timer2
Dim A As Word
Do
A = Getadc(0)
A = A * 255
A = A / 1023
Pwm2 = A
Loop
End                                                         'end program

اینو تست کردم کار کرد

[omid_phoenix]

برنامه رو بزاری زودتر به نتیجه می رسیم

[hadikh73]

چون متغیر ها از نوع اعداد صحیحن تقسیم بر 4 بکن ممیز نمی خواد
ولتاژ مرجع رو درست وصل کردی

[abbasalifix]

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