AutoIt Français

Code : Tout sélectionner

#include <MsgBoxConstants.au3>

If ProcessExists("SciTE.exe") = 0 Then
    MsgBox($MB_SYSTEMMODAL, "", "You will need SciTE.exe to be running for ConsoleWrite to display.")
EndIf

Example()

Func Example()
    ; Register the function MyAdLibFunc() to be called every 250ms (default).
    AdlibRegister("MyAdLibFunc",1000)

    ; Sleep does not stop AdLib functions from running.
    Sleep(1000)

    ; AdLib functions don't run while a blocking function is shown e.g. MsgBox, InputBox, WinWait, WinWaitClose etc.
    MsgBox($MB_SYSTEMMODAL, "", "No console message(s) will be shown whilst the messagebox is displayed.")

    ; The AdLib function MyAdLibFunc() will start again.
    Sleep(20000)

    ; Unregister the function MyAdLibFunc() from being called every 250ms.
    AdlibUnRegister("MyAdLibFunc")
EndFunc   ;==>Example

Func MyAdLibFunc()
    ; Assign a static variable to hold the number of times the function is called.
    Local Static $iCount = 10
    $iCount -= 1
If $iCount < 0 Then $iCount = 10
    ToolTip("MyAdLibFunc called " & $iCount & " time(s)" ,100,300)
EndFunc   ;==>MyAdLibFunc
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

GUICreate("My GUI", 150, 150)
$label = GUICtrlCreateLabel("", 40, 40, 20, 20)
GUISetState() 

AdlibRegister("_Something", 1000)

While 1
    Switch GUIGetMsg()
       Case $GUI_EVENT_CLOSE
           ExitLoop
   EndSwitch
WEnd

Func _Something()
  Local Static $count = 10
  GuiCtrlSetData($label, $count)
  $count -= 1
  If $count < 0 Then 
       AdlibUnRegister("_Something")
       Msgbox(0,"", "là on lance un code...")
       $count = 10
       AdlibRegister("_Something", 1000)
  EndIf
EndFunc

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Global $hAdlibTimer, $iTime = 10000

GUICreate("My GUI", 400, 150)
GUICtrlCreateLabel("Temps restant : ", 10, 10)
$label = GUICtrlCreateLabel("", 120, 10, 200, 20)
GUISetState()

$hAdlibTimer = TimerInit()
AdlibRegister("_AdlibFunction", $iTime)
AdlibRegister("__AdlibFunctionCountDown", 500)


While 1
    Switch GUIGetMsg()
       Case $GUI_EVENT_CLOSE
           ExitLoop
   EndSwitch
WEnd


Func _AdlibFunction()
    ; ### A ajouter dans le debut de la fonction adlib ###
    $hAdlibTimer = TimerInit()
    ; ####################################################
    
    MsgBox(0, "", "Action")
EndFunc

Func __AdlibFunctionCountDown()
    GUICtrlSetData( $label, Ceiling(($iTime - TimerDiff($hAdlibTimer)) / 1000) & " secondes" )
EndFunc
 

Code : Tout sélectionner

Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 2)

;==[Include]====
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <File.au3>
#include <Array.au3>
#include <SliderConstants.au3>
#include <ListviewConstants.au3>
#include <ScreenCapture.au3>
#include <Timers.au3>
#include <GuiStatusBar.au3>
#include <Color.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <StringSize.au3>
#include <ComboConstants.au3>
#include <StaticConstants.au3>
#include <MsgBoxConstants.au3>

;==[Global variables]====
Global $PathOfCSVFile, $ApplicationName, $CellsFile, $ConfigFile, $MainGUI, $Child, $Wcurve = 800, $Left = 50
Global $hStatus, $aParts[3] = [160, 400, 150], $iTimer1, $Color1 = 0x000000, $Color2 = 0x00f0ff
Global $iMemo, $Slider, $SliderGUI, $Slider_val0
Global $C_Line, $C_Station, $C_PointDeMesure, $hAdlibTimer, $iTime

