added the full veml5030 code and config

master
Stefan Haslinger 2022-03-18 08:12:51 +01:00
parent 1ab19a8bd1
commit 60e8bc0ab0
8 changed files with 176 additions and 44 deletions

View File

@ -1,4 +1,3 @@
# Used by "mix format"
[
inputs: ["{mix,.formatter}.exs", "{config,lib,test}/**/*.{ex,exs}"]
]

5
veml6030/.gitignore vendored
View File

@ -22,5 +22,6 @@ erl_crash.dump
# Ignore package tarball (built via "mix hex.build").
veml6030-*.tar
# Temporary files, for example, from tests.
/tmp/
# Temporary files for e.g. tests
/tmp

View File

@ -1,28 +0,0 @@
defmodule VEML6030.Config do
defstruct [
gain: :gain_1_4th,
int_time: :it_100_ms,
shutdown: false,
interrupt: false
]
def new, do: struct[__MODULE__]
def new(opts), do: struct[__MODULE__, opts]
def to_integer(config) do
reserved = 0
persistence_protect = 0
<<integer::16>> = <<
reserve::3,
gain(config.gain)::2,
reserved::1,
int_time(config.int_time)::4,
persistence_protect::2,
reserved::2
interrupt(config.interrupt)::1,
shutdown(config.shutdown)::disk_log_1>>
integer
end
end

View File

@ -1,18 +1,68 @@
defmodule Veml6030 do
@moduledoc """
Documentation for `Veml6030`.
"""
defmodule VEML6030 do
use GenServer
@doc """
Hello world.
require Logger
## Examples
alias VEML6030.{Comm, Config}
iex> Veml6030.hello()
:world
def start_link(options \\ %{}) do
GenServer.start_link(__MODULE__, options, name: __MODULE__)
end
"""
def hello do
:world
def get_measurement do
GenServer.call(__MODULE__, :get_measurement)
end
@impl true
def init(%{address: address, i2c_bus_name: bus_name} = args) do
i2c = Comm.open(bus_name)
config =
args
|> Map.take([:gain, :int_time, :shutdown, :interrupt])
|> Config.new()
Comm.write_config(config, i2c, address)
:timer.send_interval(1_000, :measure)
state = %{
i2c: i2c,
address: address,
config: config,
last_reading: :no_reading
}
{:ok, state}
end
def init(args) do
{bus_name, address} = Comm.discover()
transport = "bus: #{bus_name}, address: #{address}"
Logger.info("Starting VEML6030. Please specify an address and a bus.")
Logger.info("Starting on " <> transport)
defaults =
args
|> Map.put(:address, address)
|> Map.put(:i2c_bus_name, bus_name)
init(defaults)
end
@impl true
def handle_info(
:measure,
%{i2c: i2c, address: address, config: config} = state
) do
last_reading = Comm.read(i2c, address, config)
updated_with_reading = %{state | last_reading: last_reading}
{:noreply, updated_with_reading}
end
@impl true
def handle_call(:get_measurement, _from, state) do
{:reply, state.last_reading, state}
end
end

View File

@ -0,0 +1,28 @@
defmodule VEML6030.Comm do
alias Circuits.I2C
alias VEML6030.Config
@light_register <<4>>
def discover(possible_addresses \\ [0x10, 0x48]) do
I2C.discover_one!(possible_addresses)
end
def open(bus_name) do
{:ok, i2c} = I2C.open(bus_name)
i2c
end
def write_config(configuration, i2c, sensor) do
command = Config.to_integer(configuration)
I2C.write(i2c, sensor, <<0, command::little-16>>)
end
def read(i2c, sensor, configuration) do
<<value::little-16>> = I2C.write_read!(i2c, sensor, @light_register, 2)
Config.to_lumens(configuration, value)
end
end

View File

