Vbus: Unterschied zwischen den Versionen

Aus FHEMWiki
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
Zeile 19: Zeile 19:
     21_VBUSDEV.pm
     21_VBUSDEV.pm
genutzt werden.
genutzt werden.
Diese Dateien müssen in den Ordner /opt/fhem/FHEM kopiert werden und es findet keine aktualisierung beim Update statt.


==== Benutzte Dateien ====
Diese Module werden aktuell extern gehostet. Um diese in die FHEM Installtion einzubinden muss folgender Befehl abgesetzt werden
 
  update all https://raw.githubusercontent.com/pejonp/vbus/master/controls_vbus.txt
Code der VBUSIF.pm Datei
<pre>
# $Id: 19_VBUSIF.pm 20160725 2016-07-25 03:54:15Z awk+pejonp $
# VBUS LAN Adapter Device
#
# (c) 2014 Arno Willig <akw@bytefeed.de>
# (c) 2015 Frank Wurdinger <frank@wurdinger.de>
# (c) 2015 Adrian Freihofer <adrian.freihofer gmail com>
 
 
package main;
 
use strict;
use warnings;
use POSIX;
use Data::Dumper;
use Device::SerialPort;
 
sub VBUSIF_Read($@);
sub VBUSIF_Write($$$);
sub VBUSIF_Ready($);
sub VBUSIF_getDevList($$);
 
 
sub VBUSIF_Initialize($)
{
my ($hash) = @_;
require "$attr{global}{modpath}/FHEM/DevIo.pm";
 
# Provider
$hash->{ReadFn}    = "VBUSIF_Read";
$hash->{WriteFn}    = "VBUSIF_Write";
$hash->{ReadyFn}    = "VBUSIF_Ready";
$hash->{UndefFn}    = "VBUSIF_Undef";
$hash->{ShutdownFn} = "VBUSIF_Undef";
 
# Normal devices
$hash->{DefFn}      = "VBUSIF_Define";
$hash->{AttrList}  = "dummy:1,0"
                        ."$readingFnAttributes ";
  $hash->{AutoCreate} = { "VBUSDEF.*" => { ATTR => "event-min-interval:.*:120 event-on-change-reading:.* ",FILTER => "%NAME"} };
 
}
 
######################################
sub VBUSIF_Define($$)
{
my ($hash, $def) = @_;
my @a = split("[ \t]+", $def);
 
if(@a != 3) {
my $msg = "wrong syntax: define <name> VBUSIF [<hostname:7053> or <dev>]";
    Log3 $hash, 2, $msg;
    return $msg;
}
 
# if(@a != 3) {
# return "wrong syntax: define <name> VBUSIF [<hostname:7053> or <dev>]";
# }
 
 
my $name = $a[0];
my $dev = $a[2];
$hash->{Clients} = ":VBUSDEV:";
my %matchList = ( "1:VBUSDEV" => ".*" );
$hash->{MatchList} = \%matchList;
 
  Log3 $hash, 4,"$name: VBUSIF_Define: $hash->{MatchList} ";
 
DevIo_CloseDev($hash);
$hash->{DeviceName} = $dev;
my @dev_name = split('@', $dev);
if ( -c ${dev_name}[0]) {
$hash->{DeviceType} = "Serial";
} else {
$hash->{DeviceType} = "Net";
}
 
my $ret = DevIo_OpenDev($hash, 0, "VBUSIF_DoInit");
return $ret;
}
 
###############################
sub VBUSIF_DoInit($)
{
my $hash = shift;
if ($hash->{DeviceType} eq "Net" ) {
my $name = $hash->{NAME};
delete $hash->{HANDLE}; # else reregister fails / RELEASE is deadly
 
my $conn = $hash->{TCPDev};
$conn->autoflush(1);
$conn->getline();
$conn->write("PASS vbus\n");
$conn->getline();
$conn->write("DATA\n");
$conn->getline();
}
  Log3 $hash, 4,"VBUSIF_DoInit ";
return undef;
}
 
sub VBUSIF_Undef($@)
{
my ($hash, $arg) = @_;
if ($hash->{DeviceType} eq "Net" ) {
VBUSIF_Write($hash, "QUIT\n", "");  # RELEASE
}
DevIo_CloseDev($hash);
return undef;
}
 
