صوت سنج با AVR

[imported_abbas1371sa]

سلام
کسی از دوستان ساخت یک صوت سنج با AVR و زبان بیسیک رو میدونه ؟؟؟
مثلا با 8 LED و اتصال به یک پورت میکرو اون رو نمایش بده

======================
با تشکر

[1nafar]

سلام
من قبلا یه همچین چیزی ساخته بودم :

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Dim A As Word
Config Portb = Output
Start Adc
Do
A = Getadc(0)
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

شما میتونید خروجی بلند گو رو مستقیما به میکرو متصل کنید ، به شرط اینکه دانه سیگنال صدا از 5 ولت بیشتر نشه ( شما باید خروجی رو به یک پل دیود و سپس به adc متصل کنید )
در صورتی که سوالی داشتید مطرح کنید

[jafar2000]

در بعضي از صوت سنج ها مقدار فركانس هاي مختلف ورودي رو با استفاده از چند رديف led كه هر رديف براي يك فركانس در نظر گرفته ميشه نشون ميدن ايا با AVR هم ميشه اين كارو كرد .چطور