;Lecteur MP3 By Z@lem Version 1
InitMovie()
OpenWindow(1,0,0,640,256,"Lecteur MP3 by z@lem",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_BorderLess)
WindowID=WindowID(1)
UsePNGImageDecoder()
image$="angeldawn-hoodlum_2.png"
pix=LoadImage(1,image$)
image2$="play.png"
pix2=LoadImage(2,image2$)
CreateGadgetList(WindowID)
ButtonGadget(4,100,WindowHeight(1)-30,100,25,"ouvrir")
ButtonGadget(2,210,WindowHeight(1)-30,100,25,"pause")
ButtonGadget(3,320,WindowHeight(1)-30,100,25,"arret")
ButtonImageGadget(1,430,WindowHeight(1)-30,100,25,ImageID(2))
ImageGadget(5,0,0,640,256,ImageID(1))
Repeat
event=WindowEvent()
If event=#PB_Event_Gadget
clicgadget=EventGadget()
Else
clicgadget=0
EndIf
If loaded=0
DisableGadget(1,1)
DisableGadget(2,1)
DisableGadget(3,1)
Else
DisableGadget(1,0)
DisableGadget(2,0)
DisableGadget(3,0)
EndIf
If clicgadget=4
fichier$=OpenFileRequester("Choisir un fichier","","",0)
If play=1
StopMovie(1)
FreeMovie(1)
LoadMovie(1,fichier$)
loaded=1
Else
play=0
LoadMovie(1,fichier$)
loaded=1
PlayMovie(1,1)
play=1
EndIf
EndIf
If clicgadget=1
PlayMovie(1,1)
play=1
Else
EndIf
If clicgadget=2
If pause=0
PauseMovie(1)
SetGadgetText(2,"Un-Pause")
pause=1
Else
ResumeMovie(1)
SetGadgetText(2,"Pause")
pause=0
EndIf
EndIf
If clicgadget=3
If play=1
StopMovie(1)
EndIf
EndIf
Until event = #PB_Event_CloseWindow
Bon petit programme tout simple en PureBasic...je ne connais ce langage que depuis hier soir (donc pas optimisé :s) mais préparation d'un cracktro en cours et d'une démo 3D pour la suite (peut etre présentation a la Saturne party ^^)