fork(2) download
copy 
  1. #########################################################################
  2. # fhem Modul für Victron BMV 600 Batteriemonitor
  3. # Die Beschreibung und Kommentierung dieses Moduls ist in deutsch gehalten,
  4. # um anderen das erstellen eigener Module zu erleichtern.
  5. # Als Basis diente das Modul 00_TAHR.pm und 00_WHR962.pm
  6. #
  7. #										# Kommentarbereich
  8. package main;
  9.  
  10. use strict;                          #
  11. use warnings;                        #
  12. use Time::HiRes qw(gettimeofday);    #
  13.  
  14. sub BMV600_Read($);                  #
  15. sub BMV600_Ready($);                 #
  16. sub BMV600_setbits($$);              #
  17. sub BMV600_SetReading($$$$);         #
  18.  
  19. my $buf1 = "";                       # Hilfsvariable für auslesen des Buffers
  20. my $Zeit = 0;                        # Hilfsvariable Zeit
  21. my $Umin = 15;                       #Hilfsvariable Minimale Batteriespannung (um ungültige Werte abzufangen) in V
  22. my $Umax = 38;                      #dito, nur uMax
  23.  
  24. my %BMV600_sets = (    		# Hier werden Befehle an den Batterie Monitor geschickt
  25.  
  26. );
  27.  
  28.  
  29. #########################################################################
  30. sub BMV600_Initialize($)
  31. {
  32. 	my ($hash) = @_;
  33.  
  34. 	require "$attr{global}{modpath}/FHEM/DevIo.pm";
  35.  
  36. 	$hash->{ReadFn}  = "BMV600_Read";
  37. 	$hash->{ReadyFn} = "BMV600_Ready";
  38. 	$hash->{DefFn}   = "BMV600_Define";
  39. 	$hash->{UndefFn} = "BMV600_Undef";
  40. 	$hash->{SetFn}   = "BMV600_Set";
  41. 	$hash->{AttrList} =
  42. 	  "do_not_notify:1,0 loglevel:0,1,2,3,4,5,6 " . $readingFnAttributes;
  43. }
  44.  
  45. #########################################################################									#
  46. sub BMV600_Define($$)
  47. {
  48. 	my ( $hash, $def ) = @_;
  49. 	my @a = split( "[ \t][ \t]*", $def );	
  50.  
  51. 	return "wrong syntax: define <name> BMV600 [devicename|none]"
  52. 	  if ( @a != 3 );
  53.  
  54. 	DevIo_CloseDev($hash);
  55. 	my $name = $a[0];
  56. 	my $dev  = $a[2];
  57.  
  58. 	if ( $dev eq "none" )
  59. 	{
  60. 		Log3 undef, 1, "BMV600 device is none, commands will be echoed only";
  61. 		return undef;
  62. 	}
  63.  
  64. 	$hash->{DeviceName} = $dev;
  65. 	my $ret = DevIo_OpenDev( $hash, 0, "BMV600_Poll" );
  66. 	return $ret;
  67. }
  68.  
  69. #########################################################################
  70. sub                   #
  71.   BMV600_Undef($$)    #
  72. {                     #
  73. 	my ( $hash, $arg ) = @_;       #
  74. 	DevIo_CloseDev($hash);         #
  75. 	RemoveInternalTimer($hash);    #
  76. 	return undef;                  #
  77. }    #
  78.  
  79. #########################################################################
  80. sub BMV600_Set($@)
  81. {
  82. 	my ( $hash, @a ) = @_;
  83. 	my $name = $hash->{NAME};
  84. 	return "\"set BMV600\" needs at least an argument" if ( @a < 2 );
  85.  
  86. 	my $cmd = $BMV600_sets{ $a[1] };
  87. 	return "Unknown argument $a[1], choose one of "
  88. 	  . join( " ", sort keys %BMV600_sets )
  89. 	  if ( !defined($cmd) );
  90.  
  91. 	Log3 $name, 3, "DevIo_SimpleWrite: $hash $cmd";
  92. 	DevIo_SimpleWrite( $hash, $cmd, 1 );
  93. 	return undef;
  94. }
  95.  
  96.  
  97. sub BMV600_Read($)
  98. {
  99. 	my ($hash) = @_;
  100. 	my $name = $hash->{NAME};
  101. 	my ( $data, $crc );
  102. 	my $buf = DevIo_SimpleRead($hash);
  103. 	my $tn  = TimeNow();
  104. 	my ( $key, $val ) = ( "key", "val" );
  105.   my $Power = 0;  
  106.  
  107. 	###### Daten der seriellen Schnittstelle holen und an $buf1 anhaengen
  108.  
  109. 	return "" if ( !defined($buf) );
  110. 	$buf1 .= $buf;
  111.  
  112. 	#Log3 $name, 5, "Current buffer content: "  $buf1;
  113.  
  114.         my $pos_cs0 = index($buf1,"\nChecksum");			#sucht nach neuer Zeile mit Checksum
  115.         my $pos_cs1 = -1;
  116. 	if($pos_cs0 >= 0)
  117. 	{
  118. 	        $pos_cs1 = index($buf1,"\nChecksum",$pos_cs0+1);
  119. 	}
  120. 	if(($pos_cs0 >= 0) && ($pos_cs1 >= 0))				#wenn 2mal Checksum dann beginnt er das lesen
  121. 	{
  122. 		readingsBeginUpdate($hash);
  123.       	        my @e = split("\n",$buf1);				#Splittet die Daten bei einer neuen Zeile auf
  124. 		my $V_first = index($e[1],"V") >= 0;			#schaut in die Schlaufe und fängt bei V an
  125. 		for my $i (0 .. $#e)
  126. 		{
  127.  
  128.       my @e_ = split(" ",$e[$i]);
  129. 			if($e_[0] eq "Checksum")
  130. 			{
  131. 				next;
  132. 			}
  133.       if($e_[0] eq "V")
  134. 			{
  135. 				if(($e_[1] /1000 ) > $Umin && ($e_[1] /1000 ) < $Umax ) #nur Werte übernehmen die im gültigen bereich liegen
  136.         {
  137.           #readingsBulkUpdate($hash,"_V",($e_[1] )); 
  138.           readingsBulkUpdate($hash,"Spannung",sprintf("%.1f",$e_[1]/1000));
  139.           $Power = $e_[1] / 1000;  			#für Leistungsberechnung als Reading
  140.         }
  141. 			}
  142.  
  143.  
  144.       if($e_[0] eq "I")
  145. 			{
  146. 	#readingsBulkUpdate($hash,"_I",($e_[1]));  # aktueller Strom in mA
  147.         readingsBulkUpdate($hash,"Strom",sprintf("%.1f",$e_[1] / 1000)); # aktueller Strom in A
  148.         $Power = ($Power * $e_[1]) / 1000;           	#für Leistungsberechnung als Reading
  149. 			}
  150.  
  151.       if($e_[0] eq "SOC")
  152. 			{
  153. 				if(($e_[1]) > -1 && ($e_[1]) < 1001 )
  154.         {
  155.         #readingsBulkUpdate($hash,"_SOC",$e_[1]);  # Ladezustand in %
  156.         readingsBulkUpdate($hash,"Ladezustand",sprintf("%.2f",($e_[1]) / 10));  # Ladezustand in %
  157.         }
  158. 			}
  159.       if($e_[0] eq "TTG")
  160. 			{
  161. 	#readingsBulkUpdate($hash,"_TTG",$e_[1]);   #Restlaufzeit in Minuten
  162.         readingsBulkUpdate($hash,"Restlaufzeit_h",sprintf("%.2f",($e_[1]) / 60));   #Restlaufzeit in stunden
  163. 			}
  164.       if($e_[0] eq "VS")
  165. 			{
  166. 	#readingsBulkUpdate($hash,"_VS",$e_[1]);
  167.         readingsBulkUpdate($hash,"Starterbatteriespannung",sprintf("%.2f",($e_[1]) / 1000)); #Spannung der Starterbatterie
  168. 			}
  169.       if($e_[0] eq "CE")
  170. 			{
  171. 	#readingsBulkUpdate($hash,"_CE",$e_[1]);  #entnommene Kapazität in Ah
  172.         readingsBulkUpdate($hash,"Amperestunden",sprintf("%.1f",$e_[1] /1000 ));
  173. 			}
  174.       if($e_[0] eq "H1")    # mAh Wert der bisher tiefsten Entladung 
  175. 			{
  176. 	#readingsBulkUpdate($hash,"_H1",$e_[1]);
  177.         readingsBulkUpdate($hash,"Entladung_tiefste_Ah",sprintf("%.2f",$e_[1] /1000 ));
  178. 			}
  179.       if($e_[0] eq "H2")     # mAh Wert der letzten Entladung
  180. 			{
  181. 	#readingsBulkUpdate($hash,"_H2",$e_[1]);
  182.         readingsBulkUpdate($hash,"Entladung_letzte_Ah",sprintf("%.2f",$e_[1] / 1000));
  183. 			}
  184.       if($e_[0] eq "H3")   # mAh Wert der durchschnittlichen Entladung
  185. 			{
  186. 	#readingsBulkUpdate($hash,"_H3",$e_[1]);
  187.         readingsBulkUpdate($hash,"Entladung_Durchschnitt_Ah",sprintf("%.2f",$e_[1] / 1000));
  188. 			}
  189.       if($e_[0] eq "H4")  # Anzahl der Ladezyklen
  190. 			{
  191. 	#readingsBulkUpdate($hash,"_H4",$e_[1]);
  192.         readingsBulkUpdate($hash,"Ladezyklen_Anzahl",$e_[1]);
  193. 			}
  194.       if($e_[0] eq "H5") # Anzahl der völligen Entladungen 
  195. 			{
  196. 	#readingsBulkUpdate($hash,"_H5",$e_[1]);
  197.         readingsBulkUpdate($hash,"Entladung_voellige_Anzahl",$e_[1]);
  198. 			}
  199.       if($e_[0] eq "H6")  # mAh Gesamtwert (kumuliert) der bisher entnommenen Ah
  200. 			{
  201. 	#readingsBulkUpdate($hash,"_H6",$e_[1]);
  202.         readingsBulkUpdate($hash,"Entladung_gesamt_Ah",sprintf("%.2f",$e_[1] / 1000));
  203. 			}
  204.       if($e_[0] eq "H7")  # mV Minimalwert der Batteriespannung 
  205. 			{
  206. 	#readingsBulkUpdate($hash,"_H7",$e_[1]);
  207.         readingsBulkUpdate($hash,"Spannung_minmal",sprintf("%.2f",$e_[1] / 1000));
  208. 			}
  209.       if($e_[0] eq "H8")  # mV Maximalwert der Batteriespannung 
  210. 			{
  211. 	#readingsBulkUpdate($hash,"_H8",$e_[1]);
  212.         readingsBulkUpdate($hash,"Spannung_maximal",sprintf("%.2f",$e_[1] / 1000));
  213. 			}
  214.       if($e_[0] eq "H9")  # Sekunden  Anzahl der Tage seit der letzten Volladung
  215. 			{
  216. 	#readingsBulkUpdate($hash,"_H9",$e_[1]);
  217.         readingsBulkUpdate($hash,"Volladung_letzte_vor_Stunden",sprintf("%.2f",$e_[1] / 3600));
  218. 			} 
  219.       if($e_[0] eq "H10") # Anzahl der automatisch durchgeführten Synchronistionen 
  220. 			{
  221. 	#readingsBulkUpdate($hash,"_H10",$e_[1]);
  222.         readingsBulkUpdate($hash,"autom_Synchronisationen_Anzahl",$e_[1]);
  223. 			}
  224.       if($e_[0] eq "H11") # Anzahl der Unterspannungs Alarme
  225. 			{
  226. 	#readingsBulkUpdate($hash,"_H11",$e_[1]);
  227.         readingsBulkUpdate($hash,"Alarm_Unterspannung_Anzahl",$e_[1]);
  228. 			}
  229.       if($e_[0] eq "H12") # Anzahl der Überspannungs Alarme.
  230. 			{
  231. 	#readingsBulkUpdate($hash,"_H12",$e_[1]);
  232.         readingsBulkUpdate($hash,"Alarm_Ueberspannungs_Anzahl",$e_[1]);
  233. 			}
  234.       if($e_[0] eq "H13") # Anzahl der Alarme für leere Starterbatterie.  nur beim BMV-602
  235. 			{
  236. 	#readingsBulkUpdate($hash,"_H13",$e_[1]);
  237.         readingsBulkUpdate($hash,"Alarm_leere_Starterbatterie_Anzahl",$e_[1]);
  238. 			}
  239.       if($e_[0] eq "H14") # Anzahl der Alarme bezüglich der Zahl der Überspannungsalarme nur beim BMV-602 
  240. 			{
  241. 	#readingsBulkUpdate($hash,"_H14",$e_[1]);
  242.         readingsBulkUpdate($hash,"Alarm_Ueberspannung_Starterbatterie_Anzahl",$e_[1]);
  243. 			}
  244.       if($e_[0] eq "H15") # Minimale Starter-Batterie-Spannung.  nur beim BMV-602 
  245. 			{
  246. 	#readingsBulkUpdate($hash,"_H15",$e_[1]);
  247.         readingsBulkUpdate($hash,"Starterbatteriespannung_minimal",sprintf("%.2f",$e_[1] / 1000));
  248. 			}
  249.       if($e_[0] eq "H16") # Maximale Starterbatteriespannung  nur beim BMV-602
  250. 			{
  251. 	#readingsBulkUpdate($hash,"_H16",$e_[1]);
  252.         readingsBulkUpdate($hash,"Starterbatteriespannung_maximal",sprintf("%.2f",$e_[1] / 1000));
  253. 			} 
  254.       if($e_[0] eq "Alarm")
  255. 			{
  256. 	#readingsBulkUpdate($hash,"_Alarm",$e_[1]);
  257.         readingsBulkUpdate($hash,"Alarmzustand",$e_[1]);
  258. 			}
  259.       if($e_[0] eq "AR")
  260. 			{
  261. 				 # Alarm Reason :
  262.                                    #Low Voltage                 1 
  263.                                    #High Voltage                2 
  264.                                    #Low SOC                     4 
  265.                                    #Low Starter Voltage         8 
  266.                                    #High Starter Voltage        16
  267.         if($e_[1] eq "0"){readingsBulkUpdate($hash,"Alarm_Reason","-");}
  268.         elsif($e_[1] eq "1"){readingsBulkUpdate($hash,"Alarm_Reason","Low Voltage");}
  269.         elsif($e_[1] eq "2"){readingsBulkUpdate($hash,"Alarm_Reason","High Voltage");}
  270.         elsif($e_[1] eq "4"){readingsBulkUpdate($hash,"Alarm_Reason","Low SOC");}
  271.         elsif($e_[1] eq "8"){readingsBulkUpdate($hash,"Alarm_Reason","Low Starter Voltage");}
  272.         elsif($e_[1] eq "16"){readingsBulkUpdate($hash,"Alarm_Reason","High Starter Voltage");}
  273.         else{readingsBulkUpdate($hash,"Alarm_Reason","Multi-Alarm");}
  274.         #readingsBulkUpdate($hash,"_AR",$e_[1]);
  275. 			}
  276.       if($e_[0] eq "FW")
  277. 			{
  278. 	#readingsBulkUpdate($hash,"_FW",$e_[1]);
  279.         readingsBulkUpdate($hash,"BMV_Firmware",$e_[1]);
  280. 			}
  281.       if($e_[0] eq "BMV")
  282. 			{
  283. 	#readingsBulkUpdate($hash,"_BMV",$e_[1]); 
  284.         readingsBulkUpdate($hash,"BMV_Modell",$e_[1]);
  285. 			}
  286.  
  287.     } 
  288.     readingsBulkUpdate($hash,"Power",sprintf("%.2f",$Power));
  289.     #readingsBulkUpdate($hash,"Umin(System)",$Umin);
  290.     #readingsBulkUpdate($hash,"Umax(System)",$Umax);
  291. 		readingsEndUpdate( $hash, 1 );
  292. 		$buf1 = "";
  293. 	}
  294. }
  295.  
  296. #########################################################################
  297. sub BMV600_Ready($)
  298. {
  299. 	my ($hash) = @_;
  300.  
  301. 	return DevIo_OpenDev( $hash, 1, undef )
  302. 	  if ( $hash->{STATE} eq "disconnected" );
  303.  
  304. 	# This is relevant for windows/USB only
  305. 	my $po = $hash->{USBDev};
  306. 	my ( $BlockingFlags, $InBytes, $OutBytes, $ErrorFlags ) = $po->status;
  307. 	return ( $InBytes > 0 );
  308. }
  309.  
  310. #########################################################################
  311. sub BMV600_Poll($)
  312. {
  313. 	my ($hash) = @_;
  314. 	my $name = $hash->{NAME};
  315. 	push @{ $hash->{SENDBUFFER} }, $BMV600_sets{"logmode"};
  316. 	DevIo_SimpleWrite( $hash, "07F0009B01014A070F", 1 );
  317. 	Log3 $name, 5, "RS232 Modus PC-Master";
  318. 	return undef;
  319. }
  320.  
  321. #########################################################################
  322. sub BMV600_SetReading($$$$)
  323. {
  324. 	my ( $hash, $tn, $key, $val ) = @_;
  325. 	my $name = $hash->{NAME};
  326. 	Log3 $name, 4, "$name: $key $val";
  327. 	$hash->{READINGS}{$key}{TIME} = $tn;
  328. 	$hash->{READINGS}{$key}{VAL}  = $val;
  329. 	DoTrigger( $name, "$key: $val" );
  330. }
  331.  
  332.  
  333. 1;
  334.  
Runtime error #stdin #stdout #stderr 0.01s 6592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Global symbol "%attr" requires explicit package name at prog.pl line 34.
Global symbol "$readingFnAttributes" requires explicit package name at prog.pl line 42.
syntax error at prog.pl line 60, near "Log3 undef"
Execution of prog.pl aborted due to compilation errors.
https://ideone.com/pmeB2Q
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!