Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 835, 236, 192, 124)
Global $Label1 = GUICtrlCreateLabel("Prénom de l'élève", 32, 48, 88, 17)
Global $Input1 = GUICtrlCreateInput("Nom de l'élève", 184, 16, 289, 21)
Global $Label2 = GUICtrlCreateLabel("Nom de l'élève", 32, 16, 74, 17)
Global $Label3 = GUICtrlCreateLabel("Classe", 512, 32, 35, 17)
Global $Combo1 = GUICtrlCreateCombo("Autre : ", 560, 32, 209, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "301|401|501|601")
Global $Label4 = GUICtrlCreateLabel("Le", 24, 88, 16, 17)
Global $Date1 = GUICtrlCreateDate("2011/12/16 20:18:31", 56, 80, 225, 25)
Global $Label5 = GUICtrlCreateLabel("A", 304, 80, 11, 17)
Global $Input3 = GUICtrlCreateInput("Heures", 328, 80, 49, 21)
Global $Input2 = GUICtrlCreateInput("Prénom de l'élève", 184, 48, 289, 21)
Global $Label6 = GUICtrlCreateLabel("h", 384, 80, 10, 17)
Global $Input4 = GUICtrlCreateInput("Minutes", 400, 80, 49, 21)
Global $Radio1 = GUICtrlCreateRadio("Seule date Autorisée", 32, 136, 137, 25)
Global $Label7 = GUICtrlCreateLabel("Ou le", 16, 176, 29, 17)
Global $Date2 = GUICtrlCreateDate("2011/12/16 20:22:1", 48, 176, 233, 25)
Global $Label8 = GUICtrlCreateLabel("A", 298, 178, 11, 17)
Global $Input5 = GUICtrlCreateInput("Heures", 328, 176, 57, 21)
Global $Label9 = GUICtrlCreateLabel("h", 390, 180, 10, 17)
Global $Input6 = GUICtrlCreateInput("Minutes", 400, 176, 73, 21)
Global $Button1 = GUICtrlCreateButton("Valider", 576, 184, 193, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global Const $PathSortieFile=@ScriptDir&"\"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Local $nom=_GetNom($Input1)
If @error Then
MsgBox(64,"erreur","remplissez TOUT les champs")
Else
Local $prenom=_GetPrenom($Input2)
If @error Then
MsgBox(64,"erreur","remplissez TOUT les champs")
Else
Local $classe=_GetClasse($Combo1)
If @error Then
MsgBox(64,"erreur","choissisez une valeur dans la partie 'classe'")
Else
Local $date_Et_Heure=_GetDate_Et_Heure($Date1,$Input3,$Input4,$Radio1,$Date2,$Input5,$Input6)
If @error Then
MsgBox(64,"erreur","mettez une heure valide")
Else
Local $str="Nom: "&$nom&@CRLF&"Prénom: "&$prenom&@CRLF&"Classe : "&$classe&@CRLF&"Est prié de se rendre à : "& _
@CRLF&"Le : "&$date_Et_Heure&@CRLF&"Cette convocation est obligatoire et ne peut être refusée."&@CRLF&@CRLF&@CRLF& _
"M. newton"
FileWriteToTxt($PathSortieFile&$nom&".txt",$str)
If FileExists($PathSortieFile&$nom&".txt") Then MsgBox(0,"Fini","Fichier Texte Crée avec succès !")
;FileWriteToWord($PathSortieFile&$nom&".doc",$str)
;If FileExists($PathSortieFile&$nom&".doc") Then MsgBox(0,"Fini","Fichier Word Crée avec succès !")
EndIf
EndIf
EndIf
EndIf
EndSwitch
WEnd
Func _GetNom($ctrlId)
Local $nom=GUICtrlRead($ctrlId)
If $nom <> "" Then Return $nom
Return SetError(1,0,"")
EndFunc
Func _GetPrenom($ctrlId)
Local $prenom=GUICtrlRead($ctrlId)
If $prenom <> "" Then Return $prenom
Return SetError(1,0,"")
EndFunc
Func _GetClasse($ctrlId)
Local $classe=GUICtrlRead($ctrlId)
If $classe <> "Autre : " Then Return $classe
Return SetError(1,0,0)
EndFunc
Func _GetDate_Et_Heure($ctrlId,$ctrlId_Heure,$ctrlId_Min,$ctrlId_CheckBox,$ctrlId_2nd,$ctrlId_Heure_2nd,$ctrlId_Min_2nd)
Local $dateDeb,$dateFin,$heureDeb,$minDeb,$heureFin,$minFin,$X_parenthese
If BitAnd(GUICtrlRead($ctrlId_CheckBox),$GUI_CHECKED) = $GUI_CHECKED Then
$dateDeb=GUICtrlRead($ctrlId_2nd)
$dateFin=GUICtrlRead($ctrlId)
$heureDeb=GUICtrlRead($ctrlId_Heure_2nd)
$minDeb=GUICtrlRead($ctrlId_Min_2nd)
$heureFin=GUICtrlRead($ctrlId_Heure)
$minFin=GUICtrlRead($ctrlId_Min)
$X_parenthese="(X) Impérativement"&@CRLF&"() ou le "
Else
$dateDeb=GUICtrlRead($ctrlId)
$dateFin=GUICtrlRead($ctrlId_2nd)
$heureDeb=GUICtrlRead($ctrlId_Heure)
$minDeb=GUICtrlRead($ctrlId_Min)
$heureFin=GUICtrlRead($ctrlId_Heure_2nd)
$minFin=GUICtrlRead($ctrlId_Min_2nd)
$X_parenthese="() Impérativement"&@CRLF&"(X) ou le "
EndIf
$heureDeb=Number($heureDeb)
$minDeb=Number($minDeb)
$heureFin=Number($heureFin)
$minFin=Number($minFin)
If ($heureDeb >= 1 And $heureDeb <= 24 And $minDeb >=1 And $minDeb <=60) And _
($heureFin >= 1 And $heureFin <= 24 And $minFin >=1 And $minFin <=60) Then Return $dateDeb&" à "&$heureDeb&'h'&$minDeb&@CRLF& _
$X_parenthese&$dateFin&" à "&$heureFin&"h"&$minFin
Return SetError(1,0,"")
EndFunc
Func FileWriteToTxt($path,$text)
FileWrite($path,$text)
EndFunc
Func FileWriteToWord($path,$text)
$oWordApp = _WordCreate ($path, 0, 0)
$oDoc = _WordDocGetCollection ($oWordApp, 0)
$oDoc.Range.insertAfter ($text)
_WordQuit ($oWordApp, -1)
EndFunc