sub VBUSIF_Write($$$)
{
my ($hash,$fn,$msg) = @_;
DevIo_SimpleWrite($hash, $msg, 1);
}
 
 
sub VBUSIF_Read($@)
{
my ($hash, $local, $regexp) = @_;
my $buf = ($local ? $local : DevIo_SimpleRead($hash));
return "" if(!defined($buf));
my $name = $hash->{NAME};
$buf = unpack('H*', $buf);
my $data = ($hash->{PARTIAL} ? $hash->{PARTIAL} : "");
$data .= $buf;
 
my $msg;
my $idx;
$idx = index($data,"aa");
  Log3 $hash, 4,"$name: VBUSIF_Read: index = $data";
if ($idx>=0) {
$data = substr($data,$idx); # Cut off beginning
 
$idx = index($data,"aa",2); # Find next message
 
if ($idx>0) {
 
$msg = substr($data,0,$idx);
$data = substr($data,$idx);
my $protoVersion = substr($msg,10,2);
Log3 $hash, 4,"$name: VBUSIF_Read: protoVersion : $protoVersion";
  if ($protoVersion == "10" && length($msg)>=20) {
my $frameCount = hex(substr($msg,16,2));
my $headerCRC  = hex(substr($msg,18,2));
 
my $crc = 0;
for (my $j = 1; $j<=8;$j++) {
$crc += hex(substr($msg,$j*2,2));
}
$crc = ($crc ^ 0xff) & 0x7f;
if ($headerCRC != $crc) {
Log3 $hash, 3, "$name: Wrong checksum: $crc != $headerCRC";
} else {
my $len = 20+12*$frameCount;
#if ($len != length($msg)) {
if ($len != length($msg) && length($msg) != 247) {
Log3 $hash, 4,"$name: Wrong message length: $len != ".length($msg);
} else {
if(length($msg) == 247) {
$msg = $msg."a";
}
my $payload = VBUSIF_DecodePayload($hash,$msg);
if (defined $payload) {
$msg = substr($msg,0,20).$payload;
 
$hash->{"${name}_MSGCNT"}++;
$hash->{"${name}_TIME"} = TimeNow();
$hash->{RAWMSG} = $msg;
my %addvals = (RAWMSG => $msg);
Dispatch($hash, $msg, \%addvals) if($init_done);
  }
}
}
 
}
if ($protoVersion == "20") {
my $command    = substr($msg,14,2).substr($msg,12,2);
my $dataPntId  = substr($msg,16,4);
my $dataPntVal = substr($msg,20,8);
my $septet    = substr($msg,28,2);
my $checksum  = substr($msg,30,2);
# TODO use septet
# TODO validate checksum
# TODO Understand protocol
 
}
}
}
 
$hash->{PARTIAL} = $data;
# return $msg if(defined($local));
return undef;
}
 
sub VBUSIF_Ready($)
{
my ($hash) = @_;
return DevIo_OpenDev($hash, 1, "VBUSIF_DoInit") if($hash->{STATE} eq "disconnected");
return 0;
}
 
 
sub VBUSIF_DecodePayload($@)
{
my ($hash, $msg) = @_;
my $name = $hash->{NAME};
 
my $frameCount = hex(substr($msg,16,2));
my $payload = "";
for (my $i = 0; $i < $frameCount; $i++) {
my $septet  = hex(substr($msg,28+$i*12,2));
my $frameCRC = hex(substr($msg,30+$i*12,2));
 
my $crc = (0x7f - $septet) & 0x7f;
for (my $j = 0; $j<4;$j++) {
my $ch = hex(substr($msg,20+$i*12+$j*2,2));
$ch |= 0x80 if ($septet & (1 << $j));
$crc = ($crc - $ch) & 0x7f;
$payload .= chr($ch);
}
 
if ($crc != $frameCRC) {
  Log3 $hash, 4,"$name: Wrong checksum: $crc != $frameCRC";
return undef;
}
}
return unpack('H*', $payload);
}
 
1;
 
=pod
=begin html
<a name="VBUSIF"></a>
<h3>VBUSIF</h3>
<ul>
  This module connects to the RESOL VBUS LAN or Serial Port adapter.
  It serves as the "physical" counterpart to the <a href="#VBUSDevice">VBUSDevice</a>
  devices.
  <br /><br />
  <a name="VBUSIF_Define"></a>
  <b>Define</b>
  <ul>
    <code>define &lt;name&gt; VBUS &lt;device&gt;</code>
  <br />
  <br />
  &lt;device&gt; is a &lt;host&gt;:&lt;port&gt; combination, where
  &lt;host&gt; is the address of the RESOL LAN Adapter and &lt;port&gt; 7053.
  <br />
  Examples:
  <ul>
    <code>define vbus VBUSIF 192.168.1.69:7053</code>
    </ul>
    <ul>
    <code>define vbus VBUSIF  /dev/ttyS0</code>
  </ul>
  </ul>
  <br />
