Difference between revisions of "Volkszähler"

From BITPlan Wiki
Jump to navigation Jump to search
Line 13: Line 13:
 
</source>
 
</source>
 
= Test USB S0 reader =
 
= Test USB S0 reader =
 +
== readmeter ==
 +
<source lang='bash'>
 +
#!/bin/bash
 +
# read and evaluate SML output received from EMH eHZ
 +
 +
getmeter() {
 +
  # set serial device
 +
  INPUT_DEV="/dev/ttyUSB0"
 +
 +
  #set $INPUT_DEV to 9600 8N1
 +
  stty -F $INPUT_DEV 1:0:8bd:0:3:1c:7f:15:4:5:1:0:11:13:1a:0:12:f:17:16:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0
 +
 +
  SML_START_SEQUENCE="1B1B1B1B0101010176"
 +
  METER_OUTPUT__START_SEQUENCE=""
 +
 +
  while [ "$METER_OUTPUT__START_SEQUENCE" != "$SML_START_SEQUENCE" ]
 +
  do
 +
    METER_OUTPUT=`cat $INPUT_DEV 2>/dev/null | xxd -p -u -l 460 | tr -d '[:space:]'`
 +
    METER_OUTPUT__START_SEQUENCE=$(echo "${METER_OUTPUT:0:18}")
 +
    if [ "$METER_OUTPUT__START_SEQUENCE" != "$SML_START_SEQUENCE" ];
 +
    then
 +
      echo "missed start and trying again..."
 +
      sleep 0.1
 +
      #exit 1
 +
    fi
 +
  done
 +
 +
  echo $METER_OUTPUT
 +
}
 +
 +
#
 +
# match
 +
#  1: prefix
 +
#  2: text
 +
#  3: ofs
 +
#  4: len
 +
#
 +
