Audio alarm: Difference between revisions

=={{header|AutoHotkey}}==

Uses Run for maximum compatibility

FileSelectFile, File, 3, %A_ScriptDir%, File to be played, MP3 Files (*.mp3)

Sleep Seconds*1000

 

=={{header|AWK}}==

# syntax: GAWK -f AUDIOALARM.AWK

BEGIN {

exit(0)

}

 

=={{header|Batch File}}==

@echo off

 

timeout /t %time% /nobreak >nul

start "" "%alarm%.mp3"

{{out}}

<pre>

{{libheader| Bass}}

'''Bass''' is a third part library, free for non-commercial use, can be found here [https://www.un4seen.com]. Require a '''bass.dll''' in the same folder of executable.

program AudioAlarm;

 

BASS_StreamFree(Music);

BASS_Free();

{{out}}

<pre>Enter name of .mp3 file to play (without extension) :

 

=={{header|EchoLisp}}==

(lib 'timer)

(lib 'audio)

Time to wake-up ;; + ... 🎼 🎶🎵🎶🎵

 

 

 

=={{header|FreeBASIC}}==

Dim As String song

Input "Delay in seconds: ", sec

Exec(exename, song)

 

 

 

=={{header|Go}}==

As Go does not have any audio support in its standard library, this invokes the SoX utility's 'play' command to play the required .mp3 file.

 

import (

log.Fatal(err)

}

 

=={{header|Java}}==

import java.io.File;

import java.util.Scanner;

System.exit(0); // To stop the JavaFX thread.

}

 

=={{header|JavaScript}}/{{header|HTML}}==

<script>

var a=prompt("Enter a number of seconds", "");

var b=prompt("Enter the name of an MP3 file you have installed in the directory (without extension)", "");

document.write("<meta http-equiv='refresh' content='"+a+";url="+b+".mp3'>")

 

=={{header|Julia}}==

Works when the computer will play an MP3 file with the "play" command.

(secs = tryparse(Int, readline())) == nothing && (secs = 10)

 

sleep(secs)

run(`play "$soundfile"`)

 

 

=={{header|Kotlin}}==

For this to work on Ubuntu, 'glib' and 'libav-tools' need to be installed on your system.

 

import javafx.application.Application

val fileName = readLine()!! + ".mp3"

AudioAlarm.create(seconds, fileName)

 

Sample input:

If not already running, this will add an extra delay...

It will error if the mp3 file does not exist in the specified path.

 

prompt "Delay in seconds"; sec$

run "C:\Program Files\Windows Media Player\wmplayer.exe " +chr$(34) +f$ +chr$(34)

 

 

=={{header|Lua}}==

luasdl2 and luafilesystem libraries required.

 

mixer = require "SDL.mixer"

lfs = require "lfs"

print("Press Enter to quit")

io.read()

 

=={{header|Nim}}==

{{Trans|Go}}

 

var delay: int

stdout.eraseScreen()

if execShellCmd("play $#.mp3" % filename) != 0:

 

=={{header|OCaml}}==

requires mpg123 to be installed.

 

| 0 -> ()

| n -> Sys.command "sleep 1"; wait (n - 1);;

wait time;;

Sys.command ("mpg123 " ^ fileName);;

 

 

=={{header|Phix}}==

 

=={{header|Pure Data}}==

{{works with|Python|3.4.1}}

 

import os

 

 

time.sleep(float(seconds))

 

=={{header|Racket}}==

Racket does not currently have native mp3 support so this example uses system to call an external application.

(display "Time to wait in seconds: ")

(define time (string->number (read-line)))

(when (file-exists? (string->path (string-append file-name ".mp3")))

(sleep time)

 

=={{header|REXX}}==

===using SLEEP===

 

say '──────── Please enter a number of seconds to wait:'

call sleep waitTime

MP3FILE'.MP3'

'''output''' when using the input of: <tt> xxx </tt>

 

===using spin===

 

say '──────── Please enter a number of seconds to wait:'

 

MP3FILE'.MP3'

 

=={{header|Ring}}==

# Project : AudioAlarm

 

sleep(sec)

system("C:\Ring\wmplayer.exe C:\Ring\calmosoft\" + f)

Output:

 

requires mpg123 to be installed.

 

seconds = gets.chomp.to_i

puts "Enter a MP3 file to be played"

sleep(seconds)

pid = fork{ exec 'mpg123','-q', mp3filepath }

 

=={{header|Tcl}}==

{{libheader|Snack}}

 

fconfigure stdout -buffering none

snd destroy

puts "all done"

 

=={{header|Wren}}==

 

Currently, DOME can only playback .wav and .ogg files so we use the former here.

import "graphics" for Canvas, Color

import "audio" for AudioEngine

}

 

 

=={{header|XPL0}}==

Works on Raspberry Pi.

char FN(80), Ext;

[Text(0, "Number of seconds to wait? ");

DelayUs(Time * 1_000_000);

PlaySoundFile(FN);

 

=={{header|Yabasic}}==

input "What file to play: " song$

wait sec

 

system("explorer " + song$)

 

=={{header|zkl}}==

There is no built in sound support so this example is coded for my Linux box.

A change: rather than seconds to wait, a time is used.

file:=ask("File to play: ") + ".mp3";

 

//Atomic.sleep(time);

//System.cmd("mplayer "+file);

{{out}}

<pre>