Nautical bell: Difference between revisions

 

=={{header|AppleScript}}==

This version uses local time and speaks the bell rings using OS X's built-in speech synthesizer.

 

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

if {0, 30} contains m then

end if

delay 60

 

Alternatively, you could remove the forever loop and set it up to run every half hour via launchd or cron.

=={{header|AWK}}==

# syntax: GAWK -f NAUTICAL_BELL.AWK

BEGIN {

return(new_str)

}

<p>Output:</p>

<pre>

=={{header|C}}==

 

 

#include<unistd.h>

#include<stdio.h>

#include<time.h>

 

 

int main(){

time_t t;

currentTime = localtime(&t);

}

}

}

return 0;

}

 

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

}

}

 

Sample output:

14:00:00 : 4 bells

...</pre>

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.text.DateFormat

}

}

 

Sample output:

....

</pre>

 

=={{header|OoRexx}}==

{{trans|REXX}}

Parse Arg msg

If msg='?' Then Do

Return res

 

 

 

 

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

function Get-Bell

{

Get-Bell -Hour $_ -Minute 30

}

{{Out}}

<pre>

=={{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).

<br>If no arguments are specified, no times are shown.

 

This REXX program makes use of &nbsp; '''delay''' &nbsp; BIF, &nbsp; which delays (sleeps) for a specified amount of seconds.

 

 

Also, some REXXes don't have a &nbsp; '''sound''' &nbsp; BIF, &nbsp; which produces sounds via the PC speaker,

signal on halt /*allow a clean way to stop the program*/

t.1= '00:30 01:00 01:30 02:00 02:30 03:00 03:30 04:00'

t.3= '08:30 09:00 09:30 10:00 10:30 11:00 11:30 12:00'

 

 

 

end /*forever*/

<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>