;==[Program]====
_Ini()
_BuildMainGUI()

While 1
    If WinActive($SliderGUI) Then
        _ReadSlider()
    EndIf
Wend

While GUIGetMsg() <> -3
WEnd

Func _Ini()

    $ApplicationName = "Version démo"
    $iTime = IniRead(@ScriptDir & "\Config.ini", "AppData", "$iTime", "/!\ Fichier Config.ini erroné /!\")

EndFunc;==>_Ini()

Func _BuildMainGUI();Main Graphical User Interface

    $MainGUI = GUICreate($ApplicationName, 1200, 730, -1, -1)
    $Size = WinGetClientSize($MainGUI)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $hStatus = _GUICtrlStatusBar_Create($MainGUI)
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $hStatus, "wstr", 0, "wstr", 0)
    _GUICtrlStatusBar_SetBkColor($hStatus, 0xf2e300)
    $hIcons = _WinAPI_LoadShell32Icon(265); 233 -> Icon ATTENTION,
    _GUICtrlStatusBar_SetIcon($hStatus, 0, $hIcons)
    GUIRegisterMsg($WM_TIMER, "WM_TIMER")
    $iTimer1 = _Timer_SetTimer($MainGUI, 1000)
    $LV = GUICtrlCreateListView("Mini|Valeur|Maxi|Date|Réference|ID Logique|Texte résultat", $Left, 470, $Wcurve, 70)
    $LVitem = GuiCtrlCreateListViewItem("||||||", $LV)
    $iMemo = GUICtrlCreateListView(" ", $Left, 550, $Wcurve, 120, $LVS_NOCOLUMNHEADER)
    GUICtrlSendMsg($iMemo, $LVM_SETCOLUMNWIDTH, 0,$Wcurve - 10)
    GUICtrlSetFont($iMemo, 8, 800, 0, "MS Sans Serif")

    _GUICtrlCreateGroup("Gestion: ", $Wcurve + 70, 15, 310, 200)
    _GUICtrlCreateGroup("A définir: ", $Wcurve + 70, 242, 310, 200)
    _GUICtrlCreateGroup("Options: ", $Wcurve + 70, 470, 310, 200)
    ;*********************************************************************************************************************
    _GUICtrlCreateGradient($Color1, $Color2, 0, 0, $Size[0], $Size[1])
    $SliderGUI = GUICreate("Slider", $Wcurve, 20, $Left, 440, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $MainGUI)
    GUISetBkColor(0xFF0000)
    _WinAPI_SetLayeredWindowAttributes($SliderGUI, 0xFF0000)
    $Slider = GUICtrlCreateSlider(0, 0, $Wcurve, 20, $TBS_NOTICKS + $TBS_TOP + $TBS_FIXEDLENGTH)
    GUICtrlSetLimit(-1, $Wcurve/1, 0)
    GUICtrlSendMsg($slider, $TBM_SETTHUMBLENGTH, 16, 0)
    GUICtrlSetBkColor(-1, 0xff0000)
    GUISetState()
    _GUICtrlStatusBar_SetText($hStatus, StringUpper(@username) & " on " & @ComputerName, 1)
    MemoWrite("Bienvenue sur " & $ApplicationName & ".")
    GUISetState(@SW_SHOW, $MainGUI)

    _BuildTheCurve()
    $hAdlibTimer = TimerInit()
    AdlibRegister("_Mafonction", $iTime)
    AdlibRegister("_AdlibFunctionCountDown", 1000)

EndFunc;==>_BuildMainGUI()

Func _Mafonction()

EndFunc

Func _AdlibFunctionCountDown()

    $iTimeCount = Ceiling(($iTime - TimerDiff($hAdlibTimer)) / 1000) & " secondes."

    If $iTimeCount < 1 Then
        AdlibUnRegister("_Mafonction")
        AdlibUnRegister("_AdlibFunctionCountDown")
        $hAdlibTimer = TimerInit()
        AdlibRegister("_Mafonction", $iTime)
        AdlibRegister("_AdlibFunctionCountDown", 1000)
    EndIf

    _GUICtrlStatusBar_SetText($hStatus, "Prochaine requête dans " &  $iTimeCount,2)
EndFunc

Func _BuildTheCurve()

    $Child = GUICreate("Curve", $Wcurve, 400, $Left, 10, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_MDICHILD, $WS_EX_COMPOSITED), $MainGUI)
    $g = GUICtrlCreateGraphic(0, 0, 800, 400);$grafic_width
    GUICtrlSetGraphic($g, $GUI_GR_PENSIZE, 1)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUISetState()

EndFunc

Func _ReadSlider()
    If _IsPressed("01") Then
        $info = GUIGetCursorInfo($SliderGUI)
        If $info[4] = $Slider Then
            Do
            $Slider_val0 = GuiCtrlRead($Slider)
            Sleep(10)
            $Slider_val = GuiCtrlRead($Slider)
            ;If $Slider_val <> $Slider_val0 Then
            _GUICtrlListView_DeleteAllItems($iMemo)
            MemoWrite("-> Valeur slider: " & $Slider_val)
      ;EndIf
    Until not _IsPressed("01")
   EndIf
EndIf
EndFunc

Func _ChangePathOfCSVFile(); Change the folder path to put the CSV file from ProMaster request

    $NewPatOfCSVFile = FileSelectFolder("Choisir le dossier de destination", "C:\temp", 2)
    If Not @error Then
        IniDelete(@ScriptDir & "\ini\Config.ini", "AppData", "PathOfCSVFile")
        IniWrite(@ScriptDir & "\ini\Config.ini", "AppData", "PathOfCSVFile", $NewPatOfCSVFile)
    Else
        Return
    EndIf

EndFunc;==>_ChangePathOfCSVFile()

Func _GUICtrlCreateGradient($nStartColor, $nEndColor, $nX, $nY, $nWidth, $nHeight)
    Local $color1R = _ColorGetRed($nStartColor)
    Local $color1G = _ColorGetGreen($nStartColor)
    Local $color1B = _ColorGetBlue($nStartColor)

    Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $nHeight
    Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $nHeight
    Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $nHeight

    GuiCtrlCreateGraphic($nX, $nY, $nWidth, $nHeight)
    For $i = 0 To $nHeight - $nY
        $sColor = "0x" & StringFormat("%02X%02X%02X", $color1R + $nStepR * $i, $color1G + $nStepG * $i, $color1B + $nStepB * $i)
        GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $sColor, 0xffffff)
        GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
        GUICtrlSetGraphic(-1, $GUI_GR_LINE, $nWidth, $i)
    Next
EndFunc

Func My_GUICtrlListView_AutoSizeColumns($LV, $iMini = 0)
    If Not IsHWnd($LV) Then $LV = GUICtrlGetHandle($LV)
    Local $hHeader = _GUICtrlListView_GetHeader($LV), $iHeader_Width, $iData_Width
    _GUICtrlListView_BeginUpdate($LV)
    For $iIndex = 0 To _GUICtrlListView_GetColumnCount($LV) - 1
        If _GUICtrlListView_GetColumnWidth($LV, $iIndex) = 0 Then ContinueLoop
        _GUICtrlListView_SetColumnWidth($LV, $iIndex, $LVSCW_AUTOSIZE_USEHEADER)
        $iHeader_Width = _GUICtrlListView_GetColumnWidth($LV, $iIndex)
        If @OSVersion = "WIN_XP" And $iIndex < _GUICtrlListView_GetColumnCount($LV) - 1 Then
            If _GUICtrlHeader_GetItemFlags($hHeader, $iIndex) / 2 > 1 Then $iHeader_Width += 30
        EndIf
        _GUICtrlListView_SetColumnWidth($LV, $iIndex, $LVSCW_AUTOSIZE)
        $iData_Width = _GUICtrlListView_GetColumnWidth($LV, $iIndex)
        If $iHeader_Width > $iData_Width Then
            _GUICtrlListView_SetColumnWidth($LV, $iIndex, $iHeader_Width)
        EndIf
        If _GUICtrlListView_GetColumnWidth($LV, $iIndex) < $iMini Then
            _GUICtrlListView_SetColumnWidth($LV, $iIndex, $iMini)
        EndIf
    Next
    _GUICtrlListView_EndUpdate($LV)
