#include "fractions.au3"
#include <array.au3>

$matricies = _loaddata(_datagen())

_inv_big($matricies[0])

Func _inv_big($m)
        Local $n = UBound($m, 1)
        Local $a[$n][2 * $n]
        Local $inv[$n][$n]
        Local $temprow[2 * $n]
        Local $pivelt, $tarelt, $pivrow, $tarrow, $k, $i, $j
        #Region - Filling matrix A
            For $i = 0 To $n - 1
                For $j = 0 To $n - 1
                    $a[$i][$j] = $m[$i][$j]
                Next
            Next
            For $i = 0 To $n - 1
                $a[$i][$n + $i] = 1
            Next
        #EndRegion - Filling matrix A
        #Region - Inverting matrix $M
            For $pivrow = 0 To $n - 1
                $pivelt = $a[$pivrow][$pivrow]
                If ($pivelt == 0) Then
                    $k = $pivrow + 1
                    While ($pivelt == 0 AND $k <= $n)
                        $pivelt = $a[$k][$pivrow]
                        $k = $k + 1
                    WEnd
                    If ($pivelt == 0) Then
                        SetError(1)
                        Return
                    Else
                        For $i = 0 To 2 * $n - 1
                            $temprow[$pivrow][$i] = $a[$pivrow][$i]
                            $k = $k - 1
                        Next
                        For $i = 0 To 2 * $n - 1
                            $a[$pivrow][$i] = $a[$k][$i]
                        Next
                        For $i = 0 To 2 * $n - 1
                            $a[$k][$i] = $temprow[$k][$i]
                        Next
                    EndIf
                EndIf
                For $i = 0 To 2 * $n - 1
                    $a[$pivrow][$i] = _fraction(Number($a[$pivrow][$i]), Number($pivelt))
                    ;array is accessable here
                Next
                #Region - replace all other rows by target
                    For $tarrow = 0 To $n - 1
                        If ($tarrow <> $pivrow) Then
                            $tarelt = $a[$tarrow][$pivrow]
                            For $i = 0 To 2 * $n - 1
                                $a[$tarrow][$i] = _FractionSubtract(_fraction(number($a[$tarrow][$i])), _FractionMultiply($a[$pivrow][$i], _fraction(number($tarelt))))
                                _ArrayDisplay($a[$tarrow][$i])
                                ;array is accessable here via _arraydisplay() but when I try to consolewrite the values it says the dimension range is exceeded
                                ConsoleWrite($a[$tarrow][$i][0]&'/'&$a[$tarrow][$i][1]&@CRLF)
                                
                            Next
                         EndIf
                      Next
                      ;array is accessable here with _arraydisplay but still not via any other method
                #EndRegion - Now replace all other rows by target row minus pivot row times element in target row and pivot colum
             Next
                _ArrayDisplay($a)
             ;array is nullified, all values for the array get set to 1
            #Region - finally extract the inverse from columns N+1 to 2N
                For $i = 0 To $n - 1
                    For $j = 0 To $n - 1
                        $inv[$i][$j] = $a[$i][$n + $j]
                    Next
                Next
            #EndRegion - finally extract the inverse from columns N+1 to 2N
            Return $inv
        #EndRegion - Inverting matrix $M
     EndFunc

     Func _datagen()
        Local $ret
        For $i = 1 To 112
            Local $data = ""
            For $x = 0 To 7
                For $y = 0 To 7
                    $data &= Random(111111111, 99999999999, 1) & ","
                Next
                $data = StringTrimRight($data, 1) & "/"
            Next
            $ret &= StringTrimRight($data, 1) & "|"
        Next
        Return $ret
     EndFunc

    Func _loaddata($data, $z = 112)
        Local $dataz[$z]
        $array = StringSplit($data, "|")
        If $array[0] < $z - 1 Then Return 0
        For $i = 0 To $z - 1
            $dataz[$i] = _stringtoarray($data, $i)
            If $dataz[$i] = 0 Then
                Return 0
            EndIf
        Next
        Return $dataz
    EndFunc

    Func _stringtoarray($data, $n = 0)
        $array = StringSplit($data, "|", 2)
        $next = StringSplit($array[$n], "/")
        $num2 = StringSplit($next[1], ",")
        Local $ar1[$next[0]][$num2[0]]
        For $i2 = 1 To $next[0]
            $next2 = StringSplit($next[$i2], ",", 2)
            For $i3 = 0 To UBound($next2) - 1
                If $i2 - 1 > $next[0] - 1 OR $i3 > $num2[0] - 1 OR $i3 > UBound($next2) Then
                    Return 0
                EndIf
                $ar1[$i2 - 1][$i3] = $next2[$i3]
            Next
        Next
        Return $ar1
    EndFunc

