blob: ec6c44d995ab9101d04efd4c36393d65a665b4a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
program stopwatch;
{$mode objfpc}
uses
ctypes, nds9;
//the speed of the timer when using ClockDivider_1024
const
TIMER_SPEED = (BUS_CLOCK div 1024);
type
TTimerStates = (timerState_Stop, timerState_Pause, timerState_Running);
var
ticks: cuint = 0;
state: TTimerStates = timerState_Stop;
down: cint;
begin
consoleDemoInit();
down := keysDown();
while (down and KEY_START) = 0 do
begin
swiWaitForVBlank();
consoleClear();
scanKeys();
down := keysDown();
if (state = timerState_Running) then
ticks := ticks + timerElapsed(0);
if (down and KEY_A) <> 0 then
begin
if (state = timerState_Stop) then
begin
timerStart(0, ClockDivider_1024, 0, nil);
state := timerState_Running;
end else
if (state = timerState_Pause) then
begin
timerUnpause(0);
state := timerState_Running;
end else
if (state = timerState_Running) then
begin
ticks := ticks + timerPause(0);
state := timerState_Pause;
end;
end else
if (down and KEY_B) <> 0 then
begin
timerStop(0);
ticks := 0;
state := timerState_Stop;
end;
iprintf('Press A to start and pause the '#10'timer, B to clear the timer '#10'and start to quit the program.'#10#10);
iprintf('ticks: %u'#10, ticks);
iprintf('second: %u:%u'#10, ticks div TIMER_SPEED, ((ticks mod TIMER_SPEED) * 1000) div TIMER_SPEED);
end;
if (state <> timerState_Stop) then
timerStop(0);
end.
|
