Это понятно, что нужно делать АЦП.
Есть два варианта:
1. Сделать частотные фильтры НЧ, СЧ и ВЧ на операционниках (транзисторах), подать три разделённых сигнала на три входа АЦП, проанализировать уровни и в зависимости от них включать выходы контроллера. Схемотехнически сложнее, программно легче.
2. Подавать аудио сигнал на один вход АЦП, а разделение по частоте сделать программно, сам пытаюсь работать над подобной проблемой. Схемотехнически просто, а с программой...

http://arvresearch.nm.ru/any-sch/licht-m.dhtml
Микро-цветомузыка на AT89C1051/C2051/C4051/S2051/S4051
исходник программы на ассемблере, но за основу можно взять и переделать на бейсик.

http://www.elektroda.pl/rtvforum/download.php?id=161424
Спектроанализатор на 8535 схема, исходники на Баском.

http://www.elektroda.pl/rtvforum/viewto … 35d3227228
http://www.elektroda.pl/rtvforum/topic14925-0.html
Можно посмотреть здесь о Фурье и AVR.

Кидайте, нужно.

http://alglib.sources.ru/fft/

http://ru.wikipedia.org/wiki/Быстрое_пр … ание_Фурье

Страница на википедии про фурье с примерами на С++ и паскале

вот процедура на паскале

procedure FFT(var a : TSingleArray;
     nn : Integer;
     InverseFFT : Boolean);
var
    ii, jj, n, mmax, m, j, istep, i, isign : Integer;
    wtemp, wr, wpr, wpi, wi, theta, tempr, tempi : Double;
begin
    if InverseFFT then isign := -1
    else isign := 1;
    n := 2*nn; j := 1; ii:=1;
    while ii <= nn do
    begin
        i := 2*ii-1;
        if j>i then
        begin
            tempr := a[j-1];
            tempi := a[j];
            a[j-1] := a[i-1];
            a[j] := a[i];
            a[i-1] := tempr;
            a[i] := tempi;
        end;
        m := n div 2;
        while (m>=2) and (j>m) do
        begin
            j := j-m;
            m := m div 2;
        end;
        j := j+m;
        Inc(ii);
    end;
    mmax := 2;
    while n>mmax do
    begin
        istep := 2*mmax;
        theta := 2*Pi/(isign*mmax);
        wpr := -2.0*sqr(sin(0.5*theta));
        wpi := sin(theta);
        wr := 1.0;
        wi := 0.0;
        ii:=1;
        while ii<=mmax div 2 do
        begin
            m := 2*ii-1;
            jj:=0;
            while jj<=(n-m) div istep do
            begin
                i := m+jj*istep;
                j := i+mmax;
                tempr := wr*a[j-1]-wi*a[j];
                tempi := wr*a[j]+wi*a[j-1];
                a[j-1] := a[i-1]-tempr;
                a[j] := a[i]-tempi;
                a[i-1] := a[i-1]+tempr;
                a[i] := a[i]+tempi;
                Inc(jj);
            end;
            wtemp := wr;
            wr := wr*wpr-wi*wpi+wr;
            wi := wi*wpr+wtemp*wpi+wi;
            Inc(ii);
        end;
        mmax := istep;
    end;
    if InverseFFT then
    begin
        I:=1;
        while I<=2*nn do
        begin
            a[I-1] := a[I-1]/nn;
            Inc(I);
        end;
    end;
end;

Отредактировано Pasha (2009-06-24 12:48:34)

Всё придумано до нас(или за нас)... Исходники присутствуют. Получится что-то - присылайте, выложу на сайте.
http://bascom.at.ua/publ/cvetomuzyka_qu … t/1-1-0-20
http://bascom.at.ua/publ/rgb_cmu/1-1-0-76

В 2 If обверните.

У вас же все сравнения через "или"...
Разделите на три строки и не мучайтесь...

If Menu = 0 Then ...
If Menu >= 21 And Menu <= 29 Then ...
If Menu >= 210 And Menu <= 290 Then ...

Если результаты сравнений должны привести в одну точку, тогда для всех: If ... Then <метка перехода>

Ну а я об чем ?

   Начинаем "сравнения":
If Menu = 0 Then <одна точка>
   Если не "прокатывает, то:
If Menu >= 21 And Menu <= 29 Then <одна точка>
   Если и тут не прокатило, то:
If Menu >= 210 And Menu <= 290 Then <одна точка>

Только лучше установить более четкие границы для сравнения, так точнее обрабатывается.
If Menu = 0 Then <одна точка>
If Menu > 20 And Menu < 30 Then <одна точка>
If Menu > 209 And Menu < 291 Then <одна точка>

Отредактировано Nord (2017-11-17 23:05:03)

Понял. Попробую таким образом реализовать алгоритм.

Nord
а нечего лопать после 6 вечера 
и ваще - может у человека шаббат, а вы его грешить хотите заставить

Bascom не любит таких глубоких вложений.
Придется использовать дополнительные переменные.

С = В - 50
D = B + 50

И потом уже:
If A > C And A < D ...
.....

По таймеру.
Тут исходников часовых немало.

Вот кусок кода , тут двоеточее должно мигать при смене значения переменной Seco - эта переменная получена от DS1307 ,  двоеточие конечно мигает но не так как надо.