Допустим, есть у меня массив переменных:
Dim Rec1(44099) As Integer
В массив записывается, например, такой простой звук:
For I = 0 To 44099 Rec1(I) = 32767 * Sin(DegToRad(I * (360 / 44100) * 1000)) Next I
Такой цикл, по идее (хотя я его не проверял), должен генерировать синусовый ритм частотой 1000 Гц при частоте дискретизации 44100 Гц. Продолжительность всего звука должна составлять 1 секунду, а разрешение одного сэмпла - 16 бит. Если частоту дискретизации сделать 22050 Гц, продолжительность звука станет 2 секунды, а частота - 500 Гц. ТАК ВОТ кто-нибудь подскажет, как проиграть такой звук с определённой частотой дискретизации?
Ответить
|