Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[R] Les 31 maudits : CODE COMPLET en cours de fabrication
Auteur Message
Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
Voila je poste mon problème avant que quelqu'un ne se hasarde à entamer ce long code répétitif et très ennuyeux que j'ai décidé de faire.
Ma Gui s'ouvre, lorsque j'appui sur un mois de 30 jours la nouvelle GUI s'affiche, pareil lorsque je clique sur les jours.
Mais je ne trouve pas la source de mon problème lorsque je clique sur un mois de 31 jours l'interface se ferme et le code aussi
pareil si je clique sur un autre jour.

PS: Je fournis le code complet (assez long et volumineux) je reste vague sur mes intentions mes peut-être le découvrirez-vous avant que je ne le publie Mort de Rire
En tout cas toutes remarques sont bienvenues.

PS-BIS : Il arrive très souvent que mes codes ne fonctionnent pas chez les autres, dites-le-moi à ce moment que je vois d'où vient le problème.

PS-TRIS : Ce code n'est pas terminé car je me suis attaqué à l'interface graphique avant le pratique, il sert donc pour l'instant à rien.

Code:

Local $month="Janvier"
Local $numb=01
Local $Cold=""
Local $M=01
Local $war="P"
Call("Pair")

Func Pair()
#include <GUIConstantsEx>
#include <StaticConstants>
#include <WindowsConstants>
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Auto_Koda_Kalender", 1130, 683, 183, 65)
Global $MenuItem1 = GUICtrlCreateMenu("&Fichier")
Global $MenuItem2 = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenu("&Affichage")
Global $MenuItem4 = GUICtrlCreateMenuItem("Janvier", $MenuItem3)
Global $MenuItem5 = GUICtrlCreateMenuItem("Février", $MenuItem3)
Global $MenuItem6 = GUICtrlCreateMenuItem("Mars", $MenuItem3)
Global $MenuItem7 = GUICtrlCreateMenuItem("Avril", $MenuItem3)
Global $MenuItem8 = GUICtrlCreateMenuItem("Mai", $MenuItem3)
Global $MenuItem9 = GUICtrlCreateMenuItem("Juin", $MenuItem3)
Global $MenuItem10 = GUICtrlCreateMenuItem("Juillet", $MenuItem3)
Global $MenuItem11 = GUICtrlCreateMenuItem("Août", $MenuItem3)
Global $MenuItem12 = GUICtrlCreateMenuItem("Septembre", $MenuItem3)
Global $MenuItem13 = GUICtrlCreateMenuItem("Octobre", $MenuItem3)
Global $MenuItem14 = GUICtrlCreateMenuItem("Novembre", $MenuItem3)
Global $MenuItem15 = GUICtrlCreateMenuItem("Décembre", $MenuItem3)
Global $MenuItem16 = GUICtrlCreateMenu("A&ide")
Global $MenuItem17 = GUICtrlCreateMenuItem("Aide", $MenuItem16)
Global $MenuItem18 = GUICtrlCreateMenuItem("A propos de ...", $MenuItem16)
Global $Janvier = GUICtrlCreateLabel("Janvier >>", 15, 15, 94, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Fevrier = GUICtrlCreateLabel("Février >>", 109, 15, 91, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Mars = GUICtrlCreateLabel("Mars >>", 205, 15, 67, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Avril = GUICtrlCreateLabel("Avril >>", 277, 15, 68, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Mai = GUICtrlCreateLabel("Mai >>", 350, 15, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Juin = GUICtrlCreateLabel("Juin >>", 417, 15, 69, 32)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Juillet = GUICtrlCreateLabel("Juillet>>", 483, 15, 78, 32)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Aout = GUICtrlCreateLabel("Août >>", 566, 15, 67, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Septembre = GUICtrlCreateLabel("Septembre >>", 638, 15, 124, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Octobre = GUICtrlCreateLabel("Octobre >>", 767, 15, 100, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Novembre = GUICtrlCreateLabel("Novembre >>", 872, 15, 119, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Decembre = GUICtrlCreateLabel("Décembre >>", 996, 15, 117, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Kalender = GUICtrlCreateLabel("Calendrier de : " & $month, 437, 61, 254, 40)
GUICtrlSetFont(-1, 18, 800, 4, "Jokerman")
Global $G1 = GUICtrlCreateGroup("", 19, 128, 143, 89)
Global $01 = GUICtrlCreateLabel("01", 68, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group1 = GUICtrlCreateGroup("", 175, 128, 143, 89)
Global $02 = GUICtrlCreateLabel("02", 223, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("", 332, 128, 143, 89)
Global $03 = GUICtrlCreateLabel("03", 383, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("", 490, 128, 143, 89)
Global $04 = GUICtrlCreateLabel("04", 542, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group4 = GUICtrlCreateGroup("", 648, 128, 143, 89)
Global $05 = GUICtrlCreateLabel("05", 700, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group5 = GUICtrlCreateGroup("", 807, 128, 143, 89)
Global $06 = GUICtrlCreateLabel("06", 858, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group6 = GUICtrlCreateGroup("", 966, 128, 143, 89)
Global $07 = GUICtrlCreateLabel("07", 1018, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group7 = GUICtrlCreateGroup("", 19, 234, 143, 89)
Global $08 = GUICtrlCreateLabel("08", 68, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group8 = GUICtrlCreateGroup("", 175, 234, 143, 89)
Global $09 = GUICtrlCreateLabel("09", 223, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group9 = GUICtrlCreateGroup("", 332, 234, 143, 89)
Global $10 = GUICtrlCreateLabel("10", 383, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group10 = GUICtrlCreateGroup("", 490, 234, 143, 89)
Global $11 = GUICtrlCreateLabel("11", 542, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group11 = GUICtrlCreateGroup("", 648, 234, 143, 89)
Global $12 = GUICtrlCreateLabel("12", 700, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group12 = GUICtrlCreateGroup("", 807, 234, 143, 89)
Global $13 = GUICtrlCreateLabel("13", 858, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group13 = GUICtrlCreateGroup("", 966, 234, 143, 89)
Global $14 = GUICtrlCreateLabel("14", 1018, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group21 = GUICtrlCreateGroup("", 19, 341, 143, 89)
Global $15 = GUICtrlCreateLabel("15", 68, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group22 = GUICtrlCreateGroup("", 175, 341, 143, 89)
Global $16 = GUICtrlCreateLabel("16", 223, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group23 = GUICtrlCreateGroup("", 332, 341, 143, 89)
Global $17 = GUICtrlCreateLabel("17", 383, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group24 = GUICtrlCreateGroup("", 490, 341, 143, 89)
Global $18 = GUICtrlCreateLabel("18", 542, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group25 = GUICtrlCreateGroup("", 648, 341, 143, 89)
Global $19 = GUICtrlCreateLabel("19", 700, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group26 = GUICtrlCreateGroup("", 807, 341, 143, 89)
Global $20 = GUICtrlCreateLabel("20", 858, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group27 = GUICtrlCreateGroup("", 966, 341, 143, 89)
Global $21 = GUICtrlCreateLabel("21", 1018, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group28 = GUICtrlCreateGroup("", 19, 447, 143, 89)
Global $22 = GUICtrlCreateLabel("22", 68, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group29 = GUICtrlCreateGroup("", 175, 447, 143, 89)
Global $23 = GUICtrlCreateLabel("23", 223, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group30 = GUICtrlCreateGroup("", 332, 447, 143, 89)
Global $24 = GUICtrlCreateLabel("24", 383, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group31 = GUICtrlCreateGroup("", 490, 447, 143, 89)
Global $25 = GUICtrlCreateLabel("25", 542, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group32 = GUICtrlCreateGroup("", 648, 447, 143, 89)
Global $26 = GUICtrlCreateLabel("26", 700, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group33 = GUICtrlCreateGroup("", 807, 447, 143, 89)
Global $27 = GUICtrlCreateLabel("27", 858, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group34 = GUICtrlCreateGroup("", 966, 447, 143, 89)
Global $28 = GUICtrlCreateLabel("28", 1018, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group35 = GUICtrlCreateGroup("", 19, 553, 143, 89)
Global $29 = GUICtrlCreateLabel("29", 68, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group36 = GUICtrlCreateGroup("", 175, 553, 143, 89)
Global $30 = GUICtrlCreateLabel("30", 223, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group37 = GUICtrlCreateGroup("", 332, 553, 143, 89)
Global $31 = GUICtrlCreateLabel("31", 383, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
Global $Form1_1_AccelTable[3][2] = [["^{HOME}", $MenuItem8],["!{BS}", $MenuItem17],["!0", $MenuItem18]]
GUISetAccelerators($Form1_1_AccelTable)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $01
         Call("Text_viewer",$numb)
      Case $02
         $numb=02
         Call("Text_viewer",$numb)
      Case $03
         $numb=03
         Call("Text_viewer",$numb)
      Case $04
         $numb=04
         Call("Text_viewer",$numb)
      Case $05
         $numb=05
         Call("Text_viewer",$numb)
      Case $06
         $numb=06
         Call("Text_viewer",$numb)
      Case $07
         $numb=07
         Call("Text_viewer",$numb)
      Case $08
         $numb=08
         Call("Text_viewer",$numb)
      Case $09
         $numb=09
         Call("Text_viewer",$numb)
      Case $10
         $numb=10
         Call("Text_viewer",$numb)
      Case $11
         $numb=11
         Call("Text_viewer",$numb)
      Case $12
         $numb=12
         Call("Text_viewer",$numb)
      Case $13
         $numb=13
         Call("Text_viewer",$numb)
      Case $14
         $numb=14
         Call("Text_viewer",$numb)
      Case $15
         $numb=15
         Call("Text_viewer",$numb)
      Case $16
         $numb=16
         Call("Text_viewer",$numb)
      Case $17
         $numb=17
         Call("Text_viewer",$numb)
      Case $18
         $numb=18
         Call("Text_viewer",$numb)
      Case $19
         $numb=19
         Call("Text_viewer",$numb)
      Case $20
         $numb=20
         Call("Text_viewer",$numb)
      Case $21
         $numb=21
         Call("Text_viewer",$numb)
      Case $22
         $numb=22
         Call("Text_viewer",$numb)
      Case $23
         $numb=23
         Call("Text_viewer",$numb)
      Case $24
         $numb=24
         Call("Text_viewer",$numb)
      Case $25
         $numb=25
         Call("Text_viewer",$numb)
      Case $26
         $numb=26
         Call("Text_viewer",$numb)
      Case $27
         $numb=27
         Call("Text_viewer",$numb)
      Case $28
         $numb=28
         Call("Text_viewer",$numb)
      Case $29
         $numb=29
         Call("Text_viewer",$numb)
      Case $30
         $numb=30
         Call("Text_viewer",$numb)
      Case $31
         $numb=31
         Call("Text_viewer",$numb)
      Case $Janvier
         $month="Janvier"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
        Case $Mars
         $month="Mars"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Avril
         $month="Avril"
         If $war="P" Then
            $war="I"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="I"
         EndIf
      Case $Mai
         $month="Mai"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Juin
         $month="Juin"
         If $war="P" Then
            $war="I"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="I"
         EndIf
      Case $Juillet
         $month="Juilet"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Aout
         $month="Aout"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Septembre
         $month="Septembre"
         If $war="P" Then
            $war="I"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="I"
         EndIf
      Case $Octobre
         $month="Octobre"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Novembre
         $month="Novembre"
         If $war="P" Then
            $war="I"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="I"
         EndIf
      Case $Decembre
         $month="Decembre"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
   EndSwitch
WEnd
EndFunc

Func Impair()
#include <GUIConstantsEx>
#include <StaticConstants>
#include <WindowsConstants>
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Auto_Koda_Kalender", 1130, 683, 183, 65)
Global $MenuItem1 = GUICtrlCreateMenu("&Fichier")
Global $MenuItem2 = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenu("&Affichage")
Global $MenuItem4 = GUICtrlCreateMenuItem("Janvier", $MenuItem3)
Global $MenuItem5 = GUICtrlCreateMenuItem("Février", $MenuItem3)
Global $MenuItem6 = GUICtrlCreateMenuItem("Mars", $MenuItem3)
Global $MenuItem7 = GUICtrlCreateMenuItem("Avril", $MenuItem3)
Global $MenuItem8 = GUICtrlCreateMenuItem("Mai", $MenuItem3)
Global $MenuItem9 = GUICtrlCreateMenuItem("Juin", $MenuItem3)
Global $MenuItem10 = GUICtrlCreateMenuItem("Juillet", $MenuItem3)
Global $MenuItem11 = GUICtrlCreateMenuItem("Août", $MenuItem3)
Global $MenuItem12 = GUICtrlCreateMenuItem("Septembre", $MenuItem3)
Global $MenuItem13 = GUICtrlCreateMenuItem("Octobre", $MenuItem3)
Global $MenuItem14 = GUICtrlCreateMenuItem("Novembre", $MenuItem3)
Global $MenuItem15 = GUICtrlCreateMenuItem("Décembre", $MenuItem3)
Global $MenuItem16 = GUICtrlCreateMenu("A&ide")
Global $MenuItem17 = GUICtrlCreateMenuItem("Aide", $MenuItem16)
Global $MenuItem18 = GUICtrlCreateMenuItem("A propos de ...", $MenuItem16)
Global $Janvier = GUICtrlCreateLabel("Janvier >>", 15, 15, 94, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Fevrier = GUICtrlCreateLabel("Février >>", 109, 15, 91, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Mars = GUICtrlCreateLabel("Mars >>", 205, 15, 67, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Avril = GUICtrlCreateLabel("Avril >>", 277, 15, 68, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Mai = GUICtrlCreateLabel("Mai >>", 350, 15, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Juin = GUICtrlCreateLabel("Juin >>", 417, 15, 69, 32)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Juillet = GUICtrlCreateLabel("Juillet>>", 483, 15, 78, 32)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Aout = GUICtrlCreateLabel("Août >>", 566, 15, 67, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Septembre = GUICtrlCreateLabel("Septembre >>", 638, 15, 124, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Octobre = GUICtrlCreateLabel("Octobre >>", 767, 15, 100, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Novembre = GUICtrlCreateLabel("Novembre >>", 872, 15, 119, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Decembre = GUICtrlCreateLabel("Décembre >>", 996, 15, 117, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Kalender = GUICtrlCreateLabel("Calendrier de : " & $month, 437, 61, 254, 40)
GUICtrlSetFont(-1, 18, 800, 4, "Jokerman")
Global $G1 = GUICtrlCreateGroup("", 19, 128, 143, 89)
Global $01 = GUICtrlCreateLabel("01", 68, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group1 = GUICtrlCreateGroup("", 175, 128, 143, 89)
Global $02 = GUICtrlCreateLabel("02", 223, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("", 332, 128, 143, 89)
Global $03 = GUICtrlCreateLabel("03", 383, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("", 490, 128, 143, 89)
Global $04 = GUICtrlCreateLabel("04", 542, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group4 = GUICtrlCreateGroup("", 648, 128, 143, 89)
Global $05 = GUICtrlCreateLabel("05", 700, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group5 = GUICtrlCreateGroup("", 807, 128, 143, 89)
Global $06 = GUICtrlCreateLabel("06", 858, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group6 = GUICtrlCreateGroup("", 966, 128, 143, 89)
Global $07 = GUICtrlCreateLabel("07", 1018, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group7 = GUICtrlCreateGroup("", 19, 234, 143, 89)
Global $08 = GUICtrlCreateLabel("08", 68, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group8 = GUICtrlCreateGroup("", 175, 234, 143, 89)
Global $09 = GUICtrlCreateLabel("09", 223, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group9 = GUICtrlCreateGroup("", 332, 234, 143, 89)
Global $10 = GUICtrlCreateLabel("10", 383, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group10 = GUICtrlCreateGroup("", 490, 234, 143, 89)
Global $11 = GUICtrlCreateLabel("11", 542, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group11 = GUICtrlCreateGroup("", 648, 234, 143, 89)
Global $12 = GUICtrlCreateLabel("12", 700, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group12 = GUICtrlCreateGroup("", 807, 234, 143, 89)
Global $13 = GUICtrlCreateLabel("13", 858, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group13 = GUICtrlCreateGroup("", 966, 234, 143, 89)
Global $14 = GUICtrlCreateLabel("14", 1018, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group21 = GUICtrlCreateGroup("", 19, 341, 143, 89)
Global $15 = GUICtrlCreateLabel("15", 68, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group22 = GUICtrlCreateGroup("", 175, 341, 143, 89)
Global $16 = GUICtrlCreateLabel("16", 223, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group23 = GUICtrlCreateGroup("", 332, 341, 143, 89)
Global $17 = GUICtrlCreateLabel("17", 383, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group24 = GUICtrlCreateGroup("", 490, 341, 143, 89)
Global $18 = GUICtrlCreateLabel("18", 542, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group25 = GUICtrlCreateGroup("", 648, 341, 143, 89)
Global $19 = GUICtrlCreateLabel("19", 700, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group26 = GUICtrlCreateGroup("", 807, 341, 143, 89)
Global $20 = GUICtrlCreateLabel("20", 858, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group27 = GUICtrlCreateGroup("", 966, 341, 143, 89)
Global $21 = GUICtrlCreateLabel("21", 1018, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group28 = GUICtrlCreateGroup("", 19, 447, 143, 89)
Global $22 = GUICtrlCreateLabel("22", 68, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group29 = GUICtrlCreateGroup("", 175, 447, 143, 89)
Global $23 = GUICtrlCreateLabel("23", 223, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group30 = GUICtrlCreateGroup("", 332, 447, 143, 89)
Global $24 = GUICtrlCreateLabel("24", 383, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group31 = GUICtrlCreateGroup("", 490, 447, 143, 89)
Global $25 = GUICtrlCreateLabel("25", 542, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group32 = GUICtrlCreateGroup("", 648, 447, 143, 89)
Global $26 = GUICtrlCreateLabel("26", 700, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group33 = GUICtrlCreateGroup("", 807, 447, 143, 89)
Global $27 = GUICtrlCreateLabel("27", 858, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group34 = GUICtrlCreateGroup("", 966, 447, 143, 89)
Global $28 = GUICtrlCreateLabel("28", 1018, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group35 = GUICtrlCreateGroup("", 19, 553, 143, 89)
Global $29 = GUICtrlCreateLabel("29", 68, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group36 = GUICtrlCreateGroup("", 175, 553, 143, 89)
Global $30 = GUICtrlCreateLabel("30", 223, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
Global $Form1_1_AccelTable[3][2] = [["^{HOME}", $MenuItem8],["!{BS}", $MenuItem17],["!0", $MenuItem18]]
GUISetAccelerators($Form1_1_AccelTable)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $01
         Call("Text_viewer",$numb)
      Case $02
         $numb=02
         Call("Text_viewer",$numb)
      Case $03
         $numb=03
         Call("Text_viewer",$numb)
      Case $04
         $numb=04
         Call("Text_viewer",$numb)
      Case $05
         $numb=05
         Call("Text_viewer",$numb)
      Case $06
         $numb=06
         Call("Text_viewer",$numb)
      Case $07
         $numb=07
         Call("Text_viewer",$numb)
      Case $08
         $numb=08
         Call("Text_viewer",$numb)
      Case $09
         $numb=09
         Call("Text_viewer",$numb)
      Case $10
         $numb=10
         Call("Text_viewer",$numb)
      Case $11
         $numb=11
         Call("Text_viewer",$numb)
      Case $12
         $numb=12
         Call("Text_viewer",$numb)
      Case $13
         $numb=13
         Call("Text_viewer",$numb)
      Case $14
         $numb=14
         Call("Text_viewer",$numb)
      Case $15
         $numb=15
         Call("Text_viewer",$numb)
      Case $16
         $numb=16
         Call("Text_viewer",$numb)
      Case $17
         $numb=17
         Call("Text_viewer",$numb)
      Case $18
         $numb=18
         Call("Text_viewer",$numb)
      Case $19
         $numb=19
         Call("Text_viewer",$numb)
      Case $20
         $numb=20
         Call("Text_viewer",$numb)
      Case $21
         $numb=21
         Call("Text_viewer",$numb)
      Case $22
         $numb=22
         Call("Text_viewer",$numb)
      Case $23
         $numb=23
         Call("Text_viewer",$numb)
      Case $24
         $numb=24
         Call("Text_viewer",$numb)
      Case $25
         $numb=25
         Call("Text_viewer",$numb)
      Case $26
         $numb=26
         Call("Text_viewer",$numb)
      Case $27
         $numb=27
         Call("Text_viewer",$numb)
      Case $28
         $numb=28
         Call("Text_viewer",$numb)
      Case $29
         $numb=29
         Call("Text_viewer",$numb)
      Case $30
         $numb=30
         Call("Text_viewer",$numb)
      Case $Janvier
         $month="Janvier"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
        Case $Mars
         $month="Mars"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Avril
         $month="Avril"
         If $war="P" Then
            $war="I"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="I"
         EndIf
      Case $Mai
         $month="Mai"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Juin
         $month="Juin"
         If $war="P" Then
            $war="I"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="I"
         EndIf
      Case $Juillet
         $month="Juilet"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Aout
         $month="Aout"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Septembre
         $month="Septembre"
         If $war="P" Then
            $war="I"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="I"
         EndIf
      Case $Octobre
         $month="Octobre"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
      Case $Novembre
         $month="Novembre"
         If $war="P" Then
            $war="I"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="I"
         EndIf
      Case $Decembre
         $month="Decembre"
         If $war="I" Then
            $war="P"
            GuiDelete()
            ExitLoop(1)
         ElseIf $war="F" Then
            $war="P"
         EndIf
   EndSwitch
WEnd
EndFunc

Func Text_viewer ($pr1)
$Twile=IniRead("Ini_Binary",$M,$pr1,"")
If $Twile=1 Then
      $Cold=IniRead("Ini_Data",$M,$pr1,"")
EndIf
#include <ButtonConstants>
#include <EditConstants>
#include <GUIConstantsEx>
#include <StaticConstants>
#include <WindowsConstants>
#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Txt_Write --- " & $numb & " " & $month, 501, 301, 277, 206)
Global $Title_tile = GUICtrlCreateLabel("Evenement du " & $numb & " " & $month, 86, 8, 328, 35)
GUICtrlSetFont(-1, 16, 800, 0, "Jokerman")
Global $Txt_write = GUICtrlCreateEdit($Cold, 8, 56, 481, 185)
Global $OK = GUICtrlCreateButton("Enregistrer ...", 8, 248, 481, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         GUIDelete()
         ExitLoop(1)

   EndSwitch
WEnd
EndFunc


While 1

If $war="P" Then
   Call("Pair")
ElseIf $war="I" Then
   Call("Impair")
EndIf

Wend





Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
Bonsoir

je n'ai pas testé ton code car je ne suis pas chez moi

mais normalement les includes se placent en haut du code et tu ne les mets qu'une seule fois.
Inutile de les mettre deux fois meme si tu utilises deux GUI.

Personnellement pour appeler une fonction je n utilse pas call mais je met uniquement

Pair()

A quoi sert cette fonction pair au juste ? ton code n est pas commenté j ai un peu de mal .

Peut etre que sablier pourras te débugguer
**************************************************************
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Local $month="Janvier"
Local $numb=01
Local $Cold=""
Local $M=01
Local $war="P"

Pair()
.....




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
J ai modifié comme ça et ton code fonctionne les deux gui s ouvrent.

mois en 31 jours ok avec la gui evenement ok.
mois en 30 jours ok avec la gui evenement ok
Seul février ne fonctionne pas
Citation:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Local $month="Janvier"
Local $numb=01
Local $Cold=""
Local $M=01
Local $war="P"
Call("Pair")

Func Pair()
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Auto_Koda_Kalender", 1130, 683, 183, 65)
Global $MenuItem1 = GUICtrlCreateMenu("&Fichier")
Global $MenuItem2 = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenu("&Affichage")
Global $MenuItem4 = GUICtrlCreateMenuItem("Janvier", $MenuItem3)
Global $MenuItem5 = GUICtrlCreateMenuItem("Février", $MenuItem3)
Global $MenuItem6 = GUICtrlCreateMenuItem("Mars", $MenuItem3)
Global $MenuItem7 = GUICtrlCreateMenuItem("Avril", $MenuItem3)
Global $MenuItem8 = GUICtrlCreateMenuItem("Mai", $MenuItem3)
Global $MenuItem9 = GUICtrlCreateMenuItem("Juin", $MenuItem3)
Global $MenuItem10 = GUICtrlCreateMenuItem("Juillet", $MenuItem3)
Global $MenuItem11 = GUICtrlCreateMenuItem("Août", $MenuItem3)
Global $MenuItem12 = GUICtrlCreateMenuItem("Septembre", $MenuItem3)
Global $MenuItem13 = GUICtrlCreateMenuItem("Octobre", $MenuItem3)
Global $MenuItem14 = GUICtrlCreateMenuItem("Novembre", $MenuItem3)
Global $MenuItem15 = GUICtrlCreateMenuItem("Décembre", $MenuItem3)
Global $MenuItem16 = GUICtrlCreateMenu("A&ide")
Global $MenuItem17 = GUICtrlCreateMenuItem("Aide", $MenuItem16)
Global $MenuItem18 = GUICtrlCreateMenuItem("A propos de ...", $MenuItem16)
Global $Janvier = GUICtrlCreateLabel("Janvier >>", 15, 15, 94, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Fevrier = GUICtrlCreateLabel("Février >>", 109, 15, 91, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Mars = GUICtrlCreateLabel("Mars >>", 205, 15, 67, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Avril = GUICtrlCreateLabel("Avril >>", 277, 15, 68, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Mai = GUICtrlCreateLabel("Mai >>", 350, 15, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Juin = GUICtrlCreateLabel("Juin >>", 417, 15, 69, 32)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Juillet = GUICtrlCreateLabel("Juillet>>", 483, 15, 78, 32)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Aout = GUICtrlCreateLabel("Août >>", 566, 15, 67, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Septembre = GUICtrlCreateLabel("Septembre >>", 638, 15, 124, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Octobre = GUICtrlCreateLabel("Octobre >>", 767, 15, 100, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Novembre = GUICtrlCreateLabel("Novembre >>", 872, 15, 119, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Decembre = GUICtrlCreateLabel("Décembre >>", 996, 15, 117, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Kalender = GUICtrlCreateLabel("Calendrier de : " & $month, 437, 61, 254, 40)
GUICtrlSetFont(-1, 18, 800, 4, "Jokerman")
Global $G1 = GUICtrlCreateGroup("", 19, 128, 143, 89)
Global $01 = GUICtrlCreateLabel("01", 68, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group1 = GUICtrlCreateGroup("", 175, 128, 143, 89)
Global $02 = GUICtrlCreateLabel("02", 223, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("", 332, 128, 143, 89)
Global $03 = GUICtrlCreateLabel("03", 383, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("", 490, 128, 143, 89)
Global $04 = GUICtrlCreateLabel("04", 542, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group4 = GUICtrlCreateGroup("", 648, 128, 143, 89)
Global $05 = GUICtrlCreateLabel("05", 700, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group5 = GUICtrlCreateGroup("", 807, 128, 143, 89)
Global $06 = GUICtrlCreateLabel("06", 858, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group6 = GUICtrlCreateGroup("", 966, 128, 143, 89)
Global $07 = GUICtrlCreateLabel("07", 1018, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group7 = GUICtrlCreateGroup("", 19, 234, 143, 89)
Global $08 = GUICtrlCreateLabel("08", 68, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group8 = GUICtrlCreateGroup("", 175, 234, 143, 89)
Global $09 = GUICtrlCreateLabel("09", 223, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group9 = GUICtrlCreateGroup("", 332, 234, 143, 89)
Global $10 = GUICtrlCreateLabel("10", 383, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group10 = GUICtrlCreateGroup("", 490, 234, 143, 89)
Global $11 = GUICtrlCreateLabel("11", 542, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group11 = GUICtrlCreateGroup("", 648, 234, 143, 89)
Global $12 = GUICtrlCreateLabel("12", 700, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group12 = GUICtrlCreateGroup("", 807, 234, 143, 89)
Global $13 = GUICtrlCreateLabel("13", 858, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group13 = GUICtrlCreateGroup("", 966, 234, 143, 89)
Global $14 = GUICtrlCreateLabel("14", 1018, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group21 = GUICtrlCreateGroup("", 19, 341, 143, 89)
Global $15 = GUICtrlCreateLabel("15", 68, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group22 = GUICtrlCreateGroup("", 175, 341, 143, 89)
Global $16 = GUICtrlCreateLabel("16", 223, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group23 = GUICtrlCreateGroup("", 332, 341, 143, 89)
Global $17 = GUICtrlCreateLabel("17", 383, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group24 = GUICtrlCreateGroup("", 490, 341, 143, 89)
Global $18 = GUICtrlCreateLabel("18", 542, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group25 = GUICtrlCreateGroup("", 648, 341, 143, 89)
Global $19 = GUICtrlCreateLabel("19", 700, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group26 = GUICtrlCreateGroup("", 807, 341, 143, 89)
Global $20 = GUICtrlCreateLabel("20", 858, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group27 = GUICtrlCreateGroup("", 966, 341, 143, 89)
Global $21 = GUICtrlCreateLabel("21", 1018, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group28 = GUICtrlCreateGroup("", 19, 447, 143, 89)
Global $22 = GUICtrlCreateLabel("22", 68, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group29 = GUICtrlCreateGroup("", 175, 447, 143, 89)
Global $23 = GUICtrlCreateLabel("23", 223, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group30 = GUICtrlCreateGroup("", 332, 447, 143, 89)
Global $24 = GUICtrlCreateLabel("24", 383, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group31 = GUICtrlCreateGroup("", 490, 447, 143, 89)
Global $25 = GUICtrlCreateLabel("25", 542, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group32 = GUICtrlCreateGroup("", 648, 447, 143, 89)
Global $26 = GUICtrlCreateLabel("26", 700, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group33 = GUICtrlCreateGroup("", 807, 447, 143, 89)
Global $27 = GUICtrlCreateLabel("27", 858, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group34 = GUICtrlCreateGroup("", 966, 447, 143, 89)
Global $28 = GUICtrlCreateLabel("28", 1018, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group35 = GUICtrlCreateGroup("", 19, 553, 143, 89)
Global $29 = GUICtrlCreateLabel("29", 68, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group36 = GUICtrlCreateGroup("", 175, 553, 143, 89)
Global $30 = GUICtrlCreateLabel("30", 223, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group37 = GUICtrlCreateGroup("", 332, 553, 143, 89)
Global $31 = GUICtrlCreateLabel("31", 383, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
Global $Form1_1_AccelTable[3][2] = [["^{HOME}", $MenuItem8],["!{BS}", $MenuItem17],["!0", $MenuItem18]]
GUISetAccelerators($Form1_1_AccelTable)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $01
Call("Text_viewer",$numb)
Case $02
$numb=02
Call("Text_viewer",$numb)
Case $03
$numb=03
Call("Text_viewer",$numb)
Case $04
$numb=04
Call("Text_viewer",$numb)
Case $05
$numb=05
Call("Text_viewer",$numb)
Case $06
$numb=06
Call("Text_viewer",$numb)
Case $07
$numb=07
Call("Text_viewer",$numb)
Case $08
$numb=08
Call("Text_viewer",$numb)
Case $09
$numb=09
Call("Text_viewer",$numb)
Case $10
$numb=10
Call("Text_viewer",$numb)
Case $11
$numb=11
Call("Text_viewer",$numb)
Case $12
$numb=12
Call("Text_viewer",$numb)
Case $13
$numb=13
Call("Text_viewer",$numb)
Case $14
$numb=14
Call("Text_viewer",$numb)
Case $15
$numb=15
Call("Text_viewer",$numb)
Case $16
$numb=16
Call("Text_viewer",$numb)
Case $17
$numb=17
Call("Text_viewer",$numb)
Case $18
$numb=18
Call("Text_viewer",$numb)
Case $19
$numb=19
Call("Text_viewer",$numb)
Case $20
$numb=20
Call("Text_viewer",$numb)
Case $21
$numb=21
Call("Text_viewer",$numb)
Case $22
$numb=22
Call("Text_viewer",$numb)
Case $23
$numb=23
Call("Text_viewer",$numb)
Case $24
$numb=24
Call("Text_viewer",$numb)
Case $25
$numb=25
Call("Text_viewer",$numb)
Case $26
$numb=26
Call("Text_viewer",$numb)
Case $27
$numb=27
Call("Text_viewer",$numb)
Case $28
$numb=28
Call("Text_viewer",$numb)
Case $29
$numb=29
Call("Text_viewer",$numb)
Case $30
$numb=30
Call("Text_viewer",$numb)
Case $31
$numb=31
Call("Text_viewer",$numb)
Case $Janvier
$month="Janvier"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Mars
$month="Mars"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Avril
$month="Avril"
If $war="P" Then
$war="I"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="I"
EndIf
Case $Mai
$month="Mai"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Juin
$month="Juin"
If $war="P" Then
$war="I"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="I"
EndIf
Case $Juillet
$month="Juilet"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Aout
$month="Aout"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Septembre
$month="Septembre"
If $war="P" Then
$war="I"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="I"
EndIf
Case $Octobre
$month="Octobre"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Novembre
$month="Novembre"
If $war="P" Then
$war="I"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="I"
EndIf
Case $Decembre
$month="Decembre"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
EndSwitch
WEnd
EndFunc

Func Impair()
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Auto_Koda_Kalender", 1130, 683, 183, 65)
Global $MenuItem1 = GUICtrlCreateMenu("&Fichier")
Global $MenuItem2 = GUICtrlCreateMenuItem("Quitter", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenu("&Affichage")
Global $MenuItem4 = GUICtrlCreateMenuItem("Janvier", $MenuItem3)
Global $MenuItem5 = GUICtrlCreateMenuItem("Février", $MenuItem3)
Global $MenuItem6 = GUICtrlCreateMenuItem("Mars", $MenuItem3)
Global $MenuItem7 = GUICtrlCreateMenuItem("Avril", $MenuItem3)
Global $MenuItem8 = GUICtrlCreateMenuItem("Mai", $MenuItem3)
Global $MenuItem9 = GUICtrlCreateMenuItem("Juin", $MenuItem3)
Global $MenuItem10 = GUICtrlCreateMenuItem("Juillet", $MenuItem3)
Global $MenuItem11 = GUICtrlCreateMenuItem("Août", $MenuItem3)
Global $MenuItem12 = GUICtrlCreateMenuItem("Septembre", $MenuItem3)
Global $MenuItem13 = GUICtrlCreateMenuItem("Octobre", $MenuItem3)
Global $MenuItem14 = GUICtrlCreateMenuItem("Novembre", $MenuItem3)
Global $MenuItem15 = GUICtrlCreateMenuItem("Décembre", $MenuItem3)
Global $MenuItem16 = GUICtrlCreateMenu("A&ide")
Global $MenuItem17 = GUICtrlCreateMenuItem("Aide", $MenuItem16)
Global $MenuItem18 = GUICtrlCreateMenuItem("A propos de ...", $MenuItem16)
Global $Janvier = GUICtrlCreateLabel("Janvier >>", 15, 15, 94, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Fevrier = GUICtrlCreateLabel("Février >>", 109, 15, 91, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Mars = GUICtrlCreateLabel("Mars >>", 205, 15, 67, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Avril = GUICtrlCreateLabel("Avril >>", 277, 15, 68, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Mai = GUICtrlCreateLabel("Mai >>", 350, 15, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Juin = GUICtrlCreateLabel("Juin >>", 417, 15, 69, 32)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Juillet = GUICtrlCreateLabel("Juillet>>", 483, 15, 78, 32)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Aout = GUICtrlCreateLabel("Août >>", 566, 15, 67, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Septembre = GUICtrlCreateLabel("Septembre >>", 638, 15, 124, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Octobre = GUICtrlCreateLabel("Octobre >>", 767, 15, 100, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Novembre = GUICtrlCreateLabel("Novembre >>", 872, 15, 119, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Decembre = GUICtrlCreateLabel("Décembre >>", 996, 15, 117, 24)
GUICtrlSetFont(-1, 12, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
Global $Kalender = GUICtrlCreateLabel("Calendrier de : " & $month, 437, 61, 254, 40)
GUICtrlSetFont(-1, 18, 800, 4, "Jokerman")
Global $G1 = GUICtrlCreateGroup("", 19, 128, 143, 89)
Global $01 = GUICtrlCreateLabel("01", 68, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group1 = GUICtrlCreateGroup("", 175, 128, 143, 89)
Global $02 = GUICtrlCreateLabel("02", 223, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("", 332, 128, 143, 89)
Global $03 = GUICtrlCreateLabel("03", 383, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("", 490, 128, 143, 89)
Global $04 = GUICtrlCreateLabel("04", 542, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group4 = GUICtrlCreateGroup("", 648, 128, 143, 89)
Global $05 = GUICtrlCreateLabel("05", 700, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group5 = GUICtrlCreateGroup("", 807, 128, 143, 89)
Global $06 = GUICtrlCreateLabel("06", 858, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group6 = GUICtrlCreateGroup("", 966, 128, 143, 89)
Global $07 = GUICtrlCreateLabel("07", 1018, 156, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group7 = GUICtrlCreateGroup("", 19, 234, 143, 89)
Global $08 = GUICtrlCreateLabel("08", 68, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group8 = GUICtrlCreateGroup("", 175, 234, 143, 89)
Global $09 = GUICtrlCreateLabel("09", 223, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group9 = GUICtrlCreateGroup("", 332, 234, 143, 89)
Global $10 = GUICtrlCreateLabel("10", 383, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group10 = GUICtrlCreateGroup("", 490, 234, 143, 89)
Global $11 = GUICtrlCreateLabel("11", 542, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group11 = GUICtrlCreateGroup("", 648, 234, 143, 89)
Global $12 = GUICtrlCreateLabel("12", 700, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group12 = GUICtrlCreateGroup("", 807, 234, 143, 89)
Global $13 = GUICtrlCreateLabel("13", 858, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group13 = GUICtrlCreateGroup("", 966, 234, 143, 89)
Global $14 = GUICtrlCreateLabel("14", 1018, 262, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group21 = GUICtrlCreateGroup("", 19, 341, 143, 89)
Global $15 = GUICtrlCreateLabel("15", 68, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group22 = GUICtrlCreateGroup("", 175, 341, 143, 89)
Global $16 = GUICtrlCreateLabel("16", 223, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group23 = GUICtrlCreateGroup("", 332, 341, 143, 89)
Global $17 = GUICtrlCreateLabel("17", 383, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group24 = GUICtrlCreateGroup("", 490, 341, 143, 89)
Global $18 = GUICtrlCreateLabel("18", 542, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group25 = GUICtrlCreateGroup("", 648, 341, 143, 89)
Global $19 = GUICtrlCreateLabel("19", 700, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group26 = GUICtrlCreateGroup("", 807, 341, 143, 89)
Global $20 = GUICtrlCreateLabel("20", 858, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group27 = GUICtrlCreateGroup("", 966, 341, 143, 89)
Global $21 = GUICtrlCreateLabel("21", 1018, 369, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group28 = GUICtrlCreateGroup("", 19, 447, 143, 89)
Global $22 = GUICtrlCreateLabel("22", 68, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group29 = GUICtrlCreateGroup("", 175, 447, 143, 89)
Global $23 = GUICtrlCreateLabel("23", 223, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group30 = GUICtrlCreateGroup("", 332, 447, 143, 89)
Global $24 = GUICtrlCreateLabel("24", 383, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group31 = GUICtrlCreateGroup("", 490, 447, 143, 89)
Global $25 = GUICtrlCreateLabel("25", 542, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group32 = GUICtrlCreateGroup("", 648, 447, 143, 89)
Global $26 = GUICtrlCreateLabel("26", 700, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group33 = GUICtrlCreateGroup("", 807, 447, 143, 89)
Global $27 = GUICtrlCreateLabel("27", 858, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group34 = GUICtrlCreateGroup("", 966, 447, 143, 89)
Global $28 = GUICtrlCreateLabel("28", 1018, 475, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group35 = GUICtrlCreateGroup("", 19, 553, 143, 89)
Global $29 = GUICtrlCreateLabel("29", 68, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group36 = GUICtrlCreateGroup("", 175, 553, 143, 89)
Global $30 = GUICtrlCreateLabel("30", 223, 581, 41, 38, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Jokerman")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
Global $Form1_1_AccelTable[3][2] = [["^{HOME}", $MenuItem8],["!{BS}", $MenuItem17],["!0", $MenuItem18]]
GUISetAccelerators($Form1_1_AccelTable)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $01
Call("Text_viewer",$numb)
Case $02
$numb=02
Call("Text_viewer",$numb)
Case $03
$numb=03
Call("Text_viewer",$numb)
Case $04
$numb=04
Call("Text_viewer",$numb)
Case $05
$numb=05
Call("Text_viewer",$numb)
Case $06
$numb=06
Call("Text_viewer",$numb)
Case $07
$numb=07
Call("Text_viewer",$numb)
Case $08
$numb=08
Call("Text_viewer",$numb)
Case $09
$numb=09
Call("Text_viewer",$numb)
Case $10
$numb=10
Call("Text_viewer",$numb)
Case $11
$numb=11
Call("Text_viewer",$numb)
Case $12
$numb=12
Call("Text_viewer",$numb)
Case $13
$numb=13
Call("Text_viewer",$numb)
Case $14
$numb=14
Call("Text_viewer",$numb)
Case $15
$numb=15
Call("Text_viewer",$numb)
Case $16
$numb=16
Call("Text_viewer",$numb)
Case $17
$numb=17
Call("Text_viewer",$numb)
Case $18
$numb=18
Call("Text_viewer",$numb)
Case $19
$numb=19
Call("Text_viewer",$numb)
Case $20
$numb=20
Call("Text_viewer",$numb)
Case $21
$numb=21
Call("Text_viewer",$numb)
Case $22
$numb=22
Call("Text_viewer",$numb)
Case $23
$numb=23
Call("Text_viewer",$numb)
Case $24
$numb=24
Call("Text_viewer",$numb)
Case $25
$numb=25
Call("Text_viewer",$numb)
Case $26
$numb=26
Call("Text_viewer",$numb)
Case $27
$numb=27
Call("Text_viewer",$numb)
Case $28
$numb=28
Call("Text_viewer",$numb)
Case $29
$numb=29
Call("Text_viewer",$numb)
Case $30
$numb=30
Call("Text_viewer",$numb)
Case $Janvier
$month="Janvier"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Mars
$month="Mars"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Avril
$month="Avril"
If $war="P" Then
$war="I"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="I"
EndIf
Case $Mai
$month="Mai"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Juin
$month="Juin"
If $war="P" Then
$war="I"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="I"
EndIf
Case $Juillet
$month="Juilet"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Aout
$month="Aout"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Septembre
$month="Septembre"
If $war="P" Then
$war="I"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="I"
EndIf
Case $Octobre
$month="Octobre"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
Case $Novembre
$month="Novembre"
If $war="P" Then
$war="I"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="I"
EndIf
Case $Decembre
$month="Decembre"
If $war="I" Then
$war="P"
GuiDelete()
ExitLoop(1)
ElseIf $war="F" Then
$war="P"
EndIf
EndSwitch
WEnd
EndFunc

Func Text_viewer ($pr1)
$Twile=IniRead("Ini_Binary",$M,$pr1,"")
If $Twile=1 Then
$Cold=IniRead("Ini_Data",$M,$pr1,"")
EndIf

#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Txt_Write --- " & $numb & " " & $month, 501, 301, 277, 206)
Global $Title_tile = GUICtrlCreateLabel("Evenement du " & $numb & " " & $month, 86, 8, 328, 35)
GUICtrlSetFont(-1, 16, 800, 0, "Jokerman")
Global $Txt_write = GUICtrlCreateEdit($Cold, 8, 56, 481, 185)
Global $OK = GUICtrlCreateButton("Enregistrer ...", 8, 248, 481, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete()
ExitLoop(1)

EndSwitch
WEnd
EndFunc


While 1

If $war="P" Then
Call("Pair")
ElseIf $war="I" Then
Call("Impair")
EndIf

Wend

test et dis moi
Laddy



Dernière édition par Laddy le Sam 4 Déc 2010 - 09:40; édité 1 fois

______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
bonjour ,
je test des que possible.
le probleme viendrait donc des includes

merci



Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
Oui je pense
car les includes sont chargés avant pour executer les fonctions de ton script.
Donc ils doivent etre placé en haut, tout ceux que tu utilises.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
Salut,

Désolé, je n'étais pas chez moi, donc je ne pouvais pas pu résoudre ton problème.

Mes remarques seront les mêmes que Laddy, normalement, les includes se placent une seule fois au début du code, et je mets aussi mafonction() au lieu d'utiliser des call, mais je crois qu'il n'y a pas de différences importantes.

Le code de laddy marche très bien, il faut juste continuer le code (mettre les variables pour si on clique sur février et créer ta fonction avec la GUI pour février.)

Je me réjouis de voir le projet fini, l'interface est très belle Okay




______________________________________________________
Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
Merci beaucoup, je vais pouvoir continuer,
en ce moment j'ai pas mal de révisions donc pas trop de temps de continuer.

Je pourrais peut-être terminer mercredi ou mardi soir.



Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
C'est réglé ?




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 
Oui tout à fait, et j'aurais surement terminé si j'avais continué mais là en tout cas je n'ai pas pu



Message [R] Les 31 maudits : CODE COMPLET en cours de fabrication 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch