Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog-Abandonné]Event_designer
Auteur Message
Répondre en citant
Message [Prog-Abandonné]Event_designer 
Bonjour voici un programme que j'avais créé et dont je vous avais parlé.
Le but de ce programme est de créer des évènements fictifs.
J'entends par là pas des évènements liés à windows mais des évènements générés par deux fichier .ini mis à jour.

Je m'explique :

Mon programme contient 4 fichiers :
-Event_log
-Event_start
-Ini_Binary
-Ini_Data

Descriptions :

-Ini_Binary --- ce fichier .ini est une liste de tous les jours de chaques mois présents dans une année (364 pas d'année bisextile)
A chaque jours correspond une valeur binaire, soit 0 donc aucune donnée, soit 1 donc des données

-Ini_Data --- même fonction de listage sauf que celui-ci au lieu de posséder la valeur binaire du mois, possède la phrase qui s'affichera lors de l'évènement.

-Event_log --- code autoit qui s'exécute à chaque ouverture de windows,
Il regarde d'abord dans l'Ini_Binary pour regarder si un évènement doit être exécuté ce jour
Si non, il quitte et se réouvrera à la prochaine ouverture de windows
Si oui, il cherche le jour dans l'Ini_Data puis récupère la phrase évènement

-Event_start --- Gui autoit qui correspond à un listage visuel des jours et des mois de l'année.
Lorsque l'on clique sur un jour, celui-ci ouvre une fenêtre qui permet d'inscrire du texte évènement.
Si du texte est écris, alors il changera les valeurs du Ini_Binary puis du Ini_Data


Voila pour les descriptions.
Le code est complet même si certaines améliorations doivent être faites.
Le seul "bug" est au niveau du changement de données du Ini_Binary puis Data.
Il reconnait bien le mois mais il ne reconnait pas le jour ce qui est ennuyeux vu qu'il créé une nouvelle ligne.
Or l'Event_log, lui, ne reconnait pas la nouvelle ligne et lis l'ancienne donc pas d'évènement.

Ci-joint les 4 fichiers en codes-sources, améliorez-les et impressionez-moi Mort de Rire

Ini_Binary : (fichier .ini)

Code:

[1]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
31=0
3=1
[2]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
[3]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
31=0
[4]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
[5]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
31=0
[6]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
[7]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
31=0
[8]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
31=0
[9]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
[10]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
31=0
[11]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
[12]
01=0
02=0
03=0
04=0
05=0
06=0
07=0
08=0
09=0
10=0
11=0
12=0
13=0
14=0
15=0
16=0
17=0
18=0
19=0
20=0
21=0
22=0
23=0
24=0
25=0
26=0
27=0
28=0
29=0
30=0
31=0


Ini_Data : (fichier .ini)

Même code sauf que celui-ci contient du texte et non une valeur binaire

Event_log : (fichier .au3)



Dernière édition par Guerrion24 le Dim 9 Jan 2011 - 19:07; édité 1 fois
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog-Abandonné]Event_designer 
Dsl du bouble post mais le sujet était tellement long que je n'arrivais plus à écrire.

Donc l'Event_log je l'ai perdu mais je vous le refournis dès que possible

Event_start : (fichier .au3)

Code:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
Local $month="Janvier"
Local $numb=01
Local $Cold=""
Local $war="P"
Local $tid=1
Call("Pair")

Func Pair()

