Nautical bell: Difference between revisions

{{task}}

[[Category: Date and time]]

The bell timing should be in accordance with [[wp:GMT|Greenwich Mean Time]], unless locale dictates otherwise.

 

It is permissible for the program to [[Run as a daemon or service|daemonize]], or to slave off a scheduler, and it is permissible to use alternative notification methods (such as producing a written notice "Two Bells Gone"), if these are more usual for the system type.

 

* [[Sleep]]

 

=={{header|AppleScript}}==

 

set {hours:h, minutes:m} to (current date)

if {0, 30} contains m then

end if

delay 60

 

=={{header|C++}}==

This version uses local time.

#include <iostream>

#include <string>

}

//--------------------------------------------------------------------------------------------------

Output:

<pre>

=={{header|D}}==

This code uses local time instead of Greenwich Mean Time.

 

class NauticalBell : Thread {

writeln(e.msg);

}

This output is from an actual test run.

<pre>

08:30:00 : 1 bell

09:00:00 : 2 bells</pre>

 

=={{header|Haskell}}==

This solution first creates a general way of scheduling tasks on a time interval, and then schedules a "ringing" task. If used in a terminal it will also produce noise. Local time is used.

import Control.Concurrent

import Control.Monad

bellRinger = doWithScheduler (onInterval (30*60)) ringBells

 

 

{{out}}

 

=={{header|J}}==

 

 

WATCH =: <;._1 ' Middle Morning Forenoon Afternoon Dog First'

end.

y

 

 

'''Notes''': I tested the <tt>clock2ship</tt>, <tt>callWatch</tt>, and <tt>ringBell</tt> functions, but didn't actually have the patience to test <tt>shipsWatch</tt> over a 24-hour period. Use at your own risk (but don't use it to keep watch on your galleon, please).

This code uses UTC time.

{{trans|D}}

import java.text.SimpleDateFormat;

import java.util.TimeZone;

Thread.sleep(wait);

} catch (InterruptedException e) {

}

}

}

 

Sample output:

...</pre>

 

 

 

my @ordinal = <One Two Three Four Five Six Seven Eight>;

my $thishour;

my $thisminute = '';

bell($thishour, $thisminute);

}

sleep(1);

}

chime($bells);

}

{{out}}

 

=={{header|PL/I}}==

This program sounds the bell as well as displaying "gong" an appropriate number of times. It operates on local time.

nautical: procedure options (main); /* 29 October 2013 */

declare (hour, t, i) fixed binary;

end;

end nautical;

 

=={{header|Python}}==

As well as typing output to stdout, this program plays a sound for each bell as the ␇ characters are printed (The spaces between the ␇ characters are mirrored as varying delays between each ring).

 

duration = 750 # Bell duration in ms

if __name__ == '__main__':

{{out}}

<pre>00:00, First watch 8 bells ␇ ␇ ␇ ␇ ␇ ␇ ␇ ␇

that displays \a by playing the system bell, it will play the system bell.

 

 

(require racket/date)

(wait-til s)

(format-and-print hours (add1 bells))))

 

This might produce the following output:

</pre>

 

 

=={{header|REXX}}==

 

If any arguments are specified, that text is used as a prefix to the times shown (once a minute).

In all cases, the PC speaker is used to sound the bells (albeit a poorly sounded bell).

 

 

 

 

 

<pre>

the time is: 1:48pm

∙

∙

</pre>

 

=={{header|Ruby}}==

watch_ends = [ "00:00", "04:00", "08:00", "12:00", "16:00", "18:00", "20:00", "23:59" ]

words = ["One","Two","Three","Four","Five","Six","Seven","Eight"]

end

sleep 1

 

{{out|Sample output}}

 

=={{header|Seed7}}==

include "time.s7i";

include "duration.s7i";

flush(OUT);

end while;

 

{{out}}

 

=={{header|Tcl}}==

# using the Snack library.

proc ringTheBell {} {

fconfigure stdout -buffering none

every 1000 nauticalBell

{{out|Sample output}}

<pre>

18:30 Last dog watch, Five Bells Gone: ♫ ♫ ♪

⋮

</pre>