[R] Case ne fonctionne plus après un retour sur boucle

[tekserver]

Bonjour le forum,

Depuis quelques semaines je me suis lancé dans un projet de script pour la gestion de ma diet, je n'ai pas beaucoup de temps libre mais dès que je peux, je me met le nez dedans
Mes connaissances sont très limité, mais j'arrive à me débrouiller grâce à ce forum et le forum US, en prenant des idées et des bout de codes à droite à gauche. Actuellement je suis à 20% de mon script et je rencontre déjà un problème que je n'arrive pas à résoudre.

Au lancement du script tout fonctionne correctement, mais quand je clique sur le lien "Journée en cours" puis que je clique sur le bouton "AddBdd" que je remplis les champs afin de valider en cliquant sur "OK" ma fenêtre se ferme correctement et je retourne bien sur ma boucle "While 1" (ligne 213) cependant toute la partie "Case $aPanel[4]" (ligne 261 à 282) ne fonctionne pas. Ce qui est étonnant c'est que les autres "Case $aPanel[1]" & "Case $aPanel[2]" eux fonctionnent.

Je vous prie de bien vouloir être indulgent avec moi, car je sais que mon script c'est "Bagdad" et qu'il risque de rendre aveugle les puristes de l'Autoit Je prends aussi tous conseils pour l'optimisation de ce dernier

Le script:

► Afficher le texte

Code : Tout sélectionner

 While 1
    Sleep(10)
    $nMsg = GUIGetMsg(1)
Switch $nMsg[1]

        Case $hMainGUI
    Switch $nMsg[0]
        Case $GUI_EVENT_CLOSE
        Exit

        Case $aLink[1], $aLink[2], $aLink[3];, $aLink[4]
            For $i = 1 To $aLink[0]
                If $nMsg[0] = $aLink[$i] Then
                    GUISetState(@SW_SHOW, $aPanel[$i])
                    _zSetting()
                    Sleep(10)
                Else
                    GUISetState(@SW_HIDE, $aPanel[$i])
                EndIf
            Next
        Case $aLink[4]
            For $i = 1 To $aLink[0]
                If $nMsg[0] = $aLink[$i] Then
                    GUISetState(@SW_SHOW, $aPanel[$i])
                    _zSetting()
                    Sleep(100)
                    _zConf()
                Else
                    GUISetState(@SW_HIDE, $aPanel[$i])
                EndIf
            Next
    EndSwitch

        Case $aPanel[1]
            Switch $nMsg[0]

                Case $Bouton_AddBdd
                _zAddBdd()
            EndSwitch


        Case $aPanel[2]
            Switch $nMsg[0]

                Case $hButton1
                MsgBox(32, "Test", "You have " & GUICtrlRead($hInput1) & "?")
            EndSwitch

        Case $aPanel[4]
            Switch $nMsg[0]

                Case $zRadioOui ; And BitAND(GUICtrlRead($zRadioOui), $GUI_CHECKED) = $GUI_CHECKED
                _SQLite_Exec($ziftm, "Begin;")
                _SQLite_Exec($ziftm, "UPDATE setting SET iFL = 1;")
                _SQLite_Exec($ziftm, "Commit;")
                _zSetting()
                Sleep(100)
                _zConf()

                Case $zRadioNon ; And BitAND(GUICtrlRead($zRadioNon), $GUI_CHECKED) = $GUI_CHECKED
                _SQLite_Exec($ziftm, "Begin;")
                _SQLite_Exec($ziftm, "UPDATE setting SET iFL = 0;")
                _SQLite_Exec($ziftm, "Commit;")
                _zSetting()
                Sleep(100)
                _zConf()

                Case $zlink
                ShellExecute("http://www.1percentedge.com/ifcalc/")
            EndSwitch
EndSwitch
WEnd

EndFunc ;==>_MainGui


Func _AddNewLink($sTxt, $iIcon = -44)
Local $hLink = GUICtrlCreateLabel($sTxt, 36, 1 + $iGap, 135 - 46, 17)
GUICtrlSetCursor(-1, 0)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
GUICtrlCreateIcon("shell32.dll", $iIcon, 10, 1 + $iGap, 16, 16)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$iGap += 22
Return $hLink
EndFunc ;==>_AddNewLink


