Metronome: Difference between revisions

If the language has no facility to output sound, then it is permissible for this to implemented using just the visual indicator.

<br><br>

 

=={{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|Common Lisp}}==

Depends on quicklisp and OpenAL.

 

(defparameter *short-max* (- (expt 2 15) 1))

(h (play-it high-buffer)))

(princ symbol))

<pre>CL-USER> (metronome 100 '(h l l l))

HLLL

HLL; Evaluation aborted on NIL.</pre>

 

=={{header|EchoLisp}}==

;; available preloaded sounds are : ok, ko, tick, tack, woosh, beep, digit .

(lib 'timer)

(at-every 1000 'metronome) ;; every 1000 msec

;; CTRL-C to stop

 

 

=={{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 ;

 

 

 

 

</pre>

 

=={{header|Go}}==

It would be reasonably simple (but covered better in other tasks)

to change bpm and bpb into command line arguments,

So, as long as the output or sound production finishes before the next tick,

the timing will be reliable and will not drift which is the gist of this task.

 

import (

}

}

{{out}}

<pre>

TICK tick ^C

</pre>

=={{header|Haskell}}==

 

{{works with|GHC|7.4.2}}

 

import Control.Concurrent.MVar

import System.Process (runCommand)

_ <- forkIO $ tick b i

_ <- getChar

 

=={{header|J}}==

MET returns the total number of measures, beats, and elapsed time.<br>

If you leave out the left arguments, it will set them to infinity, so you can go insane without worrying about the metronome ever stopping.

MET=: _ _&$: :(4 : 0)

 

'`print delay'=: 1!:2&4`(6!:3)

met=: _&$: :((] ({:@] [ LF print@[ (-.@{.@] [ delay@[ print@] (BEL,2#BS) , (2 2$'\ /') {~ {.@])^:({:@])) 1 , <.@%) 60&% [ print@('\ '"_))

{{out}}

<pre>

bpb \ bpm \

</pre>

=={{header|Java}}==

class Metronome{

double bpm;

while(true){

try {

}catch(InterruptedException e) {

e.printStackTrace();

public class test {

public static void main(String[] args) {

metronome1.start();

}

}

=={{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}}==

</ul>

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

msPerBeat.i

BeatsPerMinute.i

Data.q $787A7A7976757678,$415380817C777576,$2C31000002005255,$30202C36202C3020

eClick:

 

=={{header|Python}}==

#lang Python

import time

main()

 

 

=={{header|Racket}}==

#lang racket

 

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

(void (thread flip))

 

=={{header|REXX}}==

===textual visual, no sound===

parse arg bpm bpb dur . /*obtain optional arguments from the CL*/

if bpm=='' | bpm=="," then bpm=72 /*the number of beats per minute. */

end /*until e≥es*/

end /*until et≥dur*/

'''output''' &nbsp; when using the default inputs:

<per>

===with sound, REGINA only===

This REXX version &nbsp; ''only'' &nbsp; executes when using the Regina REXX interpreter.

parse arg bpm bpb dur tockf tockd tickf tickd . /*obtain optional arguments from the CL*/

if bpm=='' | bpm=="," then bpm= 72 /*the number of beats per minute. */

end /*until e≥es*/

end /*until et≥dur*/

 

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

parse arg bpm bpb dur tockf tockd tickf tickd . /*obtain optional arguments from the CL*/

if bpm=='' | bpm=="," then bpm= 72 /*the number of beats per minute. */

end /*until e≥es*/

end /*until et≥dur*/

 

=={{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}}