PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

lecteur multi-audio

http://forums.purebasic.com/french/viewtopic.php?t=4071

Page 2 sur 2

Publié : lun. 05/déc./2005 14:14
par gadjet35
eume non je vais te dire que j'ai essayer et que sa ne marche pas et que je ne trouve pas l'erreur !
:D

Publié : lun. 05/déc./2005 14:18
par Chris
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

Publié : lun. 05/déc./2005 14:23
par gadjet35
si j'ai regarder et j'ai mis le nextselectedfilename() c'est bien le bon de l'aide le mieux ! :D

Publié : lun. 05/déc./2005 14:29
par Chris
Puree!!!
Tu me saoules toi :mad:

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?

Publié : lun. 05/déc./2005 14:32
par gadjet35
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 !!!!!!! 8)
:?

Publié : lun. 05/déc./2005 14:42
par Chris
Pffffffff :?

Fichier$ = NextSelectedFileName()

Publié : lun. 05/déc./2005 14:51
par gadjet35
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 ! :?

Publié : lun. 05/déc./2005 15:54
par Dr. Dri
Chris a écrit :Pffffffff :?

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

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 !!!!!!! 8)
:lol: :lol: :lol: :lol:

Dri :roll:

Publié : lun. 05/déc./2005 15:57
par Chris
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é :P

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 !!!!!!! 8)
:lol: :lol: :lol: :lol:

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

Publié : lun. 05/déc./2005 17:00
par AWEAR
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 :?

Publié : lun. 05/déc./2005 17:55
par Chris
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.

Publié : mar. 06/déc./2005 7:56
par gadjet35
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) !

Publié : mar. 06/déc./2005 8:16
par gadjet35
bon je vous mais la toute dernière version de multi-audio (pour mon message précédent ignorer le je me suis planter! :D :lol: ) :

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
Fuseau horaire sur UTC+01:00
Page 2 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru