Add Alfen charger (#1969)

README.md

@@ -14,7 +14,7 @@ EVCC is an extensible EV Charge Controller with PV integration implemented in [G
 - simple and clean user interface
 - multiple [chargers](#charger):
   - Open source: [openWB](https://openwb.de/), [EVSEWifi](https://www.evse-wifi.de) (includes smartWB)
-  - Closed source: ABL eMH1, cFos PowerBrain, go-eCharger, Heidelberg Energy Control, KEBA/BMW, NRGkick, Wallbe, Mobile Charger Connect, EEBUS (experimental)
+  - Closed source: ABL eMH1, Alfen Eve, cFos PowerBrain, go-eCharger, Heidelberg Energy Control, KEBA/BMW, NRGkick, Wallbe, Mobile Charger Connect, EEBUS (experimental)
   - Build-your-own: Phoenix (includes ESL Walli), [SimpleEVSE](https://www.evse-wifi.de/produkt-schlagwort/simple-evse-wb/)
   - Smart-Home outlets: FritzDECT, Shelly, Tasmota, TP-Link
 - multiple [meters](#meter): ModBus (Eastron SDM, MPM3PM, SBC ALE3 and many more), Discovergy (using HTTP plugin), SMA Sunny Home Manager and Energy Meter, KOSTAL Smart Energy Meter (KSEM, EMxx), any Sunspec-compatible inverter or home battery devices (Fronius, SMA, SolarEdge, KOSTAL, STECA, E3DC, ...), Tesla PowerWall, LG ESS HOME
@@ -29,7 +29,7 @@ EVCC is an extensible EV Charge Controller with PV integration implemented in [G
 
 ## Index <!-- omit in toc -->
 
-- [Deutsche Dokumentation](#dokumentation)
+- [Dokumentation](#dokumentation)
 - [Getting started](#getting-started)
 - [Installation](#installation)
 - [Configuration](#configuration)
@@ -192,6 +192,7 @@ Charger is responsible for handling EV state and adjusting charge current.
 Available charger implementations are:
 
 - `abl`: ABL eMH1 (requires Modbus adapter; [sponsors only](#sponsorship))
+- `alfen`: Alfen Eve (Single and Double, NG platform, [sponsors only](#sponsorship))
 - `cfos`: cFos PowerBrain charger (meters must configured separately, [sponsors only](#sponsorship))
 - `easee`: Easee Home charger ([sponsors only](#sponsorship))
 - `eebus`: EEBUS compatible chargers (experimental)
@@ -361,7 +362,7 @@ messaging:
     [...]
 ```
 
-#### Notification Events
+#### Notification Events <!-- omit in toc -->
 
 The available events are:
 
@@ -378,7 +379,7 @@ Configuration is done according to the scheme of following example for the `star
       msg: Started charging in "${mode}" mode
 ```
 
-#### Notification Services
+#### Notification Services <!-- omit in toc -->
 
 Following types of notification services can be configured:
 

charger/alfen.go

@@ -0,0 +1,199 @@
+package charger
+
+// LICENSE
+
+// Copyright (c) 2019-2021 andig
+
+// This module is NOT covered by the MIT license. All rights reserved.
+
+// 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.
+
+import (
+	"encoding/binary"
+	"fmt"
+	"math"
+
+	"github.com/evcc-io/evcc/api"
+	"github.com/evcc-io/evcc/util"
+	"github.com/evcc-io/evcc/util/modbus"
+	"github.com/evcc-io/evcc/util/sponsor"
+	"github.com/volkszaehler/mbmd/meters/rs485"
+)
+
+// Alfen charger implementation
+type Alfen struct {
+	conn *modbus.Connection
+	curr float64
+}
+
+const (
+	alfenRegPower      = 344
+	alfenRegEnergy     = 374  // 390
+	alfenRegStatus     = 1201 // 5 registers
+	alfenRegAmpsConfig = 1210
+	alfenRegPhases     = 1215
+)
+
+var alfenRegCurrents = []uint16{320, 322, 324}
+
+func init() {
+	registry.Add("alfen", NewAlfenFromConfig)
+}
+
+// NewAlfenFromConfig creates a Alfen charger from generic config
+func NewAlfenFromConfig(other map[string]interface{}) (api.Charger, error) {
+	cc := modbus.Settings{
+		ID: 1,
+	}
+
+	if err := util.DecodeOther(other, &cc); err != nil {
+		return nil, err
+	}
+
+	return NewAlfen(cc.URI, cc.Device, cc.Comset, cc.Baudrate, cc.ID)
+}
+
+// NewAlfen creates Alfen charger
+func NewAlfen(uri, device, comset string, baudrate int, slaveID uint8) (api.Charger, error) {
+	conn, err := modbus.NewConnection(uri, device, comset, baudrate, modbus.TcpFormat, slaveID)
+	if err != nil {
+		return nil, err
+	}
+
+	if !sponsor.IsAuthorized() {
+		return nil, api.ErrSponsorRequired
+	}
+
+	log := util.NewLogger("alfen")
+	conn.Logger(log.TRACE)
+
+	wb := &Alfen{
+		conn: conn,
+		curr: 6,
+	}
+
+	return wb, err
+}
+
+// Status implements the api.Charger interface
+func (wb *Alfen) Status() (api.ChargeStatus, error) {
+	b, err := wb.conn.ReadHoldingRegisters(alfenRegStatus, 5)
+	if err != nil {
+		return api.StatusNone, err
+	}
+
+	switch r := rune(b[0]); r {
+	case 'A', 'B', 'C', 'D', 'E', 'F':
+		return api.ChargeStatus(r), nil
+	default:
+		return api.StatusNone, fmt.Errorf("invalid status: %0x", b[:1])
+	}
+}
+
+// Enabled implements the api.Charger interface
+func (wb *Alfen) Enabled() (bool, error) {
+	b, err := wb.conn.ReadHoldingRegisters(alfenRegAmpsConfig, 2)
+	if err != nil {
+		return false, err
+	}
+
+	return math.Float32frombits(binary.BigEndian.Uint32(b)) > 0, nil
+}
+
+// Enable implements the api.Charger interface
+func (wb *Alfen) Enable(enable bool) error {
+	var curr float64
+	if enable {
+		curr = wb.curr
+	}
+
+	return wb.MaxCurrentMillis(curr)
+}
+
+// MaxCurrent implements the api.Charger interface
+func (wb *Alfen) MaxCurrent(current int64) error {
+	return wb.MaxCurrentMillis(float64(current))
+}
+
+var _ api.ChargerEx = (*Alfen)(nil)
+
+// MaxCurrent implements the api.ChargerEx interface
+func (wb *Alfen) MaxCurrentMillis(current float64) error {
+	b := make([]byte, 4)
+	binary.BigEndian.PutUint32(b, math.Float32bits(float32(current)))
+
+	_, err := wb.conn.WriteMultipleRegisters(alfenRegAmpsConfig, 2, b)
+	if err == nil {
+		wb.curr = current
+	}
+
+	return err
+}
+
+var _ api.Meter = (*Alfen)(nil)
+
+// CurrentPower implements the api.Meter interface
+func (wb *Alfen) CurrentPower() (float64, error) {
+	b, err := wb.conn.ReadHoldingRegisters(alfenRegPower, 2)
+	if err != nil {
+		return 0, err
+	}
+
+	return rs485.RTUIeee754ToFloat64(b), err
+}
+
+var _ api.MeterEnergy = (*Alfen)(nil)
+
+// TotalEnergy implements the api.MeterEnergy interface
+func (wb *Alfen) TotalEnergy() (float64, error) {
+	b, err := wb.conn.ReadHoldingRegisters(alfenRegEnergy, 4)
+	if err != nil {
+		return 0, err
+	}
+
+	return math.Float64frombits(binary.BigEndian.Uint64(b)) / 1e3, err
+}
+
+var _ api.MeterCurrent = (*Alfen)(nil)
+
+// Currents implements the api.MeterCurrent interface
+func (wb *Alfen) Currents() (float64, float64, float64, error) {
+	var currents []float64
+	for _, reg := range alfenRegCurrents {
+		b, err := wb.conn.ReadHoldingRegisters(reg, 2)
+		if err != nil {
+			return 0, 0, 0, err
+		}
+
+		currents = append(currents, rs485.RTUIeee754ToFloat64(b))
+	}
+
+	return currents[0], currents[1], currents[2], nil
+}
+
+var _ api.ChargePhases = (*Alfen)(nil)
+
+// Phases1p3p implements the api.ChargePhases interface
+func (c *Alfen) Phases1p3p(phases int) error {
+	_, err := c.conn.WriteSingleRegister(alfenRegPhases, uint16(phases<<8))
+	return err
+}
+
+// var _ api.Diagnosis = (*Alfen)(nil)
+
+// // Diagnose implements the api.Diagnosis interface
+// func (wb *Alfen) Diagnose() {
+// 	b, err := wb.conn.ReadHoldingRegisters(ablRegFirmware, 2)
+// 	if err == nil {
+// 		fmt.Printf("Firmware: %0 x\n", b)
+// 	}
+// }