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

Fortran Discussion :

Emettre un Bip


Sujet :

Fortran

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juillet 2006
    Messages
    79
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2006
    Messages : 79
    Par défaut [Résolu] Emettre un Bip
    Bonjour,

    j'aimerai pouvoir émettre des "bip" dans mon programme.
    D'après le cours de JJ Hunsinger p52.
    ftp://ftp-developpez.com/fortran/cou...et-fortran.pdf
    Il suffit de déclarer en parameter ibell

    PARAMETER (IBELL=7)

    puis d'appeler ibell dans le programme.

    WRITE (*,*) CHAR(IBELL)

    Mais voilà, j'essais en vain de faire fonctionner un programme minimaliste
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    program test
     
    PARAMETER (IBELL=7)
    WRITE (*,*) CHAR(IBELL)
     
    end test
    et ma sortie persiste à être ^G.
    Je travaille sous AIX 5.2 et j'ai tenté une compilation avec xlf90 (de IBM) et GNU/gfortran.
    J'imagine qu'il y a très probablement des problèmes de standard là dessous...si quelqu'un avait la bonté de pouvoir m'éclairer, je lui en serait très reconnaissant

    Par avance merci

  2. #2
    Modérateur

    Profil pro
    Inscrit en
    Août 2006
    Messages
    974
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Août 2006
    Messages : 974
    Par défaut
    J'ai testé de mon côté et ça fonctionne.

    Je crois par contre qu'il est fort possible qu'un format « list-directed » (la 2ième * de ton write) n'affiche pas les caractères plus petit (en ascii) que 32 (espace). Tu devrais donc essayer avec un format "a". J'ai essayé le programme suivant et il fonctionne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    write (*,'(1x,a)') char(7)
    end
    Une autre piste : les compilateurs offrent souvent une fonction / subroutine BEEP. Ce n'est pas standard, mais si tu n'en abuse pas...

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juillet 2006
    Messages
    79
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2006
    Messages : 79
    Par défaut
    bonjour,

    tout d'abord merci pour la réponse.
    Pour faire un bilan de ce que j'ai pu découvrir avec ce problème.

    Les programmes minimalistes donnés dans mon post et dans celui de Sylvain Bergeron fonctionnent sous AIX5.2 avec une compilation par xlf90 (ibm) et avec gfortran.

    Je développe à l'aide d'emacs...et le résultat du programme exécuté dans un buffer de shell emacs et dans une console normale sont différents i.e. pas de son dans emacs et un son dans la console. Donc le problème venait dans mon cas de l'utilisation d'emacs .

    Enfin, d'après mes lectures, il semble que le code ascii bell (7) puisse poser des problèmes à la compilation, mais que assez régulièrement l'absence de son soit également dû à des histoires de configurations des consoles (e.g. bell désactivé et remplacé par un clignotement) ou de la machine utilisée (c'est le cas de mon ordi perso)) !

    En espérant avoir pu faire un petit point sur la question !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Emettre un bip
    Par dogua dans le forum Assembleur
    Réponses: 3
    Dernier message: 01/12/2006, 20h32
  2. Emettre un BEEP (de la tour du pc)
    Par cyberlewis dans le forum C++
    Réponses: 10
    Dernier message: 11/09/2006, 13h28
  3. [Carte mère] Désactiver le bip au démarrage
    Par Vow dans le forum Composants
    Réponses: 7
    Dernier message: 09/01/2004, 21h55
  4. Bip non sollicité sur les Edit
    Par David dans le forum Composants VCL
    Réponses: 2
    Dernier message: 09/09/2003, 21h32
  5. Bip avec "\a"
    Par Zazeglu dans le forum C
    Réponses: 8
    Dernier message: 06/09/2003, 16h42

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