Global $Runner

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "Click")

Func Terminate()
Exit 0
EndFunc

Func Click()


PixelSearch(1233, 826, 1386, 852, 0xFFCC00)

If @error then
    MouseClick("left", 716, 698, 10)
Sleep (500)
Send("{a down}")
    Sleep (800)
    Send("{a up}")
    Sleep (500)
    MouseClick("left", 716, 698, 10)
    Sleep (500)
    Send("{d down}")
    Sleep (800)
    Send("{d up}")
    Sleep (500)
    MouseClick("left", 716, 698, 10)
    Sleep (500)
    EndIf
If Not @error Then
    Sleep (500)
    MouseClick("left", 863, 697, 3)
    Sleep (500)
    MouseClick("left", 701, 750, 3)
    Sleep (500)
    MouseClick("left", 863, 697, 3)
    Sleep (500)
    MouseClick("left", 701, 750, 3)
    Sleep (500)
    MouseClick("left", 1095, 873, 3)
    Send("{@ 1}")
    Sleep (100)
    Send("{c 1}")
    Sleep (100)
    Send("{o 1}")
    Sleep (100)
    Send("{n 1}")
    Sleep (100)
    Send("{f 1}")
    Sleep (100)
    Send("{l 1}")
    Sleep (100)
    Send("{i 1}")
    Sleep (100)
    Send("{c 1}")
    Sleep (100)
    Send("{t 1}")
    Sleep (100)
    Send("{s 1}")
    Sleep (100)
    Send("{o 1}")
    Sleep (100)
    Send("{u 1}")
    Sleep (100)
    Send("{l 1}")
    Sleep (100)
    Send("{Space 1}")
    Sleep (100)
    Send("{d 1}")
    Sleep (100)
    Send("{Enter 1}")
    Sleep (500)
    Send("{@ 1}")
    Sleep (100)
    Send("{c 1}")
    Sleep (100)
    Send("{o 1}")
    Sleep (100)
    Send("{n 1}")
    Sleep (100)
    Send("{f 1}")
    Sleep (100)
    Send("{l 1}")
    Sleep (100)
    Send("{i 1}")
    Sleep (100)
    Send("{c 1}")
    Sleep (100)
    Send("{t 1}")
    Sleep (100)
    Send("{s 1}")
    Sleep (100)
    Send("{o 1}")
    Sleep (100)
    Send("{u 1}")
    Sleep (100)
    Send("{l 1}")
    Sleep (100)
    Send("{Space 1}")
    Sleep (100)
    Send("{d 1}")
    Sleep (100)
    Send("{Enter 1}")
    Sleep (500)
Send("{@ 1}")
    Sleep (100)
    Send("{c 1}")
    Sleep (100)
    Send("{o 1}")
    Sleep (100)
    Send("{n 1}")
    Sleep (100)
    Send("{f 1}")
    Sleep (100)
    Send("{l 1}")
    Sleep (100)
    Send("{i 1}")
    Sleep (100)
    Send("{c 1}")
    Sleep (100)
    Send("{t 1}")
    Sleep (100)
    Send("{s 1}")
    Sleep (100)
    Send("{o 1}")
    Sleep (100)
    Send("{u 1}")
    Sleep (100)
    Send("{l 1}")
    Sleep (100)
    Send("{Space 1}")
    Sleep (100)
    Send("{d 1}")
    Sleep (100)
    Send("{Enter 1}")
    Sleep (500)
    EndIf
