PureBasic

tu n'a fait aucune erreur !!

il faut que tu comprenne que lorsque tu fait

  NomFichier$ = OpenFileRequester("Titre", "::{450d8fba-ad25-11d0-98a8-0800361b1103}\" , "Fichiers|*.*", 0)

tu met dans " NomFichier$ " le chemin pour aller chercher le fichier !!
mais ce fameux fichier n'est pas chargé !! , tu as simplement indiquer au programme ou ce trouvais le fichier !!
maintenant il faut effectivement le charger !!!!

avec "LoadMovie(1, NomFichier$) " ; la le son sera chargé !!! et seulement la
tu pourra le faire jouer !!!

ne pas oublier qu'en utilisant les fonctions "Movie" il faut auparavant les initialiser !! en placant

Code : Tout sélectionner

Resultat = InitMovie()

au debut du listing !!!

a ok c'est pourca que j'arriver pas a avoir le son si non sa va j'ai un peux mieu comprie avec ton esplication mais c'est vraiment pas facile la programation c'est normal je vien juste de commancer

fodrait que je trouve des bouquin ou il y aure plin d'exemple et des esplication sa doit exister .donc je vais essayer de trouver ou placer ton code

Code : Tout sélectionner

LoadMovie(1, NomFichier$)

dans ma prog encore et toujour merci de ton aide tres precieu

en faite au final c'est toi qui aura fait mon lecteur musique

aler @++

desole dobro mais j'arrive pas a trouver la solution pour pouvoir metre de la musique

j'ai beau lire le fichier d'aide je n'arrive pas a comprendre

c'est embarassant pourrait tu encore et toujours m'aider

@++

c'est pourtant tres simple !!

voici la solution :

prend le temp de regarder chaques fonctions en selectionant la fonction et en appuyant sur la touche F1 tu aura de cette facon le descriptif de la fonction choisi !

Code : Tout sélectionner

 ; puisque nous allons utiliser les fonction de movie
; on initialise d'abord !!




Resultat = InitMovie() 



Enumeration
    #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
    #liste
    #play
EndEnumeration

; Le Programme !!
Procedure Open_Window_0()
    If OpenWindow(#Window_0, 218, 67, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
        If CreateGadgetList(WindowID())
            ButtonGadget(#liste, 20, 10, 210, 40, "Play liste")
            ButtonGadget(#play, 280, 10, 250, 40, "play")
        EndIf
    EndIf
EndProcedure


Open_Window_0()

Repeat ; Boucle Principale !! 
    Event = WaitWindowEvent()
    
    If Event = #PB_EventGadget
        
        ;Debug "WindowID: " + Str(EventWindowID())
        
        GadgetID = EventGadgetID() ;<-------- obligatoire lors de l'utilisation de gadjets !!
        
        ; ci-dessous les choix offert par les 2 Bouton de la fenetre !!!!
        If GadgetID = #liste ; choix du bouton a gauche (liste) 
            
            ; ici on indique ou ce trouve le son !
            NomFichier$ = OpenFileRequester("Titre", "::{450d8fba-ad25-11d0-98a8-0800361b1103}\" , "Fichiers|*.*", 0)
            LoadMovie(1, NomFichier$) ; donc on le charge , puis qu'on connais sa localisation (dans  NomFichier$) 
            
        ElseIf GadgetID = #play ; choix du bouton a droite (play)
            ; si le gars clique sur play 
            
            PlayMovie(1, FenetreID)  ; on joue le son !!!  (le chiffre 1 indique que nous jouons le fichier charger numero 1 )
            
            
        EndIf
        
    EndIf
    
Until Event = #PB_EventCloseWindow

End

franchement dobro tu et un mac tu a meme fait pour que j'appuie sur le boutton play franchement merci

je ne sait quoi dire

je te remercie .

c'est vrai j'ai tendence a oublier la touche f1 c'est un inconveignant je sait mais bon . bon maintenant je vais essayer de me debrouiller pour la suite de mon projet

a essayer de changer l'aspet de la fenetre ou des icones pour les bouttons play je pense que je suis trop debutant pour faire sa mais je vais essayer de trouver des codes qui esplique commant faire encore merci a toi

@++

franchement dobro tu et un mac

heu ben franchement pas vraiment !!
les filles je les garde pour moi !! j'en fais pas commerce !! ,je suis trop perso sur ce coup la !!

lol

ouai mais tu a raison de garder les filles pour toi moi je garde ma meuf pour moi

c'est tout a fait normal

et regarde si je veux que le boutton play fait aussi option stop ou meme un autre boutton d'ailleur fo que je met 0 a la place de 1 c'est bien sa si je me trompe pas

Code : Tout sélectionner

PlayMovie(1, FenetreID)

car je croi que le 1 c'est pour activer donc logiquement le 0 c'est pour desactiver

Utilise l'aide

a oui c'est j'oublie souvent de faire f1 desoler je vais voir dans aide

PureBasic

probleme boutton