topic Re: How to play Windows WAV sound with JSL? in Discussions

How to play Windows WAV sound with JSL?

lala — Fri, 09 Jun 2023 17:01:41 GMT

Can I not use this command?

run program(executable(""),options({""}))

audio files

C:\Windows\Media\tada.wav

Thanks!

Re: How to play Windows WAV sound with JSL?

lala — Fri, 17 Jun 2022 07:14:27 GMT

I write the code like this and it automatically shuts down without success.

RunProgram( executable( "C:\Program Files\Windows Media Player\wmplayer.exe" ), options( {"C:\Windows\Media\tada.wav"} ) );
Wait( 3 );
RunProgram( executable( "cmd.exe" ), options( {"/c Taskkill /im wmplayer.exe /f /t"} ) );

Re: How to play Windows WAV sound with JSL?

lala — Fri, 17 Jun 2022 07:16:02 GMT

AutoHotkey can play this file like this:

SoundPlay, %A_WinDir%\Media\tada.wav
Sleep 2000

Re: How to play Windows WAV sound with JSL?

peng_liu — Sun, 19 Jun 2022 01:49:55 GMT

I am not sure that JMP can do that. I vaguely remembered JMP can play midi. But if anyone has the experience about this, I would think of @Craige_Hales . Why don't you first check out his post Working with WAV files

Even if his post might not have said how to play a WAV file, you may trace his work to find out how to deal with windows DLL. It seems possible to use WINMM.DLL to play WAV; see here (though might be out-dated.)

Re: How to play Windows WAV sound with JSL?

lala — Sun, 19 Jun 2022 03:13:54 GMT

Thanks for the tip!

Re: How to play Windows WAV sound with JSL?

Craige_Hales — Sun, 19 Jun 2022 11:44:16 GMT

uses

	If( playFromMemory & useSoundPlayer, // from memory
		mmdll << PlaySoundA( Blob To Matrix( riffblob, "float", 8, "native" ), 0, 5 )//
	, // else via file
		filename = Save Text File( "$desktop/note.wav", riffblob );
		If( useSoundPlayer,
			mmdll << PlaySoundA(
				Blob To Matrix( Char To Blob( filename ) || Matrix To Blob( [0, 0, 0, 0, 0, 0, 0, 0, 0], "int", 1, "little" ), "float", 8, "native" ),
				0,
				131073
			)
		);
	);

the PlaySoundA entrypoint in the DLL can't overlap audio files and is a bit arcane and needs a bit of setup.

and use

wavname = RiffUtil:WavWriter( "$temp/rotate.wav", bigbuf ); 
Open( wavname );

and is similar, Open( temp ), for a .mid file extension. Open() opens the built in player. The midi player example uses two files because the open player keeps the other one in use.

uses (This is the best way to play overlapping sound files.)

pgm = Eval Insert( "(New-Object Media.SoundPlayer \!"^filename^\!").PlaySync();" );
			//write("\!npowershell ",pgm);
			Insert Into(Audio:rphandles,
				Run Program( executable( "powershell" ), options( {"-c", pgm} ), readfunction( Function( {this}, Write( this << read ) ) ) )
			);

This project is a side-scroller game with a rich sound tapestry to enhance the ambiance...

uses the built-in speech function to make an ooomph! sound. (This, and the beep function, are easy but not very flexible.) Another game. Beware the shaking screen!

appears to write a file to disk but not actually play it. Wav files have a modestly complex format to hold a set of samples (mono, stereo, 48 ... 8 kHz, ...)

As much as I love audio, I was never able to justify spending time adding audio support to a statistics package. If you have a great use-case, add it here!

Re: How to play Windows WAV sound with JSL?

lala — Sun, 19 Jun 2022 12:21:24 GMT

Thank Craige!

The reason I wanted JSL to play the audio was simple: to use JSL to play the sound to remind when the data conditions of the data sheet are specified.The simplest way to implement the alert will do.Thanks!

Re: How to play Windows WAV sound with JSL?

Craige_Hales — Sun, 19 Jun 2022 16:37:31 GMT

this might be all you need

beep( );

You might be able to use

speak("Ready!")

but I don't know how to localize it to a language other than English. You can make it say some random sounds.

speak("aeiou");

It will use a different voice/algorithm on different computers/OSs/versions...