💬 Power Meter Pulse Sensor

[artipi]

Ah, this explains many things. Thank you, now its working:)!

[alowhum]

@artipi can you share your code?

[artipi]

@alowhum: Its the original code. Nothing changed. I've only made some tests with my version...

[patrikr76]

Hey guys

So i am trying to use this sketch with the sleep mode set to true 'cause i need to run it on battery.
It works fine running with usb power on it and sleep mode on false.
But with sleep mode true i am getting nothing in myscontroller after the initial startup.
All i changed is the sleep mode from false to true.
Running it on a clone nano with some chinese "flame detector" sensor.
Been trying to figure out if it has something to do with how it reports when in sleep mode but it should still report whatever the send frequency is set to right?
I was using a tv remote to fake impulses, with seems to work on usb power, but not on battery.
Any suggestions?

Best regards
Patrik

[mfalkvidd]

@patrikr76 just to make sure we are on the same page, could you clarify which sketch you are using? This thread has discussed lots of sketches and it would be a pity if we’re looking at different code :)

In any case, the debug log from the node will give the best information on what is happening.

It could also be useful to only change one thing. Right now you change sleep mode and switch to battery, right? How does the node behave with sleep mode on, but still running on usb power? How does the node behave with sleep mode off, but running on battery?

[patrikr76]

@mfalkvidd , you are absolutely right. Let me clarify.
I am using the example code that is under build and power meter pulse sensor, updated may 1st, 2018.
Running it with "sleep mode = false" it works fine with both usb and battery power, just drains the battery quite fast.
Setting it to "sleep mode = true" it doesn't work either on usb or battery power.

Here's how the serial monitor looks for the startup phase with sleep mode as true.

23:21:24.219 ->  __  __       ____
23:21:24.219 -> |  \/  |_   _/ ___|  ___ _ __  ___  ___  _ __ ___
23:21:24.219 -> | |\/| | | | \___ \ / _ \ `_ \/ __|/ _ \| `__/ __|
23:21:24.219 -> | |  | | |_| |___| |  __/ | | \__ \  _  | |  \__ \
23:21:24.219 -> |_|  |_|\__, |____/ \___|_| |_|___/\___/|_|  |___/
23:21:24.219 ->         |___/                      2.3.0
23:21:24.219 -> 
23:21:24.219 -> 16 MCO:BGN:INIT NODE,CP=RNNNA---,VER=2.3.0
23:21:24.254 -> 25 TSM:INIT
23:21:24.254 -> 26 TSF:WUR:MS=0
23:21:24.254 -> 33 TSM:INIT:TSP OK
23:21:24.254 -> 35 TSF:SID:OK,ID=2
23:21:24.254 -> 37 TSM:FPAR
73 TSF:MSG:SEND,2-2-255-255,s=255,c=3,t=7,pt=0,l=0,sg=0,ft=0,st=OK:
201 TSF:MSG:READ,0-0-2,s=255,c=3,t=8,pt=1,l=1,sg=0:0
23:21:24.428 -> 205 TSF:MSG:FPAR OK,ID=0,D=1
2080 TSM:FPAR:OK
23:21:26.306 -> 2081 TSM:ID
23:21:26.306 -> 2082 TSM:ID:OK
23:21:26.306 -> 2084 TSM:UPL
23:21:26.306 -> 2087 TSF:MSG:SEND,2-2-0-0,s=255,c=3,t=24,pt=1,l=1,sg=0,ft=0,st=OK:1
23:21:26.306 -> 2095 TSF:MSG:READ,0-0-2,s=255,c=3,t=25,pt=1,l=1,sg=0:1
23:21:26.306 -> 2100 TSF:MSG:PONG RECV,HP=1
23:21:26.306 -> 2103 TSM:UPL:OK
23:21:26.306 -> 2104 TSM:READY:ID=2,PAR=0,DIS=1
23:21:26.306 -> 2109 TSF:MSG:SEND,2-2-0-0,s=255,c=3,t=15,pt=6,l=2,sg=0,ft=0,st=OK:0100
23:21:26.341 -> 2118 TSF:MSG:READ,0-0-2,s=255,c=3,t=15,pt=6,l=2,sg=0:0100
23:21:26.341 -> 2125 TSF:MSG:SEND,2-2-0-0,s=255,c=0,t=17,pt=0,l=5,sg=0,ft=0,st=OK:2.3.0
23:21:26.341 -> 2134 TSF:MSG:SEND,2-2-0-0,s=255,c=3,t=6,pt=1,l=1,sg=0,ft=0,st=OK:0
2203 TSF:MSG:READ,0-0-2,s=255,c=3,t=6,pt=0,l=1,sg=0:M
23:21:26.410 -> 2210 TSF:MSG:SEND,2-2-0-0,s=255,c=3,t=11,pt=0,l=12,sg=0,ft=0,st=OK:Energy Meter
23:21:26.445 -> 2220 TSF:MSG:SEND,2-2-0-0,s=255,c=3,t=12,pt=0,l=3,sg=0,ft=0,st=OK:1.0
23:21:26.445 -> 2228 TSF:MSG:SEND,2-2-0-0,s=1,c=0,t=13,pt=0,l=0,sg=0,ft=0,st=OK:
23:21:26.445 -> 2234 MCO:REG:REQ
23:21:26.445 -> 2237 TSF:MSG:SEND,2-2-0-0,s=255,c=3,t=26,pt=1,l=1,sg=0,ft=0,st=OK:2
2252 TSF:MSG:READ,0-0-2,s=255,c=3,t=27,pt=1,l=1,sg=0:1
23:21:26.480 -> 2257 MCO:PIM:NODE REG=1
23:21:26.480 -> 2259 MCO:BGN:STP
23:21:26.480 -> 2263 TSF:MSG:SEND,2-2-0-0,s=1,c=2,t=24,pt=0,l=0,sg=0,ft=0,st=OK:
23:21:26.480 -> 2269 MCO:BGN:INIT OK,TSP=1
23:21:26.480 -> 2272 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
23:21:26.480 -> 2277 TSF:TDI:TSL

