IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Free Pascal Discussion :

Quelles fonctions utiliser pour gérer le son


Sujet :

Free Pascal

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Décembre 2006
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2006
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Quelles fonctions utiliser pour gérer le son
    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 ?

    .

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 805
    Points
    5 805
    Par défaut Pour lire un son
    Salut;

    Pour la lecture d'un son, il y a ceci :
    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.
    Pour "faire" un son, je ne connais que Sound/NoSound
    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

  3. #3
    Rédacteur
    Avatar de darrylsite
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    1 299
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 299
    Points : 2 501
    Points
    2 501
    Par défaut
    il y a aussi la librairie openAL pour le son.

  4. #4
    Membre éprouvé
    Avatar de EpiTouille
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2009
    Messages
    372
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2009
    Messages : 372
    Points : 917
    Points
    917
    Par défaut
    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

Discussions similaires

  1. Réponses: 3
    Dernier message: 27/10/2011, 17h38
  2. Réponses: 31
    Dernier message: 01/10/2009, 14h21
  3. Quelles fonctions utiliser pour cette vue ?
    Par Fngonka dans le forum SQL
    Réponses: 8
    Dernier message: 23/09/2008, 14h25
  4. Réponses: 3
    Dernier message: 11/11/2005, 15h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo