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