Func _AddNewPanel($sTxt)
Local $gui = GUICreate("", 676 - 135 + 2, 400 - 1 - 29, 135 + 2, 1, $WS_CHILD + $WS_VISIBLE, -1, $hMainGUI)
GUICtrlCreateLabel($sTxt, 10, 10, 676 - 135 - 20, 17, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 9, 800, 4, "Arial", 5)
GUICtrlSetResizing(-1, $GUI_DOCKTOP + $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
Return $gui
EndFunc ;==>_AddNewPanel


Func _AddControlsToPanel($hPanel)
GUISwitch($hPanel)
EndFunc ;==>_AddControlsToPanel

Func _zAddBdd()
GUISetState(@SW_DISABLE)
Global $zAddBdd = GUICreate("Ajout dans la base de données", 500, 140, -1, -1, $WS_SYSMENU ,BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))

GUICtrlCreateLabel ("Aliment: ",60,15,70)
GUICtrlSetFont (-1, 12)
$Input_Nom = GUICtrlCreateInput("", 5, 42, 160, 20, BitOR($ES_LOWERCASE, $ES_CENTER))

GUICtrlCreateLabel ("Quantité: ",182,15,70)
GUICtrlSetFont (-1, 12)
;$Input_Quant = GUICtrlCreateInput("100 gr/ml", 178, 42, 70, 20, BitOR($ES_CENTER,$ES_NUMBER))
GUICtrlCreateLabel("100 gr/ml", 177, 42, 70, 20)
GUICtrlSetFont (-1, 11, 600)
;GUICtrlSetState($Input_Quant, $GUI_DISABLE)
;GUICtrlSetLimit(-1,4)

GUICtrlCreateLabel ("Protéines: ",260,15,70)
GUICtrlSetFont (-1, 12)
$Input_Prot = GUICtrlCreateInput("", 260, 42, 70, 20, BitOR($ES_CENTER,$ES_NUMBER))
GUICtrlSetLimit(-1,4)

GUICtrlCreateLabel ("Glucides: ",342,15,70)
GUICtrlSetFont (-1, 12)
$Input_Gluc = GUICtrlCreateInput("", 340, 42, 70, 20, BitOR($ES_CENTER,$ES_NUMBER))
GUICtrlSetLimit(-1,4)

GUICtrlCreateLabel ("Lipides: ",425,15,70)
GUICtrlSetFont (-1, 12)
$Input_Lip = GUICtrlCreateInput("", 420, 42, 70, 20, BitOR($ES_CENTER,$ES_NUMBER))
GUICtrlSetLimit(-1,4)

$zABouton_Ok = GUICtrlCreateButton("OK", 420, 75, 60, 30)
GUICtrlSetFont (-1, 9)

Local $iCheckbox = GUICtrlCreateCheckbox("Multi ajouts", 342, 75, 70, 30)

GUISetState(@SW_SHOW, $zAddBdd)

    While 1
        $iMsg = GUIGetMsg()
        Switch $iMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $zABouton_Ok
                _Lecture_Value_Input()
                If _Verif() Then
                    GUISetState(@SW_HIDE, $zAddBdd)
                    Sleep(10)
                    _Insert_BDD()
                        SplashTextOn ("", "Aliment ajouté à la base", 300,55, -1, -1, 49)
                        Sleep(500)
                        SplashOff()
                    Sleep(10)
                        If _IsChecked($iCheckbox) Then
                            GUIDelete($zAddBdd)
                            _zAddBdd()
                            ExitLoop
                        EndIf
                    MsgBox($MB_SYSTEMMODAL, "", "Marqueur1", 0, "")
                    _AlimentationComboBox1 ()
                    GUIDelete($zAddBdd)
                    _Activation_hMainGUI()
                    ;ExitLoop
                    Return($hMainGUI)
                Else
                    MsgBox($MB_SYSTEMMODAL, "", "Erreur dans l'ajout ...", 0, "")
                EndIf


        EndSwitch
    WEnd
 
EndFunc

 

Dans l'attente de votre aide, je vous remercie d'avance,
Cordialement

[TopXm]

Hello,

Tu as un commentaire qui s'est glissé donc normal

Code : Tout sélectionner

        Case $aLink[1], $aLink[2], $aLink[3];, $aLink[4]