EndFunc


While 1
    Sleep(100)
    WEnd

#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
Local $iRows, $iColumns, $aRes
Local $hDB = @ScriptDir & "\" & "Test.db"
If FileExists($hDB) Then FileDelete($hDB)
Local $aResult, $iRows, $iColumns, $iRval
;Local $aArray[5][2]
Local $hTimer, $fDiff

_SQLite_Startup()
If @error Then
    MsgBox($MB_SYSTEMMODAL, "SQLite Error", "SQLite.dll Can't be Loaded!")
    Exit -1
EndIf

$hDskDb = _SQLite_Open($hDB) 
If @error Then
    MsgBox($MB_SYSTEMMODAL, "SQLite Error", "Can't Load Database!")
    Exit -1
EndIf

Local $aArray[100][3]
For $i = 0 To UBound($aArray) - 1
    For $j = 0 To UBound($aArray, 2) - 1
        $aArray[$i][$j] = "Item" & $i * $j
    Next
Next

;_ArrayDisplay($aArray)

If Not _SQLite_Exec($hDskDb, "CREATE TABLE T (Column0, Column1,Column2);") = $SQLITE_OK Then _
        MsgBox($MB_SYSTEMMODAL, "SQLite Error", _SQLite_ErrMsg())
$hTimer = TimerInit()
For $i = 0 To UBound($aArray) - 1
    _SQLite_Exec($hDskDb, "INSERT INTO T (Column0,Column1,Column2) VALUES ( " & _SQLite_FastEscape($aArray[$i][0]) & "," & _SQLite_FastEscape($aArray[$i][1]) & "," & _SQLite_FastEscape($aArray[$i][2]) & ");")
Next

$fDiff = TimerDiff($hTimer)
ConsoleWrite(@CRLF & "Insert to database took " & $fDiff / 1000 & " seconds!" & @CRLF)

_SQLite_GetTable2d($hDskDb, "SELECT * FROM T;", $aRes, $iRows, $iColumns)
_SQLite_Display2DResult($aRes) ; Output to Console

_SQLite_Close()
_SQLite_Shutdown()

#include <Array.au3>


; Some Strings to create arrays from
$sNames = "Name1,Name2,Name3,Name4,Name5,Name6,Name7,Name8,Name9,Name10,Name11," _
         & "TName12,Name13,Name14,Name15,Name16,Name17,Name18,Name19,Name20,Name21," _
         & "Name22,Name23,Name24,Name25,Name26,Name27,Name28,Name29,Name30,Name31," _
         & "Name32,Name33,Name34,Name35,Name36,Name37,Name38,Name39,Name40"

$sTypes = "Type1,Type2,Type3,Type4,Type5"

$sSubTypes = "SubType1,SubType2,SubType3,SubType4,SubType5,SubType6,SubType7," _
         & "SubType8,SubType9,SubType10,SubType11,SubType12,SubType13,SubType14,SubType15"

; Create arrays for Item Names, Item Types, and Item Sub Types
Global $aNames = StringSplit($sNames, ",", 2)
Global $aTypes = StringSplit($sTypes, ",", 2)
Global $aSubTypes = StringSplit($sSubTypes, ",", 2)

; Create a 2D array With all Names, and fill it
; they must have a randon type nnd sub type
Global $aMasterArray[UBound($aNames)][3]
For $i = 0 To UBound($aNames) - 1
    $aMasterArray[$i][0] = $aNames[$i]
    $aMasterArray[$i][1] = $aTypes[Random(0, UBound($aTypes) - 1, 1)]
    $aMasterArray[$i][2] = $aSubTypes[Random(0, UBound($aSubTypes) - 1, 1)]
Next

