-
Notifications
You must be signed in to change notification settings - Fork 0
/
VCNL4200-ALSIntDemo.spin2
118 lines (85 loc) · 3.59 KB
/
VCNL4200-ALSIntDemo.spin2
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
{
----------------------------------------------------------------------------------------------------
Filename: VCNL4200-ALSIntDemo.spin
Description: Demo of the VCNL4200 driver
* ALS sensor interrupt functionality
Author: Jesse Burt
Started: Feb 10, 2021
Updated: Jun 6, 2024
Copyright (c) 2024 - See end of file for terms of use.
----------------------------------------------------------------------------------------------------
}
' MikroE Click adapter board base pin
#define CLICK_BASE 16
#include "core.con.click.spin2"
CON
_clkfreq = cfg._clkfreq_def
_xtlfreq = cfg._xtlfreq
' -- User-defined constants
LED = cfg.LED1
'INT_PIN = 2 ' comment out #include above to use
' --
OBJ
cfg: "boardcfg.p2eval"
ser: "com.serial.terminal.ansi" | SER_BAUD=2_000_000
sensor: "sensor.light.vcnl4200" | SCL=SCL_PIN, SDA=SDA_PIN, I2C_FREQ=400_000
{ use this line instead to use custom I/O pins }
'sensor: "sensor.light.vcnl4200" | SCL=0, SDA=1, I2C_FREQ=400_000
VAR
long _isr_stack[50], _interrupt
PUB main()
setup()
sensor.preset_als() ' set to ambient light sensing mode
{ enable interrupts and set low and high thresholds }
sensor.als_int_ena(TRUE)
sensor.int_clear()
sensor.als_int_set_lo_thresh(55_000) ' units: milli-lux (1_000 = 0.001 lx)
sensor.als_int_set_hi_thresh(75_000) '
ser.pos_xy(0, 3)
ser.printf(@"Thresh low: %d high: %d", sensor.als_int_lo_thresh(), ...
sensor.als_int_hi_thresh() )
repeat
ser.pos_xy(0, 5)
ser.printf(@"Lux: %6.6d", sensor.lux())
if ( _interrupt )
ser.str(@" INTERRUPT (press c to clear)")
ser.clear_line()
if ( ser.rx_check() == "c" )
sensor.int_clear()
PUB cog_isr()
' Interrupt service routine
pinf(INT_PIN)
pinl(LED)
repeat
repeat until ( pinr(INT_PIN) == 0 ) ' wait for interrupt (active low)
pinh(LED)
_interrupt := TRUE
repeat until ( pinr(INT_PIN) == 1 ) ' wait for interrupt to clear
pinl(LED)
_interrupt := FALSE
PUB setup()
ser.start()
ser.clear()
ser.strln(@"Serial terminal started")
if ( sensor.start() )
ser.strln(@"VCNL4200 driver started")
else
ser.strln(@"VCNL4200 driver failed to start - halting")
repeat
cogspin(NEWCOG, cog_isr(), @_isr_stack) ' start the ISR in another cog
DAT
{
Copyright 2024 Jesse Burt
Permission is hereby granted, free of charge, to any person obtaining a copy of this software and
associated documentation files (the "Software"), to deal in the Software without restriction,
including without limitation the rights to use, copy, modify, merge, publish, distribute,
sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in all copies or
substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT
NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT
OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
}