PureBasic

je voudrai savoir si c'est possible que mon logiciel puisse etre lu par des personne qui on pas pure basic je voudrer envoyer mon projer a une copine donc est ce possible de clore ce logiciel si oui comment svp

c'est bon les ga j'ai vu ou c'ete

mais je voulait savoir autre chose quand je compile c 'normal que j'ai toujour la petite fenetre en haut a gauche ya pas moyen de l'enlever svp merci

c'est la fenetre pure debuger je sait pas si on pe l'enlever

t'aurai pas laisser une ligne de code ou il est ecrit un truc du genre
par hasard ?

debug *********

(les etoiles remplacent un code eventuel)

bin franchement je voiot pas ou

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(0,0,0,700,400,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered,"sound player")  
  If CreateGadgetList(WindowID()) 
      ButtonGadget(#liste, 2, 1, 351, 30, "liste musique") 
      ButtonGadget(#play, 356, 1, 344, 30, "lecture ") 
      
    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

en meme temps je voie rien alors

voici mon projet meme si il a pas avancer essaye tu verra ya la fenetre debug en haut a gauche

Si tu as la version démo, c'est normal de ne pas pouvoir enlever le débugger.
Ca s'appelle de la stratégie commerciale

a ok merci filperj

bin c'est pour sa alors bon bin y me restera plus qu'a lacheter alors fodra que je vois sa

merci du renségnement.

j'ai une autre question est-ce possible de donner 2 fonction sur le meme boutton car sur ma prog j'ai reussi a metre un boutton pause mais j'arrive a le faire aller que si je met un delay(xxxx) mais bon c'est pas vraiment un boutton pose je pense qu'il y a une histoire de boucle ou quelque chose comme sa si quelquin sait merci de me le faire part

regarder mon probleme en faite j'ai cree un nouvrau boutton c'est "pause"
j'ai reussi a donner la fonction

Code : Tout sélectionner

#PB_Button_Toggle

c'est tres bien cette fonction mais le probleme c'est que je doit appuier vite sur pause pour attendre la musique ralentire essayer vous verrer mieu mon probleme car je trouve pas dans f1 je sait que c'est avec la fonction

Code : Tout sélectionner

PauseMovie() et ResumeMovie()

mais je ne sait surement pas ou la placer pour le pauseMovie() sa fonctionne mais j'arrive pas a faire repartir la musique

c'est asser chient

donc voila

desoler j'ai oublier de remetre mon programme modifier

Code : Tout sélectionner

Resultat = InitMovie()  

 Enumeration 
  #Window_0 
EndEnumeration 

 
Enumeration 
  #liste 
  #play 
  #StopMovie
  #Image
  #PauseMovie 
EndEnumeration 


Procedure Open_Window_0() 
 If OpenWindow(0,0,0,700,400,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered,"sound player")  
  If CreateGadgetList(WindowID()) 
      ButtonGadget(#liste, 2, 1, 138, 30, "LISTE   ~~") 
      ButtonGadget(#play, 140, 1, 140, 30, "LECTURE   >")
      ButtonGadget(#PauseMovie, 280, 1, 140, 30, "PAUSE   II", #PB_Button_Toggle ) 
      ButtonGadget(#StopMovie, 420, 1, 140, 30,"STOP  #")
      ButtonGadget(#Image, 560, 1, 140, 30, "VISUALISATION")
 
      EndIf
        EndIf
        
EndProcedure 


Open_Window_0() 

Repeat 
  
  Event = WaitWindowEvent() 
  
  If Event = #PB_EventGadget 
  
    
    GadgetID = EventGadgetID() 
   
    If GadgetID = #liste 
    
          NomFichier$ = OpenFileRequester("Titre", "::{450d8fba-ad25-11d0-98a8-0800361b1103}\" , "Fichiers|*.*", 0) 
      LoadMovie(1, NomFichier$) 
   
    ElseIf GadgetID = #play  
      
      PlayMovie(1, FenetreID)  
         
    ElseIf GadgetID = #StopMovie
    
    StopMovie()
    
    ElseIf GadgetID = #Image
    
      NomFichier$ = OpenFileRequester("Titre", "::{450d8fba-ad25-11d0-98a8-0800361b1103}\" , "Fichiers|*.*", 0) 
      LoadImage(1, NomFichier$)
      
      ElseIf GadgetID = #PauseMovie 
    PauseMovie()

    EndIf
   
  EndIf 
  
Until Event = #PB_EventCloseWindow 

End

voila

@+

Il fau que tu testes l'état de ton bouton.

Si il est enfoncé, tu mets en pause, si il est relaché, tu continue la lecture

Code : Tout sélectionner

    ElseIf GadgetID = #PauseMovie 
      If GetGadgetState(#PauseMovie) = 1
        PauseMovie()
      Else
        ResumeMovie()
      EndIf

ok merci chris

c'est exactement sa je saver que c'ete un truk dans ce genre la mais je saver pas comment faire moi je faiser comme sa

Code : Tout sélectionner

ElseIf GadgetID = #PauseMovie 
    PauseMovie() 

     ResumeMovie()

c'est pour sa que je dever cliquer vite pour entendre le son se couper

merci a toi chris

c'est simpa

PureBasic

pb de finalisation

pb de finalisation