[BlackMonsta]

Здравствуйте, помогите реализовать одну функцию. Нужно сделать Темп в программе, вот например: ввожу в Edit1 число(Темп музыки), и есть таймер, и вот в обработчике таймера находится функция воспроизведения. И вот нужно сделать так чтобы число в Edit1(Темп) перевелся бы на время таймера как Темп. Вот пример : http://ru.wikipedia.org/wiki/BPM_(%D...8B%D0%BA%D0%B0)
Справа есть пример. Заранее спасибо

[M.A.D.M.A.N.]

Как воспроизводится звук? Напрямую в буферы вывод дискретного сигнала?

[BlackMonsta]

ну вот просто через bass.dll, это не главное, в обработчике таймера может и другая функция стоять, главное вот из числа введенного в Edit1 из него сделать темп и это число(темп) вставить в интервал таймера, и функция будет срабатывать под темп.

[Alegun]

Вика так Вика

BPM (bpm, англ. beats per minute, удары в минуту) в музыке — показатель, определяющий скорость исполнения или воспроизведения композиции. BPM — это количество четвертных нот в минуту, например, 120 BPM означает, что в минуту играется 120 четвертных нот (следовательно, 2 четверти в секунду), или 120 четвертных ударов метронома в минуту.

Interval = 1000 у таймера это одна секунда, следовательно 60000 это минута. Выходит что 60000/120 = 120 BPM

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Interval:= 60000/StrToInt(Edit1.Text);

 PlayUdarnik; 

end;

Но здесь тогда лучше вместо едита спинедит использовать, иначе есть вероятность получить AV, если случайно поле ввода окажется пустым при выполнении

[M.A.D.M.A.N.]

Сообщение от Alegun

Но здесь тогда лучше вместо едита спинедит использовать, иначе есть вероятность получить AV, если случайно поле ввода окажется пустым при выполнении

StrToIntDef(blabla, 1)

[BlackMonsta]

Тут ошибочка вышла, код не верный, если 60000 разделить на 140 то это будет не темп 140... там получается число 428,...

[Uniq!]

428 - это количество ms между следующей и предыдущей четвертью.

[Alegun]

Сообщение от BlackMonsta

Тут ошибочка вышла, код не верный, если 60000 разделить на 140 то это будет не темп 140... там получается число 428,...

Нет ошибки - за одну минуту таймер сработает 140 раз, а 428 это... Спасибо УК Uniq!, вы доходчиво объяснили товарищу тээсу