Comment afficher tous les StringGadget
Publié : jeu. 02/nov./2017 14:37
Bonjour à tous,
J'essaie en vain, à faire s'afficher tous mes StringGadget pour afficher les résultats des tous les états de mes SpinGadjet.
Si je commente TOUS les GetGadgetState, sauf 1, le résultat s'affiche normalement, mais seulement dans ce cas, je pense que les résultats devraient s'afficher dans des procédures, mais je ne sais pas quels déclencheurs je peux mettre.
Alors, je viens une fois de plus pour solliciter votre aide bienveillante pour m'aider à résoudre mon problème et je vous en remercie grandement par avance.
J'essaie en vain, à faire s'afficher tous mes StringGadget pour afficher les résultats des tous les états de mes SpinGadjet.
Si je commente TOUS les GetGadgetState, sauf 1, le résultat s'affiche normalement, mais seulement dans ce cas, je pense que les résultats devraient s'afficher dans des procédures, mais je ne sais pas quels déclencheurs je peux mettre.
Alors, je viens une fois de plus pour solliciter votre aide bienveillante pour m'aider à résoudre mon problème et je vous en remercie grandement par avance.
Code : Tout sélectionner
;Convertisseur de temps
Enumeration
#Fenetre_principale
EndEnumeration
Enumeration
#Ctn_0
#Ctn_1
#Txt_Annee_0
#Txt_Mois_0
#Txt_Semaine_0
#Txt_Jour_0
#Txt_Heure_0
#Txt_Minute_0
#Txt_Seconde_0
#Spn_Annee_0
#Spn_Mois_0
#Spn_Semaine_0
#Spn_Jour_0
#Spn_Heure_0
#Spn_Minute_0
#Spn_Seconde_0
#Txt_Annee_1
#Txt_Mois_1
#Txt_Semaine_1
#Txt_Jour_1
#Txt_Heure_1
#Txt_Minute_1
#Txt_Seconde_1
#Str_Annee_1
#Str_Mois_1
#Str_Semaine_1
#Str_Jour_1
#Str_Heure_1
#Str_Minute_1
#Str_Seconde_1
EndEnumeration
Enumeration
#Police
EndEnumeration
;Structure
Structure sTemps
Annee.f
Mois.f
Semaine.f
Jour.f
Heure.f
Minute.f
Seconde.f
EndStructure
Global.sTemps Temps
Global Evenement
Declare Programme_principal()
LoadFont(#Police, "Arial", 12, #PB_Font_Bold)
SetGadgetFont(#PB_Default, FontID(#Police))
Temps\Annee = 1
Temps\Mois = 12
Temps\Semaine = 52.17857142857
Temps\Jour = 365.25
Temps\Heure = 8766
Temps\Minute = 525960
Temps\Seconde = 31557600
Procedure Programme_principal()
If OpenWindow(#Fenetre_principale, 0, 0, 570, 515, "Convertisseur de temps", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ContainerGadget(#Ctn_0, 0, 10, 570, 250, #PB_Container_Raised)
TextGadget(#Txt_Annee_0, 0, 0, 80, 30, "Année(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Mois_0, 180, 0, 80, 30, "Mois", #SS_CENTERIMAGE)
TextGadget(#Txt_Semaine_0, 360, 0, 90, 30, "Semaine(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Jour_0, 0, 120, 80, 30, "Jour(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Heure_0, 180, 120, 80, 30, "Heure(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Minute_0, 360, 120, 90, 30, "Minute(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Seconde_0, 0, 210, 90, 30, "Seconde(s)", #SS_CENTERIMAGE)
SpinGadget(#Spn_Annee_0, 80, 0, 95, 30, 0, 9999, #PB_Spin_Numeric)
SpinGadget(#Spn_Mois_0, 260, 0, 95, 30, 0, 9999, #PB_Spin_Numeric)
SpinGadget(#Spn_Semaine_0, 460, 0, 95, 30, 0, 9999, #PB_Spin_Numeric)
SpinGadget(#Spn_Jour_0, 80, 120, 95, 30, 0, 9999, #PB_Spin_Numeric)
SpinGadget(#Spn_Heure_0, 260, 120, 95, 30, 0, 9999, #PB_Spin_Numeric)
SpinGadget(#Spn_Minute_0, 460, 120, 95, 30, 0, 9999, #PB_Spin_Numeric)
SpinGadget(#Spn_Seconde_0, 90, 210, 95, 30, 0, 9999, #PB_Spin_Numeric)
For i = #Spn_Annee_0 To #Spn_Seconde_0
SetGadgetText(i, "0")
Next i
CloseGadgetList()
ContainerGadget(#Ctn_1, 0, 265, 570, 250, #PB_Container_Raised)
TextGadget(#Txt_Annee_1, 0, 0, 80, 30, "Année(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Mois_1, 180, 0, 80, 30, "Mois", #SS_CENTERIMAGE)
TextGadget(#Txt_Semaine_1, 360, 0, 90, 30, "Semaine(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Jour_1, 0, 120, 80, 30, "Jour(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Heure_1, 180, 120, 80, 30, "Heure(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Minute_1, 360, 120, 90, 30, "Minute(s)", #SS_CENTERIMAGE)
TextGadget(#Txt_Seconde_1, 0, 210, 90, 30, "Seconde(s)", #SS_CENTERIMAGE)
StringGadget(#Str_Annee_1, 80, 0, 95, 30, "")
StringGadget(#Str_Mois_1, 260, 0, 95, 30, "")
StringGadget(#Str_Semaine_1, 460, 0, 95, 30, "")
StringGadget(#Str_Jour_1, 80, 120, 95, 30, "")
StringGadget(#Str_Heure_1, 260, 120, 95, 30, "")
StringGadget(#Str_Minute_1, 460, 120, 95, 30, "")
StringGadget(#Str_Seconde_1, 90, 210, 460, 30, "")
CloseGadgetList()
EndIf
EndProcedure
Programme_principal()
;- Boucle
Repeat
With Temps
SetGadgetText(#Str_Annee_1, StrF(GetGadgetState(#Spn_Annee_0) * \Annee +
GetGadgetState(#Spn_Mois_0) * \Annee / \Mois +
GetGadgetState(#Spn_Semaine_0) * \Annee / \Semaine +
GetGadgetState(#Spn_Jour_0) * \Annee / \Jour +
GetGadgetState(#Spn_Heure_0) * \Annee / \Heure +
GetGadgetState(#Spn_Minute_0) * \Annee / \Minute +
GetGadgetState(#Spn_Seconde_0) * \Annee / \Seconde, 3))
SetGadgetText(#Str_Mois_1, StrF(GetGadgetState(#Spn_Annee_0) * \Mois * \Annee +
GetGadgetState(#Spn_Mois_0) * \Mois / \Mois +
GetGadgetState(#Spn_Semaine_0) * \Mois / \Semaine +
GetGadgetState(#Spn_Jour_0) * \Mois / \Jour +
GetGadgetState(#Spn_Heure_0) * \Mois / \Heure +
GetGadgetState(#Spn_Minute_0) * \Mois / \Minute +
GetGadgetState(#Spn_Seconde_0) * \Mois / \Seconde, 0))
SetGadgetText(#Str_Semaine_1, StrF(GetGadgetState(#Spn_Annee_0) * \Semaine * \Annee +
GetGadgetState(#Spn_Mois_0) * \Semaine / \Mois +
GetGadgetState(#Spn_Semaine_0) * \Semaine / \Semaine +
GetGadgetState(#Spn_Jour_0) * \Semaine / \Jour +
GetGadgetState(#Spn_Heure_0) * \Semaine / \Heure +
GetGadgetState(#Spn_Minute_0) * \Semaine / \Minute +
GetGadgetState(#Spn_Seconde_0) * \Semaine / \Seconde, 2))
SetGadgetText(#Str_Jour_1, StrF(GetGadgetState(#Spn_Annee_0) * \Jour * \Annee +
GetGadgetState(#Spn_Mois_0) * \Jour / \Mois +
GetGadgetState(#Spn_Semaine_0) * \Jour / \Semaine +
GetGadgetState(#Spn_Jour_0) * \Jour / \Jour +
GetGadgetState(#Spn_Heure_0) * \Jour / \Heure +
GetGadgetState(#Spn_Minute_0) * \Jour / \Minute +
GetGadgetState(#Spn_Seconde_0) * \Jour / \Seconde, 2))
SetGadgetText(#Str_Heure_1, StrF(GetGadgetState(#Spn_Annee_0) * \Heure +
GetGadgetState(#Spn_Mois_0) * \Heure / \Mois +
GetGadgetState(#Spn_Semaine_0) * \Heure / \Semaine +
GetGadgetState(#Spn_Jour_0) * \Heure / \Jour +
GetGadgetState(#Spn_Heure_0) * \Heure / \Heure +
GetGadgetState(#Spn_Minute_0) * \Heure / \Minute +
GetGadgetState(#Spn_Seconde_0) * \Heure / \Seconde, 0))
SetGadgetText(#Str_Minute_1, StrF(GetGadgetState(#Spn_Annee_0) * \Minute +
GetGadgetState(#Spn_Mois_0) * \Minute / \Mois +
GetGadgetState(#Spn_Semaine_0) * \Minute / \Semaine +
GetGadgetState(#Spn_Jour_0) * \Minute / \Jour +
GetGadgetState(#Spn_Heure_0) * \Minute / \Heure +
GetGadgetState(#Spn_Minute_0) * \Minute / \Minute +
GetGadgetState(#Spn_Seconde_0) * \Minute / \Seconde, 0))
SetGadgetText(#Str_Seconde_1, StrF(GetGadgetState(#Spn_Annee_0) * \Seconde +
GetGadgetState(#Spn_Mois_0) * \Seconde / \Mois +
GetGadgetState(#Spn_Semaine_0) * \Seconde / \Semaine +
GetGadgetState(#Spn_Jour_0) * \Seconde / \Jour +
GetGadgetState(#Spn_Heure_0) * \Seconde / \Heure +
GetGadgetState(#Spn_Minute_0) * \Seconde / \Minute +
GetGadgetState(#Spn_Seconde_0 ) * \Seconde / \Seconde, 0))
EndWith
Evenement = WaitWindowEvent()
Select Evenement
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Fenetre_principale
CloseWindow(#Fenetre_principale)
Break
EndSelect
EndSelect
ForEver
Il m'arrive souvent de reprendre des codes plusieurs mois après les avoir conçus et me poser la question pourquoi j'ai fait ceci ou cela comme ça. 