PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

programme capable de lire des musiques, films...

https://www.purebasic.fr/french/viewtopic.php?t=3949

Page 1 sur 1

programme capable de lire des musiques, films...

Publié : ven. 11/nov./2005 12:19
par gadjet35
bonjour je viens de créer un petit programme capable de lire
des images, des films, des musiques...
cliquer ici pour le telecharger

Publié : ven. 11/nov./2005 12:24
par Droopy
le filtre musique n'ouvre pas le mp3
+ comment lire un film en plein écran ?

Publié : ven. 11/nov./2005 12:30
par gadjet35
bon pour les fichiers mp3 j'ai oublier reviens demain sur le meme lien
de telechargement.
Pour le pleins ecran impossible avec ce programme...

Publié : ven. 11/nov./2005 12:36
par lionel_om
gadjet35 a écrit :bon pour les fichiers mp3 j'ai oublier reviens demain sur le meme lien
de telechargement.
Pour le pleins ecran impossible avec ce programme...
:?
le plein écran c'est un peu indispensable pour un lecteur vidéo...

Publié : ven. 11/nov./2005 12:37
par gadjet35
ok je vais ameliorer sa...

Publié : sam. 12/nov./2005 15:46
par Ulix
Pour la bande son, Ok
Pour la vidéo, pas d'image : il faut redimensionner la fenetre pour la voir apparaitre.
A+

Publié : sam. 12/nov./2005 19:06
par Gillou
Si ça peux t'aider

Il doit y avoir quelques bug mais bon :)

Code : Tout sélectionner

If InitMovie() = 0
  MessageRequester("Error", "Impossible d'initialiser DirectX", 0) 
  End
EndIf

