Topic Locké ------Mon premier programme

[lannoy]

Bonjour a tous,
j'ai commencé le PureBasic il y as 2 jours et je vous expose mon premié programme.

Un lecteur audio/vidéo , le coté vidéo n'est pas encore fini donc il n'est pas présent dans cette version mais je pense le finir avant la fin de la semaine .

Je ne poste pas le code source car je suis sur que c'est mal fait cependant il marche trés bien, aucun bug .

Le lien pour dlici

Voila merci de vos commentaires et suggestion ++

[jbernard13]

merci , mais impossible de le télécharger si on est pas ouvert un compte sendspace

[TazNormand]

merci , mais impossible de le télécharger si on est pas ouvert un compte sendspace

ça marche nickel pour moi JBernard13; t'es sur d'avoir bien regardé ?

Il y a une ligne avec une flèche rouge qui indique "Your link", et le lien juste à côté !!!

Essaies-encore

[lannoy]

Oui tout en bas de la page il y as écrit télécharger

TazNormand tu en pense quoi

[TazNormand]

TazNormand tu en pense quoi

Marche pas avec mes MP3, mais je suis au taf, et je m'en vais là, je testerai ce soir avec des MODs, et je te dis quoi.

Bon début en tout cas, améliores le en mettant des "image buttons"...

[lannoy]

C'est moi sa marche avec les mp3 en tout cas j'ai que sa est sa lit bien,
Je ne c'est pas encore me servir des images, j'attend de finir le prochain chapitre pour les tableaux liste chainé etc etc et je me servirais plus que de la doc qui très clair contrairement a celle du php


EDIT: J'utilise la bibliotéque des films, comment je peut faire avancé le curseur ?
Vue que je peut pas compté le nombre d'images etc etc

[jbernard13]

bonsoir lannoy

voici un code pour un petit lecteur mp3 , etudie le .....

Code : Tout sélectionner

 *** Petit lecteur mp3 ***
; ***Ecris par jbernard13***

;** Constantes **

; ** Fenetre**
Enumeration
  #Fenetre_music
EndEnumeration





; ** Gadgets **

Enumeration
  #Music
  #texte_nom
  #texte_fichier
  #texte_volume
  #barre_volume
  #cadre
  #bouton_jouer
  #bouton_stop
  #bouton_charger
EndEnumeration

InitMovie() 
Global Fichier.s 
; ** Procedures  