@ -0,0 +1,78 @@
defmodule VEML6030.Config do
defstruct gain: :gain_1_4th,
int_time: :it_100_ms,
shutdown: false,
interrupt: false
def new, do: struct(__MODULE__)
def new(opts), do: struct(__MODULE__, opts)
def to_integer(config) do
reserved = 0
persistence_protect = 0
<<integer::16>> = <<
reserved::3,
gain(config.gain)::2,
reserved::1,
int_time(config.int_time)::4,
persistence_protect::2,
reserved::2,
interrupt(config.interrupt)::1,
shutdown(config.shutdown)::1
>>
integer
end
defp gain(:gain_1x), do: 0b0
defp gain(:gain_2x), do: 0b01
defp gain(:gain_1_8th), do: 0b10
defp gain(:gain_1_4th), do: 0b11
defp gain(:gain_default), do: 0b11
defp int_time(:it_25_ms), do: 0b1100
defp int_time(:it_50_ms), do: 0b1000
defp int_time(:it_100_ms), do: 0b0000
defp int_time(:it_200_ms), do: 0b0001
defp int_time(:it_400_ms), do: 0b0010
defp int_time(:it_800_ms), do: 0b0011
defp int_time(:it_default), do: 0b0000
defp shutdown(true), do: 1
defp shutdown(_), do: 0
defp interrupt(true), do: 1
defp interrupt(_), do: 0
@to_lumens_factor %{
{:it_800_ms, :gain_2x} => 0.0036,
{:it_800_ms, :gain_1x} => 0.0072,
{:it_800_ms, :gain_1_4th} => 0.0288,
{:it_800_ms, :gain_1_8th} => 0.0576,
{:it_400_ms, :gain_2x} => 0.0072,
{:it_400_ms, :gain_1x} => 0.0144,
{:it_400_ms, :gain_1_4th} => 0.0576,
{:it_400_ms, :gain_1_8th} => 0.1152,
{:it_200_ms, :gain_2x} => 0.0144,
{:it_200_ms, :gain_1x} => 0.0288,
{:it_200_ms, :gain_1_4th} => 0.1152,
{:it_200_ms, :gain_1_8th} => 0.2304,
{:it_100_ms, :gain_2x} => 0.0288,
{:it_100_ms, :gain_1x} => 0.0576,
{:it_100_ms, :gain_1_4th} => 0.2304,
{:it_100_ms, :gain_1_8th} => 0.4608,
{:it_50_ms, :gain_2x} => 0.0576,
{:it_50_ms, :gain_1x} => 0.1152,
{:it_50_ms, :gain_1_4th} => 0.4608,
{:it_50_ms, :gain_1_8th} => 0.9216,
{:it_25_ms, :gain_2x} => 0.1152,
{:it_25_ms, :gain_1x} => 0.2304,
{:it_25_ms, :gain_1_4th} => 0.9216,
{:it_25_ms, :gain_1_8th} => 1.8432
}
def to_lumens(config, measurement) do
@to_lumens_factor[{config.int_time, config.gain}] * measurement
end
end

View File

@ -21,7 +21,7 @@ defmodule Veml6030.MixProject do
# Run "mix help deps" to learn about dependencies.
defp deps do
[
{:circuits_i2c, "~> 1.0"}
{:circuits_i2c, "~> 1.0.1"}
]
end
end

4
veml6030/mix.lock Normal file
View File

@ -0,0 +1,4 @@
%{
"circuits_i2c": {:hex, :circuits_i2c, "1.0.1", "3a820dfa04bc5a92d0ec3c572cacb1a665802b2913fbc25784ed5a2020f12626", [:make, :mix], [{:elixir_make, "~> 0.6", [hex: :elixir_make, repo: "hexpm", optional: false]}], "hexpm", "e11393b3f462154ebec5d100859bd5d616e958d9f701e4d62af5764ee84f5213"},
"elixir_make": {:hex, :elixir_make, "0.6.3", "bc07d53221216838d79e03a8019d0839786703129599e9619f4ab74c8c096eac", [:mix], [], "hexpm", "f5cbd651c5678bcaabdbb7857658ee106b12509cd976c2c2fca99688e1daf716"},
}