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:", 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
(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
)