Procedure Charger_mp3();*** Chargement d'un fichier mp3 ***
  Fichier.s= OpenFileRequester("Charger","","mp3 fichier (*.mp3)|*.mp3",0)
  If Fichier.s  <> ""
    SetGadgetText(#texte_fichier,GetFilePart(Fichier.s))
    LoadMovie(#Music,Fichier.s)
  EndIf
EndProcedure
Procedure lecture(); *** Lecture du fichier mp3***
  If Fichier.s <> ""
    PlayMovie(#Music,#Null)
  EndIf
EndProcedure

Procedure Arreter();*** On arrete stop la musique 
  If Fichier.s <> ""
    StopMovie(#Music)
  EndIf
EndProcedure

Procedure Volume(); *** On augmente ou diminue le son 
  If Fichier.s <> ""
    Volume.l = GetGadgetState(#barre_volume)
     MovieAudio(#Music,Volume,Balance)
  EndIf
  
EndProcedure

;**Creation de la fenetre 
If OpenWindow(#Fenetre_music,0,0,250,170,"Mini mp3",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
  TextGadget(#texte_nom,20,10,150,20,"Titre du mp3 : ")
  TextGadget(#texte_fichier,20,30,210,20,"",#PB_Text_Border)
  TextGadget(#texte_volume,20,60,150,20,"Volume :")
  TrackBarGadget(#barre_volume,20,80,210,20,0,100)
  SetGadgetState(#barre_volume,100)
  Frame3DGadget(#cadre,10,110,230,50,"")
  ButtonGadget(#bouton_jouer,40,130,50,20,"Jouer")
  ButtonGadget(#bouton_stop,100,130,50,20,"Stop")
  ButtonGadget(#bouton_charger,160,130,50,20,"Charger")
  
  EndIf




; ** Boucle du programme** 

Repeat 
  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #barre_volume : Volume()
          Case #bouton_charger :Charger_mp3()   
          Case #bouton_jouer : lecture() 
        Case #bouton_stop : Arreter()
          EndSelect
      Case #PB_Event_CloseWindow
      fermer =#True
      
  EndSelect
Until fermer
End

[lannoy]

Bon je poste mon code ^^
Attention les yeux sa pique

Lecteur.pb

Code : Tout sélectionner

InitMovie()

#Hauteur = 100
#largeur = 500
#nom = "Lecteur audio par Vincent"

OpenWindow(1,0,0,#largeur,#Hauteur,#nom,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget)
WindowID = WindowID(1)
ButtonGadget(1,120,10,70,20,"Ouvrir")
ButtonGadget(2,190,10,70,20,"Lecture")
ButtonGadget(3,260,10,70,20,"Pause")
ButtonGadget(4,330,10,70,20,"Arrêt")
TrackBarGadget(0,10,50, 450, 30, 0, 0)


Repeat
event = WaitWindowEvent()

If event = #PB_Event_Gadget
    clic_gadget = EventGadget()
Else
    clic_gadget = 0
EndIf

IncludeFile "ouvrir.pb"
IncludeFile "lecture.pb"
IncludeFile "pause.pb"
IncludeFile "arret.pb"

Until event= #PB_Event_CloseWindow 
If piste$ <> ""
FreeMovie(1)
EndIf 

ouvrir.pb

Code : Tout sélectionner

If clic_gadget = 1


piste$=OpenFileRequester("Choisissez un fichier à lire","","Musiques|*.ogg;*.wma;*.aif;*.aiff;*.au;*.iff;*.m3u; *.midi;*.mid;*.mod;*.xml;*.s3m;*.mp3;*mp2;*.mpa;*.pcm; *.rpm;*.ra;*.rm;*.voc;*.wave;*.wav",0)  

titre_fichier$ = GetFilePart(piste$)

SetWindowTitle(1,#nom +" "+ titre_fichier$)

EndIf 

lecture.pb

Code : Tout sélectionner

If clic_gadget = 2

If piste$ <> ""
LoadMovie(1,piste$)
Hauteur = MovieHeight(1)
Largeur = MovieWidth(1)

    If Largeur > 500 Or Hauteur > -1
        ResizeWindow(1,#PB_Ignore,#PB_Ignore,Largeur,Hauteur)
    EndIf
    
    PlayMovie(1,WindowID)
    SetGadgetText(2,"Rejouer")
    movie_status = MovieStatus(1)
    
 EndIf 
EndIf

pause.pb

Code : Tout sélectionner

If clic_gadget = 3
If piste$ <> ""
  movie_statut = MovieStatus(1)
    If movie_statut = -1
        ResumeMovie(1)
        SetGadgetText(3,"Pause")
    Else
        PauseMovie(1)
        SetGadgetText(3,"Reprendre")
    EndIf
EndIf 
EndIf

Arret.pb

Code : Tout sélectionner

If clic_gadget = 4
If piste$ <> ""
StopMovie(1)
SetGadgetText(2,"Lecture")
EndIf 
EndIf 

Je c'est que j'utilise beaucoup de fichiers mes j'en ai pris l'habitude en php .

Savais vous comment changé l'icone du programme, j'ai regardé dans la doc mais je trouve rien, et sur google non plus merci ++

[Le Soldat Inconnu]

Dans les options de compilation, tu trouveras ton bonheur

[Geo Trouvpatou]

Salut.

Sinon à la place des fichiers, tu peux créer des Procedure (équivalent des fonctions en php. Regardes le code de JBernard13) et éventuellement faire un seul fichier externe appelé par exemple "fonctions.pbi" que tu incrustes en début de code.

Enfin bref, comme en php il y a plusieurs façon de faire, à chacun de faire comme il aime.

Bye.

[Backup]

Lannoy : inutile d'ouvrir plusieurs message pour le même sujet !!


je lock ici , pour que la suite se fasse au sujet du début

ici :
http://www.purebasic.fr/french/viewtopi ... 757#100757

j'ai renommé ton sujet en : "mon premier lecteur Video"

ps : j'ai répondu a ta question , donc c'étais pas la peine d'ouvrir 2 sujet

aussi : post un code en une seule partie s'il te plait , ç'est plus cool pour qu'on puisse le copier-coller