Je debute pouriez vous eclairer ma lanterne s'il vous plait

[taicha]

Bonjour a tous
et merci d'avance pour les reponses que vous pourrez m'apporter

Je debute en programation et j'ai decider de faire une petite application
car je fais beaucoup de sous titrage.
j'aurai souhaite y parvenir seul mais je bute sur differentes difficultees
c'est pour cela que je me permet de soliciter votre aide

le but de mon programe es de lire un fichier ini qui contient tout les path de mes fichier
et de les afficher dans une string
ensuite en cliquant sur le morceaux souhaiter cliquer sur play ou double cliquer desus pour lancer le morceaux via MPC.
j'ai deja ajouter penser a mettre une fonction recherche mais ca viendra apres

voici mon code:

Code : Tout sélectionner

; ------------------------------------------------------------
;                   Karaoke Player
;   PureBasic Visual Designer v3.95 build 1485 (PB4Code)
; ------------------------------------------------------------

;- Window Constants
;
Enumeration
  #Kapla_String
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Listing_String
  #Classement_Frame3D
  #Recherche_Sting
  #Recherche2_String
  #Play_Button
EndEnumeration

;- Fonts
Global FontID1
FontID1 = LoadFont(1, "HansHand", 14, #PB_Font_Italic)

Procedure Open_Kapla_String()
  
  If OpenWindow(#Kapla_String, 283, 187, 467, 269, "Karaoke Player",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_BorderLess | #PB_Window_ScreenCentered | #PB_Window_WindowCentered )
  
    If CreateGadgetList(WindowID(#Kapla_String))
      ListViewGadget(#Listing_String, 10, 10, 260, 250)
      Frame3DGadget(#Classement_Frame3D, 280, 10, 180, 190, "Recherche :")
      SetGadgetFont(#Classement_Frame3D, FontID1)
      StringGadget(#Recherche_Sting, 290, 40, 160, 20, "")
      StringGadget(#Recherche2_String, 290, 80, 160, 110, "", #PB_String_ReadOnly)
      ButtonGadget(#Play_Button, 300, 220, 140, 40, "Play")
      SetGadgetFont(#Play_Button, FontID1)
      SetGadgetColor(#Listing_String, #PB_Gadget_BackColor, $FFFFFF)
      SetGadgetColor(#Recherche2_String, #PB_Gadget_BackColor, $FFFFFF)
      SetGadgetColor(#Recherche_Sting, #PB_Gadget_BackColor, $00FFFF)
      
    EndIf
  EndIf
EndProcedure

Open_Kapla_String()
OpenPreferences("settings.ini")
PreferenceGroup("sons")
ExaminePreferenceKeys()
While NextPreferenceKey()
  AddGadgetItem(#Listing_String,-1,PreferenceKeyName())
Wend


;; buton play et croix pour fermer

Repeat
     Event = WaitWindowEvent()
     
     Select Event
     
       Case #PB_Event_Gadget
         Select EventGadget()
           Case #Play_Button : RunProgram("C:\Program Files\Satsuki Decoder Pack\mpc\mplayerc.exe")
           
         EndSelect
  
     EndSelect
   Until Event = #PB_Event_CloseWindow
End

pour le moment le programme lance MPC via le bouton play et affiche ma liste
malheuresement je ne sais pas comment associer les deux
pour que Mpc lance le fichier souhaite

j'espere que vous pourrez m'aider

merci a tous

[bernard13]

bonjour et bienvenu dans le monde de Purebasic
pour repondre à ta questions
il te faut utiliser la commande Structure
comme par exemple :

Code : Tout sélectionner

Structure Gestion 
    Pseudo.s 
    Prenom .s 
    Age.s 
    Ville.s
EndStructure
 

voila pour commencer

[Dr. Dri]

je connais pas l'utilisation de MPC en ligne de commande mais en gros avec la fonction RunProgram tu peux envoyer des arguments au programme (donc par exemple lui dire "joue moi telle vidéo")

Documente toi dans ce sens là, et je préfère prévenir tout de suite que si tu dois passer un argument qui contient des espaces il faut le mettre entre guillements -> Chr('"')

Dri

[taicha]

merci de m'avoir aiguille
je vais me remettre au boulot de ce pas