AutoIt Français

Communauté Francophone AutoIt
https://www.autoitscript.fr/forum/

[R] Aide pour un menu

https://www.autoitscript.fr/forum/viewtopic.php?f=3&t=1177

Page 1 sur 2

[R] Aide pour un menu

Posté : ven. 27 juin 2008 15:52
par africanism
Bonjour a tous
voila je me suis cree un menu
dans ce menu j'ai 3 champ
NOM
CHEMIN DE L'IMAGE
DESCRIPTION DE L'IMAGE

et un bouton valider

commen je peut faire pour que je que je met dans chaque champ s'incrive dans un fichier txt
quand je clic sur le bouton valider.

je m'explique le champ NOM (copier ce qui a dans ce champ dans un fichier nommer nom.txt)
Chemin (idem mais dans un fichier chemin.txt)
Description (idem mais dans un fichier description.txt)

merci pour vos reponse
voici le cript

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\templates\test.kxf
$Form1_1 = GUICreate("Menu PXE", 633, 447, 274, 184)
GUICtrlCreateInput("", 88, 80, 449, 21)
$Nom = GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
GUICtrlCreateInput("", 89, 165, 449, 21,$WS_EX_CLIENTEDGE)
; et la façon de le récupérer
FileWrite("d:\log.txt", ""& GUICtrlRead($Nom))
$Chemin = GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
GUICtrlCreateInput("", 91, 255, 449, 21)
$Description = GUICtrlCreateLabel("Descripyion du Master", 94, 236, 109, 17)
$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25, 0)
$Progression = GUICtrlCreateProgress(212, 384, 217, 25)
GUICtrlSetColor(-1, 0xC0DCC0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Nom
EndSwitch
WEnd

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 16:06
par jbnh
Je l'ai un peu remagné a ma sauce

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\templates\test.kxf
$Form1_1 = GUICreate("Menu PXE", 633, 447, 274, 184)



GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$Nom = GUICtrlCreateInput("", 88, 80, 449, 21)


GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 449, 21,$WS_EX_CLIENTEDGE)


