SETVOICESOUND |
Fixe le son d'un voix |
|---|---|
| Turbo Pascal pour Windows | WINPROCS |
Syntaxe
| Function SetVoiceSound(Voice: Integer; Frequency: LongInt; Duration: Integer): Integer; |
Paramètres
| Nom | Description |
|---|---|
| Voice | Ce paramètre permet d'indiquer la voix. |
| Frequency | Ce paramètre permet d'indiquer la fréquence sonore. |
| Duration | Ce paramètre permet d'indiquer la durée de la fréquence sonore. |
Description
Cette fonction permet de fixer les voix sonores.
Remarques
- Vous devez avoir le paramètre «DEVICE=SOUND.DRV» dans le fichier de configuration «CONFIG.SYS» ou les paramètres suivants dans le fichier «SYSTEM.INI» :
- Le résultat de cette fonction n'ont jamais été très concluant, il pourrait être préférable d'utiliser directement le Port[$61], Port[$43] et Port[$42] afin de produire une fréquence sonore.
|
[boot] sound.drv=mmsound.drv [drivers] wave=speaker.drv |
pour faire fonctionner correctement cette fonction.
Exemple
Voici un exemple permettant d'émettre fréquence sonore différentes :
- Program SetVoiceSoundSamples;
-
- Uses WinCrt,WinProcs;
-
- BEGIN
- If(OpenSound > 0)Then Begin
- WriteLn('On commence...');
- SetVoiceSound(1, 100 * (1 shl 16), 100);
- SetVoiceSound(1, 90 * (1 shl 16), 90);
- SetVoiceSound(1, 80 * (1 shl 16), 90);
- StartSound;
- Repeat Until (WaitSoundState(1) <> 0);
- CloseSound;
- WriteLn('C''est terminé');
- End
- Else
- Begin
- WriteLn('Impossible d''ouvrir un canal de son !');
- End;
- END.
Dernière mise à jour : Dimanche, le 10 décembre 2017