As far as i can see it seems fine and also shows up in myscontroller.

And here is an example how it looks after 20 seconds sleep.

2414 MCO:SLP:WUP=-1
23:26:36.346 -> 2416 TSF:TRI:TSB
23:26:36.346 -> 2418 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
23:26:36.346 -> 2423 TSF:TDI:TSL

I don't see any connection attempts with my gateway, or shouldn't there by any if the sensor is not triggered?

Here i can show how it looks when tricking the sensor with the ir on the mouse.

2456 MCO:SLP:WUP=-1
23:27:48.785 -> 2458 TSF:TRI:TSB
23:27:48.785 -> 2460 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
23:27:48.785 -> 2465 TSF:TDI:TSL
2467 MCO:SLP:WUP=-1
23:27:48.924 -> 2468 TSF:TRI:TSB
23:27:48.959 -> 2470 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
23:27:48.959 -> 2476 TSF:TDI:TSL
2478 MCO:SLP:WUP=-1
23:27:49.098 -> 2480 TSF:TRI:TSB
23:27:49.098 -> 2481 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
23:27:49.098 -> 2486 TSF:TDI:TSL
2488 MCO:SLP:WUP=-1
23:27:49.235 -> 2490 TSF:TRI:TSB
23:27:49.235 -> 2492 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
23:27:49.270 -> 2497 TSF:TDI:TSL
2498 MCO:SLP:WUP=-1
23:27:49.408 -> 2500 TSF:TRI:TSB
23:27:49.408 -> 2502 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
23:27:49.408 -> 2507 TSF:TDI:TSL
2509 MCO:SLP:WUP=-1
23:27:49.546 -> 2510 TSF:TRI:TSB
23:27:49.546 -> 2512 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
23:27:49.546 -> 2518 TSF:TDI:TSL

Interrupt is triggered and it wakes up, but nothing is sent to the gateway.

Have i missed something?

[mfalkvidd]

@patrikr76 great info, thanks!

The -1 in Wup=-1 indicates that the node was waken up by timer and not by interrupt. That’s very strange, since the time stamps clearly show that 20 seconds has not passed.

Could you add

Serial.println(pulseCount);

after

sleep(SEND_FREQUENCY);

to see if pulseCount is increased?

[patrikr76]

@mfalkvidd , Here's the serial monitor after adding the serial print.