matchvalue() {
 +
  local l_prefix="$1"
 +
  local l_text="$2"
 +
  local l_ofs="$3"
 +
  local l_len="$4"
 +
  local l_prefix_len=${#l_prefix}
 +
  local l_text_len=${#l_text}
 +
  local l_start=0
 +
  let l_max=l_text_len-l_prefix_len
 +
  #echo  "$l_prefix_len - $l_text_len - $l_max"
 +
  while [ $l_start -lt $l_max ]
 +
  do
 +
    l_part=${l_text:$l_start:$l_prefix_len}
 +
    if [ "$l_prefix" = "$l_part" ]
 +
    then
 +
      let l_start=l_start+l_prefix_len+l_ofs
 +
      local l_value_hex=${l_text:$l_start:$l_len}
 +
      let l_value=0x${l_value_hex}
 +
      #echo ${l_start}
 +
      #echo ${l_value_hex}
 +
      echo $l_value
 +
      return
 +
    fi
 +
    let l_start=l_start+1
 +
  done
 +
}
 +
 +
#
 +
# get a value from the SML Sequence
 +
#
 +
getvalue() {
 +
  local l_prefix="$1"
 +
  local l_text="$2"
 +
  local l_ofs="$3"
 +
  local l_len="$4"
 +
  local l_factor="$5"
 +
  local l_title="$6"
 +
  local l_unit="$7"
 +
  echo "$l_title" "$l_unit"
 +
  #echo "ofs:$l_ofs len: $l_len factor: $l_factor"
 +
  matchvalue "$l_prefix" "$l_text" "$l_ofs" "$l_len"
 +
  #echo $METER_180
 +
  #VALUE=$(echo "scale=2; $METER_180 / $l_factor" |bc)
 +
}
 +
 +
echo "SML SEQUENCE:"
 +
getmeter
 +
getvalue "77070100010800FF" "$METER_OUTPUT" 20 8 10000 "Meter 1.8.0 (from plant):" "kWh"
 +
getvalue "77070100020800FF" "$METER_OUTPUT" 20 8 10000 "  Meter 2.8.0 (to plant):" "kWh"
 +
getvalue "77070100010801FF" "$METER_OUTPUT" 20 8 10 "1.8.1"  "kW"
 +
getvalue "77070100010802FF" "$METER_OUTPUT" 20 8 10 "1.8.2"  "kW"
 +
getvalue "77070100020801FF" "$METER_OUTPUT" 20 8 10 "2.8.1" "kW"
 +
getvalue "77070100020802FF" "$METER_OUTPUT" 20 8 10 "2.8.2" "kW"
 +
</source>

Revision as of 13:36, 27 July 2019

Install desktop

If you'd like to have the desktop configuration for the raspberry that you configured using the Volkzsähler image you can install the desktop with: 

sudo apt-get install raspberrypi-ui-mods -y
sudo raspi-config # activate desktop via menu

Test USB S0 reader

readmeter

#!/bin/bash
# read and evaluate SML output received from EMH eHZ

getmeter() {
  # set serial device
  INPUT_DEV="/dev/ttyUSB0"

  #set $INPUT_DEV to 9600 8N1
  stty -F $INPUT_DEV 1:0:8bd:0:3:1c:7f:15:4:5:1:0:11:13:1a:0:12:f:17:16:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0

  SML_START_SEQUENCE="1B1B1B1B0101010176"
  METER_OUTPUT__START_SEQUENCE=""

  while [ "$METER_OUTPUT__START_SEQUENCE" != "$SML_START_SEQUENCE" ]
  do
    METER_OUTPUT=`cat $INPUT_DEV 2>/dev/null | xxd -p -u -l 460 | tr -d '[:space:]'`
    METER_OUTPUT__START_SEQUENCE=$(echo "${METER_OUTPUT:0:18}")
    if [ "$METER_OUTPUT__START_SEQUENCE" != "$SML_START_SEQUENCE" ];
    then
      echo "missed start and trying again..."
      sleep 0.1
      #exit 1 
    fi
  done

  echo $METER_OUTPUT
}

# 
# match
#  1: prefix
#  2: text
#  3: ofs
#  4: len
#
matchvalue() {
  local l_prefix="$1"
  local l_text="$2"
  local l_ofs="$3"
  local l_len="$4"
  local l_prefix_len=${#l_prefix}
  local l_text_len=${#l_text}
  local l_start=0
  let l_max=l_text_len-l_prefix_len
  #echo  "$l_prefix_len - $l_text_len - $l_max"
  while [ $l_start -lt $l_max ]
  do
    l_part=${l_text:$l_start:$l_prefix_len}
    if [ "$l_prefix" = "$l_part" ]
    then
      let l_start=l_start+l_prefix_len+l_ofs
      local l_value_hex=${l_text:$l_start:$l_len}
      let l_value=0x${l_value_hex}
      #echo ${l_start}
      #echo ${l_value_hex}
      echo $l_value
      return 
    fi
    let l_start=l_start+1
  done
}

#
# get a value from the SML Sequence
#
getvalue() {
  local l_prefix="$1"
  local l_text="$2"
  local l_ofs="$3"
  local l_len="$4"
  local l_factor="$5"
  local l_title="$6"
  local l_unit="$7"
  echo "$l_title" "$l_unit"
  #echo "ofs:$l_ofs len: $l_len factor: $l_factor"
  matchvalue "$l_prefix" "$l_text" "$l_ofs" "$l_len"
  #echo $METER_180
  #VALUE=$(echo "scale=2; $METER_180 / $l_factor" |bc)
}

echo "SML SEQUENCE:"
getmeter
getvalue "77070100010800FF" "$METER_OUTPUT" 20 8 10000 "Meter 1.8.0 (from plant):" "kWh"
getvalue "77070100020800FF" "$METER_OUTPUT" 20 8 10000 "  Meter 2.8.0 (to plant):" "kWh"
getvalue "77070100010801FF" "$METER_OUTPUT" 20 8 10 "1.8.1"  "kW"
getvalue "77070100010802FF" "$METER_OUTPUT" 20 8 10 "1.8.2"  "kW"
getvalue "77070100020801FF" "$METER_OUTPUT" 20 8 10 "2.8.1" "kW" 
getvalue "77070100020802FF" "$METER_OUTPUT" 20 8 10 "2.8.2" "kW"
Retrieved from "https://wiki.bitplan.com/index.php?title=Volkszähler&oldid=9640"