</ul>
=end html
=cut
</pre>
 
 
 
https://github.com/pejonp/vbus


Damit werden auch bei einer FHEM aktualisierung diese Moduke berücksichtigt




Zeile 361: Zeile 91:


* Resol Protokollbeschreibung [https://danielwippermann.github.io/resol-vbus/vbus-packets.html]
* Resol Protokollbeschreibung [https://danielwippermann.github.io/resol-vbus/vbus-packets.html]
 
* VBus GitHub [https://github.com/pejonp/vbus]




[[Kategorie:Heizungssteuerung]]
[[Kategorie:Heizungssteuerung]]

Version vom 11. November 2016, 13:04 Uhr

Vbus
Zweck / Funktion
Anbindung Heizungssteuerung über einen Resol V-Bus Lanadapter
Allgemein
Typ Gerätemodul
Details
Dokumentation EN / DE
Support (Forum) Sonstige Systeme
Modulname 21_VBUSDEV.pm
Ersteller
Wichtig: sofern vorhanden, gilt im Zweifel immer die (englische) Beschreibung in der commandref!


Kurzbeschreibung

Das Vbus-Modul verbindet einen Vbus-Lan adapter mit FHEM.

Voraussetzung

Voraussetzung zur Anbindung eines VBus Device an FHEM ist das eine Netzwerkverbindung besteht die zur Verfügung stehenden Module: 

   19_VBUSIF.pm
   21_VBUSDEV.pm

genutzt werden.

Diese Module werden aktuell extern gehostet. Um diese in die FHEM Installtion einzubinden muss folgender Befehl abgesetzt werden 

update all https://raw.githubusercontent.com/pejonp/vbus/master/controls_vbus.txt

Damit werden auch bei einer FHEM aktualisierung diese Moduke berücksichtigt


Installation RESOL VBUS LAN Gateway

  1. Erstmal keine Einstellungen am VBUS/Lan Gateway (Passwort/Port etc) vornehmen
  2. Die Ip_adresse herausfinden (z.B. am Router) und prüfen ob man per Browser darauf zugreifen kann
  3. Optional: Testen ob Daten ankommen mit der service center Software von Resol
  4. Dann nur das VBUSIF als define eintragen

Definition

define <name> VBUSIF <IP des VBus-Lan> <Port muss 7053 bleiben> 

  define vbus VBUSIF 192.168.1.25:7053
  attr vbus event-min-interval .*:120
  attr vbus verbose 5

Features / Funktionen

Es wurden die Module

  • DL 2 0050
  • DL 3 0053
  • Vitosolic200_SD4 1060
  • DeltaSol_SL 2251
  • WMZ 4010
  • SKSC1/2 4211
  • DeltaSolC 4212
  • Sonnenkraft_SKSC2HE 4214
  • DeltaSol_BS4 4278
  • DeltaSol_BS_2009 427b
  • DeltaTherm_FK 5611
  • MSR65_1 6521
  • MSR65_2 6522
  • SKS3HE 7160
  • SKSC3HE_[HK1] 7161
  • SKSC3HE_[HK2] 7162
  • DeltaSol_M 7311
  • DeltaSol_M_HKM 7312
  • DeltaSol_M_Volumen 7315
  • DeltaSol_M_WMZ1 7316
  • DeltaSol_M_WMZ2 7317
  • Vitosolic200 7321
  • Vitosolic200_WMZ1 7326
  • Vitosolic200_WMZ2 7327
  • SLR 7331
  • CitrinSLR_XT 7341
  • DeltaSol_ES 7411
  • DeltaSol_BX 7421
  • DeltaSolE_Regler 7721
  • DeltaSolE_WMZ 7722
  • DiemasolC 7751
  • Cosmo_Multi_Regler 7821
  • Cosmo_Multi_WMZ 7822
  • DeltaSol_MX_Regler 7E11
  • DeltaSol_MX_Module 7E12
  • DeltaSol_MX_HK 7E21
  • DeltaSol_MX_WMZ 7E31



Bekannte Probleme

Aktuell ist es nicht möglich die Konfiguration der Steuerungen zu ändern es ist nur ein Abfragen der werte implementiert.

Weblinks

  • Resol Protokollbeschreibung [1]
  • VBus GitHub [2]
Abgerufen von „http://wiki.fhem.de/w/index.php?title=Vbus&oldid=17175“