سلام بچه ها من میخوام با استفاده از واحد adc و pwm یک mega8صوت رو به دیجیتال و سپس دوباره به آنالوگ تبدیل کنم یه برنامه با بسکام نوشتم ولی نویز داره کسی میتون بگه مشکل از کجاست؟ :cry:
اینم سورس برنامه
$regfile = "m8def.dat".dat "
$crystal = 16000000
Config Adc = Single , Prescaler = 8 , Reference = Internal
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down
Config Pinb.1 = Output
Dim J As Word
Dim A(512) As Byte
Start Adc
For J = 1 To 512
A(j) = Getadc(2) And &H00FF
Pwm1a = A(j)
Waitus 45
Next
Return
بچه ها مدارشم خیلی ساده هستش ورودی صوت به adc(2) خروجیشم که oc1a
یکم از نویز ماله آفسته ولی من فک کنم pwm مکشل داره بگین چیکار کنم
اینم سورس برنامه
$regfile = "m8def.dat".dat "
$crystal = 16000000
Config Adc = Single , Prescaler = 8 , Reference = Internal
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down
Config Pinb.1 = Output
Dim J As Word
Dim A(512) As Byte
Start Adc
For J = 1 To 512
A(j) = Getadc(2) And &H00FF
Pwm1a = A(j)
Waitus 45
Next
Return
بچه ها مدارشم خیلی ساده هستش ورودی صوت به adc(2) خروجیشم که oc1a
یکم از نویز ماله آفسته ولی من فک کنم pwm مکشل داره بگین چیکار کنم
دیدگاه