Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] InfoDem 1.4
Auteur Message
Répondre en citant
Message [Prog] InfoDem 1.4 
Vous trouverez le fichier kxf (formulaire Koda) et le fichier au3 en pièce jointes à télécharger.

Fonction de InfoDem 1.4

Permet de gerer les demande de materiel pour les nouveaux arrivants.

Le formulaire une fois rempli est envoyé à l'imprimante sélectionnée par défaut dans Windows.

Test de dev : Windows 7 Pro


Code:

; region concernant les informations à la compilation en executable
;début de la region
#Region
;nom de l'icône à la compilation
#AutoIt3Wrapper_Icon=ICONE16.ico
;nom de l'executable à la compilation
#AutoIt3Wrapper_Outfile=InfoDem_1.4.exe
;choix des versions de sortie
#AutoIt3Wrapper_Outfile_x64=InfoDem_1.4.exe
;Description du logiciel
#AutoIt3Wrapper_Res_Description=Formulaire de demande matériel
;Version du fichier
#AutoIt3Wrapper_Res_Fileversion=1.4.0.0
;Langue du logiciel
#AutoIt3Wrapper_Res_Language=1036
;Informations sur l'auteur
#AutoIt3Wrapper_Res_Field=Créer par|Sydneysyd
;Fin de la region
#EndRegion
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         Julien DAVID
 Aide au developpement : Laddy, Sablier94 (http://batch.xoo.it) et flydee

 Script Function:
;~    InfoDem 1.4 - Permet de créer des demande de matériel via un formulaire et d'imprimer directement cette demande
Pour toute modification ou utilisation merci de citer l'auteur.

#ce ----------------------------------------------------------------------------

;dossiers include pour les fonctions complémentaires
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <Sc.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <date.au3>

;début de la région de Koda Form Designer
#Region ### START Koda GUI section ### Form=c:\users\david\desktop\formulaire.kxf
$Form1_1 = GUICreate("InfoDem 1.4", 1074, 744, 190, 47)
$Informations = GUICtrlCreateGroup("Informations", 8, 40, 1049, 233)
$Demandeur = GUICtrlCreateGroup("Demandeur", 16, 56, 401, 89)
$Nom = GUICtrlCreateInput("Nom", 24, 80, 193, 21)
$Service = GUICtrlCreateCombo("Service", 24, 104, 193, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "SERVICE1|SERVICE2|SERVICE3)
$Groupe = GUICtrlCreateCombo("Groupe", 232, 104, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "GROUPE1|GROUPE2|GROUPE3")
$Prenom = GUICtrlCreateInput("Prénom", 232, 80, 169, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$NouvelA = GUICtrlCreateGroup("Nouvel Arrivant", 432, 56, 609, 201)
$Nomnouvel = GUICtrlCreateInput("Nom", 448, 104, 153, 21)
$Prenomnouvel = GUICtrlCreateInput("Prénom", 448, 136, 153, 21)
$servic = GUICtrlCreateCombo("Service", 448, 200, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "SERVICE1|SERVICE2|SERVICE3)
$Group = GUICtrlCreateCombo("Groupe", 448, 168, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "GROUPE1|GROUPE2|GROUPE3")
$Telephonenouveau = GUICtrlCreateGroup("Téléphone", 616, 104, 73, 113)
$Ouitelarr = GUICtrlCreateRadio("Oui", 624, 136, 41, 17)
$nontelnouvel = GUICtrlCreateRadio("Non", 624, 176, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$mail = GUICtrlCreateGroup("Mail", 696, 72, 329, 161)
$boiteperso = GUICtrlCreateGroup("Boite Personnelle", 712, 96, 105, 73)
$ouimail = GUICtrlCreateRadio("Oui", 720, 120, 49, 17)
$nonmail = GUICtrlCreateRadio("Non", 720, 144, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Boite de Groupe", 832, 96, 177, 121)
$ouigroupe = GUICtrlCreateRadio("Oui", 840, 120, 65, 25)
$nongroupe = GUICtrlCreateRadio("Non", 840, 144, 57, 25)
$boitemailgroupe = GUICtrlCreateInput("Nom de la boite mail", 840, 176, 161, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$datearr = GUICtrlCreateGroup("Date d'arrivée prévue", 72, 208, 305, 49)
$Date1 = GUICtrlCreateDate("2011/11/21 09:48:29", 88, 224, 273, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Datedem = GUICtrlCreateGroup("Date de la demande", 72, 152, 305, 49)
$Date2 = GUICtrlCreateDate("2011/11/21 09:50:32", 88, 168, 273, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Ancien = GUICtrlCreateGroup("Ancien Matériel", 8, 288, 177, 305)
$Ouiancien = GUICtrlCreateRadio("Oui", 40, 336, 57, 17)
$Nonancien = GUICtrlCreateRadio("Non", 40, 360, 57, 17)
$Ancienposte = GUICtrlCreateGroup("Ancien Poste ? ", 24, 312, 145, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$infoancienposte = GUICtrlCreateGroup("Informations", 24, 400, 145, 177)
$Input1 = GUICtrlCreateInput("Nom du poste", 32, 424, 129, 21)
$pcfixeancien = GUICtrlCreateRadio("PC Fixe", 32, 448, 97, 17)
$pcportableancien = GUICtrlCreateRadio("PC Portable", 32, 472, 97, 17)
$Wyseancien = GUICtrlCreateRadio("Wyse", 32, 496, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Imprimer = GUICtrlCreateButton("Imprimer", 952, 680, 105, 33)
$nouveaumateriel = GUICtrlCreateGroup("Nouveau Matériel", 200, 288, 393, 305)
$posteinfo = GUICtrlCreateGroup("Poste Informatique", 208, 320, 209, 97)
$PCfixe = GUICtrlCreateRadio("PC Fixe", 216, 392, 81, 17)
$Wysenouveau = GUICtrlCreateRadio("Wyse", 216, 344, 65, 17)
$PC = GUICtrlCreateRadio("PC Portable", 216, 368, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ecranchoix = GUICtrlCreateGroup("Ecran", 208, 432, 209, 137)
$pcportableecr = GUICtrlCreateGroup("PC Portable", 216, 456, 89, 97)
$pouce17 = GUICtrlCreateRadio("17 Pouces", 224, 480, 73, 17)
$pouce15 = GUICtrlCreateRadio("15 Pouces", 224, 504, 73, 17)
$pouce13 = GUICtrlCreateRadio("13 Pouces", 224, 528, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$pcfixeecr = GUICtrlCreateGroup("PC Fixe", 320, 456, 89, 97)
$pouce21 = GUICtrlCreateRadio("21 Pouces", 328, 480, 73, 17)
$pouce19 = GUICtrlCreateRadio("19 Pouces", 328, 504, 73, 17)
$pouce17fixe = GUICtrlCreateRadio("17 Pouces", 328, 528, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$imprimantes = GUICtrlCreateGroup("Imprimantes", 432, 320, 145, 97)
$impnetb = GUICtrlCreateCheckbox("Imprimante N/B", 440, 344, 97, 17)
$Fax = GUICtrlCreateCheckbox("Fax", 440, 368, 97, 17)
$Multifonctions = GUICtrlCreateCheckbox("Multifonctions Couleurs", 440, 392, 137, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$periph = GUICtrlCreateGroup("Autres périphériques", 432, 440, 145, 129)
$perpih1 = GUICtrlCreateInput("Périphérique 1", 440, 464, 129, 21)
$periph2 = GUICtrlCreateInput("Périphérique 2", 440, 488, 129, 21)
$periph3 = GUICtrlCreateInput("Périphérique 3", 440, 512, 129, 21)
$periph4 = GUICtrlCreateInput("Périphérique 4", 440, 536, 129, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Logiciels = GUICtrlCreateGroup("Logiciels", 608, 288, 449, 305)
$bureautique = GUICtrlCreateGroup("Bureautique", 624, 304, 417, 121)
$office = GUICtrlCreateCheckbox("Microsoft Office", 680, 328, 97, 17)
$Access = GUICtrlCreateCheckbox("Access", 792, 352, 73, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Powerpoint", 712, 384, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Word", 712, 352, 57, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Excel", 712, 368, 65, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Publisher", 792, 368, 73, 17)
$Lotus = GUICtrlCreateCheckbox("Lotus Notes", 904, 328, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$metiers = GUICtrlCreateGroup("Métiers", 624, 432, 417, 153)
$adelia = GUICtrlCreateCheckbox("Adelia Stuido", 632, 456, 89, 17)
$ccmx = GUICtrlCreateCheckbox("CCMX", 632, 472, 49, 17)
$crysrepo = GUICtrlCreateCheckbox("Crystal Reports", 632, 488, 89, 17)
$dtm = GUICtrlCreateCheckbox("DTM", 632, 504, 49, 17)
$toshop = GUICtrlCreateCheckbox("Photoshop", 632, 520, 81, 17)
$sap = GUICtrlCreateCheckbox("SAP", 632, 536, 89, 17)
$as = GUICtrlCreateCheckbox("AS400", 752, 456, 73, 17)
$ccs = GUICtrlCreateCheckbox("CCS", 752, 472, 49, 17)
$dbadmin = GUICtrlCreateCheckbox("DB2 Admin", 752, 488, 81, 17)
$Infass = GUICtrlCreateCheckbox("InfassT", 752, 504, 73, 17)
$prodcic = GUICtrlCreateCheckbox("ProdCIC", 752, 520, 65, 17)
$sas = GUICtrlCreateCheckbox("SAS", 752, 536, 65, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Audacity", 840, 456, 65, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Ciel", 840, 472, 49, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Dreamweaver", 840, 488, 89, 17)
$notepad = GUICtrlCreateCheckbox("Notepad ++", 840, 504, 89, 17)
$query = GUICtrlCreateCheckbox("Query", 840, 520, 81, 17)
$xrt = GUICtrlCreateCheckbox("XRT", 840, 536, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Signature = GUICtrlCreateGroup("Signature du demandeur", 8, 608, 177, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Signature du responsable de service", 200, 608, 193, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$commentaires = GUICtrlCreateEdit("", 608, 616, 329, 96, BitOR($ES_WANTRETURN,$WS_BORDER), 0)
GUICtrlSetData(-1, "commentaires")
$Group2 = GUICtrlCreateGroup("Signature du coordinateur", 408, 608, 193, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("Sydneysyd", 8, 720, 113, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Tw Cen MT Condensed")
$Label1 = GUICtrlCreateLabel("FORMULAIRE DE DEMANDE MATERIEL", 256, 8, 606, 26, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 12, 800, 0, "Goudy Stout")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Le formulaire est 'mis' dans la variable $nMSg et si $nMsg = GUIGetMsg alors on continue l'affichage. A l'appuie sur la croix de fermeture (GUI EVENT CLOSE) on sort de l'interface
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
      Case $GUI_EVENT_CLOSE
            Exit
;Fonction et evenements sur certains bouton
;Bouton nonancien, lors de ce choix on desactive les boutons Input1, pcfixeancien, pcportableancien, wyseancien
   Case $Nonancien
               GUICtrlSetState ($Input1, $GUI_DISABLE)
            GUICtrlSetState ($pcfixeancien, $GUI_DISABLE)
            GUICtrlSetState ($pcportableancien, $GUI_DISABLE)
            GUICtrlSetState ($Wyseancien, $GUI_DISABLE)
;Bouton Ouiancien, lors de ce choix on Reactive les boutons Input1, pcfixeancien, pcportableancien, wyseancien
   Case $Ouiancien
               GUICtrlSetState ($Input1, $GUI_ENABLE)
            GUICtrlSetState ($pcfixeancien, $GUI_ENABLE)
            GUICtrlSetState ($pcportableancien, $GUI_ENABLE)
            GUICtrlSetState ($Wyseancien, $GUI_ENABLE)
;Bouton Wysenouveau, lors de ce choix on desactive les boutons pouce17, pouce15, pouce13 et on active les boutons pouce21, pouce19, pouce17fixe
   Case $Wysenouveau
            GUICtrlSetState ($pouce17, $GUI_DISABLE)
            GUICtrlSetState ($pouce15, $GUI_DISABLE)
            GUICtrlSetState ($pouce13, $GUI_DISABLE)
            GUICtrlSetState ($pouce21, $GUI_ENABLE)
            GUICtrlSetState ($pouce19, $GUI_ENABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_ENABLE)
;Bouton PC, lors de ce choix on reactive les boutons pouce17, pouce15, pouce13 et on desactive les boutons pouce21, pouce19, pouce17fixe
   Case $PC
            GUICtrlSetState ($pouce17, $GUI_ENABLE)
            GUICtrlSetState ($pouce15, $GUI_ENABLE)
            GUICtrlSetState ($pouce13, $GUI_ENABLE)
            GUICtrlSetState ($pouce21, $GUI_DISABLE)
            GUICtrlSetState ($pouce19, $GUI_DISABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_DISABLE)
;Bouton PCfixe, lors de ce choix on desactive les boutons pouce17, pouce15, pouce13 et on active les boutons pouce21, pouce19, pouce17fixe
   Case $PCfixe
            GUICtrlSetState ($pouce17, $GUI_DISABLE)
            GUICtrlSetState ($pouce15, $GUI_DISABLE)
            GUICtrlSetState ($pouce13, $GUI_DISABLE)
            GUICtrlSetState ($pouce21, $GUI_ENABLE)
            GUICtrlSetState ($pouce19, $GUI_ENABLE)
            GUICtrlSetState ($pouce17fixe, $GUI_ENABLE)
;Bouton Non coté groupe, on desactive le choix de la boite mail du groupe
   Case $nongroupe
            GUICtrlSetState ($boitemailgroupe, $GUI_DISABLE)
;Bouton Oui coté mail, on reactive le choix de la boite mail du groupe
   Case $ouigroupe
            GUICtrlSetState ($boitemailgroupe, $GUI_ENABLE)
;Action sur le bouton Imprimer
Case $Imprimer
; on utilisera les fonctions include de screencapture.au3 (renommer en sc.au3 et le fichier sc.au3 mis dans le dossier include)
;titre de la fenetre devant etre capturée
$TitleWindow = "InfoDem 1.4"
; chemin du dossier où le fichier sera sauvegardé et sous quel format (ici dans le dossier temp et au format png)
$FileName = @TempDir & "\TmpFileName.png"
;action de la copie d'écran
    $tab = WinList()
    For $i=0 To UBound($tab) - 1
        if StringInStr ($tab[$i][0], $TitleWindow) <> 0 Then
            $hdlWinDeclic = $tab[$i][1]
            _Capture($hdlWinDeclic, $FileName)
        EndIf
;fin de l'action
    Next
;démarrage de paint de façon invisible
       Run(@SystemDir & '\mspaint.exe /p "' & $FileName & '"' ,'' ,@SW_HIDE)
;capture de la fenetre active et paramètres de qualité et du detourage pour l'impression
   Func _capture($HdlWindow, $ChmFileSave)
    _ScreenCapture_SetJPGQuality($giJPGQuality)
    _ScreenCapture_CaptureWnd ($FileName, $HdlWindow, 0, 22, -1, -1, False)
;fin de la capture
EndFunc
;lors du clic sur imprimer, envoi d'une message box indiquant que le fichier est envoyé à l'impression
   MsgBox(4096, "InfoDem 1.4", "Demande envoyée à l'imprimante ! ")
      EndSwitch
WEnd



Si vous voyez des bugs ou des erreurs n'hésitez pas !

Merci à Laddy, Sablier94 et Flydee.




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] InfoDem 1.4 
Salut,

Je n'ai pas pu testé car il me manque l'include "Sc.au3" (pour les captures d'écran ?). C'est "screencapture.au3" que tu as renommé ?

Tu as réussi ton script mais tu n'as pas utilisé de fichier Excel ? Pourquoi faire une capture à la place ?

Et pas besoin de me citer, je n'a rien fait Wink

A+




______________________________________________________
Répondre en citant
Message [Prog] InfoDem 1.4 

Je n'ai pas pu testé car il me manque l'include "Sc.au3" (pour les captures d'écran ?). C'est "screencapture.au3" que tu as renommé ?


Renomme sc.au3 en ScreenCapture.au3 - Si tu veux savoir pourquoi j'ai fait ça contacte moi par mp ^^

Tu as réussi ton script mais tu n'as pas utilisé de fichier Excel ?


L'idée de base etait un fichier excel de demande. Je trouve ma solution plus idéale

Pourquoi faire une capture à la place ?

Moins prise de tete, question de temps aussi. Pour un resultat identique. Ainsi, une fois compilé j'ai un exe de 383 Ko. Very Happy

Et pas besoin de me citer, je n'a rien fait

Si ,si, merci pour les créations de liste ^^




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Message [Prog] InfoDem 1.4 


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