; So this is the master array, similar to what I'm working with
_ArrayDisplay($aMasterArray, "$aMasterArray")

; Now here I'm generating an array of sub arrays, which gets fed into
; my script via some other methods.
;
; I do not know how many sub arrays there will be until run time
; which is why I have to hold them in a dynamic array.
Global $ArrayOfArrays = _GenerateArrayOfArrays()
_ArrayDisplay($ArrayOfArrays, "$ArrayOfArrays")

; This is what I'd likr the resulting array to be like
_Wish()

Func _GenerateArrayOfArrays()
    ; Array needs to hold a random amount of sub arrays
    Local $iNumberOfSubArrays = Random(2, 7, 1)

    ; Create array with random index count
    ; plus 1 to hold the count
    Local $aArrays[$iNumberOfSubArrays + 1] = [$iNumberOfSubArrays]

    ; Add sub arrays to $aArrays
    For $i = 1 To Int($aArrays[0])
        $aArrays[$i] = _GenerateArray()
    Next

    Return $aArrays
EndFunc   ;==>_GenerateArrayOfArrays

Func _GenerateArray()
    ; Sub arrays also need random index count
    ; They have random Name, Type, and Sub Type same as master array
    ; except they also have a value in col 3
    Local $iIndexCount = Random(10, 60, 1)
    Local $array[$iIndexCount][4]
    For $i = 0 To UBound($array) - 1
        $array[$i][0] = $aNames[Random(0, UBound($aNames) - 1, 1)]
        $array[$i][1] = $aTypes[Random(0, UBound($aTypes) - 1, 1)]
        $array[$i][2] = $aSubTypes[Random(0, UBound($aSubTypes) - 1, 1)]
        $array[$i][3] = Round(Random(0, 200), 2)
    Next
    _ArraySort($array)
    _ArrayDisplay($array, "Sub array")
    Return $array
EndFunc   ;==>_GenerateArray

Func _Wish()
    Local $array[10][7]
    $array[0][0] = "Type1"
    $array[0][1] = "283.56"
    $array[0][2] = "413.56"
    $array[0][3] = "52.06"
    $array[0][4] = "320.51"
    $array[0][5] = "763.36"
    $array[0][6] = "685.00"

    $array[1][0] = "SubType1"
    $array[1][1] = "29.56"
    $array[1][2] = "63.56"
    $array[1][3] = "2.06"
    $array[1][4] = "90.51"
    $array[1][5] = "64.36"
    $array[1][6] = "15.00"

    $array[2][0] = "SubType2"
    $array[2][1] = "29.56"
    $array[2][2] = "63.56"
    $array[2][3] = "2.06"
    $array[2][4] = "90.51"
    $array[2][5] = "64.36"
    $array[2][6] = "15.00"

    $array[3][0] = "SubType4"
    $array[3][1] = "29.56"
    $array[3][2] = "63.56"
    $array[3][3] = "2.06"
    $array[3][4] = "90.51"
    $array[3][5] = "64.36"
    $array[3][6] = "15.00"

    $array[4][0] = "Type2"
    $array[4][1] = "283.56"
    $array[4][2] = "413.56"
    $array[4][3] = "52.06"
    $array[4][4] = "320.51"
    $array[4][5] = "763.36"
    $array[4][6] = "685.00"

    $array[5][0] = "SubType3"
    $array[5][1] = "83.56"
    $array[5][2] = "13.56"
    $array[5][3] = "2.06"
    $array[5][4] = "20.51"
    $array[5][5] = "63.36"
    $array[5][6] = "85.00"

    $array[6][0] = "SubType6"
    $array[6][1] = "83.56"
    $array[6][2] = "13.56"
    $array[6][3] = "2.06"
    $array[6][4] = "20.51"
    $array[6][5] = "63.36"
    $array[6][6] = "85.00"

    $array[7][0] = "Type3"
    $array[7][1] = "283.56"
    $array[7][2] = "413.56"
    $array[7][3] = "52.06"
    $array[7][4] = "320.51"
    $array[7][5] = "763.36"
    $array[7][6] = "685.00"

    $array[8][0] = "SubType5"
    $array[8][1] = "83.56"
    $array[8][2] = "13.56"
    $array[8][3] = "2.06"
    $array[8][4] = "20.51"
    $array[8][5] = "63.36"
    $array[8][6] = "85.00"

    $array[9][0] = "SubType8"
    $array[9][1] = "83.56"
    $array[9][2] = "13.56"
    $array[9][3] = "2.06"
    $array[9][4] = "20.51"
    $array[9][5] = "63.36"
    $array[9][6] = "85.00"
    _ArrayDisplay($array, "Type then all it's subtypes below, the large number = sum of sub types")
