lecteur multi-audio

gadjet35 · Message par **gadjet35** » lun. 05/déc./2005 14:14

eume non je vais te dire que j'ai essayer et que sa ne marche pas et que je ne trouve pas l'erreur !

Chris · Message par **Chris** » lun. 05/déc./2005 14:18

Et dans l'aide, qu'est-ce que ca te dit, au sujet de NextSelectedFileName()

Tu as bien regardé l'exemple qui est dans l'aide?
Pas la peine de répondre, c'est NON.

Code : Tout sélectionner

  
FileName$ = OpenFileRequester("Choose some files","","",0, #PB_Requester_MultiSelection)
  
While FileName$ 
  Debug FileName$ 
  FileName$ = NextSelectedFileName() 
Wend

Maintenant, regarde le NextSelectedFileName() dans ton code, et cherche la différence

gadjet35 · Message par **gadjet35** » lun. 05/déc./2005 14:23

si j'ai regarder et j'ai mis le nextselectedfilename() c'est bien le bon de l'aide le mieux !

Chris · Message par **Chris** » lun. 05/déc./2005 14:29

Puree!!!
Tu me saoules toi

Ton code

Code : Tout sélectionner

Repeat 
   AddGadgetItem(#List_0,position,GetFilePart(fichier$)) 
   LoadMovie(position,fichier$) 
   position = position + 1 
   AddElement(musique.s()) 
   NextSelectedFileName() 
   Until fichier$ = ""

Celui se l'aide

Code : Tout sélectionner

While FileName$ 
  Debug FileName$ 
  FileName$ = NextSelectedFileName() 
Wend

C'est quoi, la différence entre TON NextSelectedFileName() et celui de l'aide?

gadjet35 · Message par **gadjet35** » lun. 05/déc./2005 14:32

chez moi j'ai mis une boucle repeat : until
et dans l'aide une while:wend
je ne sais pas si c'est sa le prob
mais avec le nextselectedfile() pas de différence !!!!!!!

Chris · Message par **Chris** » lun. 05/déc./2005 14:42

Pffffffff

Fichier$ = NextSelectedFileName()

gadjet35 · Message par **gadjet35** » lun. 05/déc./2005 14:51

ah ouaih daccord :

Code : Tout sélectionner

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #List_0
  #Text_0
  #Text_1
  #Text_2
  #Text_3
  #Text_4
  #Button_0
  #Button_1
  #Button_2
  #Button_3
  #Button_4
  #Progress_0
  #Progress_1
EndEnumeration

If InitMovie() = 0
 End
EndIf

NewList musique.s()

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 228, 217, 499, 279,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Lecteur Audio")
    If CreateGadgetList(WindowID())
      ListViewGadget(#List_0, 20, 50, 160, 180)
      TextGadget(#Text_0, 40, 20, 140, 30, "Liste des musiques :")
      ButtonGadget(#Button_0, 230, 60, 110, 50, "Play")
      ButtonGadget(#Button_1, 230, 130, 110, 50, "Pause")
      ButtonGadget(#Button_2, 230, 200, 110, 50, "Stop")
      ButtonGadget(#Button_4, 200, 10, 140, 35, "Suprimer une musique")
      ButtonGadget(#Button_3, 20, 240, 160, 30, "Ajouter une musique")
      TrackBarGadget(#Progress_0,370,50,40,200,0,100,#PB_TrackBar_Vertical)
      TrackBarGadget(#Progress_1,420,50,40,200,0,200,#PB_TrackBar_Vertical)
      TextGadget(#Text_1,355,20,50,40,"Volume ="+Chr(10)+"   100")
      TextGadget(#Text_2,415,20,50,40,"Balance ="+Chr(10)+" Gauche")
      TextGadget(#Text_3,375,260,40,30,"0")
      TextGadget(#Text_4,415,260,40,30,"Droite")
    EndIf
  EndIf
EndProcedure

open_window_0()

Repeat
 Select WaitWindowEvent()
  Case #PB_EventGadget
   Select EventGadgetID()
    Case #list_0
     Select EventType()
      Case #PB_EventType_LeftDoubleClick
       Goto jouer:
      Case #PB_EventType_RightDoubleClick
       Goto suprimer:
      Case #PB_EventType_RightClick
       SelectElement(musique.s(),GetGadgetState(#list_0))
       chemin$ = musique.s()
       MessageRequester("Info","Musique N°"+Str(GetGadgetState(#list_0))+Chr(10)+"Chemin :"+Space(5)+chemin$)
     EndSelect
    Case #button_3
     fichier$ = OpenFileRequester("musique à ouvrir","","fichier musique|*.mp3;*.mid;*.wav;*.wave;*.midi",0,#PB_Requester_MultiSelection)
     Repeat
      anc_fichier$ = fichier$
      AddGadgetItem(#List_0,position,GetFilePart(fichier$))
      LoadMovie(position,fichier$)
      position = position + 1
      AddElement(musique.s())
      fichier$ = NextSelectedFileName()
     Until fichier$ = anc_fichier$
    Case #button_4
     suprimer:
     movie = GetGadgetState(#list_0)
     RemoveGadgetItem(#list_0,movie)
     FreeMovie(movie)
     SelectElement(musique.s(),movie)
     DeleteElement(musique.s())
    Case #button_0
     jouer:
     movie = GetGadgetState(#List_0)
     If GetGadgetItemText(#List_0,movie,0) <> ""
      If musique = 1
       StopMovie()
       musique = 0
      EndIf
      PlayMovie(movie,WindowID())
      musique = 1
     EndIf
    Case #button_1
     If musique = 1
      If pause = 0  
       SetGadgetText(#button_1,"Replay")
       PauseMovie()
       pause = 1
      ElseIf pause = 1
       SetGadgetText(#button_1,"Pause")
       ResumeMovie()
       pause = 0
      EndIf
     EndIf
    Case #button_2
     StopMovie()
     musique = 0
    Case #progress_0 
     volume = GetGadgetState(#progress_0)
     balance = GetGadgetState(#progress_1)
     MovieAudio(volume,balance)
    Case #progress_1
     volume = GetGadgetState(#progress_0)
     balance = GetGadgetState(#progress_1) - 100
     MovieAudio(volume,balance)
   EndSelect
  Case #PB_EventCloseWindow
   quit = 1
 EndSelect
Until quit = 1

voila c'est fait et sa marche par contre à chaque fois que j'ouvre un
fichier il me fait tout avancer d'un cran mais je sais pour quoi mais je vois pas comment éviter sa !

Dr. Dri · Message par **Dr. Dri** » lun. 05/déc./2005 15:54

Chris a écrit :Pffffffff

Fichier$ = NextSelectedFileName()

J'allais presque te féliciter de ta patience mais en fait t'as vite craqué

gadjet35 a écrit :chez moi j'ai mis une boucle repeat : until
et dans l'aide une while:wend
je ne sais pas si c'est sa le prob
mais avec le nextselectedfile() pas de différence !!!!!!!

Dri

Chris · Message par **Chris** » lun. 05/déc./2005 15:57

Dr. Dri a écrit :
Chris a écrit :Pffffffff

Fichier$ = NextSelectedFileName()
J'allais presque te féliciter de ta patience mais en fait t'as vite craqué

gadjet35 a écrit :chez moi j'ai mis une boucle repeat : until
et dans l'aide une while:wend
je ne sais pas si c'est sa le prob
mais avec le nextselectedfile() pas de différence !!!!!!!

Dri

C'est le problème avec les gamins, ils sont beaucoup plus endurants que les vieux. Ils arrivent toujours à les avoir à l'usure.

AWEAR · Message par **AWEAR** » lun. 05/déc./2005 17:00

Il y a encore quelques probèmes notemment avec la gestion de la balance audio.
Pour enchaîner les musiques les unes à la suite des autres j'avais déja répondu comment faire à Venom il n'y a pas longtemps.
Sinon pour faire une barre de défilement ça me semble très dificile

Chris · Message par **Chris** » lun. 05/déc./2005 17:55

AWEAR a écrit :Sinon pour faire une barre de défilement ça me semble très dificile

On ne peut pas pour les MP3, c'est dans l'aide.
Pour pouvoir le faire, il faut utiliser l'Api Windows. Soit les commandes mci, soit les fonctions multimédia audio.

gadjet35 · Message par **gadjet35** » mar. 06/déc./2005 7:56

justement si je crois qu'on peut en faire une sans commande de l'API et compagnie avec les simple commande des médias de purebasic (mais comme la dit chris pour les mp3 ce n'est pas possible) !

gadjet35 · Message par **gadjet35** » mar. 06/déc./2005 8:16

bon je vous mais la toute dernière version de multi-audio (pour mon message précédent ignorer le je me suis planter!

) :

Code : Tout sélectionner

;- Window Constants 
; 
Enumeration 
  #Window_0 
EndEnumeration 

;- Gadget Constants 
; 
Enumeration 
  #List_0 
  #Text_0 
  #Text_1 
  #Text_2 
  #Text_3 
  #Text_4 
  #Button_0 
  #Button_1 
  #Button_2 
  #Button_3 
  #Button_4 
  #Progress_0 
  #Progress_1 
EndEnumeration 

If InitMovie() = 0 
 End 
EndIf 

NewList musique.s() 

Procedure Open_Window_0() 
  If OpenWindow(#Window_0, 228, 217, 499, 279,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Lecteur Audio") 
    If CreateGadgetList(WindowID()) 
      ListViewGadget(#List_0, 20, 50, 160, 180) 
      TextGadget(#Text_0, 40, 20, 140, 30, "Liste des musiques :") 
      ButtonGadget(#Button_0, 230, 60, 110, 50, "Play") 
      ButtonGadget(#Button_1, 230, 130, 110, 50, "Pause") 
      ButtonGadget(#Button_2, 230, 200, 110, 50, "Stop") 
      ButtonGadget(#Button_4, 200, 10, 140, 35, "Suprimer une musique") 
      ButtonGadget(#Button_3, 20, 240, 160, 30, "Ajouter une musique") 
      TrackBarGadget(#Progress_0,370,50,40,200,0,100,#PB_TrackBar_Vertical) 
      TrackBarGadget(#Progress_1,420,50,40,200,0,200,#PB_TrackBar_Vertical) 
      TextGadget(#Text_1,355,20,50,40,"Volume ="+Chr(10)+"   100") 
      TextGadget(#Text_2,415,20,50,40,"Balance ="+Chr(10)+" Gauche") 
      TextGadget(#Text_3,375,260,40,30,"0") 
      TextGadget(#Text_4,415,260,40,30,"Droite") 
    EndIf 
  EndIf 
EndProcedure 

open_window_0() 

Repeat 
 Select WaitWindowEvent() 
  Case #PB_EventGadget 
   Select EventGadgetID() 
    Case #list_0 
     Select EventType() 
      Case #PB_EventType_LeftDoubleClick 
       Goto jouer: 
      Case #PB_EventType_RightDoubleClick 
       Goto suprimer: 
      Case #PB_EventType_RightClick 
       SelectElement(musique.s(),GetGadgetState(#list_0)) 
       chemin$ = musique.s() 
       MessageRequester("Info","Musique N°"+Str(GetGadgetState(#list_0))+Chr(10)+"Chemin :"+Space(5)+chemin$) 
     EndSelect 
    Case #button_3 
     fichier$ = OpenFileRequester("musique à ouvrir","","fichier musique|*.mp3;*.mid;*.wav;*.wave;*.midi",0,#PB_Requester_MultiSelection) 
     Repeat 
      AddGadgetItem(#List_0,position,GetFilePart(fichier$)) 
      LoadMovie(position,fichier$) 
      position = position + 1 
      AddElement(musique.s()) 
      fichier$ = NextSelectedFileName() 
     Until fichier$ = ""
    Case #button_4 
     suprimer: 
     movie = GetGadgetState(#list_0) 
     RemoveGadgetItem(#list_0,movie) 
     FreeMovie(movie) 
     SelectElement(musique.s(),movie) 
     DeleteElement(musique.s()) 
    Case #button_0 
     jouer: 
     movie = GetGadgetState(#List_0) 
     If GetGadgetItemText(#List_0,movie,0) <> "" 
      If musique = 1 
       StopMovie() 
       musique = 0 
      EndIf 
      PlayMovie(movie,WindowID()) 
      musique = 1 
     EndIf 
    Case #button_1 
     If musique = 1 
      If pause = 0  
       SetGadgetText(#button_1,"Replay") 
       PauseMovie() 
       pause = 1 
      ElseIf pause = 1 
       SetGadgetText(#button_1,"Pause") 
       ResumeMovie() 
       pause = 0 
      EndIf 
     EndIf 
    Case #button_2 
     StopMovie() 
     musique = 0 
    Case #progress_0 
     volume = GetGadgetState(#progress_0) 
     balance = GetGadgetState(#progress_1) 
     MovieAudio(volume,balance) 
    Case #progress_1 
     volume = GetGadgetState(#progress_0) 
     balance = GetGadgetState(#progress_1) - 100 
     MovieAudio(volume,balance) 
   EndSelect 
  Case #PB_EventCloseWindow 
   quit = 1 
 EndSelect 
Until quit = 1