1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Périphériques
  5. Faire beeper le speaker de l'uc

Faire beeper le speaker de l'uc

Soyez le premier à donner votre avis sur cette source.

Vue 7 951 fois - Téléchargée 544 fois

Télécharger le projet
Commenter

Description

Voici une fonction qui permet de faire beeper
le haut-parleur de votre unitée centrale

Source / Exemple : 


Function PC_Beep(Frequence, Duree :integer):integer;
 type TPC_Beep = function (FFrequence, FDuree :integer):integer; stdcall;
 var PCBeep : TPC_Beep;
     hdle : THandle;
  begin
   hdle := LoadLibrary('kernel32.dll');
    if hdle<>0 then
      begin
       PCBeep := GetProcAddress(hdle, 'Beep');

      if @PCBeep <> nil then PCBeep(Frequence,Duree);
      end;
    FreeLibrary(hdle);
  end;

Conclusion :


http://delphicool.developpez.com
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
 8
Bonjour,
j'ai le meme problème que toi Grandvizir
J'appelle la fonction Beep de Windows sous Delphi 3
Je clique sur le bouton ...
J'attends 1 seconde
J'attends 2 seconde
J'entends un bip (ah c'est le téléphone -_-)
Je réinitialise le programme
...
A bientôt !
Signaler
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
 21
Avec moi, dans Windows.pas, Beep n'a JAMAIS (je dit bien JAMAIS) fonctionné. Je suis sous D3. On peut aussi utiliser le code source 17015.
Signaler
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
exact
Signaler
Messages postés
23
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
21 août 2003
C'est vraiment bizarre... dans windows.pas, y'a ça :
function Beep(dwFreq, dwDuration: DWORD): BOOL; external kernel32 name 'Beep';
C'est donc la mème chose que le code au dessus, puisqu'il appelle la fonction beep de la dll kernel32... Et j'ai essayé les deux, mèmes résultats... tu confonds peut-ètre avec la fonction Beep dans sysutils, qui appelle messagebeep de l'api windows, et qui sort toujours le mème son
Signaler
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
celle qui est dans windows.pas?

as tui deja essayé au moins.

elle te sort toujour le meme beep et dans un son wav
Afficher les 6 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DelphiCool)