28 lines
407 B
ObjectPascal
28 lines
407 B
ObjectPascal
program Metronome;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
Winapi.Windows,
|
|
System.SysUtils;
|
|
|
|
procedure StartMetronome(bpm: double; measure: Integer);
|
|
var
|
|
counter: Integer;
|
|
begin
|
|
counter := 0;
|
|
while True do
|
|
begin
|
|
Sleep(Trunc(1000 * (60.0 / bpm)));
|
|
inc(counter);
|
|
if counter mod measure = 0 then
|
|
writeln('TICK')
|
|
else
|
|
writeln('TOCK');
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
StartMetronome(120, 4);
|
|
end.
|