Anonymous user
Metronome: Difference between revisions
Metronome for Ada added. Metronome is a 60bpm
Thundergnat (talk | contribs) m (Restore broken image link) |
(Metronome for Ada added. Metronome is a 60bpm) |
||
Line 14:
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|Ada}}==
{{This metronome only does 60 bpm with 1 Measure length.}}
<lang Ada>
with Ada.Text_IO; use Ada.Text_IO;
--This package is for the delay.
with Ada.Calendar; use Ada.Calendar;
--This package adds sound
with Ada.Characters.Latin_1;
procedure Main is
begin
Put_Line ("Hello, this is 60 BPM");
loop
Ada.Text_IO.Put (Ada.Characters.Latin_1.BEL);
delay 0.9; --Delay in seconds. If you change to 0.0 the program will crash.
end loop;
end Main;</lang>
=={{header|AutoHotkey}}==
| |||