#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Auto_Koda_Kalender", 1130, 683, 183, 65)
Global $Fichier = GUICtrlCreateMenu("&Fichier")
Global $Quitter = GUICtrlCreateMenuItem("Quitter", $Fichier)
Global $Affichage = GUICtrlCreateMenu("&Affichage")
Global $M_Janvier = GUICtrlCreateMenuItem("Janvier", $Affichage)
Global $M_Fevrier = GUICtrlCreateMenuItem("Février", $Affichage)
Global $M_Mars = GUICtrlCreateMenuItem("Mars", $Affichage)
Global $M_Avril = GUICtrlCreateMenuItem("Avril", $Affichage)
Global $M_Mai = GUICtrlCreateMenuItem("Mai", $Affichage)
Global $M_Juin = GUICtrlCreateMenuItem("Juin", $Affichage)
Global $M_Juillet = GUICtrlCreateMenuItem("Juillet", $Affichage)
Global $M_Aout = GUICtrlCreateMenuItem("Août", $Affichage)
Global $M_Septembre = GUICtrlCreateMenuItem("Septembre", $Affichage)
Global $M_Octobre = GUICtrlCreateMenuItem("Octobre", $Affichage)
Global $M_Novembre = GUICtrlCreateMenuItem("Novembre", $Affichage)
Global $M_Decembre = GUICtrlCreateMenuItem("Décembre", $Affichage)
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 : " & $month, 437, 61, 354, 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)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Quitter
         GUIDelete()
         Exit
      Case $M_Janvier
         $month="Janvier"
         $war="P"
         $tid=1
         GuiDelete()
         ExitLoop(1)
      Case $M_Fevrier
         $month="Février"
         $war="F"
         $tid=2
         GuiDelete()
         ExitLoop(1)
        Case $M_Mars
         $month="Mars"
         $war="P"
         $tid=3
         GuiDelete()
         ExitLoop(1)
      Case $M_Avril
         $month="Avril"
         $war="I"
         $tid=4
         GuiDelete()
         ExitLoop(1)
      Case $M_Mai
         $month="Mai"
         $war="P"
         GuiDelete()
         $tid=5
         ExitLoop(1)
      Case $M_Juin
         $month="Juin"
         $war="I"
         $tid=6
         GuiDelete()
         ExitLoop(1)
      Case $M_Juillet
         $month="Juilet"
         $war="P"
         $tid=7
         GuiDelete()
         ExitLoop(1)
      Case $M_Aout
         $month="Août"
         $war="P"
         $tid=8
         GuiDelete()
         ExitLoop(1)
      Case $M_Septembre
         $month="Septembre"
         $war="I"
         $tid=9
         GuiDelete()
         ExitLoop(1)
      Case $M_Octobre
         $month="Octobre"
         $war="P"
         $tid=10
         GuiDelete()
         ExitLoop(1)
      Case $M_Novembre
         $month="Novembre"
         $war="I"
         $tid=11
         GuiDelete()
         ExitLoop(1)
      Case $M_Decembre
         $month="Décembre"
         $war="P"
         $tid=12
         GuiDelete()
         ExitLoop(1)
      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"
         $war="P"
         $tid=1
         GuiDelete()
         ExitLoop(1)
      Case $Fevrier
         $month="Février"
         $war="F"
         $tid=2
         GuiDelete()
         ExitLoop(1)
        Case $Mars
         $month="Mars"
         $war="P"
         $tid=3
         GuiDelete()
         ExitLoop(1)
      Case $Avril
         $month="Avril"
         $war="I"
         $tid=4
         GuiDelete()
         ExitLoop(1)
      Case $Mai
         $month="Mai"
         $war="P"
         $tid=5
         GuiDelete()
         ExitLoop(1)
      Case $Juin
         $month="Juin"
         $war="I"
         $tid=6
         GuiDelete()
         ExitLoop(1)
      Case $Juillet
         $month="Juilet"
         $war="P"
         $tid=7
         GuiDelete()
         ExitLoop(1)
      Case $Aout
         $month="Août"
         $war="P"
         $tid=8
         GuiDelete()
         ExitLoop(1)
      Case $Septembre
         $month="Septembre"
         $war="I"
         $tid=9
         GuiDelete()
         ExitLoop(1)
      Case $Octobre
         $month="Octobre"
         $war="P"
         $tid=10
         GuiDelete()
         ExitLoop(1)
      Case $Novembre
         $month="Novembre"
         $war="I"
         $tid=11
         GuiDelete()
         ExitLoop(1)
      Case $Decembre
         $month="Décembre"
         $war="P"
         $tid=12
         GuiDelete()
         ExitLoop(1)
   EndSwitch