EndFunc   ;==>My_GUICtrlListView_AutoSizeColumns

Func WM_TIMER($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $ilParam

    Switch _Timer_GetTimerID($iwParam)
        Case $iTimer1
            _UpdateStatusBarClock()
        EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_TIMER

Func _UpdateStatusBarClock()
    _GUICtrlStatusBar_SetText($hStatus, @TAB & StringFormat(_NowDate() & " " & "%02d:%02d:%02d", @HOUR, @MIN, @SEC), 0)
EndFunc

Func _GUICtrlCreateGroup($sText, $iLeft, $iTop, $iWidth, $iHeight, $bColor = 0xFFFFFF, $bBkColor = -2, $iStyle = 1, $iBorder = 0)
    Local $aLabel[6] = [5], $iCStyle
    Local $aStringSize = _StringSize($sText)

    If $iStyle Then $iCStyle = $SS_SUNKEN

    $aLabel[1] = GUICtrlCreateLabel('', $iLeft + 1, $iTop, 9, 2, $iCStyle) ; Top Left Line.
    $aLabel[2] = GUICtrlCreateLabel('', $iLeft + $aStringSize[2] + 10, $iTop, $iWidth - $aStringSize[2] - 10, 2, $iCStyle) ; Top Right Line.
    $aLabel[3] = GUICtrlCreateLabel('', $iLeft, $iTop + 2, 2, $iHeight - 4, $iCStyle) ; Left Line.
    $aLabel[4] = GUICtrlCreateLabel('', $iLeft + $iWidth - 2, $iTop + 2, 2, $iHeight - 4, $iCStyle) ; Right Line.
    $aLabel[5] = GUICtrlCreateLabel('', $iLeft + 1, $iTop + $iHeight - 2, $iWidth - 2, 2, $iCStyle) ; Bottom Line.
    For $i = 1 To $aLabel[0]
        GUICtrlSetBkColor($aLabel[$i], $bColor)
        GUICtrlSetBkColor($aLabel[$i], $bColor)
    Next

    GUICtrlCreateLabel("", $iLeft + 2, $iTop + 2, $iWidth - 4, $iHeight - 4)
    GUICtrlSetBkColor(-1, $bBkColor)

    GUICtrlCreateLabel($sText, $iLeft + 12, $iTop - 6, $aStringSize[2], 15, $SS_CENTER)
    GUICtrlSetBkColor(-1, $bBkColor)
    GUICtrlSetColor(-1, $bColor)

    If $iBorder Then
        GUICtrlCreateLabel("", $iLeft + 10, $iTop - 6, 2, 8, $iCStyle)
        GUICtrlSetBkColor(-1, $bColor)
        GUICtrlCreateLabel("", $iLeft + $aStringSize[2] + 10, $iTop - 6, 2, 8, $iCStyle)
        GUICtrlSetBkColor(-1, $bColor)
        GUICtrlCreateLabel("", $iLeft + 10, $iTop - 8, $aStringSize[2] + 2, 2, $iCStyle)
        GUICtrlSetBkColor(-1, $bColor)
    EndIF

EndFunc   ;==>_GUICtrlCreateGroup

Func _Exit()
    Exit
EndFunc;==>Exit()

Func MemoWrite($sMessage)
   $hiMemo = GUICtrlCreateListViewItem($sMessage, $iMemo)
EndFunc