Генерирования звука в Delphi7

[Miha85193]

Здравствуйте!

Подскажите пожалуйста, если кто то знает, как в Delphi7 можно сгенерировать звуковой сигнал с заданной частотой?

[raxp]

1- вариант

2- вариант

[notHaker]

Ужс... Вы чего хоть так молодёжь пугаете ...

function  BuildSinForm(Freq, SampRate, CurSamp, HB : DWORD) : SmallInt; stdcall;
var
 kSamp : extended;
begin
 kSamp := Pi2/(SampRate/Freq); //На сколько "поворачивается" Y в радианах на inc(CurSamp)
 Result := round(HB * Sin(CurSamp * kSamp));
end;

Miha85193, если не понятно, то учите математику.

[Miha85193]

Ну на счет математики вроде разобрался, а вот в остальном, не совсем понимаю, что должно приводить в эту функцию действие. Ведь генерация звуковых колебаний (как известно из физики) это циклическое явление. Да и потом, какой механизм этого всего, вообще не ясно. Думаю для понимания одной математикой тут не обойтись.

[Demi]

Двигайтесь в сторону BASS.DLL если хотите именно услышать звук..
Там есть такой пример.

[Stilet]

notHaker

Что-то я не понял а чем собсно beep не устроил?

[raxp]

Вы чего хоть так молодёжь пугаете

собственно, а где в вашем способе генерация, исключая математику и чем beep() так страшен

[notHaker]

Сколько критики...

BuildSinForm(Freq, SampRate, CurSamp, HB : DWORD)

Freq - генерируемая частота
SampRate - частота дескретизации
CurSamp - текущий сэмпл
HB - максимальная амплитуда

Думаю для понимания одной математикой тут не обойтись.

делаете цикл и вставляете вместо CurSamp значение i цикла и получаете на выходе функи значение амплитуды заданной частоты с учётом частоты дискретизации. И всё.

Пример

procedure TForm1.Button1Click(Sender : TObject); //Не помню как точно
var
  CurAmp : integer;
begin
for i := 0 to Form1.ClientWidth - 1 do
begin
  CurAmp := BuildSinForm(2, Form1.ClientWidth, i, Form1.ClientHeght div 2);
  Form1.Canvas.LineTo(i, CurAmp + Form1.ClientHeght div 2); //Рисуем график
end;
end;

Что-то я не понял а чем собсно beep не устроил?

Он ничему не учит.

[Stilet]

Он ничему не учит.

ОФФТОП: Класная отмазка ))))))))))))))))))))))

[Miha85193]

Что-то я не понял а чем собсно beep не устроил?

Всё было бы хорошо если бы у разработчиков этих функций, было не всё так плохо с фантазией. Есть Beeb - Object Pascal, и есть Beeb - WinAPI, с параметрами. Но последняя работает только в NT.