Page 1 sur 1
Topic Locké ------Mon premier programme
Publié : ven. 10/juil./2009 16:23
par 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 dl
ici
Voila merci de vos commentaires et suggestion ++
Publié : ven. 10/juil./2009 16:48
par jbernard13
merci , mais impossible de le télécharger si on est pas ouvert un compte sendspace
Publié : ven. 10/juil./2009 16:51
par TazNormand
jbernard13 a écrit :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
Publié : ven. 10/juil./2009 16:54
par lannoy
Oui tout en bas de la page il y as écrit télécharger
TazNormand tu en pense quoi
Publié : ven. 10/juil./2009 16:56
par TazNormand
lannoy a écrit :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"...
Publié : ven. 10/juil./2009 17:01
par 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
Publié : ven. 10/juil./2009 18:11
par 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
Publié : ven. 10/juil./2009 19:47
par 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 ++
Publié : ven. 10/juil./2009 20:05
par Le Soldat Inconnu
Dans les options de compilation, tu trouveras ton bonheur
Publié : ven. 10/juil./2009 20:19
par 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.
Publié : ven. 10/juil./2009 21:23
par 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