Bonjour à tous,
j'aime programmer en Pascal.
Je voudrais savoir si, pour faire un son, on ne doit utiliser que 'sound' 'delay' et 'nosound'. Si ce n'est pas le cas, quelles sont les autres fonctions ?
.
Bonjour à tous,
j'aime programmer en Pascal.
Je voudrais savoir si, pour faire un son, on ne doit utiliser que 'sound' 'delay' et 'nosound'. Si ce n'est pas le cas, quelles sont les autres fonctions ?
.
Salut;
Pour la lecture d'un son, il y a ceci :Pour "faire" un son, je ne connais que Sound/NoSound
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 {$M 8192,0,0} uses Dos,Crt; var Command,Fic: string[79]; begin fic:='C:\WINDOWS\Media\Micros~1\Applause.wav'; Command:='sndrec32 /play /embedding /close '+ fic; Command := '/C ' + Command; SwapVectors; { Repeat } Exec(GetEnv('COMSPEC'), Command); { Until KeyPressed;} SwapVectors; if DosError <> 0 then Writeln('Ne peut executer CMD.EXE'); Readln; end.
Ne pas oublier le tag
si satisfait.
Voter pour toute réponse satisfaisante avec
pour encourager les intervenants.
Balises CODE indispensables. Regardez ICI
Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
Vous pouvez consulter mes contributions
Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
Ne pas oublier L'Aide VBScript et MSDN VB6 Fr
il y a aussi la librairie openAL pour le son.
Tu peux aussi regarder du côté de SDL_Mixer. Qui permet de lancer une musique de fond sur un programme console ou GUI. Le seule Hic, c'est que tu dois te balader avec une dll dans tes programmes compilés.
http://www.freepascal-meets-sdl.net/
Il en parle dans le chapitre 7
Cordialement
Titeeee
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager