AutoIt Français

Je m'excuse car lorsque j'ai posté ce message la première fois, j'étais tellement pressé que j'en ai oublié les balises

Je recommence:
J'ai essayé de tourner la question dans tous les sens, mais je ne comprend pas pourquoi mes variables xa ya xb yb...etc
Prennent une autre valeur que zéro alors que c'est la valeur qu'elles devraient prendre par défaut avec mes input boxes...

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         [BoB]

 Script Function:
    Check if vectors are colinear
#ce ----------------------------------------------------------------------------

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

$name=@UserName
$icon = Random(1,331)
$rep1 = "ENTREZ LES VALEURS"
$rep2 = "ENTREZ LES VALEURS"

;Création de l'interface graphique
Global $GUI = GUICreate("Bonjour "&$name&"!", 916, 529, 1327, 246)
GUISetBkColor(0xC0C0C0)
GUISetIcon("shell32.dll", $icon)

;Tous les textes à but informatif sur l'interface
Global $Label1 = GUICtrlCreateLabel("xA:", 32, 48, 31, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label2 = GUICtrlCreateLabel("yA:", 32, 80, 30, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label3 = GUICtrlCreateLabel("xB:", 32, 112, 31, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label4 = GUICtrlCreateLabel("yB:", 32, 144, 30, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label5 = GUICtrlCreateLabel("xC:", 32, 176, 31, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label6 = GUICtrlCreateLabel("yC:", 32, 208, 30, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label7 = GUICtrlCreateLabel("xD:", 32, 240, 31, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label8 = GUICtrlCreateLabel("yD:", 32, 272, 30, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")

Global $Label1bis = GUICtrlCreateLabel("xAB:", 456, 48, 43, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label2bis = GUICtrlCreateLabel("yAB:", 456, 80, 42, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label3bis = GUICtrlCreateLabel("xCD:", 456, 112, 43, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")
Global $Label4bis = GUICtrlCreateLabel("yCD:", 456, 144, 42, 26)
GUICtrlSetFont(-1, 11, 800, 4, "Arial Black")

Global $LabelScript = GUICtrlCreateLabel("Le script&#058;", 592, 288, 75, 25)
GUICtrlSetFont(-1, 11, 800, 4, "Comic Sans MS")

;Les deux textes donnant les réponses des algorithmes
Global $LabelRep1 = GUICtrlCreateLabel($rep1, 112, 336, 300, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Bookman Old Style")
Global $LabelRep2 = GUICtrlCreateLabel($rep2, 536, 208, 300, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Bookman Old Style")

;Toutes les zones de saisie présentes dans l'interface
Global $xA = GUICtrlCreateInput("0", 72, 48, 321, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $yA= GUICtrlCreateInput("0", 72, 80, 321, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $xB = GUICtrlCreateInput("0", 72, 112, 321, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $yB = GUICtrlCreateInput("0", 72, 144, 321, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $xC = GUICtrlCreateInput("0", 72, 176, 321, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $yC = GUICtrlCreateInput("0", 72, 208, 321, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $xD = GUICtrlCreateInput("0", 72, 240, 321, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $yD = GUICtrlCreateInput("0", 72, 272, 321, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))

Global $xAB = GUICtrlCreateInput("0", 512, 48, 265, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $yAB = GUICtrlCreateInput("0", 512, 80, 265, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $xCD = GUICtrlCreateInput("0", 512, 112, 265, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $yCD = GUICtrlCreateInput("0", 512, 144, 265, 21, BitOR($ES_AUTOHSCROLL,$WS_BORDER,$WS_CLIPSIBLINGS))

;Les deux cadres englobants les deux algorithmes
Global $Group1 = GUICtrlCreateGroup("Vous ne conaissez que les coordonnées des points: ", 16, 16, 401, 297)
GUICtrlSetFont(-1, 12, 800, 2, "Cambria")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Vous conaissez les coordonnées des vecteurs: ", 440, 16, 361, 169)
GUICtrlSetFont(-1, 12, 800, 2, "Cambria")
GUICtrlCreateGroup("", -99, -99, 1, 1)

;Les deux bouttons permettants de lancer les algorithmes
Global $Button1 = GUICtrlCreateButton("Lancer l'algorithme!", 104, 360, 193, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Constantia")
GUICtrlSetCursor (-1, 0)
Global $Button2 = GUICtrlCreateButton("Lancer l'algorithme!", 528, 232, 193, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Constantia")
GUICtrlSetCursor (-1, 0)

;Le bouton exécutant l'algorithme sous algobox
Global $Button3 = GUICtrlCreateButton("AlgoBox", 56, 440, 321, 65, BitOR($WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUICtrlSetFont(-1, 22, 800, 4, "Copperplate Gothic Bold")

;La zone où s'affiche le script AutoIt
Global $Edit1 = GUICtrlCreateEdit("", 416, 328, 481, 193)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)

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

        Case $Button1
                MsgBox(0, "Value", $xA)
                MsgBox(0, "Value", $yA)
                MsgBox(0, "Value", $xB)
                MsgBox(0, "Value", $yB)
                MsgBox(0, "Value", $xC)
                MsgBox(0, "Value", $yC)
                MsgBox(0, "Value", $xD)
                MsgBox(0, "Value", $yD)

        Case $Button2
                MsgBox(0, "Value", $xAB)
                MsgBox(0, "Value", $yAB)
                MsgBox(0, "Value", $xCD)
                MsgBox(0, "Value", $yCD)

        Case $Button3
            Exit
EndSwitch
WEnd

Vous pouvez vérifier ce que je dis en cliquant sur les boutons lancer l'algorithme.
(A la base ce programme devait vérifier si deux vecteurs sont colinéaires ou pas mais en voyant que le script ne marchait pas j'ai remplacé les formules par des MsgBoxes affichant la valeur des variables ne marchant pas

)

Regardez donc la doc de la fonction GuiCtrlCreateInput:

Code : Tout sélectionner

Return Value

Success: Returns the [b]identifier (controlID)[/b] of the new control. 
Failure: Returns 0. 

 

Remarks

[color=#BF0000]To obtain the value of the control see [b]GUICtrlRead[/b][/color].

Salut, ilfaut faire

Code : Tout sélectionner

$xAread = GUIctrlread($xA)

et $xAread aura la valeur rentrée dans l'input $xA

Je dirais même plus, http://www.siteduzero.com/tutoriel-3-22 ... utoit.html

Merci à tous!!

AutoIt Français

[R] Mes variables s'amusent ...

[R] Mes variables s'amusent ...

Re: [..] Mes variables s'amusent... -_-'' (bis)

Re: [..] Mes variables s'amusent ...

Re: [..] Mes variables s'amusent ...

Re: [..] Mes variables s'amusent ...