WEnd
EndFunc

Func Impair()
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Auto_Koda_Kalender", 1130, 683, 183, 65)
Global $Fichier = GUICtrlCreateMenu("&Fichier")
Global $Quitter = GUICtrlCreateMenuItem("Quitter", $Fichier)
Global $Affichage = GUICtrlCreateMenu("&Affichage")
Global $M_Janvier = GUICtrlCreateMenuItem("Janvier", $Affichage)
Global $M_Fevrier = GUICtrlCreateMenuItem("Février", $Affichage)
Global $M_Mars = GUICtrlCreateMenuItem("Mars", $Affichage)
Global $M_Avril = GUICtrlCreateMenuItem("Avril", $Affichage)
Global $M_Mai = GUICtrlCreateMenuItem("Mai", $Affichage)
Global $M_Juin = GUICtrlCreateMenuItem("Juin", $Affichage)
Global $M_Juillet = GUICtrlCreateMenuItem("Juillet", $Affichage)
Global $M_Aout = GUICtrlCreateMenuItem("Août", $Affichage)
Global $M_Septembre = GUICtrlCreateMenuItem("Septembre", $Affichage)
Global $M_Octobre = GUICtrlCreateMenuItem("Octobre", $Affichage)
Global $M_Novembre = GUICtrlCreateMenuItem("Novembre", $Affichage)
Global $M_Decembre = GUICtrlCreateMenuItem("Décembre", $Affichage)
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 : " & $month, 437, 61, 354, 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)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Quitter
         GUIDelete()
         Exit
      Case $M_Janvier
         $month="Janvier"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Fevrier
         $month="Février"
         $war="F"
         GuiDelete()
         ExitLoop(1)
        Case $M_Mars
         $month="Mars"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Avril
         $month="Avril"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $M_Mai
         $month="Mai"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Juin
         $month="Juin"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $M_Juillet
         $month="Juilet"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Aout
         $month="Août"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Septembre
         $month="Septembre"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $M_Octobre
         $month="Octobre"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Novembre
         $month="Novembre"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $M_Decembre
         $month="Décembre"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $01
         $numb=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"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Fevrier
         $month="Février"
         $war="F"
         GuiDelete()
         ExitLoop(1)
        Case $Mars
         $month="Mars"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Avril
         $month="Avril"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $Mai
         $month="Mai"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Juin
         $month="Juin"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $Juillet
         $month="Juilet"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Aout
         $month="Août"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Septembre
         $month="Septembre"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $Octobre
         $month="Octobre"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Novembre
         $month="Novembre"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $Decembre
         $month="Décembre"
         $war="P"
         GuiDelete()
         ExitLoop(1)
   EndSwitch
WEnd
EndFunc



