1 membre
Connectés : ( personne )
- La Charte du Forum - Forum - Questions générale
Sujet n° 542 |
comment faire un ping? |
le 18/08/2011 : 07:20 par lemeruvien
visiteur |
Bonjour a tous, j'ai un formulaire avec une saisie par une douchette, ça marche bien, mais je voudrais faire un ping (ou autre son) après la saisie, comment faire?merciroger |
|
|
Réponse n° 1 -------- le 18/08/2011 : 13:49 par 3Stone
Administrateur
|
Bonjour,
Ce code-ci devrait encore fonctionner parfaitement...
Tu peux améliorer ta procédure de lecture en produisant un "Bip" lorsque la lecture est bonne et un "Beeeep" lorsque le code n'est pas reconnu.
Cordialement, Pierre(3stone) |
|
|
Réponse n° 2 -------- le 18/08/2011 : 19:54 par lemeruvien
visiteur |
bonjour Pierre, tu sait quant il faut mettre des fonction je suis un peut pommer!!
donc j'ai mis tout dans un module general, mais ça bloc arrivé a ce paragraphe:
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
J'ai le message que seul les commentaires peuvent apparaitre apres end sub!
Alors, je met ou ce truc?
merci
roger |
|
|
Réponse n° 3 -------- le 19/08/2011 : 02:18 par 3Stone
Administrateur
|
Bonjour Roger,
Ce sont des déclarations... il n'est donc pas question de placer cela ailleurs qu'au dessus de la première Sub d'un module.
Donc, tu ouvres donc un module existant, ou tu crées un nouveau, et tu colles ce code tout en haut, directement en dessous de : Code :Option Compare Database Option Explicit
et donc avant la première Sub ou Fonction.
Cordialement, Pierre(3stone) |
|
|
Réponse n° 4 -------- le 19/08/2011 : 09:40 par lemeruvien
visiteur |
Merci, Pierre, ça marche! |
|
|
sujet actif
sujet clos
Important!
Nouveau message -
Rectifier message
Clôturer sujet
Remonter
|