راههای جلوگیری از نویز ADC

[armstk]

سلام
من در چندیم جا از ADC خود میکرو استفاده کردم ولی اعصابمو خورد کرده وقتی مثلا یکی از ADCها را راه می اندازم و مستقیما متغیر مربوط به ADC را روی LCD نمایش می دهم در حالت عادی 0 رو نشون نمیده و همش اعداد قاتی پاتی نشون میده زمانی که به 5ولت وصلش می کنم 1023 رو نشون میده ولی باز هم یکمی ریپل میزنه حتی به زمین هم وصلش می کنم بازم اعداد قاطی پاتی نشون میده از سلف و خازن هم استفاده کردم ولی باز هم قاطی می کنه
آیا کسی میدونه مشکله من از کجاست؟از کجا اینقدر نویز میگیره؟

[saeid_ica]

پاسخ : راههای جلوگیری از نویز ADC

adc میکرو انقد ها هم که میگی نویزی نمیشه مگر اینکه ...!
برنامتو بذار بچه ها ببینیم چی کارمیشه کرد.

[armstk]

پاسخ : راههای جلوگیری از نویز ADC

$regfile = "m8def.dat"
$crystal = 1000000
Config Adc = Single , Prescaler = Auto , Reference = Off
Start Adc
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , _
Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
Dim A As Word
Enable Interrupts
Enable Adc
Cursor Off
Cls
Do
A = Getadc(0)
Locate 1 , 1
Lcd A
Loop
End
برامش اینه خیلی ساده است

[saeed bagherani]

پاسخ : راههای جلوگیری از نویز ADC

راه های نویز گیری زیاده
مهمتر از همه استفاده از همون سلف و خازنه
من خودم بصورت نرم افزاری یکمی نویز رو کم می کنم و بقیه اش سخت افزاریه
برنامه زیر رو یک نیگا بنداز

$regfile = "M8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Adc = Single , Prescaler = Auto
Start Adc



Declare Sub Temp

Const Scale =(200 / 1023)
Const Numberofsample = 1000

Dim A As Word , B As Word , C As Single
Dim I As Word
Dim Sum0 As Long
Dim Sum1 As Long
Dim Sum As Long
Dim Strtemp As String * 16
Deflcdchar 0 , 32 , 4 , 10 , 4 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
Cursor Off
Cls
Locate 1 , 1
Lcd "Temp By LM35"
Locate 2 , 1
Lcd "88/10/20"
Wait 1
Cls

Do

Call Temp
Home : Lcd "Temp:" ; Strtemp ; " c" : Lcd Chr(0) ; Spc(5)

Loop

End



Sub Temp

Sum0 = 0 : Sum1 = 0
For I = 1 To Numberofsample
A = Getadc(0)
B = Getadc(1)
Sum0 = Sum0 + A
Sum1 = Sum1 + B
Next I
Sum = Sum0 - Sum1
C = Sum / Numberofsample
C = C * Scale
Strtemp = Fusing(c , "#.##" )
End Sub


این برنامه 1000 تا نمونه می گیره و میانگین اونا رو نشون میده البته می تونی کم و زیادش کنی

البته دما های منفی رو هم م یگیره ولی توی برنامه هدف همون حلقه for next که اون کار رو انجام میده
:nice: :nice: :nice:

[armstk]

پاسخ : راههای جلوگیری از نویز ADC

من میخوام بدون نمونه گیری این کار رو انجام بدم یعنی نمیشه؟ این برنامه ای که براتون گذاشتم،آیا مشکلی داره؟

[saeed bagherani]

پاسخ : راههای جلوگیری از نویز ADC


برنامه رو این طوری تغییر بده

Config Adc = Single , Prescaler = Auto , Reference = Off
Config Adc = Single , Prescaler = Auto

در برنامه شما اون قسمت وقفه عملا کاری انجام نمیده اونو حذف کن

نویز چیز خاصی نیست بالاخره اینم یک روشه
مثل این میمونه که منم بگم بدون خازن و سلف می خوام این کار رو انجام بدم
شاید شدنی باشه ولی محیط ایده آل هیچ زمان وجود نداره

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

[armstk]

پاسخ : راههای جلوگیری از نویز ADC

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

Config Adc = Single , Prescaler = Auto , Reference = Off
Config Adc = Single , Prescaler = Auto

راستی ولتاژ مرجع که من استفاده کردم خارجی بود آیا از داخلی استفاده کنم بهتره؟

[saeed bagherani]

پاسخ : راههای جلوگیری از نویز ADC

رفرنس داخلی 5 ولته
اگه از خارجی استفاد کنی می تونی هر مقداری دوست داری انو تغییر بدی
مثلا دامنه ولتاژ ورودی بین 0 تا 1 ولت باشه بهتره مه ولتاژ رفرنس رو هم همون 1 ولت بزاری تا حداکثر دقت رو داشته باشی
البته روی 5 ولت هم جواب میده ولی دقتت 5 برابر کاهش داره