2269 MCO:SLP:WUP=-1
14:15:15.125 -> 2270 TSF:TRI:TSB
14:15:15.125 -> 0
14:15:15.125 -> 2272 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
14:15:15.125 -> 2277 TSF:TDI:TSL
2279 MCO:SLP:WUP=-1
14:15:37.264 -> 2281 TSF:TRI:TSB
14:15:37.264 -> 0
14:15:37.264 -> 2282 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
14:15:37.264 -> 2287 TSF:TDI:TSL
2289 MCO:SLP:WUP=-1
14:15:59.354 -> 2291 TSF:TRI:TSB
14:15:59.354 -> 0
14:15:59.354 -> 2293 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
14:15:59.389 -> 2298 TSF:TDI:TSL

As you see, it sleeps about 22 secs with no pulse on it.

Moving the mouse over it gives this.

2353 MCO:SLP:WUP=-1
14:18:09.982 -> 2355 TSF:TRI:TSB
14:18:09.982 -> 4
14:18:09.982 -> 2357 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
14:18:09.982 -> 2362 TSF:TDI:TSL
2363 MCO:SLP:WUP=-1
14:18:23.059 -> 2365 TSF:TRI:TSB
14:18:23.059 -> 5
14:18:23.059 -> 2367 MCO:SLP:MS=20000,SMS=0,I1=255,M1=255,I2=255,M2=255
14:18:23.059 -> 2372 TSF:TDI:TSL

Looking through the code, this one raises a flag.

if (pcReceived && (SLEEP_MODE || sendTime))

The pulseCount send is within that if statement which is not fullfilled because it doesn't receive pcReceived.
Or am i wrong?

[patrikr76]

Found a solution, which is not ideal.
I was having similar problem with a motion sensor not being able to send, adding a delay after sleep helped on that one, but it was just a 5ms delay needed.

On this one i had to add a 1 sec delay in the begining of the loop. I tried smaller but then it didn't work.
I am starting to think it is the nano clone that has crappy components.

[mfalkvidd]

@patrikr76 nice work.
Sounds very similar to https://forum.mysensors.org/topic/9655/delay-after-tsf-tri-tsb/14

[StKilda]

I have two meters I would like to measure: One that the LED is off most of the time and briefly pulses on per increment (at 3200 pulses per Kwh - so I adjusted the pulse factor accordingly). This works fine. The second meter, the LED pulses off (meaning the led it lit most of the time, and pulses off briefly). Do I need to adjust the code in any way to deal with this meter? Thanks. Really impressed it works virtually out of the box.

[mfalkvidd]

Great work @stkilda
I think the sketch will work without modification. The easiest way to find out is probably to try it.

[gohan]

you may need to change the interrupt behavior, but try it first

[bjornhallberg]

Is there a suggested replacement for the TSL250? While it can still be found, it seems to be discontinued for the most part.

I've had no luck with the LM393 solution for my new power meter. Just can't tune it to pick up the led impulses. What sort of diode solution is everyone else using? I'm aware of the possibility of IR communication (https://wiki.hal9k.dk/projects/kamstrup) but it seems a little over the top.

[gohan]

I used these https://www.aliexpress.com/item/5-pcs-LM393-Light-Sensor-Photosensitive-Sensitivity-light-Sensor-Module-For-Arduino-Smart-Car/1729424221.html

[FullMetal]

Hello
my skectch works very well, only I have a double pricing, I manage to recover the information. but I have to modify the code in order to have my exact consumption.
but my code sends me information always on the same IDs.
thank you

[mfalkvidd]

Hi @fullmetal, welcome to the forum :-)

Could you explain what double pricing means?

[FullMetal]

Thank you for your welcome @mfalkvidd

Our electricity provider offers several rates.

HP: Full time
HC: off-peak time

usually the HP/HC rate is programmed at night by the provider.

As the consumption is saved by the arduino, I need two different IDs to trace the information to domotics

[FullMetal]

Here is the modified code:

#define MY_PARENT_NODE_ID 0                   // define if fixed parent
#define MY_PARENT_NODE_IS_STATIC
#undef MY_REGISTRATION_FEATURE                  // sketch moves on if no registration
#define MY_NODE_ID 2                     // fixed node number

