Help for this page

Select Code to Download


  1. or download this
    my $WAV1 = new Win32::Sound::WaveOut($sound_a) or die "WaveOut: $!";
# open sound for channel 1
...
$WAV1 -> Volume($level_a, $level_a);
$WAV1 -> Play() or die "Play: $!";
# play sound with the level set
  2. or download this
    my $level_a_scale = $frame3-> Scale(-variable=>\$level_a, -from => 0, 
+-to => 65535);
  3. or download this
    $WAV1 -> Volume($level_a, $level_a);