Code : Tout sélectionner
;______________________________________________POCKET AUDIO_____________________________________________;
;=======================================================================================================;
;______________________________________________ASPECT POCKET AUDIO______________________________________;
Enumeration
#MENU_ouvrir
#MENU_fermer
#MENU_date
#MENU_extinction
#MENU_preference
#MENU_aide
#MENU_propos
#Gadget_choix
#Gadget_commande
#Gadget_equalizer
#Gadget_progression
#Gadget_ouvrir
#Gadget_Lire
#Gadget_pause
#Gadget_arret
#Gadget_commandcd
#Gadget_lirecd
#Gadget_pausecd
#Gadget_arretcd
#Gadget_ejectcd
#Gadget_fragression
#Gadget_choidisque
#Gadget_reglage
#Gadget_son
#Gadget_balance
#Gadget_textson
#Gadget_textbalance
#Gadget_choixminute
#Gadget_framinute
#Gadget_texteminute
#Gadget_progressarebourg
#Gadget_annule
EndEnumeration
Procedure Ouvrir_FP()
If OpenWindow(Window_principal, 0, 17, 381, 195, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_WindowCentered , "Pocket Audio")
If CreateMenu(MenuBar_0, WindowID())
MenuTitle("Fichier")
MenuItem(#MENU_ouvrir,"Ouvrir")
MenuBar()
MenuItem(#MENU_fermer,"Fermer")
MenuTitle("Outils")
MenuItem(#MENU_date,"Date/Heure")
MenuItem(#MENU_extinction,"Extinction programmée")
MenuBar()
MenuItem(#MENU_preference,"Préférences")
MenuTitle("?")
MenuItem(#MENU_aide,"Rubrique d'aide")
MenuBar()
MenuItem(#MENU_propos,"A propos")
EndIf
If CreateGadgetList(WindowID())
PanelGadget(#Gadget_choix, 0, 0, 385, 155)
AddGadgetItem(#Gadget_choix, -1, "Lecture")
Frame3DGadget(#Gadget_commande, 8, 18, 315, 50,"Commande")
ProgressBarGadget(#Gadget_equalizer, 348, 8, 15, 115, 0, 10, #PB_ProgressBar_Vertical)
TrackBarGadget(#Gadget_progression, 13, 93, 315, 20, 0, 10)
ButtonGadget(#Gadget_ouvrir, 23, 38, 60, 20, "Ouvrir")
ButtonGadget(#Gadget_Lire, 98, 38, 60, 20, "Lire")
ButtonGadget(#Gadget_pause, 173, 38, 60, 20,"Pause")
ButtonGadget(#Gadget_arret, 248, 38, 60, 20, "Arrêt")
Frame3DGadget(#Gadget_fragression, 8, 73, 325, 50,"progression")
AddGadgetItem(#Gadget_choix, -1, "Lecture CD")
Frame3DGadget(#Gadget_commandcd, 8, 18, 315, 50,"Commande CD")
ButtonGadget(#Gadget_lirecd, 23, 38, 60, 20,"Lire CD")
ButtonGadget(#Gadget_pausecd, 98, 38, 60, 20,"Pause CD")
ButtonGadget(#Gadget_arretcd, 173, 38, 60, 20,"Arrêt CD")
ButtonGadget(#Gadget_ejectcd, 248, 38, 60, 20,"Eject CD")
ComboBoxGadget(#Gadget_choidisque, 328, 23, 45, 100)
AddGadgetItem(#Gadget_choix, -1, "Reglage")
Frame3DGadget(#Gadget_reglage, 13, 13, 350, 85,"Reglage")
TrackBarGadget(#Gadget_son, 28, 38, 200, 20, 0, 100)
SetGadgetState(#Gadget_son, 100)
TrackBarGadget(#Gadget_balance, 153, 68, 200, 20, 0, 10)
TextGadget(#Gadget_textson, 243, 43, 90, 20, ": Reglage Volume", #PB_Text_Center)
TextGadget(#Gadget_textbalance, 38, 68, 95, 20,"Reglage Balance :")
AddGadgetItem(#Gadget_choix, -1, "Extinction programmée")
SpinGadget(#Gadget_choixminute, 303, 28, 50, 25, 1, 60)
SetGadgetState (#Gadget_choixminute,1)
SetGadgetText(#Gadget_choixminute,"1")
Frame3DGadget(#Gadget_framinute, 8, 8, 360, 60,"Reglage Extinction")
TextGadget(#Gadget_texteminute, 98, 33, 195, 20,"choisissez le temps avant l'extinction", #PB_Text_Right)
ProgressBarGadget(#Gadget_progressarebourg, 58, 78, 310, 20, 0, 100, #PB_ProgressBar_Smooth)
SetGadgetState(#Gadget_progressarebourg, 100)
ButtonGadget(#Gadget_annule, 23, 33, 65, 20, "annuler")
CloseGadgetList()
EndIf
EndIf
EndProcedure
;_________________________________________Fin Aspect POCKET AUDIO_______________________________________;
;____________________________________________DEBUT PROGRAMATION_________________________________________;
Ouvrir_FP()
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventMenu
MenuID = EventMenuID()
If MenuID = #MENU_ouvrir
ElseIf MenuID = #MENU_fermer
ElseIf MenuID = #MENU_date
ElseIf MenuID = #MENU_extinction
ElseIf MenuID = #MENU_preference
ElseIf MenuID = #MENU_aide
ElseIf MenuID = #MENU_propos
EndIf
EndIf
If Event = #PB_EventGadget
GadgetID = EventGadgetID()
If GadgetID = #Gadget_choix
ElseIf GadgetID = #Gadget_equalizer
ElseIf GadgetID = #Gadget_progression
ElseIf GadgetID = #Gadget_ouvrir
ElseIf GadgetID = #Gadget_Lire
ElseIf GadgetID = #Gadget_pause
ElseIf GadgetID = #Gadget_arret
ElseIf GadgetID = #Gadget_lirecd
ElseIf GadgetID = #Gadget_pausecd
ElseIf GadgetID = #Gadget_arretcd
ElseIf GadgetID = #Gadget_ejectcd
ElseIf GadgetID = #Gadget_choidisque
ElseIf GadgetID = #Gadget_son
ElseIf GadgetID = #Gadget_balance
ElseIf eventGadgetID = #Gadget_choixminute
SetGadgetText(#Gadget_choixminute,Str(GetGadgetState(#Gadget_choixminute)))
WindowEvent()
ElseIf GadgetID = #Gadget_progressarebourg
ElseIf GadgetID = #Gadget_annule
EndIf
EndIf
Until Event = #PB_EventCloseWindow