Discussion :

[c guine]

Je cherche comment générer des sons sous Windows.
Je l'ai fait sous Linux avec Audio:ata et Audio:lay mais je n'ai pas trouvé l'équivalent sous Windows.
Le but final étant de faire du morse à partir d'un texte.

Merci pour votre aide

[Jedai]

http://www.developpez.net/forums/viewtopic.php?t=388413


--
Jedaï

[c guine]

OK Jedai vous avez répondu pour faire des sons sous Linux mais là je demande quelque chose de différent, je veux à partir d'un texte générer des sons semblables à du morse. Je donne le code en Linux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
# editmorse emission en morse de l'entree
use Audio::Data;
use Audio::Play;
 
my $freq = 400;
my $dot  = 0.07;
my $dash = 3*$dot;
 
my %morse = ( A => '.-', B => '-...', C => '-.-.', D => '-..',
           E => '.', F => '..-.', G => '--.', H => '....', 
           I => '..', J => '.---', K => '-.-', L=> '.-..',
           M => '--', N => '-.', O => '---', P => '.--.',
           Q => '--.-', R => '.-.', S => '...', T => '-',
           U => '..-', V => '...-', W => '.--', X => '-..-',
           Y => '-.--', Z => '--..',
           1 => '.----', 2 => '..---', 3 => '...--', 4 => '....-',
           5 => '.....', 6 => '-....', 7 => '--...', 8 => '---..',
           9 => '----.', 0 => '-----', ' ' => ' ');
 
my $au = Audio::Data->new(rate => 8000);
 
sub morse
{
 my ($au,$s) = @_;
 while (length $s)
  {
   my $sym = $morse{uc(substr($s,0,1))};
   if (defined $sym)
    {
     while (length($sym))
      {
       for (substr($sym,0,1))
        {
         $au->tone($freq,$dot) if (/\./); 
         $au->tone($freq,$dash) if (/-/); 
         $au->silence(3*$dash) if (/\s/); 
        }
       $au->silence($dot);
       substr($sym,0,1) = "";
      }
     $au->silence($dash);
    }
   substr($s,0,1) = "";
  }
}
sub editmorse {
my $entree = @_;
 {
  morse($au,$_);
 }
 
my $svr = Audio::Play->new;
 
$svr->play($au);
}
1;

Est ce plus clair?

[Jedai]

Tu remarqueras que dans le premier post du topic que je t'ai transmis, on fait allusion au module Win32::Sound, si tu n'as pas remarqué, c'est ce que j'appelle ne pas lire une réponse...

--
Jedaï

[c guine]

L'explication était un peu elliptique mais merci pour le coup de main