Metronome: Difference between revisions

{{task}}<!--{{task|Temporal media}}-->

 

 

 

=={{header|AutoHotkey}}==

Rather basic implementation, but meets the requirements and is reasonably accurate.

pattern = 4/4 ;

duration = 100 ; Milliseconds

Esc::

MsgBox % "Metronome beeped " beats " beats, over " (A_TickCount-Start)/1000 " seconds. "

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

Tempo% = 100

WAIT 6000/Tempo%

NEXT

 

=={{header|C}}==

Using <code>usleep</code> with self correcting delays. Audio is the bell character, which will definitely drive one insane (but I'm ok: my computer doesn't have the bell device). Invoke with <code>./a.out [beats_per_minute]</code>, default to 60.

#include <stdlib.h>

#include <unistd.h>

 

return 0;

 

=={{header|Factor}}==

command-line continuations io kernel math math.parser namespaces

openal.example sequences system timers ui ui.gadgets

[ [ metronome-cmdline metronome-ui ] [ drop metronome-usage 1 exit ] recover ] with-ui ;

 

 

=={{header|Haskell}}==

{{works with|GHC|7.4.2}}

 

import Control.Concurrent.MVar

import System.Process (runCommand)

_ <- forkIO $ tick b i

_ <- getChar

 

=={{header|Liberty BASIC}}==

Requires two supplied wav files for accentuated & standard sounds.

WindowHeight =220

 

#w "flush"

 

 

 

 

TICK tick tick tick tick tick

TICK tick tick tick tick tick

TICK tick tick tick tick tick

TICK tick tick tick tick tick

</pre>

 

=={{header|PicoLisp}}==

A short beep (440 Hz, 40 msec) is produced in a child process, while a "pendulum" is swinging left and right. Hitting any key will stop it.

(if (fork)

(let Pid @

(T (key (*/ 30000 Bpm)) (tell Pid 'bye)) )

(prinl) )

Test:

/

 

=={{header|PureBasic}}==

<li><font face="Courier New">A milliseconds between each click field

in order to assess accuracy.</font></li>

<li><font face="Courier New">Volumn controls for when you just can't

stand it anymore!</font></li>

</ul>

[[file:MetronomeScreenShot.png|PureBasic output|thumb|200px]]

EndStructure

 

EndEnumeration

 

 

 

Procedure.i Metronome(*m.METRONOMEs)

 

 

EndProcedure

 

 

 

 

 

 

 

 

 

 

EndSelect

ForEver

End

 

 

 

 

 

 

=={{header|Racket}}==

#lang racket

 

(send* f (center) (show #t))

(void (thread flip))

 

=={{header|REXX}}==

===textual visual, no sound===

 

 

===with sound, REGINA only===

 

end /*until et≥dur*/

 

===with sound, PC/REXX only===

 

 

=={{header|Tcl}}==

This code only rings the bell on the high beat, which occurs at the start of the bar.

 

lassign $argv bpm bpb

# Run the metronome until the user uses Ctrl+C...

beat

It might be executed like this:

 

{{omit from|GUISS}}

{{omit from|Lotus 123 Macro Scripting}}

{{omit from|Maxima}}

{{omit from|TPP}}