Metronome: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
|||
Line 934: | Line 934: | ||
130 if counter=bpb then counter=0 |
130 if counter=bpb then counter=0 |
||
140 return</lang> |
140 return</lang> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
Shows/plays a visual and auditory metronome: |
|||
<lang Mathematica>s = Sound[Play[Sin[1000 t], {t, 0, 0.05}]]; |
|||
ss = Sound[Play[Sin[2000 t], {t, 0, 0.05}]]; |
|||
bpm = 180; |
|||
slp = 60/bpm; |
|||
color = White; |
|||
i = 0; |
|||
Dynamic[Graphics[{color, Disk[]}, ImageSize -> 50]] |
|||
While[True, |
|||
i = Mod[i + 1, 4, 1]; |
|||
color = {Green, Red, Darker@Red, Red, Darker@Red}[[i]]; |
|||
If[i == 1, |
|||
EmitSound[ss] |
|||
, |
|||
EmitSound[s] |
|||
]; |
|||
Pause[slp]; |
|||
]</lang> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |