Вывод звука определенной частоты в короткие промежутки времени

Posted by Chas under Delphi

нужно вывести на колонки звуковые отрывки частотой к примеру 1000Hz длительностью 30-100 МСек и между звуками паузу такой же длительности.

veniside
вот код, который пищит 1000Hz в течении 30 мс, а потом 970 мс молчит, и так 3 раза

program

  GenWave;

{$APPTYPE CONSOLE}
uses

  SysUtils, Math,

  MMSystem;
const

  sps	= 44100;	// samples per second (Hz)

  freq	= 1000;	 	// signal frequency (Hz)

  time	= 30;		// time of signal (ms)
type

  int16 = smallint;
var

  second: array[0..sps] of int16;	// full second
// --  --

procedure prepareSine();

var

  i, nSamples: Integer;

  angle, delta: double;

begin

  nSamples := sps * time div 1000;	// signal length in samples

  //

  angle := 0;

  delta := (freq / sps) * 2 * Pi;	// how much in one sample

  //

  for i := 0 to nSamples - 1 do begin

    //

    second := round(sin(angle) * 32767);

    angle := angle + delta;

  end;

end;
// -- main --
var

  i: integer;

  wout: hWaveOut = 0;

  fmt: tWAVEFORMATEX;

  hdr: array[0..2] of WAVEHDR;

begin

  prepareSine();

  //

  fmt.wFormatTag := 1; // PCM

  fmt.nChannels := 1; // mono

  fmt.nSamplesPerSec := sps;

  fmt.nAvgBytesPerSec := sps shl 1;	// * 2

  fmt.nBlockAlign := 2;

  fmt.wBitsPerSample := 16;

  fmt.cbSize := 0;

  //

  WaveOutOpen(@wout, cardinal(-1), @fmt, 0, 0, 0);

  if (0 <> wout) then begin

    //

    for i := 0 to 2 do begin

      //

      fillChar(hdr, sizeof(hdr), #0);

      hdr.lpData := @second;

      hdr.dwBufferLength := sizeof(second);

      //

      waveOutPrepareHeader(wout, @hdr, sizeof(hdr));

      WaveOutWrite(wout, @hdr, sizeof(hdr));

    end;

    //

    Sleep(3001);	// sleep for 3 seconds

    //

    WaveOutClose(wout);

  end;

end.

важно понять, что мы сами управляем, где тишина, где сигнал, формируя данные в буферах. Как только один буфер отработал, мы можем его использовать повторно.

тема на форуме

Похожие статьи

• Считывание звука с микрофона и его воспроизведение или запись
• Воспроизводит звук из буфера или потока с помощью BASS.dll
• Озвучка часов
• Добавить звук в программу
• Включить и выключить звук в ОС
• Проиграть сигнал больше чем 1 сек