GUICtrlCreateLabel("Descripyion du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25, 0)

$Progression = GUICtrlCreateProgress(212, 384, 217, 25)
GUICtrlSetColor(-1, 0xC0DCC0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    
        Case $msg = $valider
        If Not FileExists("nom.txt") Then
        FileWrite("nom.txt",GUICtrlRead($Nom))
        EndIf
        
        If Not FileExists("chemin.txt") Then
        FileWrite("chemin.txt",GUICtrlRead($Chemin))
        EndIf
        
        If Not FileExists("description.txt") Then
        FileWrite("description.txt",GUICtrlRead($Description))
        EndIf
            
    EndSelect       

WEnd

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 16:12
par africanism
c'est tout a fait ca
je te remerci
je vait peut etre en rajoute comment je peut faire pour ajoute un bouton parcourir a cote de chemin de l'image pour lui indique le chemin .
?

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 16:15
par jbnh

Code : Tout sélectionner

$Input_1 = GUICtrlCreateInput("", 10, 10, 220, 20)
$Button_1 = GUICtrlCreateButton("...", 240, 10, 20, 20)

........

    Case $Msg = $Button_1
        $Opened_File = FileOpenDialog("Open Picture File", "", "All Picture Files (*.bmp;*.jpg;*.png;*gif;*jpeg)|All Files (*.*)",12)
        GUICtrlSetData($Input_1, $Opened_File)
De mémoire donc vérifie si ca marche

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 16:40
par africanism
ca fontionne pas
revoici le script

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\program files\autoit3\templates\test.kxf
$Form1_1 = GUICreate("Menu PXE", 633, 447, 274, 184)



GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$Nom = GUICtrlCreateInput("", 88, 80, 449, 21)


GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 449, 21,$WS_EX_CLIENTEDGE)

$Input_1 = GUICtrlCreateInput("", 10, 10, 220, 20)
$Button_1 = GUICtrlCreateButton("...", 240, 10, 20, 20)

........

    Case $Msg = $Button_1
        $Opened_File = FileOpenDialog("Open Picture File", "", "All Picture Files (*.bmp;*.jpg;*.png;*gif;*jpeg)|All Files (*.*)",12)
        GUICtrlSetData($Input_1, $Opened_File)


GUICtrlCreateLabel("Descripyion du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25, 0)

GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###

While 1

    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
   
        Case $msg = $valider
        If Not FileExists("nom.txt") Then
        FileWrite("nom.txt",GUICtrlRead($Nom))
        EndIf
       
        If Not FileExists("chemin.txt") Then
        FileWrite("chemin.txt",GUICtrlRead($Chemin))
        EndIf
       
        If Not FileExists("description.txt") Then
        FileWrite("description.txt",GUICtrlRead($Description))
        EndIf
           
    EndSelect      

WEnd

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 16:46
par jbnh
je re ce soir et je te le fais, je ferai un edit de ce post!

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 16:47
par africanism
je te remerci je vais faire des recherche aussi merci pour tout

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 17:04
par africanism
salut voila
j'ai trouve
mais la validation ne fonctionne pas

voici le code

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=y:\###appz###\script\form1_1.kxf
$Form1_1 = GUICreate("Menu PXE", 634, 448, 275, 185)

GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$Nom = GUICtrlCreateInput("", 88, 80, 361, 21)

GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 369, 21, $ES_AUTOHSCROLL)

GUICtrlCreateLabel("Description du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25)

$Parcourir = GUICtrlCreateButton("Parcourir", 469, 163, 136, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1

    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
   
        Case $msg = $valider
        If Not FileExists("nom.txt") Then
        FileWrite("nom.txt",GUICtrlRead($Nom))
        EndIf
       
        If Not FileExists("chemin.txt") Then
        FileWrite("chemin.txt",GUICtrlRead($Chemin))
        EndIf
       
        If Not FileExists("description.txt") Then
        FileWrite("description.txt",GUICtrlRead($Description))
        EndIf
        
        Case $msg = $Parcourir
        $Opened_File = FileOpenDialog("Open Picture File", "", "All Picture Files (*.bmp;*.jpg;*.png;*gif;*jpeg)|All Files (*.*)",12)
        GUICtrlSetData($Chemin, $Opened_File)
        
         
     EndSelect
             
        
WEnd

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 17:40
par ani
bonjour

indique plutôt ceux-ci pour le bouton $valider

Case $msg = $valider
FileWriteLine("nom.txt",GUICtrlRead($Nom))
FileWriteLine("chemin.txt",GUICtrlRead($Chemin))
FileWriteLine("description.txt",GUICtrlRead($Description))

et si tu désire lors du click sur le bouton valider que les champs se remette à zero
indique juste ceux-ci en dessous des filewriteline.

Guictrlsetdata($Nom,"")
Guictrlsetdata($Chemin,"")
Guictrlsetdata($Description,"")

ps: créer trois fichier texte çà va etre dure pour s'y retrouver non ?
pour ma part je ferai plutot un fichier ini dans ce style.

[NOM]
Description=Chemin


voilàvoilà

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 17:57
par africanism
PARFAIS POUR LA MISE A ZERO PARCONTRE IL NE ME CRE PAS LES FICHIER.
QUAND JE VALIDE

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 18:01
par africanism
ani a écrit :
ps: créer trois fichier texte çà va etre dure pour s'y retrouver non ?
pour ma part je ferai plutot un fichier ini dans ce style.

[NOM]
Description=Chemin


voilàvoilà
non pas du tout car j'ai un autre script qui lui va me les effacer. par la suite

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 18:20
par africanism
C'est bon j'ai trouve voici le script

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=y:\###appz###\script\form1_1.kxf
$Form1_1 = GUICreate("Menu PXE", 634, 448, 275, 185)

GUICtrlCreateLabel("Nom de la Session", 90, 62, 92, 17)
$Nom = GUICtrlCreateInput("", 88, 80, 361, 21)

GUICtrlCreateLabel("Chemin de l'image du PC", 90, 147, 121, 17)
$Chemin = GUICtrlCreateInput("", 89, 165, 369, 21, $ES_AUTOHSCROLL)

GUICtrlCreateLabel("Description du Master", 94, 236, 109, 17)
$Description = GUICtrlCreateInput("", 91, 255, 449, 21)

$Valider = GUICtrlCreateButton("Valider", 250, 336, 137, 25)

$Parcourir = GUICtrlCreateButton("Parcourir", 469, 163, 136, 25)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1

    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
   
        Case $msg = $valider
        FileWriteLine("nom.txt",GUICtrlRead($Nom))
        FileWriteLine("chemin.txt",GUICtrlRead($Chemin))
        FileWriteLine("description.txt",GUICtrlRead($Description))
        
        Guictrlsetdata($Nom,"")
        Guictrlsetdata($Chemin,"")
        Guictrlsetdata($Description,"")
        
            
         
     EndSelect
    Select
            Case $msg = $Parcourir
        $Opened_File = FileOpenDialog("Selection fichier Ghost", "", "Fichier gho (*.gho)|All Files (*.*)",12)
        GUICtrlSetData($Chemin, $Opened_File)
    EndSelect   
WEnd

Re: [..]Aide pour un menu

Posté : ven. 27 juin 2008 18:25
par ani
► Afficher le texte

Les fichiers Texte se crée dans le même répertoire que ton script, chez moi çà fonctionne

Re: [R] Aide pour un menu

Posté : lun. 30 juin 2008 14:05
par africanism
merci a tous pour votre aide

une autre petite chose est t'il possible par rapport a ce menu
qu'il majoute une ligne avec des info dans ce fichier.

ghost.cmd

voici le fichier

Code : Tout sélectionner

start /min C:\Progra~1\Symantec\Ghost\ghostsrv.exe [color=#FF0000](Chemin du fichier)[/color] [color=#FF0000](NOM)[/color] -disk1 -O1 -R
 

Re: [..] Aide pour un menu

Posté : lun. 30 juin 2008 15:27
par africanism
j'ai une erreur la dessus mais je sais pas ou ?

Code : Tout sélectionner

FileWriteLine("d:\ghost\ghost.cmd","start /min C:\Progra~1\Symantec\Ghost\ghostsrv.exe",guictrlread($chemin))
ou est mon erreur ?

Re: [..] Aide pour un menu

Posté : lun. 30 juin 2008 15:35
par Tlem
Vous envoyez 3 paramètres au lieu de 2.
Il est bien de lire l'aide fournie avec AutoIt pour voir comment formater une commande !!!

Re: [..] Aide pour un menu

Posté : lun. 30 juin 2008 16:09
par africanism
merci comment je peut faire pour envoyer plusieur commande ?
car je voudrais que ca ecrive dans un fichier ex: ghost.txt

texte ($chemin) ($session) texte

Re: [..] Aide pour un menu

Posté : lun. 30 juin 2008 16:34
par Tlem
Je ne suis pas sur d'avoir compris votre demande, mais je suppose ceci :

Code : Tout sélectionner

FileWriteLine("d:\ghost\ghost.cmd","start /min C:\Progra~1\Symantec\Ghost\ghostsrv.exe " & guictrlread($chemin))

Re: [..] Aide pour un menu

Posté : lun. 30 juin 2008 17:18
par africanism
c'est tout a faite ca
comment je peut mettre un espace entre & guictrlread($chemin) et & guictrlread($session)
?

Re: [..] Aide pour un menu

Posté : lun. 30 juin 2008 17:20
par Tlem
Tout simplement comme ceci :

Code : Tout sélectionner

guictrlread($chemin) & " " & guictrlread($session)
Heures au format UTC+02:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduit par phpBB-fr.com