صوت سنج با ميكرو

[jansfred]

با سلام خدمت دوستان
ميخاستم ببينم با ميكرو ميشه صوت سنج طراحي كرد
طوري كه با adc به يك خروجي صدا (مثل اسپيكر) وصل كني و بعد (مثلا 8تا led كه به يك پورت وصل كردي) به نسبت شدت صدا روشن بشه

خودم يه چيزي نوشتم اما جواب نداد
با تشكر

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Dim A As Word
Config Portb = Output
Start Adc
Do
A = Getadc(5)
Select Case A
Case 0 To 125
Portb = &B00000001
Case 121 To 240
Portb = &B00000011
Case 241 To 360
Portb = &B00000111
Case 361 To 480
Portb = &B00001111
Case 481 To 600
Portb = &B00011111
Case 601 To 720
Portb = &B00111111
Case 721 To 840
Portb = &B01111111
Case 841 To 1000
Portb = &B11111111
End Select
Waitms 300
Loop
End

[hadikh73]

هیچ احتیاجی به میکرو نیست خیلی از آی سی های مدار منطقی این کارو می کنن در کل میکرو به صرفه نیست
برای برنامه شما ولتاژ خروجی رو تقویت کن و حداکثرش رو به 5 ولت برسون و بده به adc یعنی ولتاژ بین 0-5 متغیره
توئ برنامتون دستور enable adc رو ننوشتین بعد از start adc بنویسینش تا مبدل روشن بشه

[jansfred]

متوجه نشدم
چجوري خروجي رو تقويت كنم؟
خط دوم نوشتتونو توضيح بديد لطفا

راه يا برنامه آسونتري هم هست يا ميشه نوشت؟
تشكر

[hadikh73]

ببخشید یکم عجله داشتم برای همین غلط املایی داشتم
1- دستور enable adc رو نذاشتین این دستور بنویسین تا مبدل آنالوگ به دیجیتال فعال بشه
2- ولتاژ ورودی که به پایه ی میکرو وصل می کنید رو با یه ترانزیستور تقویت کنین یعنی باید ولتاژی که به adc میدین بین 0 تا 5 ولت تغیر کنه حالا با هرچی تونستین تقویتش کنید بهترین گزینه ترانزیستوره
3- برنامتون هم خوبه مشکلی نداره
4-راه ساده تر استفاده از آی سی های منطقیه مثلا آی سی lb1409 یه سرچی بکنین مدارشو پیدا می کنین

[رسول]

با آی سی های سری LM39XX هم براحتی میشه اینو ساخت ...

4-راه ساده تر استفاده از آی سی های منطقیه مثلا آی سی lb1409 یه سرچی بکنین مدارشو پیدا می کنین

هادی جون این آی سی ورودی AC هم داره ... حالا منظورش از سیگنال AC در اینجا چیه؟
باهاش میشه سطح ولتاژ AC رو هم نمایش داد؟
اصلا اصل کار این آی سی چیه ... یعنی مثل همون سری LM 39XX همه کاره هستن ؟

[jansfred]

1-ترانزيستورش چي باشه؟
2- يعني ترانزيستور يك پايش به adc ميكرو ،يك پايش به 5 ولت ، يك پايش به خروجي صدا درست ميگم؟
3- بعد براي مثال من بخام از يكي از باندهاي اسپيكرم خروجي بگبرم مگه دورشته سيم نيست؟ حالا من اينو يكيشو به adc ميكرو وصل كنم يكي ديگشو به كجا وصل كنم؟
4- دستوري كه كم بود رو به برنامه اضافه كردم اما مدار باز هم كار نكرد
براي تست اومدم پايه ي adc رو به پايه ي مشترك يك پتانسيومتر وصل كردم و يك پايه پتانسيومتر رو به زمين و ديگريش به +5
پتانسيومتر رو تغيير دادم در اين صورت بايد كار ميكرد اما نكرد
با تشكر

[hadikh73]