EndFunc   ;==>_Wish

#include <ImageSearch.au3>
$x = 0
$y = 0

#Region simple search
#cs
$res = _imagesearch('dona.png',1,$x,$y,100)
If $res = 1 Then
    MouseMove($x,$y,100)
    MouseClick("left")

Else
    MsgBox(0,'Info','richieste presenti')
EndIf
#ce
#EndRegion



#Region Search for more images with call waiting
Dim $myPics[10]
$myPics[0] = 2
$myPics[1] = 'dona.png'
$myPics[2] = 'altre.png'

$res = _WaitForImagesSearch($myPics,5,1,$x,$y,100)
Switch $res
    Case 0
        MsgBox(0,'','nessuno trovato')
     Case 1
        For $i = 1 To 5
MsgBox(0,"Il Mio Primo Ciclo",$i)
Next
        MouseMove($x,$y,100)
MouseClick("left")
MouseClick("left")
        ;MsgBox(0,'','donazione trovata')
    Case 2
        MouseMove($x,$y,100)
        mouseclick("left")
        MsgBox(0,'','richieste trovate')
EndSwitch

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
 
Global $_CompteArebour = 100000, $_Minutes, $_Seconds
$TimeTicks = TimerInit()
$teamOneScore = 0
$teamTwoScore = 0
 
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ImproTimer", 946, 535, -1, -1)
$MenuItem1 = GUICtrlCreateMenu("?")
$AboutMenuItem = GUICtrlCreateMenu("About" & @TAB & "Ctrl+A")
$GroupTeam1 = GUICtrlCreateGroup("", 80, 32, 257, 225)
$GraphicTeam1 = GUICtrlCreateGraphic(88, 48, 240, 200)
$Team1Score = GUICtrlCreateLabel($teamOneScore, 160, 56, 98, 146, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont($teamOneScore, 120, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ComboTeam1 = GUICtrlCreateCombo("Couleur", 8, 40, 65, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Blanc|Bleu|Rouge|Orange|Jaune|Vert")
$GroupTeam2 = GUICtrlCreateGroup("", 608, 32, 257, 225)
$GraphicTeam2 = GUICtrlCreateGraphic(616, 48, 240, 200)
$Team2Score = GUICtrlCreateLabel($teamTwoScore, 664, 56, 152, 146, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont($teamTwoScore, 120, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ComboTeam2 = GUICtrlCreateCombo("Couleur", 872, 40, 65, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Blanc|Bleu|Rouge|Orange|Jaune|Vert")
$TimerLabel = GUICtrlCreateLabel("", 352, 40, 247, 125, BitOR($SS_CENTER, $SS_CENTERIMAGE))
;~ $Graphic1 = GUICtrlCreateGraphic( 352, 72, 247, 115)
;~ GUICtrlSetBkColor($Graphic1, 0x0033CC)
GUICtrlSetData($TimerLabel, StringFormat("%02u" & ":" & "%02u", $_Minutes, $_Seconds))
GUICtrlSetFont($TimerLabel, 72, 400, 0, "MS Sans Serif")
$BtnStart = GUICtrlCreateButton("Start", 352, 168, 121, 33)
$BtnPause = GUICtrlCreateButton("Pause", 352, 168, 121, 33)
GUICtrlSetState(-1, $GUI_HIDE)
$BtnReset = GUICtrlCreateButton("Reset", 480, 168, 121, 33)
$BtnAdd60 = GUICtrlCreateButton("+1 Min", 352, 208, 57, 33)
$BtnAdd30 = GUICtrlCreateButton("+30 Sec", 416, 208, 57, 33)
$BtnAdd10 = GUICtrlCreateButton("+10 Sec", 480, 208, 57, 33)
$BtnAdd5 = GUICtrlCreateButton("+5 Sec", 544, 208, 57, 33)
$PPT1 = GUICtrlCreateButton("+ 1", 8, 104, 65, 33)
$MPT1 = GUICtrlCreateButton("- 1", 8, 160, 65, 33)
$PPT2 = GUICtrlCreateButton("+ 1", 872, 104, 65, 33)
$MPT2 = GUICtrlCreateButton("- 1", 872, 160, 65, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $BtnStart
            GUICtrlSetState($BtnStart, $GUI_HIDE)
            GUICtrlSetState($BtnPause, $GUI_SHOW)
            _Run()
        Case $ComboTeam1
            $sComboRead = ""
            $sComboRead = GUICtrlRead($ComboTeam1)
            If $sComboRead = "Blanc" Then
                GUICtrlSetBkColor($GraphicTeam1, 0xFFFFFF)
            ElseIf $sComboRead = "Bleu" Then
                GUICtrlSetBkColor($GraphicTeam1, 0x0033CC)
            ElseIf $sComboRead = "Rouge" Then
                GUICtrlSetBkColor($GraphicTeam1, 0xFF3030)
            ElseIf $sComboRead = "Orange" Then
                GUICtrlSetBkColor($GraphicTeam1, 0xFF6600)
            ElseIf $sComboRead = "Jaune" Then
                GUICtrlSetBkColor($GraphicTeam1, 0xFFFF33)
            ElseIf $sComboRead = "Vert" Then
                GUICtrlSetBkColor($GraphicTeam1, 0x009933)
            EndIf
        Case $ComboTeam2
            $sComboRead = ""
            $sComboRead = GUICtrlRead($ComboTeam2)
            If $sComboRead = "Blanc" Then
                GUICtrlSetBkColor($GraphicTeam2, 0xFFFFFF)
            ElseIf $sComboRead = "Bleu" Then
                GUICtrlSetBkColor($GraphicTeam2, 0x0033CC)
            ElseIf $sComboRead = "Rouge" Then
                GUICtrlSetBkColor($GraphicTeam2, 0xFF3030)
            ElseIf $sComboRead = "Orange" Then
                GUICtrlSetBkColor($GraphicTeam2, 0xFF6600)
            ElseIf $sComboRead = "Jaune" Then
                GUICtrlSetBkColor($GraphicTeam2, 0xFFFF33)
            ElseIf $sComboRead = "Vert" Then
                GUICtrlSetBkColor($GraphicTeam2, 0x009933)
            EndIf
        Case $BtnAdd60
            $_CompteArebour = $_CompteArebour + 100000
        Case $BtnAdd30
            $_CompteArebour = $_CompteArebour + 30000
        Case $BtnAdd10
            $_CompteArebour = $_CompteArebour + 10000
        Case $BtnAdd5
            $_CompteArebour = $_CompteArebour + 5000
        Case $BtnReset
;~          $_CompteArebour = 0
        Case $AboutMenuItem
        Case $PPT1
            $teamOneScore = $teamOneScore + 1
            $Team1Score = GUICtrlCreateLabel($teamOneScore, 160, 56, 98, 146, BitOR($SS_CENTER, $SS_CENTERIMAGE))
        Case $MPT1
            $teamOneScore = $teamOneScore - 1
            $Team1Score = GUICtrlCreateLabel($teamOneScore, 160, 56, 98, 146, BitOR($SS_CENTER, $SS_CENTERIMAGE))
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
 
 
Func _Run()
    While 1
        _Check()
    WEnd
EndFunc   ;==>_Run
 
Func _Check()
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BtnStart
            GUICtrlSetState($BtnStart, $GUI_HIDE)
            GUICtrlSetState($BtnPause, $GUI_SHOW)
            _Run()
        Case $BtnPause
            GUICtrlSetState($BtnPause, $GUI_HIDE)
            GUICtrlSetState($BtnStart, $GUI_SHOW)
        Case $BtnReset
;~          $_CompteArebour = 0
        Case $BtnAdd60
            $_CompteArebour = $_CompteArebour + 60000
        Case $BtnAdd30
            $_CompteArebour = $_CompteArebour + 30000
        Case $BtnAdd10
            $_CompteArebour = $_CompteArebour + 10000
        Case $BtnAdd5
            $_CompteArebour = $_CompteArebour + 5000
    EndSwitch
 
    Local $_MinCalc = Int($_CompteArebour / (60 * 1000)), $_SecCalc = $_CompteArebour - ($_MinCalc * 60 * 1000)
    $_SecCalc = Int($_SecCalc / 1000)
 
    $_CompteArebour -= TimerDiff($TimeTicks)
    $TimeTicks = TimerInit()
    Local $_MinCalc = Int($_CompteArebour / (60 * 1000)), $_SecCalc = $_CompteArebour - ($_MinCalc * 60 * 1000)
    $_SecCalc = Int($_SecCalc / 1000)
    If $_MinCalc <= 0 And $_SecCalc <= 0 Then
        GUISetBkColor(0xFF0000, $Form1)
        GUICtrlSetData($TimerLabel, "Fini!")
        Sleep(1000)
        GUICtrlSetData($TimerLabel, StringFormat("%02u" & ":" & "%02u", $_Minutes, $_Seconds))
        ; If @Compiled Then Shutdown ( 13 )
    Else
        If $_MinCalc <> $_Minutes Or $_SecCalc <> $_Seconds Then
            $_Minutes = $_MinCalc
            $_Seconds = $_SecCalc
            GUICtrlSetData($TimerLabel, StringFormat("%02u" & ":" & "%02u", $_Minutes, $_Seconds))
            If $_Minutes = 0 And $_Seconds <= 10 Then
                Beep(1200, 100)
                GUISetBkColor(0xA093FF, $Form1)
            EndIf
        EndIf
    EndIf
EndFunc   ;==>_Check

#include <GuiListView.au3>
#include <Misc.au3>

;---------------------------------------
; Define Variables
;---------------------------------------
$windowTitle = "VTable 8.04 (COM3 [115200]) - [1: -  603 206 000 ; 12087363]"
$windowControlID = "[CLASS:SysListView32; INSTANCE:6]"
$hWin = WinGetHandle($windowTitle)
$hControl = ControlGetHandle($hWin,"",$windowControlID)


;--------------------------------------
; Start Script
;--------------------------------------

;--------------------------------------
; Index 1
;--------------------------------------
;Target Position value Index 1 in Vtable
$iRowToEdit = 0
$iSubItemToEdit = 2
_GUICtrlListView_SetItem($hControl,"17777777",$iRowToEdit,$iSubItemToEdit)


;Target Speed value Index 1 in Vtable
$iRowToEdit = 1
$iSubItemToEdit = 2
_GUICtrlListView_SetItem($hControl,"1638400",$iRowToEdit,$iSubItemToEdit)
;--------------------------------------
; Index 2
;--------------------------------------
;Target position value Index 2 in Vtable
$iRowToEdit = 0
$iSubItemToEdit = 3
_GUICtrlListView_SetItem($hControl,"100002",$iRowToEdit,$iSubItemToEdit)

;Target Speed value Index 2 in Vtable
$iRowToEdit = 1
$iSubItemToEdit = 3
_GUICtrlListView_SetItem($hControl,"1638400",$iRowToEdit,$iSubItemToEdit)