Bip déclenché par VB

[Jacqo]

Bonjour le monde,

Je voudrais savoir comment déclencher le "beep" identique à celui du démarrage de nos chères tromblo... euh ordinateurs. Existe-t-il une ligne de commande simple ?

 

[JCGL]

Re : Bip déclenché par VB

Bonjour à tous,

Réponse simple :

Beep

dans ton code

et :

Option Explicit
 
Sub Test()
Dim I
For I = 1 To 5 ' Fait 5 boucles.
Beep ' Émet une note.
Next I
End Sub

pour le répéter cinq fois

A+

 

[Jacqo]

Re : Bip déclenché par VB

Hello, merci de ta réponse rapide

J'avais déjà testé le simple "beep" mais rien ne se passe...

PS: je suis sur un PC portable, mais le bip est présent au démarrage, comme sur un fixe... mais je préfère prévenir

 

[JCGL]

Re : Bip déclenché par VB

Bonjour à tous,

Peux-tu tester ce fichier ?

A+

 

[Jacqo]

Re : Bip déclenché par VB

Rien à faire, j'ai même redémarré pour être sur qu'il y avait bien un bip, mais il n'est pas joué par VB... je vais me rabattre sur un son issue de la bibliothèque windows... ça complique un peut le code mais tant pis !


Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" ( _
ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

Private Sub Play()
PlaySound "c:\temp\chimes.wav", 0&, &H1
End Sub


cela fonctionne, mais ça demande plus de ressources à mon vieux portable que le seul bip...

 

[cococh]

Re : Bip déclenché par VB

boujour, y-t-il plusieurs bip ainsi disponibles? Pck la c'est un bi^p d'inf mais j'aimerais bien avoir aussi un bip type erreur (mot de passe éroné) et un bip type confirmation.