1-فک کنم bc547 جواب بده
2-پایه ی امیتر به adc پایه ی کلکتور به 5 ولت و بیس به خروجی کارت صدا
3-از بعد از اسپیکر نگیرین از خروجیه کارت صدا بگیرین یه فیش سبز رنگه که سه تا سیم داره یکشون هیچ حفاظی نداره که به منفی وصل کنید و از یکی از دوتا سیم دیگه رو به ترانزیستور(قبل از این کار ولتاژ خروجیش رو چک کن با ولتمتر ببین چقدره اگر بین صفر و 5 ولت بود دیگه نیازی به ترانزیستور نیست)
4-سخت افزار سالمه برنامه به نظر میاد سالم باشه ولتاژ مرجع رو درست وصل کردین
آقا رسول جواب این سوالایی رو که گفتن من نمی دونم ولی به پیوست نگاه کنین یه شماتیک پیوست کردم فک کنم بدردتون بخوره

[jansfred]

داداش من كه سخت افزاري نزاشتم كه شما ميگي سخت افزار درسته
ولتاژ مرجع رو باز از كجا بگيرم به كجا وصل كنم
شما از روي كدوم سسخت افزار دارين توضيح ميدين؟

[hadikh73]

منظورم از سخت افزار مداریه که ساختین (آی سی و و ال ای دی ها و ...)
برای ولتاژ مرجع باید پایه های AVCC و AREF رو به مثبت وصل کنین
ولتاژ مرجع همون ولتاژیه که مقدار پایه ی ADC با اون مقایسه میشه
برنامتون کاملا درسته من تو پروتئوس امتحانش کردم مشکل از سخت افزاره اونه امحان کنید

[مریم احمدی]

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

کد php:

regfile = "m66def.dat'
$crystal = 8888888
Config Lcdpin = Pin , Db 4= Portb. 4, Db 5= Portb. 5, Db 6= Portb.6
, Db 7= Portb. 7, E = Portb. 6, Rs = Portb.8
Config Lcd = 66* 2
Config Adc = Single , Prescaler = Auto
Dim A2d As Word , A As Single , A_max As Single , W As String * 2
, K As Long , F As Long , W_max As String * 2
Dim Hold As Bit
Ddrd. 2= 8
Portd. 2= 6
Ddrd. 3= 8
Portd. 3= 6
Reset_key Alias Pind.2
Hold_key Alias Pind.3
Do
If Hold = 6Then Goto Lowe
Start Adc
A2d = Getadc( )8
Stop Adc
A = A2d / 68.24
W = Fusing(a)"##.#" ,
Locate 6, 6
Lcd "sound: " ; W ; " db"
Locate 2, 6
'Lcd "sound_max"=
If W > W_max Then
W_max = W
Locate 2, 66
Lcd W_max
End If
Waitms 6
Lowe:
If Reset_key = 8Then
Waitms 6888
Lcd "sound_max"=
Lcd" "
Waitms 6888
End If
If Hold_key = 8Then
Bitwait Hold_key , Set
Waitms 688
Toggle Hold
End If
Loop 


[omid_phoenix]

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

کد php:

regfile = "m66def.dat'
$crystal = 8888888
Config Lcdpin = Pin , Db 4= Portb. 4, Db 5= Portb. 5, Db 6= Portb.6
, Db 7= Portb. 7, E = Portb. 6, Rs = Portb.8
Config Lcd = 66* 2
Config Adc = Single , Prescaler = Auto
Dim A2d As Word , A As Single , A_max As Single , W As String * 2
, K As Long , F As Long , W_max As String * 2
Dim Hold As Bit
Ddrd. 2= 8
Portd. 2= 6
Ddrd. 3= 8
Portd. 3= 6
Reset_key Alias Pind.2
Hold_key Alias Pind.3
Do
If Hold = 6Then Goto Lowe
Start Adc
A2d = Getadc( )8
Stop Adc
A = A2d / 68.24
W = Fusing(a)"##.#" ,
Locate 6, 6
Lcd "sound: " ; W ; " db"
Locate 2, 6
'Lcd "sound_max"=
If W > W_max Then
W_max = W
Locate 2, 66
Lcd W_max
End If
Waitms 6
Lowe:
If Reset_key = 8Then
Waitms 6888
Lcd "sound_max"=
Lcd" "
Waitms 6888
End If
If Hold_key = 8Then
Bitwait Hold_key , Set
Waitms 688
Toggle Hold
End If
Loop 


سلام
خوش اومدید
برنامه رو دقیق بررسی نکردم
ولی مشکل فقط برنامه است؟سخت افزار و درست پیاده کردید؟
میکروفون خازنی خروجی ولتاژ خیلی پایینی داره و باید قبلش با پری امپلی فایر تقویت بشه بعد بدید به adc میکرو