Mon 1er shareware...

[Backup]

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.

ben oui , mais le code ci dessus , fonctionne tout de suite
si tu avais demandé, je te l'aurai filé directe , et tu aurai économisé la recherche

[Ar-S]

Merci quand même
Mais t'inquiète, j'aurai surement à te demander d'autres trucs dans un avenir proche

Je viens de résoudre mon soucis de noir & blanc, une simple erreur de nom de variable. (Red à la place de R...)

[lepiaf31]

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

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

[Ar-S]

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

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

C'est surement pratique à terme mais je ne me sens pas du tout de me sortir la tête de mon code pour autre chose.

[cederavic]

C'est vrai que la gestion des evenements sous PB quand on commence a avoir une grosse interface devient vite fastidieuse et "bordelique" même avec la meilleur volonté du monde... La meilleur façon que j'ai trouvé c'est de passer pour des callback perso pour chaque fenetre / gadget mais ça demande un temps phenomenal a metre en place (a l'ajout / suppressions / modif d'un ou plusieur gadget) mais au final je me retrouve avec une proc par gadget qui gere ces propres evenement.
C'est dans ces moment là qu'on préfère l'objet au procédural

[Ar-S]

C'est surtout l'automatisation qui devient fastidieuse lorsque qu'un gadget doit changer l'état d'autres et du coup le comportement de ces même autres gadgets doivent se comporter différemment selon que gadget 1 ... enfin vous savez de quoi je parle

Ici mon sur les 6 effets, 2 sont des "interrupteurs" qui on un statut on off. Les autres sont de simple boutons.
il y a aussi l'ecran principale ou s'affiche la min qui doit réagir différemment selon le clic sur les autres... Enfin (et ce qui m'a mis dedans car j'y ai pensé trop tard), la gestion du clic droit qui doit avoir l'action "Annuler l'effet pour revenir à l'effet précédent" sauf s'il ni a pas d'effets précédents...
Bref, un univers de variables et de conditions qui commence à être lourdingue

[MLD]

&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

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

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

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.
Si Fred laisse cette possibilité ce n'est pas pour rien je pense.
Bon courage pour la suite

[falsam]

&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.

Petite astuce que j'utilise quand je manipule beaucoup de gadget comme dans le jeu Meli Melo que j'ai posté sur ce forum.

Code : Tout sélectionner

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

[Ar-S]

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

ça permet l'ajout de #gadget à la volée sans avoir à reprendre le code.
J'utilise aussi ce système
Sauf qu'attention à ton énumération.

C'est plus propre de faire ainsi (et ça t'évite les # txt4 = 5)

Remplace

Code : Tout sélectionner

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

par

Code : Tout sélectionner

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

Je pousse même le vice à mettre un Flag de fin genre #FIN

Code : Tout sélectionner

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]

Je t'encourage Ar-s, bravo et bonne réussite !

(c'est ta photo l'homme en casquette?)

[Ar-S]

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

Merci omega, et oui pour ta question.

[omega]

Salut Ars

J'ai une question hors sujet et je suis curieux de connaître ta réponse (pas obligatoire mais souhaitable):

Avec quel outil tu as développé ton site web (ldvmultimedia)?

(il est très joli)

Merci de ta réponse

[Ar-S]

Merci.
Pour le site j'ai tout fait avec avec notepad ++ et mes petits doigts.
Les différents effets ont été possible grâce à l'HTML5 et CSS3

[omega]

Merci pour ta réponse

Tu veux dire en codant en HTML ? PHP? sans utiliser aucun outil prédéfini?

(animation photo etc..)..??

[Ar-S]

Oui c'est ça.
Une grosse partie en html et un peu de php pour éviter de la redondance dans les menus et la gestion des contenus de pages.
les quelques animations et fondues sont faites grâce à CSS3 et html5

Pour en revenir à mon soft.

Beta 1.6.0 dans les back !

Conversion des boutons actions (du bas) en 1 seul canvas.
Events mieux gérés (les stuctures ont aidées)
Tous les effets ok sauf filigrane que je n'ai pas encore commencé mais ça devrait le faire rapidement.

Voilà la structure des"boutons" de la partie "Effets speciaux"



Les Infos en haut à droite sont aussi affichées sur un canvas.

ça m'aura prix plusieurs jours de galères pour tout réorganiser mais ça va bien mieux.