PureBasic

Ar-S a écrit :Parce que j'ai repris le gros de ce code et d'autres mais qui avaient tous en commun le fait d'utiliser avicap32 donc j'ai pas eu besoin de demander .
Je suis passé par MSDN, par le fofo fr, uk, et même russe pour mes recherches.

Ar-S a écrit : Mais ayant remanipulé le code pour le simplifier (à moyen terme), mes 2 effets noir et blanc ne fonctionnent plus... :[

Ar-S a écrit :J'ai tout de même du mal à m'organiser dans la gestion des events pour du gros code. C'est mon 1er code de + de 9000 lignes.
Même en tentant d'anticiper une structure efficace du code et des proces, on a toujours pleins de surprises...
J'avoue que je fatigue un peu.

lepiaf31 a écrit :

Ar-S a écrit : Mais ayant remanipulé le code pour le simplifier (à moyen terme), mes 2 effets noir et blanc ne fonctionnent plus... :[

Ar-S a écrit :J'ai tout de même du mal à m'organiser dans la gestion des events pour du gros code. C'est mon 1er code de + de 9000 lignes.
Même en tentant d'anticiper une structure efficace du code et des proces, on a toujours pleins de surprises...
J'avoue que je fatigue un peu.

Utilise des logiciels de gestion de versions du style Git ou Mercurial. La prise en main demande un peu de temps mais ce n'est pas très compliqué. Ensuite ca sera facile de revenir en arrière

MLD a écrit :&Ar-S

Oui je comprend
Un des problème quand les lignes de code deviennent nombreuses et les gadgets aussis,c'est l'automatisation de PB a numéroté les gadgets. c'est pour cela que je fait par exemple
Enumeration
#txt_4 = 5 ; texte de présentation1
#txt_5 = 6; texte de présentation2
#txt_6 = 7 ; texte du résultat chiffre
# txt_7 = 8 ; texte du résultat %
#txt_8 = 9 ; infos1
#txt_9 = 10 ; infos2
EndEnumeration

...

Ici c'est simple avec 10 gadgets, mais quand il y en a 100 dans trois fenêtres différrentes
Moi je gagne du temps en faisant comme ceci.

Enumeration
  #Mainform
EndEnumeration

Enumeration 0 Step 9  ;Liste de 10 boutons
  #Button_Start 
  #Button_End
EndEnumeration


Define.l Event, GEvent

Procedure Open_MainForm()
  OpenWindow(#Mainform, 0, 0, 500, 400, "New Form", #PB_Window_SystemMenu)
EndProcedure

Procedure Start()
  ;Initialisation application, police, etc ..
  Open_MainForm()
  
  ;Creation de 10 boutons
  For N=0 To 9
    GadgetId = #Button_Start + N
    ButtonGadget(GadgetId, 10, (20*N)+5, 80, 20, "Bouton " + N)
  Next
  
EndProcedure

start()

Repeat
  Event  = WaitWindowEvent(10)
  GEvent = EventGadget()
  Select Event
    Case #PB_Event_Gadget
      Select GEvent
        Case #Button_START To #Button_End
          Debug GetGadgetText(GEvent)
          
      EndSelect
        
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver

MLD a écrit : Un des problème quand les lignes de code deviennent nombreuses et les gadgets aussis,c'est l'automatisation de PB a numéroté les gadgets. c'est pour cela que je fait par exemple
Enumeration
#txt_4 = 5 ; texte de présentation1
#txt_5 = 6; texte de présentation2
(...)
EndEnumeration

ensuite tu peu faire suite a l'appui sur un bouton

For x = 5 To 10
SetGadgetFont(x,FontID2 )
Next

Enumeration
#txt_4 = 5 ; texte de présentation1
#txt_5 = 6; texte de présentation2
#txt_6 = 7 ; texte du résultat chiffre
#txt_7 = 8 ; texte du résultat %
#txt_8 = 9 ; infos1
#txt_9 = 10 ; infos2
EndEnumeration

Enumeration 5
#txt_4 ; texte de présentation1
#txt_5; texte de présentation2
#txt_6 ; texte du résultat chiffre
#txt_7 ; texte du résultat %
#txt_8 ; infos1
#txt_9 ; infos2
EndEnumeration

Enumeration 10 ; on commence au numéro 10
#IMG_titre
#IMG_BT1
#IMG_BT2 
#IMG_BT3
#IMG_BT4
#IMG_QUITTER

#FIN
EndEnumeration

Global Nbr_Image = #FIN - #IMG_titre -1
Global Fin_image = #FIN - 1

; ça permet de faire un 

Debug Str(Nbr_Image) + " gadgets image à traiter"
For i = #IMG_titre To Fin_image
  
 Debug "ID = " + Str(i)

Next

omega a écrit :Je t'encourage Ar-s, bravo et bonne réussite !
(c'est ta photo l'homme en casquette?)