AutoIt Français

Code : Tout sélectionner

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

#Include <Excel.au3>
#include <Array.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 172, 139, 192, 124)
$Input1 = GUICtrlCreateInput("", 27, 24, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("ARRAY", 50, 60, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("EXCEL", 50, 100, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{F5}","stop")

Global $time ,$nb ,$nb2 ,$nblignes = 0, $tab1[1]=["Heure"] ,$tab2[1]=["Valeur1"] ,$tab3[1]=["Valeur2"] ,$oExcel ,$range

AdlibRegister("incremente",100)
AdlibRegister("incremente2",200)
AdlibRegister("relever",1000)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            affiche_array()
        Case $Button2
            graph_excel()
        EndSwitch
WEnd

Func incremente()
$nb=$nb+1
GUICtrlSetData($Input1,$nb)
EndFunc

Func incremente2()
$nb2=$nb2+1
EndFunc

Func relever()
$nblignes = $nblignes+1
$time = @HOUR&"H"&@MIN&"M"&@SEC
_ArrayAdd($tab1,$time)
_ArrayAdd($tab2,$nb)
_ArrayAdd($tab3,$nb2)
 EndFunc

Func affiche_array()
    AdlibUnRegister("incremente")
    AdlibUnRegister("incremente2")
    AdlibUnRegister("relever")
EndFunc


Func graph_excel()
    $range= "A2:C"&$nblignes
    $oExcel = _ExcelBookNew()
    _ExcelWriteArray($oExcel, 1, 1, $tab1,1,0)
    _ExcelWriteArray($oExcel, 1, 2, $tab2,1,0)
    _ExcelWriteArray($oExcel, 1, 3, $tab3,1,0)
    $oExcel.ActiveWorkBook.Charts.Add
    $oExcel.ActiveWorkBook.Charts(1).Name = "GRAPH_TEST_ALEX"
    $oExcel.ActiveWorkBook.Charts(1).ChartType =65 ;65 = xlLineMarkers  Line with Markers.
    MsgBox(0,"",$range)
    $oExcel.ActiveWorkBook.Charts(1).SetSourceData($oExcel.Worksheets(1).Range('"' & $range & '"'),2)
    
EndFunc

Func stop()
$oExcel.ActiveWorkBook.Saved = 1
$oExcel.Quit
Exit
EndFunc