MovieName$ = OpenFileRequester("Ouvrez une video", "", "Video (avi; mpg; mpeg; asf; wmv)|*.avi;*.mpg;*.asf;*.mp3;*.wav;*.wmv|All Files|*.*", 0)
If MovieName$
  If LoadMovie(0, MovieName$)
  If MovieWidth()<520
  ResizeMovie(0,0,MovieWidth()*2,MovieHeight()*2)
  MW=MovieWidth()*2
  MH=MovieHeight()*2
  Else
  MW=MovieWidth()
  MH=MovieHeight()
  EndIf
  longvid=MovieLength()
   hWnd= OpenWindow(0, 100, 150, MW, MH+ 60, #PB_Window_BorderLess|#PB_Window_ScreenCentered, "PureBasic - Movie")
   SetWindowPos_(WindowID(0),  #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE)
   px=WindowX()
   py=WindowY()
    PlayMovie(0, WindowID())
    CreateGadgetList(WindowID())
      TextGadget(10,10,MH+10,140,40,"Chargement en cours")
      ButtonGadget(11,160,MH+10,60,20,"Pause")
      ButtonGadget(15,160,MH+35,60,20,"Lire")
      ProgressBarGadget(14,230,MH+10,200,10,1,500,#PB_ProgressBar_Smooth)
      TrackBarGadget(12,230,MH+35,200,20,1,500)
      ButtonGadget(13,450,MH+10,60,20,"Image+1")
      ButtonGadget(16,450,MH+35,60,20,"Image-1")
      ButtonGadget(19,520,MH+10,60,20,"Image+50")
      ButtonGadget(20,520,MH+35,60,20,"Image-50")
      ButtonGadget(17,590,MH+10,60,20,"Quitter")
      ButtonGadget(18,590,MH+35,60,20,"Sauver")
      MovieAudio(100,0)
      MoveWindow(px-1,py-1)
      MoveWindow(px,py)
      DisableGadget(18,1)
      SetTimer_(WindowID(),0,50,0) ; Défini un temps d'attente
    Repeat
    Select WaitWindowEvent()
    Case #WM_LBUTTONDOWN 
      SendMessage_(hWnd, #WM_NCLBUTTONDOWN, #HTCAPTION, 0) 
      Case #WM_RBUTTONDOWN
     te= MessageRequester("Quitter ?","Voulez-vous quitter le programme?",#PB_MessageRequester_YesNo)
      If te=6
      Quit=1
      EndIf
      Case #PB_EventGadget
      Select EventGadgetID()
      Case 11 ; PAUSE
      If a=0
      PauseMovie()
      DisableGadget(12,1)
      SetGadgetText(11,"Continuer")
      DisableGadget(18,0)
      a=1
      Else
      ResumeMovie()
      DisableGadget(12,0)
      SetGadgetText(11,"Pause")
      DisableGadget(18,1)
      a=0
      EndIf
      Case 12 ; TRACKBAR
      MovieSeek(GetGadgetState(12)*longvid/500)
      SetGadgetState(10,"Trame actuelle : "+Str(GetGadgetState(12)*longvid/500))
      Case 13 ; IMAGE+1
      ResumeMovie()
      MovieSeek(po+1)
      SetGadgetText(10,"Trame actuelle : "+Str(po+1))
      PauseMovie()
      DisableGadget(12,1)
      po=po+1
      a=1
      SetGadgetState(12,po*500/longvid)
      SetGadgetState(14,po*500/longvid)
      SetGadgetText(11,"Continuer")
      DisableGadget(18,0)
      Case 16 ; IMAGE-1
      ResumeMovie()
      MovieSeek(po-1)
      SetGadgetText(10,"Trame actuelle : "+Str(po-1))
      PauseMovie()
      DisableGadget(12,1)
      po=po-1
      a=1
      SetGadgetState(12,po)
      SetGadgetState(14,po)
      SetGadgetText(11,"Continuer")
      DisableGadget(18,0)
      Case 19 ; IMAGE+50
      ResumeMovie()
      MovieSeek(po+50)
      SetGadgetText(10,"Trame actuelle : "+Str(po+50))
      PauseMovie()
      DisableGadget(12,1)
      po=po+50
      a=1
      SetGadgetState(12,po*500/longvid)
      SetGadgetState(14,po*500/longvid)
      SetGadgetText(11,"Continuer")
      DisableGadget(18,0)

      Case 20 ; IMAGE-50
      ResumeMovie()
      MovieSeek(po-50)
      SetGadgetText(10,"Trame actuelle : "+Str(po-50))
      PauseMovie()
      DisableGadget(12,1)
      po=po-50
      a=1
      SetGadgetState(12,po)
      SetGadgetState(14,po)
      SetGadgetText(11,"Continuer")
      DisableGadget(18,0)
      Case 15 ; LIRE OU STOPPER
      If b<>0
      StopMovie()
      DisableGadget(11,1)
      DisableGadget(12,1)
      Else
      PlayMovie(0, WindowID())
      DisableGadget(11,0)
      DisableGadget(12,0)
      b=MovieStatus()
      EndIf
      Case 17 ; QUITTER
      Quit=1
      
      Case 18 ; SAUVER IMAGE
      posvid=GetGadgetState(14)*longvid/500
      file$=SaveFileRequester("Sauver image",GetPathPart(MovieName$),"BMP|*.bmp",0)
      If file$
      If GetExtensionPart(file$)<>"bmp"
      file$=file$+".bmp"
      EndIf
      CreateImage(293,mw,mh)
      For a=1 To mh
      For b=1 To mw
      StartDrawing(WindowOutput())
      coul=Point(b,a)
      StopDrawing()
      UseImage(293)
      StartDrawing(ImageOutput())
      Plot(b,a,coul)
      StopDrawing()
      Next
      SetGadgetState(14,a*500/mh)
      Next
      SaveImage(293,file$)
      SetGadgetState(14,posvid)
      EndIf
      EndSelect
      Case #WM_TIMER ; STATUS DE LA VIDEO
      
    If b>0
    po=b
    SetGadgetText(10,"Trame actuelle : "+Str(b))
    SetGadgetState(14,b*500/longvid)
    SetGadgetText(15,"Stop")
    DisableGadget(11,0)
    DisableGadget(13,0)
    DisableGadget(16,0)
    DisableGadget(19,0)
    DisableGadget(20,0)
    If Abs(b-r)>5
    r=b+5
    SetGadgetState(12,b*500/longvid)
    EndIf
    ElseIf b=<0
    SetGadgetText(15,"Lire")
    ;DisableGadget(11,1)
    ;DisableGadget(13,1)
    ;DisableGadget(16,1)
    EndIf
    b=MovieStatus()
      EndSelect
    Until Quit=1
  Else
    MessageRequester("Erreur", "Impossible de lire la vidéo", 0)
  EndIf
EndIf

Publié : mar. 15/nov./2005 7:55
par gadjet35
ok merci pour votre aide je vais voir le code de gillou

Publié : mar. 15/nov./2005 8:03
par gadjet35
j'ai programmer un mixeur qui lit les mêmes choses que l'autre programme mais on voit les films (encore merci gillou pour ton aide)

Code : Tout sélectionner

;- Window Constants
;
Enumeration
  #Window_0
  #Window_1
EndEnumeration

;- MenuBar Constants
;
Enumeration
  #MenuBar_0
EndEnumeration

Enumeration
  #MENU_1
  #MENU_2
  #MENU_3
  #MENU_4
EndEnumeration

;- Gadget Constants
;
Enumeration
  #TrackBar_0
  #TrackBar_1
  #ProgressBar_3
  #Button_0
  #Button_1
  #Button_2
  #Button_3
  #Button_4
  #Frame3D_0
  #Frame3D_1
  #Text_3
  #Frame3D_2
  #Text_0
  #Text_1
  #Frame3D_3
  #Button_5
  #TrackBar_2
  #Text_2
  #Track_0
  #Button_6
EndEnumeration

 If InitSprite() = 0
  End
 EndIf

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 0, 0, 1017, 707,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget , "Mixeur Audio Vidéos")
     OpenWindowedScreen(WindowID(#Window_0),450,70,460,350,0,0,0)
    If CreateMenu(#MenuBar_0, WindowID())
      MenuTitle("fichiers")
      MenuItem(#MENU_1, "ouvrir")
      MenuBar()
      MenuItem(#MENU_2, "800* 600*")
      MenuItem(#MENU_3, "1024* 764*")
      MenuBar()
      MenuItem(#MENU_4, "quitter")
      EndIf

      If CreateGadgetList(WindowID())
        TrackBarGadget(#TrackBar_0, 60, 90, 230, 30, 0, 100)
        TrackBarGadget(#TrackBar_1, 60, 160, 230, 30, 0, 100)
        ProgressBarGadget(#ProgressBar_3, 40, 600, 420, 30, 0, 100)
        ButtonGadget(#Button_0, 40, 540, 90, 40, "play")
        ButtonGadget(#Button_1, 150, 540, 90, 40, "pause")
        ButtonGadget(#Button_2, 260, 540, 90, 40, "continuer")
        ButtonGadget(#Button_3, 370, 540, 90, 40, "stop")
        ButtonGadget(#Button_4, 120, 280, 110, 60, "AJOUTER")
        Frame3DGadget(#Frame3D_0, 30, 30, 300, 180, "SONS")
        Frame3DGadget(#Frame3D_1, 20, 520, 470, 120, "COMMANDES")
        TextGadget(#Text_3, 120, 380, 100, 50, "", #PB_Text_Center)
        Frame3DGadget(#Frame3D_2, 90, 250, 170, 200, "MUSIQUES ET FILMS")
        TextGadget(#Text_0, 70, 50, 140, 20, "Volume =")
        TextGadget(#Text_1, 70, 130, 160, 20, "Balance =")
        Frame3DGadget(#Frame3D_3, 410, 30, 540, 440, "FENETRE VIDÉO")
        ButtonGadget(#Button_5, 810, 410, 110, 50, "regarder sur l'écran")
        TrackBarGadget(#TrackBar_2, 560, 420, 190, 30, 0, 100)
        TextGadget(#Text_2, 440, 430, 100, 20, "Taille de l'écran =")
      EndIf
    EndIf
EndProcedure

If InitMovie() = 0
 End
EndIf

 open_window_0()
 
 Repeat
  Select WaitWindowEvent()
   Case #PB_EventMenu
    Select EventMenuID()
     Case #menu_1
      fichier$ = OpenFileRequester("media win","","musiques|*.wav;*.wave;*.mid;*.mide;*.cda|films|*.avi;*.wmv;*.mpeg,*.mpg;*.m1v;*.mp2",0)
       LoadMovie(0,fichier$)
       SetGadgetText(#text_3,"movie_1")
     Case #menu_2
      UseWindow(#window_0)
      ResizeWindow(800,600)
     Case #menu_3
     UseWindow(#window_0)
     ResizeWindow(1024,764)
     Case #menu_4
      End
    EndSelect
   Case #PB_EventGadget
    Select EventGadgetID()
     Case #trackBar_0 
      volume = GetGadgetState(#trackbar_0)
      MovieAudio(volume,balance)
      SetGadgetState(#progressbar_3,volume)
     Case #trackbar_1
      balance  = GetGadgetState(#trackbar_1)
      MovieAudio(volume,balance)
     Case #button_0
      ResizeMovie(200,700,500,500)
      PlayMovie(0,WindowID(#window_0))
     Case #button_1
      PauseMovie()
     Case #button_2
      ResumeMovie()
     Case #button_3
      StopMovie()
     Case #button_4
      fichier$ = OpenFileRequester("media win","","musiques|*.wav;*.wave;*.mid;*.mide;*.cda|films|*.avi;*.wmv;*.mpeg,*.mpg;*.m1v;*.mp2",0)
      LoadMovie(0,fichier$)
      SetGadgetText(#text_3,"movie_1")
     Case #button_5
      grandeur = GetGadgetState(#trackbar_2) * 10
      OpenWindow(#window_1,0,0,grandeur + 100,grandeur - 300,#PB_Window_BorderLess,"")
      ResizeMovie(0,0,grandeur + 24,grandeur - 300)
      PlayMovie(0,WindowID(1))
    EndSelect
   Case #PB_EventCloseWindow
    quit = 1
  EndSelect
 Until quit = 1
si vous avez des critiques et des améliorations...[/code]
Fuseau horaire sur UTC+01:00
Page 1 sur 1

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

Traduction française officielle © Qiaeru