Ticket #3103: ErrorSub.AU3
| File ErrorSub.AU3, 417 bytes (added by drummer@…, 10 years ago) |
|---|
| Line | |
|---|---|
| 1 | #include <Timers.au3> |
| 2 | #include <Array.au3> |
| 3 | |
| 4 | MsgBox (0x40000, "Starting 10 Second Test", "", 2) |
| 5 | |
| 6 | Dim $tickarray [0] [2] |
| 7 | |
| 8 | For $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) |
| 15 | Next |
| 16 | |
| 17 | _ArrayDisplay ($tickarray) |
| 18 | |
| 19 | |
| 20 | |
| 21 |
