Musique dans VB 6.0 ?Résolu

Question

Bonjour a tous, 

Je suis d&#233;butant en programmation VB 6.0 et j'aimerais savoir comment que l'on peut mettre une musique de fond quand le programme d&#233;marre. Merci de vos r&#233;ponses d'avance !

PCPT · Accepted Answer

jamais essay&#233;, mais tente juste :
PlaySound "C:\WINDOWS\MEDIA\TADA.mdi", 
ByVal 0&, SND_FILENAME 
Or SND_ASYNC

PCPT

cs_DARKSIDIOUS · Answer

voir les nombreuses sources de lecteur mp3...

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Zlub · Answer

Salut YaMO_o,

Tu peux utiliser le composant Media Player ... dont tu trouveras un exemple d'utilisation propos&#233; par darthpolor_I

Sinon, tu peux voir d'autre exemple en consultant cette liste

++

Zlub

<hr size="2" width="100%">

PCPT · Answer

et toujours les bonne vieilles API :

(guid-API)


Private 
Const SND_APPLICATION = &H80 
' look for application specific association


Private 
Const SND_ALIAS = &H10000 
' name is a WIN.INI [sounds] entry


Private 
Const SND_ALIAS_ID = &H110000 
' name is a WIN.INI [sounds] entry identifier


Private 
Const SND_ASYNC = &H1 
' play asynchronously


Private 
Const SND_FILENAME = &H20000 
' name is a file name


Private 
Const SND_LOOP = &H8 
' loop the sound until next sndPlaySound


Private 
Const SND_MEMORY = &H4 
' lpszSoundName points to a memory file


Private 
Const SND_NODEFAULT = &H2 
' silence not default, if sound not found


Private 
Const SND_NOSTOP = &H10 
' don't stop any currently playing sound


Private 
Const SND_NOWAIT = &H2000 
' don't wait if the driver is busy


Private 
Const SND_PURGE = &H40 
' purge non-static events for task


Private 
Const SND_RESOURCE = &H40004 
' name is a resource name or atom


Private 
Const SND_SYNC = &H0 
' play synchronously (default)


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 Form_Load()



'KPD-Team 2000



'URL: http://www.allapi.net/



'E-Mail: KPDTeam@Allapi.net


PlaySound 
"C:\WINDOWS\MEDIA\TADA.WAV", 
ByVal 0&, SND_FILENAME 
Or SND_ASYNC


End 
Sub

PCPT

YaMO_o · Answer

Salut, Merci d'avoir r&#233;pondu rapidement.

En faite, je cherche comment ajouter un .MDI .

Donc dans form_load il doit surement y avoir une commande comme
Play.... debut.mdi ?

Zlub · Answer

Salut,

Tu peux essayer ceci propos&#233; par [auteur/KROKADOR/389144.aspx Krokador]
        







Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long

  '&#192; d&#233;clarer au d&#233;but du code

   

  Public Sub JouerMus(ByVal Fichier As String) 'Sub qi permet de faire jouer la musique

      mciExecute("play " & Fichier)

    End Sub

   

    Private Sub ArreteMus(ByVal Fichier As String) 'Sub qui permet de l'arr&#234;ter

      mciExecute("stop " & Fichier)

    End Sub

   

  Private Sub chkMusic_CheckedChanged(ByVal sender As Object, _ 'Sub du chkbox

                                       
ByVal e As System.EventArgs) _

                                       
Handles chkMusic.CheckedChanged

      If chkMusic.Checked = True Then 'si le checkbox est coch&#233;, la musique va d&#233;marrer

        JouerMus("lagunabattletheme.mid")

      Else 'si elle est d&#233;coch&#233;e, la musique arr&#234;te

        ArreteMus("lagunabattletheme.mid")

      End If

  End Sub



++

Zlub

<hr size="2" width="100%">

YaMO_o · Answer

Salut, Merci a tous !

Avec la commande PlaySound "C:\WINDOWS\MEDIA\TADA.mdi", 
ByVal 0&, SND_FILENAME 
Or SND_ASYNC Fourni par PCPT

J'ai transformer le .mid par un .wav ensuite j'ai suivi le chemin.

Merci encore a tous :)

YaMO_o · Answer

Bonjour,

J'ai un autre petit probl&#232;me... Quand je fait " Play " pour le programme celui-ci faire jouer la musique avant de faire apparaitre le Form.

Voici le code que j'ai essayer :

Private Sub Form_Load()
frmStart.Visible = True 'Faire apparaitre avant de faire jouer la toune
imgGameStart.Visible = True 'Faire apparaitre le boutton pour commencer
If frmStart.Visible = True Then
PlaySound "C:\Projet VB DuckHunt\debut.wav", ByVal 0&amp;, SND_FILENAME Or SND_ASYNC  'Faire jouer la toune Merci VBFrance.com
End If
End Sub

cs_DARKSIDIOUS · Answer

Il ne faut pas le mettre dans le Form_Load car sinon, il se d&#233;clenchera
au chargement de la feuille, et vu que la fonction lit le son de fa&#231;on
synchrone, la musique bloquera l'affichage du son.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

PCPT · Answer

salut'
tu peux, par exemple, ajouter un boolean

Dim DidIPlay as boolean

 Form  Load -> didiplay = False (c'est le cas par d&#233;faut, mais c'est plus propre)

et Form Paint -> if not didiplay then call Playsound (param&#232;tres):didiplay=True

PCPT

YaMO_o · Answer

Effectivement PCPT, cel&#224; marche.

J'ai aussi r&#233;ussi de cette maniere avec le form_load

Dim PauseMusiqueStart, Start
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 Form_Load()
    frmStart.Visible = True 'Faire apparaitre
    frmDebut.Visible = False
    
Start = Timer   'Variable d'&#233;galit&#233;
PauseMusiqueStart = 2 'Secondes de pause
    
Do While Timer < Start + PauseMusiqueStart 'Fait seulement si timer < que les variables
    DoEvents   'Fait la s&#233;quence ce que j'tai dit en bas
    PlaySound "C:\Projet VB DuckHunt\debut.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC  'Faire jouer la toune Merci VBFrance.com
Loop
End Sub

Merci encore a tous.

PCPT · Answer

oui, en effet, ta solution &#224; l'avantage de ne pas &#234;tre rappel&#233;e au cours de l'&#233;xecution.
cependant, le proc va tout de m&#234;me pas mal tourner lors du d&#233;marrage.
2e point : pense &#224; Typer tes variables ;)
PCPT

YaMO_o · Answer

Salut, Désoler de faire revivre ce Topic, mais maintenant quand je fais " Play " il m'affiche que SND_FILENAME est une variable non défini. Et pourtant j'ai rien changer a mon code... 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 Form_Load() frmStart.Visible = True 'Faire apparaitre frmDebut.Visible = False PlaySound "C:\Projet VB DuckHunt\debut.wav", ByVal 0&,SND_FILENAMEOr SND_ASYNC End Sub Encore une fois désoler de faire revivre ce topic, et merci encore pour l'aide !

cs_DARKSIDIOUS · Answer

Il faut que tu d&#233;clare les constantes pour pouvoir les utiliser :



Option Explicit

Private 
Const SND_FILENAME = &H20000 
' name is a file name



Private 
Const SND_ASYNC = &H1 
' play asynchronously




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 Form_Load()
    frmStart.Visible = True 'Faire apparaitre
    frmDebut.Visible = False
    
PlaySound "C:\Projet VB DuckHunt\debut.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC


 End Sub





_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

Musique dans VB 6.0 ?

14 réponses

Discussions similaires