[mapmap]

پاسخ : راههای جلوگیری از نویز ADC

سلام
استاد واقعا" سپاسگذارم مشکلی که با ADC داشتم به کمک شما حل شد.
حالا یه نکته جالب که برام سوال شده اینه که :
چرا برنامه ای که من نوشتم آمپر بیشتری میکشه اما برنامه شما عالیه
من اینطور نوشتم:
یعنی چون دستورات رو توی Do-Loop گذاشتم این مورد پیش اومده؟؟

در ضمن چطور میتونم دمای واقعی ( کالیبره شده ) رو رو lcd داشته باشم.
از سنسور LM35dz استفاده میکنم
با تشکر


Start Adc


Cls
Lcd "M.A.P"
Waitms 50
Cls


G:
A = 0
E = 0
Do
Incr B
A = Getadc(0)
C = A
E = E + C
If B = 1000 Then Gosub N
If B = 1000 Then Goto R
Loop
End

N:
Locate 1 , 1 : Lcd Fusing(e , "#.#&quot ; " Sum "
Return


R:
B = 0
D = E / 1000
Locate 2 , 1 : Lcd Fusing(d , "#.#&quot ; " Miyangin"
Waitms 100
Goto G

[AliRezaDAVE]

پاسخ : راههای جلوگیری از نویز ADC

یک سوال خدمت عزیزان داشتم.
مثل اینکه باقی قسمتهای میکرو مثل cpu یا بخش های جانبی روی عملکرد adc تاثیر دارن و باعث ایجاد نویز روی اون میشن.درسته؟؟؟؟
اگر درست باشه تاثیرش چقدر میتونه باشه؟؟؟؟ :smile:

[mapmap]

پاسخ : راههای جلوگیری از نویز ADC

آقا این Choose R1 به چه معنی هست؟؟
ممنون

[mahan.rafiee]

پاسخ : راههای جلوگیری از نویز ADC

یه راه نرم افزاری دیگه هم هست (خودتون میدونید که این یارو CPUرو ADCبیچاره نویز میندازه)
راه حل اینه که شما بعد از کانفیگ ها دستور Enable Interupts و دستور Enable ADC اضافه کنید
بعدش که رسیدید به دستورGETADC بیاید بعدش دستور on adc lable اضافه کنید (lable یعنی اسم زیر برنامه) و بعد که اضافه کردید دستور idleبزارید و بعد یدونه لیبل بزارید(مثلا لیبل X)
در زیر برنامه هم دستور goto X بزارید
حالا وقتی که برنامه بیاد adcرو بخونه cpu خوابش میبره و وقتی که کار adc تموم شد با یه وقفه cpuبیدار میشه و به کارش ادامه میده
:bye

[mapmap]

پاسخ : راههای جلوگیری از نویز ADC

یه راه نرم افزاری دیگه هم هست (خودتون میدونید که این یارو CPUرو ADCبیچاره نویز میندازه)
راه حل اینه که شما بعد از کانفیگ ها دستور Enable Interupts و دستور Enable ADC اضافه کنید
بعدش که رسیدید به دستورGETADC بیاید بعدش دستور on adc lable اضافه کنید (lable یعنی اسم زیر برنامه) و بعد که اضافه کردید دستور idleبزارید و بعد یدونه لیبل بزارید(مثلا لیبل X)
در زیر برنامه هم دستور goto X بزارید
حالا وقتی که برنامه بیاد adcرو بخونه cpu خوابش میبره و وقتی که کار adc تموم شد با یه وقفه cpuبیدار میشه و به کارش ادامه میده
:bye

کاش یه نمونه میذاشتین
آخه من همین مراحل رو که طی میکنم دگه دستور Getadc عملا" کار نمیکنه و احتمالا" توی Idle خوابش میبره
با تشکر از زحماتتون

[SAMAN.ASADI]

پاسخ : راههای جلوگیری از نویز ADC

کاش یه نمونه میذاشتین
آخه من همین مراحل رو که طی میکنم دگه دستور Getadc عملا" کار نمیکنه و احتمالا" توی Idle خوابش میبره
با تشکر از زحماتتون

برنامه تون رو بگذارید

[mapmap]

پاسخ : راههای جلوگیری از نویز ADC

برنامه تون رو بگذارید

استاد متشکرم
اون مشکل حل شد.
اگه اشتباه نکنم مشکل از نذاشتن Return بود.
حالا به این شکل Idle رو میذارم مشکلی نداره؟؟

O:
M=0
temp=0
Do
M = M + 1
W = Getadc(0)
Input_a = W * 4.8828125
Temp = Input_a / 10
If M = 1000 Then
Goto O
Idle
Loop
End If
Return

و اما کدوم روش از این دو روش نویز کمتری میگیره و بهتره :
1000 تا نمونه از ADC بگیرم و اونو تقسیم بر 1000 کنم ؟؟
یا
هر 1000 سیکل یه نمونه از ADC بگیرم؟؟

با سپاس