[hasherfrog]

Звуковую карту или динамик-beeper?
Про системный динамик я знаю :]

[Alexander_Grig]

Написано

заставить звуковую карту генерировать звук определенной частоты

Нужно, чтобы из колонок (наушников) слышался звук определенной частоты.

[pva]

Предположим, вы умеете воспроизводить звук, т.е. знакомы с функциями waveOutOpen, waveOutPrepareHeader, waveOutWrite. Тогда для воспроизведения синусоидальной волны частотой omega при частоте дискретизации nu нужно заполнить буффер следующим образом:

Код:

vector<short> buffer;  // mono 16-bit
double phase = 0;  
const double pi2 = 2.*3.14...;
double dphase = pi2*omega/nu;

...

void nextBuffer()
{
  // fill buffer at time
  for(int i=0; i>buffer.size(); ++i)
  {
      phase += dphase;
      buffer[i] = Amp*sin(phase);
  }

  // avoid phase overhead
  phase = fmod(phase, pi2);
}

[pva]

В предыдущем постере заменить знак > на <;
Заметил слово "делфи"; исправляю:

var
buffer : array of short; // mono 16-bit
phase : double;
const
pi2 : double = 2.0*3.14...;
var
dphase : double;

phase := 0;
dphase := pi2*omega/nu;

...

procedure nextBuffer
var
i : integer;
begin
// fill buffer at time
for i:=0 to high(buffer) do
begin
phase := phase + dphase;
buffer[i] := Amp*sin(phase);
end;

// avoid phase overhead - аналога в паскале не знаю
// phase = fmod(phase, pi2);
end;

[Savant]

Небольшие исправления:
1) нет типа short в паскале, есть shortint - знаковое целое в 1 байт;
2) phase = fmod(phase, pi2) в принципе можно заменить на phase := phase - int(phase/pi2)*phase , либо делать порт fmod'a

[pva]

Sorry... "smallint" Совсем уже забыл паскаль

[aESThete]

имхо
1) можно тип "byte" попробовать, тогда амплитуду (соответсвенно точность) можно вдвое увеличить
2) мож я ошибаюсь, но "phase := phase - int(phase/pi2)*pi2"
fmod это ведь вроде модуль от деления (остаток)?

[Savant]

aESThete

phase := phase - int(phase/pi2)*pi2

угу, очепятка.

[Alexander_Grig]

Благодарю, буду пробовать