Mon 1er shareware...

Sujets variés concernant le développement en PureBasic
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Mon 1er shareware...

Message par Backup »

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.
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 :lol:
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Mon 1er shareware...

Message par Ar-S »

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

Je viens de résoudre mon soucis de noir & blanc, une simple erreur de nom de variable. (Red à la place de R...)
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
lepiaf31
Messages : 510
Inscription : dim. 25/mars/2007 13:44
Localisation : Toulouse, France
Contact :

Re: Mon 1er shareware...

Message par lepiaf31 »

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 ;)
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Mon 1er shareware...

Message par Ar-S »

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 ;)
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. :-?
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
cederavic
Messages : 1338
Inscription : lun. 09/févr./2004 23:38
Localisation : Bordeaux

Re: Mon 1er shareware...

Message par 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 :P
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Mon 1er shareware...

Message par 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 :mrgreen:

Image
Dernière modification par Ar-S le jeu. 14/mars/2013 21:45, modifié 1 fois.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
MLD
Messages : 1097
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: Mon 1er shareware...

Message par 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. :wink:
Bon courage pour la suite :lol:
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Mon 1er shareware...

Message par falsam »

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.
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
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Mon 1er shareware...

Message par Ar-S »

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
ç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
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
omega
Messages : 617
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: Mon 1er shareware...

Message par omega »

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

(c'est ta photo l'homme en casquette?)
Win7 (x64) 64 bits Pb 5.72
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Mon 1er shareware...

Message par Ar-S »

omega a écrit :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.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
omega
Messages : 617
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: Mon 1er shareware...

Message par 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
Win7 (x64) 64 bits Pb 5.72
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Mon 1er shareware...

Message par 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
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
omega
Messages : 617
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: Mon 1er shareware...

Message par omega »

Merci pour ta réponse

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

(animation photo etc..)..??
Win7 (x64) 64 bits Pb 5.72
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Mon 1er shareware...

Message par 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"

Image

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. :P
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Répondre