// Enable debug prints
#define MY_DEBUG

// Enable RS485 transport layer
#define MY_RS485

// Define this to enables DE-pin management on defined pin
#define MY_RS485_DE_PIN 2

// Set RS485 baud rate to use
#define MY_RS485_BAUD_RATE 9600

// Set blinking period
#define MY_DEFAULT_LED_BLINK_PERIOD 300

// Flash leds on rx/tx/err
#define MY_DEFAULT_ERR_LED_PIN 13  // Error led pin
#define MY_DEFAULT_RX_LED_PIN  7  // Receive led pin
#define MY_DEFAULT_TX_LED_PIN  6  // the PCB, on board LED

// Enable and select radio type attached
//#define MY_RADIO_NRF24
//#define MY_RADIO_RFM69

#include <MySensors.h>
#include <SPI.h>
#include <Bounce2.h>

#define DIGITAL_INPUT_SENSOR 3  // The digital input you attached your light sensor.  (Only 2 and 3 generates interrupt!)
#define DIGITAL_INPUT_HCHP 5
#define PULSE_FACTOR 250       // Nummber of blinks per KWH of your meeter
#define SLEEP_MODE false        // Watt-value can only be reported when sleep mode is false.
#define MAX_WATT 10000          // Max watt value to report. This filetrs outliers.
//#define CHILD_ID 2              // Id of the sensor child

unsigned long SEND_FREQUENCY =
   20000; // Minimum time between send (in milliseconds). We don't wnat to spam the gateway.
double ppwh = ((double)PULSE_FACTOR)/1000; // Pulses per watt hour
bool pcReceived = false;
volatile unsigned long pulseHpCount = 0;
volatile unsigned long pulseHcCount = 0;
volatile unsigned long lastBlink = 0;
unsigned long oldPulseHpCount = 0;
volatile unsigned long watt = 0;
unsigned long oldWatt = 0;
double oldKwhHp;
unsigned long oldPulseHcCount = 0;
double oldKwhHc;
unsigned long lastSend;

Bounce debouncer = Bounce(); 
int oldValue=-1;


MyMessage wattMsg(1,V_WATT);
MyMessage kwhHpMsg(3,V_KWH);
MyMessage pcHpMsg(2,V_VAR1);
MyMessage kwhHcMsg(5,V_KWH);
MyMessage pcHcMsg(6,V_VAR1);
MyMessage hchpMsg(7,V_VAR2);
const int ledPin =  13;      // sortie digitale

void setup()
{
   // Fetch last known pulse count value from gw
   request(2, V_VAR1);
   request(6, V_VAR1);

   // Use the internal pullup to be able to hook up this sketch directly to an energy meter with S0 output
   // If no pullup is used, the reported usage will be too high because of the floating pin
   pinMode(DIGITAL_INPUT_SENSOR,INPUT_PULLUP);
   pinMode(DIGITAL_INPUT_HCHP,INPUT_PULLUP);
   pinMode(ledPin, OUTPUT);

   attachInterrupt(digitalPinToInterrupt(DIGITAL_INPUT_SENSOR), onPulse, RISING);
   lastSend=millis();

    // After setting up the button, setup debouncer
   debouncer.attach(DIGITAL_INPUT_HCHP);
   debouncer.interval(5);
  
}

void presentation()
{
   // Send the sketch version information to the gateway and Controller
   sendSketchInfo("Energy Meter", "2.0");

   // Register this device as power sensor
   present(1, S_POWER);
   
    // Register this device as power sensor
   present(2, S_POWER);
   
   // Register this device as power sensor
   present(3, S_POWER);

   // Register this device as power sensor
   present(5, S_POWER);

   // Register this device as power sensor
   present(6, S_POWER);

   // Register this device as power sensor
   present(7, S_POWER);
}