Il te faut enlever ton point-virgule (je n'ai pas testé le code)

EDIT Oups j'ai dit une bêtise ! J'avais pas tout lu !!! Faites comme si je n'étais pas passé

[jchd]

Je n'ai pas trop regardé ce qui peut poser problème avec la GUI mais je trouve le schéma de ta base assez étrange (plusieurs tables ayant les mêmes colonnes).

Ton INSERT dans settings à l'init est invalide (xxx --> 'xxx'). Tu devrais aussi définir des types dans tes tables : lipides, glucides, protéines c'est du texte ou du numérique ?

[tekserver]

Bonsoir,

le schéma de ta base assez étrange

oui c'est vrai, en faite j'ai une base principale (bdd_aliments) uniquement pour les aliments, une base pour le suivi jours par jours (bdd_jours), une base pour les aliments favoris (bdd_repas), et une pour le paramétrage (setting), je peux effectivement virer l'autre, elle me servira pas, je voulais en effet parser à coup de regex le site www.les-calories.c*m/calories.ht*l pour alimenter ma base, mais trop complexe pour le moment.

Ton INSERT dans settings à l'init est invalide (xxx --> 'xxx'). Tu devrais aussi définir des types dans tes tables : lipides, glucides, protéines c'est du texte ou du numérique ?

Oui j'avoue j'ai modifié par des simple "0" car effectivement dans ces fields ça sera que tu numérique. Je dois définir explicitement le type pour du numérique ?

Merci à vous ++
Cordialement.

[jchd]

SQLite est très permissif quant au typage. En fait, il utilise le typage dynamique, basé sur l'affinité. Lire la doc pour les détails.

On peut donc parfaitement insérer n'importe quel type dans toute colonne, sauf integer primary key, clé étrangère ou clause check portant explicitement sur le type. Par contre il vaut mieux savoir exactement ce qu'on fait si on veut alors éviter les mauvaises surprises qui peuvent avoir des conséquences allant de désagréables à désastreuses.

Si je comprends un peu le sujet, tu veux disposer de plusieurs tables :
o) une table aliments qui décrit les compositions (Gl, Li, Pr) par quantité donnée (au passage tu pourrais stocker ici la valeur calorique),
o) une table jours qui enregistre ce que tu as mangé par jour
o) une table "repas" dont je ne perçois pas trop l'utilité. Si tu veux noter tes aliments favoris, pourquoi ne pas mettre une colonne "Note" dans la table aliments qui te premettrait de noter un aliment de 0 à 20 en fonction de tes goûts, une autre colonne avec le prix par unité pour mieux affiner ton budget, etc.
o) une table lcc dont au sujet d'icelle je pige ketchi
o) une table setting contenant ... (???) des valeurs cible pour jours ON ou OFF (si oui, cette sémantique est à éclaircir) ?

Tes tables jours, repas, lcc devraient employer une clé étrangère vers la table aliments.

Je te fais un MP avec un squelette chargé avec quelques valeurs. Etudie-le avec un gestionnaire SQLite tel SQLite Expert en version freeware.

[tekserver]

Bonsoir,

Merci pour ton MP et tes bon conseils.
Je vais, dès que je serai débloqué sur mon problème de GUI repenser toute ma base et faire un typage à l'init comme sur ton exemple. Merci.

Cordialement.

[tekserver]

Bonjour le forum,

Je suis toujours bloqué sur ce maudit "Case $aPanel[4]" ligne 260 qui ne veut plus répondre après le retour sur boucle.
J'ai beau chercher .... Je suis sure que c'est un petit détail que je ne vois pas.
Si une âme charitable veut bien vouloir m'aider

En vous remerciant ,
Cordialement.

[tekserver]

Bonjour le forum,

Juste un petit UP
J'aimerai comprendre pourquoi ça ne fonctionne pas, svp une petite aide.
Merci.

[tekserver]

Bonjour le forum,

J'ai trouvé d'ou venait la coquille:

Code : Tout sélectionner

Func _zAddBdd()
GUISetState(@SW_DISABLE)

et remplacant pas ceci:

Code : Tout sélectionner

Func _zAddBdd()
GUISetState(@SW_DISABLE, $hMainGUI)

Mais il n’empêche que cela ne m'explique pas pourquoi il y avait que la partie "Case $aPanel[4]" qui ne fonctionnait pas.

++