Ticket #3103: ErrorSub.AU3

File ErrorSub.AU3, 417 bytes (added by drummer@…, on Aug 4, 2015 at 11:48:43 PM)
Line 
1#include <Timers.au3>
2#include <Array.au3>
3
4MsgBox (0x40000, "Starting 10 Second Test", "", 2)
5
6Dim $tickarray [0] [2]
7
8For $ticksub = 0 To 9
9 ReDim $tickarray [$ticksub + 1] [2]
10 $inputticks = _Timer_GetIdleTime ()
11 $inputseconds = Int ($inputticks / 1000)
12 $tickarray [$ticksub] [0] = $inputticks
13 $tickarray [$ticksub] [1] = $inputseconds
14 Sleep (1000)
15Next
16
17_ArrayDisplay ($tickarray)
18
19
20
21