AutoIt Français

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

$hGUI = GUICreate("Test", 600, 400, -1 , -1, -1, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF, $hGUI)
GUISetState(@SW_SHOW, $hGUI)
_WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF)
GUICtrlCreateLabel("Mon texte est visible et pas le font de mon GUI", 50, 100, 200, 50, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetTip(-1, "Cliquer sur le label pour bouger la fenêtre")

Do
    Until GUIGetMsg() = -3
Exit

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListviewConstants.au3>
#Include <Array.au3>
Opt("MouseCoordMode", 2)
Opt("GUIOnEventMode", 1)

Global $Hcourbe = 400, $Wcourbe = 600, $left = 40 
Global $array[1][2], $a, $max_x, $max_y, $g, $my_file, $fichierOK = false
Global $hGui, $child, $bord_sup, $bord_D, $coeffV, $coeffH, $LV, $LVitem

_BuildZeMainGui()
_OpenAndLoadAllZeStuff()

While 1
   _Display()
   Sleep(10)
Wend


;============================================
Func _OpenAndLoadAllZeStuff()
   $my_file = _ChouzeFile()
   $fichierOK = false
   Dim $array[1][2] = [["", ""]]   
  _BuildZeArrays()
  _BuildZeChildGui()
EndFunc


Func _ReInitZeGrafik()
   If WinExists("courbe") Then GuiDelete($child)
   GUICtrlSetData($LVitem, " | | ")
  _OpenAndLoadAllZeStuff()
EndFunc


Func _ChouzeFile()
  Local $var = FileOpenDialog("Choisir un fichier...", @ScriptDir & "\", "TXT (*.txt)", 1)
  If @error Then Return
  Return $var
EndFunc


Func _BuildZeMainGui()
$hGui = GUICreate("Graph", $left+$Wcourbe+60, $Hcourbe+90, -1, 30)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$open = GuiCtrlCreateButton("ouvrir", $left+$Wcourbe+10, 20, 40, 20)
GUICtrlSetOnEvent(-1, "_ReInitZeGrafik")
;== listview
$LV = GuiCtrlCreateListview(" | | ", $left+100, $Hcourbe+40, 250, 35, _ 
                $LVS_NOCOLUMNHEADER, $LVS_EX_GRIDLINES)
GUICtrlSendMsg($LV, $LVM_SETCOLUMNWIDTH, 0, 80)
GUICtrlSendMsg($LV, $LVM_SETCOLUMNWIDTH, 1, 80)
GUICtrlSendMsg($LV, $LVM_SETCOLUMNWIDTH, 2, 80)
GuiCtrlCreateListViewItem("index|mm|kN|", $LV)
$LVitem = GuiCtrlCreateListViewItem(" | | ", $LV)
GUISetState()
EndFunc


Func _BuildZeArrays()
$file = FileRead($my_file)
$res = StringRegExp($file, '([\d.]+;\h*[\d.]+)', 3)
If not IsArray($res) Then 
   $fichierOK = false
   Return Msgbox(0,"", "mauvais fichier")
EndIf
$fichierOK = true
ReDim $array[UBound($res)][2]
For $i = 0 to UBound($res)-1
  $split = StringRegExp($res[$i], '[\d.]+', 3)
  $array[$i][0] = $split[0]
  $array[$i][1] = $split[1]
Next
;_ArrayDisplay($array)
;;== valeurs extrêmes
$max_x = _ArrayMaxOrMin($array, "max", 1)
; $min_x = _ArrayMaxOrMin($array, "min", 1)
$max_y = _ArrayMaxOrMin($array, "max", 2)
; $min_y = _ArrayMaxOrMin($array, "min", 2)
;msgbox(0,"", "$min_x = " & $min_x &@crlf& _ 
;       "$max_x = " & $max_x &@crlf&@crlf& _ 
;       "$min_y = " & $min_y &@crlf& _ 
;       "$max_y = " & $max_y ) 
;;== échelle verticale
; Local $bord_inf = 0
$na = Number(StringLen(Int($max_y))-1)
$b = 10^$na
$bord_sup = Ceiling($max_y/$b)*$b 
$middleV = $bord_sup/2  
$coeffV = $Hcourbe/$bord_sup
;;== échelle horizontale
; Local $bord_G = 0
$bord_D = Ceiling($max_x)
$middleH = ($bord_D)/2  
$coeffH = $Wcourbe/$bord_D
;;== array pour les coordonnées sur le graphique
Dim $a[UBound($res)][2]
For $i = 0 to UBound($res)-1   
  $a[$i][0] = $array[$i][0]*$coeffH
  $a[$i][1] = $Hcourbe - $array[$i][1]*$coeffV
Next
;_ArrayDisplay($a)
EndFunc


Func _BuildZeChildGui()
If $fichierOK = false Then Return
$child = GUICreate("courbe", $left+$Wcourbe+5, $Hcourbe+30, 0, 0, $WS_POPUP, _
              BitOR($WS_EX_MDICHILD, $WS_EX_COMPOSITED), $hGui)
;== affichage de l'échelle y
Local $na = Number(StringLen(Int($bord_sup))-1)
Local $b = 10^$na
$n = 0
For $i = 0 to $bord_sup step $b/2     
  GuiCtrlCreateLabel("", 0, $Hcourbe-$i*$coeffV+3, $left, 17, 2)
  GuiCtrlSetFont(-1, 8, 400, 0, "Arial Unicode MS")
  GuiCtrlSetData(-1, Round($i, 2) & " " & ChrW(9472) )
  GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$n += 1
  If $i>0 AND $i<$bord_sup Then
     GuiCtrlCreateLabel("", $left, $Hcourbe-$i*$coeffV+10, $Wcourbe, 1)
     GUICtrlSetBkColor(-1, 0xaaaaff)
  EndIf
Next
;msgbox(0,"", $bord_sup &@crlf& $b/2 &@crlf& $n &@crlf& $bord_sup/($b/2)+1)

;== affichage du y maxi
For $i = 0 to UBound($array)-1     
  If $array[$i][1] = $max_y Then
    GuiCtrlCreateLabel("max_y = " &$array[$i][0] &" x "& $max_y, _ 
                    $left+10, $Hcourbe-$max_y*$coeffV-5, 120, 15)
    GUICtrlSetBkColor(-1, 0xeeeeff)
    GUICtrlSetColor(-1, 0xff0000)
    GuiCtrlCreateLabel("", $left, $Hcourbe-$max_y*$coeffV+9, $Wcourbe, 1)
    GUICtrlSetBkColor(-1, 0xffaaaa)
  EndIf
Next
;== affichage de l'échelle x
Local $na = Number(StringLen(Int($bord_D))-1)
Local $b = 10^$na
For $i = 0 to $bord_D step $b    
  GuiCtrlCreateLabel("I", $left+$i*$coeffH, $Hcourbe+10-1, 2, 10, 1)
  GuiCtrlCreateLabel($i, $left+$i*$coeffH-4, $Hcourbe+10+8, 10, 12, 1)
  GuiCtrlSetFont(-1, 8, 400, 0, "Arial Unicode MS")
  GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Next
;== graphique
$g = GUICtrlCreateGraphic($left, 10, $Wcourbe, $Hcourbe)
GUICtrlSetBkColor(-1, 0xeeeeff)
GUICtrlSetColor(-1, 0)
GUICtrlSetGraphic($g, $GUI_GR_MOVE, $a[0][0], $a[0][1])
GUICtrlSetGraphic($g, $GUI_GR_PENSIZE, 2)
For $i = 0 to UBound($a)-1
   GUICtrlSetGraphic($g, $GUI_GR_COLOR, 0xff)
   GUICtrlSetGraphic($g, $GUI_GR_LINE, $a[$i][0], $a[$i][1])
Next
GUISetState()
EndFunc


Func _Exit()
  Exit
EndFunc


Func _Display()
If $fichierOK = false Then Return
Local $j = "", $tolerance = 2  
Local $b = GUIGetCursorInfo($child)
;If @error Then Return
If $b[4] = $g Then
  Local $pos = MouseGetPos()
  For $i = 0 to UBound($a)-1
     If $pos[0]-$left>$a[$i][0]-$tolerance AND $pos[0]-$left<$a[$i][0]+$tolerance AND _ 
        $pos[1]-10>$a[$i][1]-$tolerance AND $pos[1]-10<$a[$i][1]+$tolerance Then 
         Do
              $pos2 = MouseGetPos()
              If $array[$i][0]<>$j Then
                  ToolTip($array[$i][0] &" x "& $array[$i][1])
                  GUICtrlSetData($LVitem, $i &"|"& $array[$i][0] &"|"& $array[$i][1])
                  $j = $array[$i][0]
             EndIf
         Until $pos[0]<$pos2[0]-$tolerance OR $pos[0]>$pos2[0]+$tolerance OR  _
            $pos[1]<$pos2[1]-$tolerance OR $pos[1]>$pos2[1]+$tolerance 
         ToolTip("")
    EndIf
  Next
EndIf
EndFunc


Func _ArrayMaxOrMin($avArray, $op = "max", $iCol = 1)
Local $iIndex = 0, $iRows = UBound($avArray), $iDims = UBound($avArray, 0)
If $op = "max" Then $op = "<"
If $op = "min" Then $op = ">"
Switch $iDims
   Case 1   ; 1D
    For $i = 0 To $iRows-1
        If Execute(Number($avArray[$iIndex]) &$op& Number($avArray[$i])) Then $iIndex = $i
    Next
    Return $avArray[$iIndex]
   Case 2  ; 2D
    For $i = 0 To $iRows-1
        If Execute(Number($avArray[$iIndex][$iCol-1]) &$op& _ 
                Number($avArray[$i][$iCol-1])) Then $iIndex = $i
    Next
    ;Local $Ret[2]
    ;$Ret[0] = $avArray[$iIndex][0]
    ;$Ret[1] = $avArray[$iIndex][$iCol-1]
    ;Return $Ret
    Return $avArray[$iIndex][$iCol-1]
EndSwitch
EndFunc 
 

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListviewConstants.au3>
#Include <Array.au3>
#include <WinAPI.au3>
Opt("MouseCoordMode", 2)
Opt("GUIOnEventMode", 1)

Global $Hcourbe = 400, $Wcourbe = 600, $left = 40 
Global $array[1][2], $a, $max_x, $max_y, $g, $my_file, $fichierOK = false
Global $hGui, $child, $bord_sup, $bord_D, $coeffV, $coeffH, $LV, $LVitem

_BuildZeMainGui()
_OpenAndLoadAllZeStuff()

While 1
   _Display()
   Sleep(10)
Wend


;============================================
Func _OpenAndLoadAllZeStuff()
   $my_file = _ChouzeFile()
   $fichierOK = false
   Dim $array[1][2] = [["", ""]]   
  _BuildZeArrays()
  _BuildZeChildGui()
EndFunc


Func _ReInitZeGrafik()
   If WinExists("courbe") Then GuiDelete($child)
   GUICtrlSetData($LVitem, " | | ")
  _OpenAndLoadAllZeStuff()
EndFunc


Func _ChouzeFile()
  Local $var = FileOpenDialog("Choisir un fichier...", @ScriptDir & "\", "TXT (*.txt)", 1)
  If @error Then Return
  Return $var
EndFunc


Func _BuildZeMainGui()
$hGui = GUICreate("Graph", $left+$Wcourbe+60, $Hcourbe+90, -1, 30)
GUISetBkColor(0xddffff, $hGui)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$open = GuiCtrlCreateButton("ouvrir", $left+$Wcourbe+10, 20, 40, 20)
GUICtrlSetOnEvent(-1, "_ReInitZeGrafik")
;== listview
$LV = GuiCtrlCreateListview(" | | ", $left+100, $Hcourbe+40, 250, 35, _ 
                $LVS_NOCOLUMNHEADER, $LVS_EX_GRIDLINES)
GUICtrlSendMsg($LV, $LVM_SETCOLUMNWIDTH, 0, 80)
GUICtrlSendMsg($LV, $LVM_SETCOLUMNWIDTH, 1, 80)
GUICtrlSendMsg($LV, $LVM_SETCOLUMNWIDTH, 2, 80)
GuiCtrlCreateListViewItem("index|mm|kN|", $LV)
$LVitem = GuiCtrlCreateListViewItem(" | | ", $LV)
GUISetState()
EndFunc


Func _BuildZeArrays()
$file = FileRead($my_file)
$res = StringRegExp($file, '([\d.]+;\h*[\d.]+)', 3)
If not IsArray($res) Then 
   $fichierOK = false
   Return Msgbox(0,"", "mauvais fichier")
EndIf
$fichierOK = true
ReDim $array[UBound($res)][2]
For $i = 0 to UBound($res)-1
  $split = StringRegExp($res[$i], '[\d.]+', 3)
  $array[$i][0] = $split[0]
  $array[$i][1] = $split[1]
Next
;_ArrayDisplay($array)
;;== valeurs extrêmes
$max_x = _ArrayMaxOrMin($array, "max", 1)
; $min_x = _ArrayMaxOrMin($array, "min", 1)
$max_y = _ArrayMaxOrMin($array, "max", 2)
; $min_y = _ArrayMaxOrMin($array, "min", 2)
;msgbox(0,"", "$min_x = " & $min_x &@crlf& _ 
;       "$max_x = " & $max_x &@crlf&@crlf& _ 
;       "$min_y = " & $min_y &@crlf& _ 
;       "$max_y = " & $max_y ) 
;;== échelle verticale
; Local $bord_inf = 0
$na = Number(StringLen(Int($max_y))-1)
$b = 10^$na
$bord_sup = Ceiling($max_y/$b)*$b 
$middleV = $bord_sup/2  
$coeffV = $Hcourbe/$bord_sup
;;== échelle horizontale
; Local $bord_G = 0
$bord_D = Ceiling($max_x)
$middleH = ($bord_D)/2  
$coeffH = $Wcourbe/$bord_D
;;== array pour les coordonnées sur le graphique
Dim $a[UBound($res)][2]
For $i = 0 to UBound($res)-1   
  $a[$i][0] = $array[$i][0]*$coeffH
  $a[$i][1] = $Hcourbe - $array[$i][1]*$coeffV
Next
;_ArrayDisplay($a)
EndFunc


Func _BuildZeChildGui()
If $fichierOK = false Then Return
$child = GUICreate("courbe", $left+$Wcourbe+5, $Hcourbe+30, 0, 0, $WS_POPUP, _
              BitOR($WS_EX_MDICHILD, $WS_EX_LAYERED, $WS_EX_COMPOSITED), $hGui)
GUISetBkColor(0xABCDEF, $child)
_WinAPI_SetLayeredWindowAttributes($child, 0xABCDEF)
;== affichage de l'échelle y
Local $na = Number(StringLen(Int($bord_sup))-1)
Local $b = 10^$na
$n = 0
For $i = 0 to $bord_sup step $b/2     
  GuiCtrlCreateLabel("", 0, $Hcourbe-$i*$coeffV+3, $left, 17, 2)
  GuiCtrlSetFont(-1, 8, 400, 0, "Arial Unicode MS")
  GuiCtrlSetData(-1, Round($i, 2) & " " & ChrW(9472) )
  GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$n += 1
  If $i>0 AND $i<$bord_sup Then
     GuiCtrlCreateLabel("", $left, $Hcourbe-$i*$coeffV+10, $Wcourbe, 1)
     GUICtrlSetBkColor(-1, 0xaaaaff)
  EndIf
Next
;msgbox(0,"", $bord_sup &@crlf& $b/2 &@crlf& $n &@crlf& $bord_sup/($b/2)+1)

;== affichage du y maxi
For $i = 0 to UBound($array)-1     
  If $array[$i][1] = $max_y Then
    GuiCtrlCreateLabel("max_y = " &$array[$i][0] &" x "& $max_y, _ 
                    $left+10, $Hcourbe-$max_y*$coeffV-5, 120, 15)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)  ;0xeeeeff)
    GUICtrlSetColor(-1, 0xff0000)
    GuiCtrlCreateLabel("", $left, $Hcourbe-$max_y*$coeffV+9, $Wcourbe, 1)
    GUICtrlSetBkColor(-1, 0xffaaaa)
  EndIf
Next
;== affichage de l'échelle x
Local $na = Number(StringLen(Int($bord_D))-1)
Local $b = 10^$na
For $i = 0 to $bord_D step $b    
  GuiCtrlCreateLabel("I", $left+$i*$coeffH, $Hcourbe+10-1, 2, 10, 1)
  GuiCtrlCreateLabel($i, $left+$i*$coeffH-4, $Hcourbe+10+8, 10, 12, 1)
  GuiCtrlSetFont(-1, 8, 400, 0, "Arial Unicode MS")
  GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Next
;== graphique
$g = GUICtrlCreateGraphic($left, 10, $Wcourbe, $Hcourbe)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) ;0xeeeeff)
GUICtrlSetColor(-1, 0)
GUICtrlSetGraphic($g, $GUI_GR_MOVE, $a[0][0], $a[0][1])
GUICtrlSetGraphic($g, $GUI_GR_PENSIZE, 2)
For $i = 0 to UBound($a)-1
   GUICtrlSetGraphic($g, $GUI_GR_COLOR, 0xff)
   GUICtrlSetGraphic($g, $GUI_GR_LINE, $a[$i][0], $a[$i][1])
