Вика так Вика
Цитата:
|
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, если случайно поле ввода окажется пустым при выполнении