A Scripting Language for Web, Linux and Windows

A Scripting Language for Web, Linux and Windows

Example: Play Sound

Demonstrates how to play sound on Windows with sound module.

<?v1
dl 
("sound");

// Play WAV file
print ("Play WAV file.");
play_sound ("sound.wav");

// Play System sound
print ("Play Windows system start sound asynchronous.");
play_sound ("SystemStart"SND_ALIAS|SND_ASYNC);

// Play MIDI
// Note: Win7+ has no default MIDI device! Please install MIDI device manually.
deviceId 0;
voice 200;
duration 500;
volume 127;

freqList = array (
    
"c1" => 264,
    
"d1" => 297,
    
"e1" => 330,
    
"f1" => 352,
    
"g1" => 396,
    
"a1" => 440,
    
"h1" => 495,
    
"c2" => 528
);
print (
"Play MIDI notes.");

hMidi midi_create (deviceId);
if (!
hMidi) {
  print (
"No MIDI device found.");
  
// Check Windows version >= Win7
  
if (version(2)>=6) {
    print (
"Note: Your Windows version has no default MIDI device! Please install MIDI device manually.");
  }
}
else {
  foreach (
freqList as note => freq) {
    print (
"Play Note: "note", Voice: "voice);
    
midi_play (hMidifreqdurationvolumevoice); 
    
midi_wait (hMidi); 
    
voice++;
  }
  
midi_close (hMidi);
}

print (
"Stop asynchronous playing of play_sound() function.");
sleep (1000);
play_sound (null0);

?>

back to Home