Next
GUISetState()
EndFunc


Func _Exit()
  Exit
EndFunc


Func _Display()
If $fichierOK = false Then Return
Local $j = "", $tolerance = 2  
Local $b = GUIGetCursorInfo($child)
;If @error Then Return
If $b[4] = $g Then
  Local $pos = MouseGetPos()
  For $i = 0 to UBound($a)-1
     If $pos[0]-$left>$a[$i][0]-$tolerance AND $pos[0]-$left<$a[$i][0]+$tolerance AND _ 
        $pos[1]-10>$a[$i][1]-$tolerance AND $pos[1]-10<$a[$i][1]+$tolerance Then 
         Do
              $pos2 = MouseGetPos()
              If $array[$i][0]<>$j Then
                  ToolTip($array[$i][0] &" x "& $array[$i][1])
                  GUICtrlSetData($LVitem, $i &"|"& $array[$i][0] &"|"& $array[$i][1])
                  $j = $array[$i][0]
             EndIf
         Until $pos[0]<$pos2[0]-$tolerance OR $pos[0]>$pos2[0]+$tolerance OR  _
            $pos[1]<$pos2[1]-$tolerance OR $pos[1]>$pos2[1]+$tolerance 
         ToolTip("")
    EndIf
  Next
EndIf
EndFunc


Func _ArrayMaxOrMin($avArray, $op = "max", $iCol = 1)
Local $iIndex = 0, $iRows = UBound($avArray), $iDims = UBound($avArray, 0)
If $op = "max" Then $op = "<"
If $op = "min" Then $op = ">"
Switch $iDims
   Case 1   ; 1D
    For $i = 0 To $iRows-1
        If Execute(Number($avArray[$iIndex]) &$op& Number($avArray[$i])) Then $iIndex = $i
    Next
    Return $avArray[$iIndex]
   Case 2  ; 2D
    For $i = 0 To $iRows-1
        If Execute(Number($avArray[$iIndex][$iCol-1]) &$op& _ 
                Number($avArray[$i][$iCol-1])) Then $iIndex = $i
    Next
    ;Local $Ret[2]
    ;$Ret[0] = $avArray[$iIndex][0]
    ;$Ret[1] = $avArray[$iIndex][$iCol-1]
    ;Return $Ret
    Return $avArray[$iIndex][$iCol-1]
EndSwitch
EndFunc