Func Fev()
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Auto_Koda_Kalender", 1130, 683, 183, 65)
Global $Fichier = GUICtrlCreateMenu("&Fichier")
Global $Quitter = GUICtrlCreateMenuItem("Quitter", $Fichier)
Global $Affichage = GUICtrlCreateMenu("&Affichage")
Global $M_Janvier = GUICtrlCreateMenuItem("Janvier", $Affichage)
Global $M_Fevrier = GUICtrlCreateMenuItem("Février", $Affichage)
Global $M_Mars = GUICtrlCreateMenuItem("Mars", $Affichage)
Global $M_Avril = GUICtrlCreateMenuItem("Avril", $Affichage)
Global $M_Mai = GUICtrlCreateMenuItem("Mai", $Affichage)
Global $M_Juin = GUICtrlCreateMenuItem("Juin", $Affichage)
Global $M_Juillet = GUICtrlCreateMenuItem("Juillet", $Affichage)
Global $M_Aout = GUICtrlCreateMenuItem("Août", $Affichage)
Global $M_Septembre = GUICtrlCreateMenuItem("Septembre", $Affichage)
Global $M_Octobre = GUICtrlCreateMenuItem("Octobre", $Affichage)
Global $M_Novembre = GUICtrlCreateMenuItem("Novembre", $Affichage)
Global $M_Decembre = GUICtrlCreateMenuItem("Décembre", $Affichage)
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 : " & $month, 437, 61, 354, 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)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Quitter
         GUIDelete()
         Exit
      Case $M_Janvier
         $month="Janvier"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Fevrier
         $month="Février"
         $war="F"
         GuiDelete()
         ExitLoop(1)
        Case $M_Mars
         $month="Mars"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Avril
         $month="Avril"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $M_Mai
         $month="Mai"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Juin
         $month="Juin"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $M_Juillet
         $month="Juilet"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Aout
         $month="Août"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Septembre
         $month="Septembre"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $M_Octobre
         $month="Octobre"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $M_Novembre
         $month="Novembre"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $M_Decembre
         $month="Décembre"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $01
         $numb=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 $Janvier
         $month="Janvier"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Fevrier
         $month="Février"
         $war="F"
         GuiDelete()
         ExitLoop(1)
        Case $Mars
         $month="Mars"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Avril
         $month="Avril"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $Mai
         $month="Mai"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Juin
         $month="Juin"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $Juillet
         $month="Juilet"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Aout
         $month="Août"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Septembre
         $month="Septembre"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $Octobre
         $month="Octobre"
         $war="P"
         GuiDelete()
         ExitLoop(1)
      Case $Novembre
         $month="Novembre"
         $war="I"
         GuiDelete()
         ExitLoop(1)
      Case $Decembre
         $month="Décembre"
         $war="P"
         GuiDelete()
         ExitLoop(1)
   EndSwitch
WEnd
EndFunc

Func Text_viewer ($pr1)
$Twile=IniRead("Ini_Binary",$tid,$pr1,"")
If $Twile=1 Then
      $Cold=IniRead("Ini_Data",$tid,$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)
      Case $OK
         $Read=GUICtrlRead($Txt_write)
         If $Read<>"" Then
            IniDelete("Ini_Binary",$tid,$pr1)
            IniDelete("Ini_Data",$tid,$pr1)
            IniWrite("Ini_Binary",$tid,$pr1,1)
            IniWrite("Ini_Data",$tid,$pr1,$Read)
         ElseIf $Read="" Then
            IniDelete("Ini_Binary",$tid,$pr1)
            IniDelete("Ini_Data",$tid,$pr1)
            IniWrite("Ini_Binary",$tid,$pr1,0)
            IniWrite("Ini_Data",$tid,$pr1,"")
         EndIf
         GuiDelete()
         ExitLoop(1)
   EndSwitch
WEnd
EndFunc


While 1

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

Wend




Répondre en citant
Message [Prog-Abandonné]Event_designer 
Salut,

Beau résultat, bravo Okay

Ce que tu pourrais améliorer, c'est de pouvoir voir les jours auquel il y a quelque chose de marqué.

A+




______________________________________________________
Répondre en citant
Message [Prog-Abandonné]Event_designer 
Excellente idée, j'ai pas encore pu refaire le testeur d'évènement mais ça va venir, je vais
bien réussir à faire quelque chsoe quand même



Répondre en citant
Message [Prog-Abandonné]Event_designer 
Au fait, je me demandais si tu pouvais pas faire une GUI conditionnelle, tu utilise une GUI de base (février par exemple), et tu regardes sur quel mois on est et si c'est un mois à 30 jours, tu ajoute les 2 cases et si c'est un mois à 31 jours, tu ajoutes les 3 cases.




______________________________________________________
Répondre en citant
Message [Prog-Abandonné]Event_designer 
Oui j'y avais pensé mais je ne savais pas comment faire,
il faut que j'expérimente avant je vais faire une autre petit projet avant pour esseyer.



Message [Prog-Abandonné]Event_designer 


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