void loop()
{
   unsigned long now = millis();
   if (digitalRead(DIGITAL_INPUT_SENSOR) == LOW ) {
   // LED Power On
   digitalWrite(ledPin, HIGH);
   // LED Power Off
   digitalWrite(ledPin, LOW);
   }


{
 debouncer.update();
 // Get the update value
 int value = debouncer.read();
 Serial.println("");

 if (value != oldValue) {
    // Send in the new value
    send(hchpMsg.set(value==HIGH ? 1 : 0));
    oldValue = value;
 }
} 


   // Only send values at a maximum frequency or woken up from sleep
   bool sendTime = now - lastSend > SEND_FREQUENCY;
   if (pcReceived && (SLEEP_MODE || sendTime)) {
       // New watt value has been calculated
       if (!SLEEP_MODE && watt != oldWatt) {
           // Check that we dont get unresonable large watt value.
           // could hapen when long wraps or false interrupt triggered
           if (watt<((unsigned long)MAX_WATT)) {
               send(wattMsg.set(watt));  // Send watt value to gw
           }
           Serial.print("Watt:");
           Serial.println(watt);
           oldWatt = watt;
       }
       
           
   /////HP
         if (digitalRead(DIGITAL_INPUT_SENSOR) == HIGH ) {
       // Pulse cout has changed
          if (pulseHpCount != oldPulseHpCount) {
           send(pcHpMsg.set(pulseHpCount));  // Send pulse count value to gw
           double kwhHp = ((double)pulseHpCount/((double)PULSE_FACTOR));
           oldPulseHpCount = pulseHpCount;
           digitalWrite(ledPin, LOW);
           if (kwhHp != oldKwhHp) {
               send(kwhHpMsg.set(kwhHp, 4));  // Send kwh value to gw
               oldKwhHp = kwhHp;
           }
           digitalWrite(ledPin, HIGH);
       }
       lastSend = now;
       
      }else if (digitalRead(DIGITAL_INPUT_SENSOR) == LOW ){
      if (pulseHcCount != oldPulseHcCount) {
           send(pcHcMsg.set(pulseHcCount));  // Send pulse count value to gw
           double kwhHc = ((double)pulseHcCount/((double)PULSE_FACTOR));
           oldPulseHcCount = pulseHcCount;
           digitalWrite(ledPin, LOW);
           if (kwhHc != oldKwhHc) {
               send(kwhHcMsg.set(kwhHc, 4));  // Send kwh value to gw
               oldKwhHc = kwhHc;
           }
           digitalWrite(ledPin, HIGH);
       }
       lastSend = now;
      }
      
   }else if (sendTime && !pcReceived) {
       // No count received. Try requesting it again
       request(2, V_VAR1);
       request(6, V_VAR1);
       lastSend=now;
   }   

   if (SLEEP_MODE) {
       sleep(SEND_FREQUENCY);
   }
}

void receive(const MyMessage &message)
{
  /////HP
   if (digitalRead(DIGITAL_INPUT_SENSOR) == HIGH ) {
   if (message.type==V_VAR1) {
       pulseHpCount = oldPulseHpCount = message.getLong();
       Serial.print("Received last pulse count from gw:");
       Serial.println(pulseHpCount);
       pcReceived = true;
   }
   }
   /////HC
   if (digitalRead(DIGITAL_INPUT_SENSOR) == LOW ) {
    if (message.type==V_VAR1) {
       pulseHcCount = oldPulseHcCount = message.getLong();
       Serial.print("Received last pulse count from gw:");
       Serial.println(pulseHcCount);
       pcReceived = true;
   }
   }
}

void onPulse()
{
   /////HP
   if (digitalRead(DIGITAL_INPUT_SENSOR) == HIGH ) {
   if (!SLEEP_MODE) {
       unsigned long newBlink = micros();
       unsigned long interval = newBlink-lastBlink;
       if (interval<10000L) { // Sometimes we get interrupt on RISING
           return;
       }
       watt = (3600000000.0 /interval) / ppwh;
       lastBlink = newBlink;
   }
   pulseHpCount++;
   }

   /////HC
   else if (digitalRead(DIGITAL_INPUT_SENSOR) == LOW ) {
     if (!SLEEP_MODE) {
       unsigned long newBlink = micros();
       unsigned long interval = newBlink-lastBlink;
       if (interval<10000L) { // Sometimes we get interrupt on RISING
           return;
       }
       watt = (3600000000.0 /interval) / ppwh;
       lastBlink = newBlink;
   }
   pulseHcCount++;
   }
}

[mfalkvidd]

@fullmetal cool. Thanks for explaining, and for sharing your sketch.