ea1392f265
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2890 2b470e98-0d58-463d-a4d8-8e2adae1ed80
260 lines
6.3 KiB
Perl
Executable File
260 lines
6.3 KiB
Perl
Executable File
#############################################
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Device::Firmata;
|
|
use Device::Firmata::Constants qw/ :all /;
|
|
|
|
#####################################
|
|
|
|
my %sets = (
|
|
"text" => "",
|
|
"home" => "",
|
|
"clear" => "",
|
|
"display" => "on,off",
|
|
"cursor" => "",
|
|
"scroll" => "left,right",
|
|
);
|
|
|
|
my %gets = (
|
|
);
|
|
|
|
sub
|
|
FRM_LCD_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{DefFn} = "FRM_Client_Define";
|
|
$hash->{InitFn} = "FRM_LCD_Init";
|
|
$hash->{SetFn} = "FRM_LCD_Set";
|
|
$hash->{UndefFn} = "FRM_LCD_Undef";
|
|
$hash->{AttrFn} = "FRM_LCD_Attr";
|
|
$hash->{StateFn} = "FRM_LCD_State";
|
|
|
|
$hash->{AttrList} = "IODev model backLight:on,off blink:on,off autoClear:on,off autoBreak:on,off loglevel:0,1,2,3,4,5 $main::readingFnAttributes";
|
|
# autoScroll:on,off direction:leftToRight,rightToLeft do not work reliably
|
|
}
|
|
|
|
sub
|
|
FRM_LCD_Init($)
|
|
{
|
|
my ($hash,$args) = @_;
|
|
my $u = "wrong syntax: define <name> FRM_LCD <type> <size-x> <size-y> [<address>]";
|
|
|
|
return $u if(int(@$args) < 3);
|
|
|
|
$hash->{type} = shift @$args;
|
|
$hash->{sizex} = shift @$args;
|
|
$hash->{sizey} = shift @$args;
|
|
$hash->{address} = shift @$args if (@$args);
|
|
|
|
return "no IODev set" unless defined $hash->{IODev};
|
|
return "no FirmataDevice assigned to ".$hash->{IODev}->{NAME} unless defined $hash->{IODev}->{FirmataDevice};
|
|
|
|
if (($hash->{type} eq "i2c") and defined $hash->{address}) {
|
|
require LiquidCrystal_I2C;
|
|
my $lcd = LiquidCrystal_I2C->new($hash->{address},$hash->{sizex},$hash->{sizey});
|
|
$lcd->attach($hash->{IODev}->{FirmataDevice});
|
|
$lcd->init();
|
|
$hash->{lcd} = $lcd;
|
|
my $name = $hash->{NAME};
|
|
# FRM_LCD_Apply_Attribute($name,"backlight");
|
|
# FRM_LCD_Apply_Attribute($name,"autoscroll");
|
|
# FRM_LCD_Apply_Attribute($name,"direction");
|
|
# FRM_LCD_Apply_Attribute($name,"blink");
|
|
if (! (defined AttrVal($name,"stateFormat",undef))) {
|
|
$main::attr{$name}{"stateFormat"} = "text";
|
|
}
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub FRM_LCD_Attr(@) {
|
|
my ($command,$name,$attribute,$value) = @_;
|
|
my $hash = $main::defs{$name};
|
|
if ($command eq "set") {
|
|
$main::attr{$name}{$attribute}=$value;
|
|
FRM_LCD_Apply_Attribute($name,$attribute);
|
|
}
|
|
}
|
|
|
|
sub FRM_LCD_Apply_Attribute {
|
|
my ($name,$attribute) = @_;
|
|
my $lcd = $main::defs{$name}{lcd};
|
|
if (defined $lcd) {
|
|
ATTRIBUTE_HANDLER: {
|
|
$attribute eq "backLight" and do {
|
|
if (AttrVal($name,"backLight","on") eq "on") {
|
|
$lcd->backlight();
|
|
} else {
|
|
$lcd->noBacklight();
|
|
}
|
|
last;
|
|
};
|
|
$attribute eq "autoScroll" and do {
|
|
if (AttrVal($name,"autoScroll","on") eq "on") {
|
|
$lcd->autoscroll();
|
|
} else {
|
|
$lcd->noAutoscroll();
|
|
}
|
|
last;
|
|
};
|
|
$attribute eq "direction" and do {
|
|
if (AttrVal($name,"direction","leftToRight") eq "leftToRight") {
|
|
$lcd->leftToRight();
|
|
} else {
|
|
$lcd->rightToLeft();
|
|
}
|
|
last;
|
|
};
|
|
$attribute eq "blink" and do {
|
|
if (AttrVal($name,"blink","off") eq "on") {
|
|
$lcd->blink();
|
|
} else {
|
|
$lcd->noBlink();
|
|
}
|
|
last;
|
|
};
|
|
}
|
|
} else {
|
|
main::Log (3, "no lcd found");
|
|
}
|
|
}
|
|
|
|
sub FRM_LCD_Set(@) {
|
|
my ($hash, @a) = @_;
|
|
return "Need at least one parameters" if(@a < 2);
|
|
my $command = $a[1];
|
|
my $value = $a[2];
|
|
return "Unknown argument $a[1], choose one of " . join(" ", sort keys %sets)
|
|
if(!defined($sets{$command}));
|
|
my $lcd = $hash->{lcd};
|
|
COMMAND_HANDLER: {
|
|
$command eq "text" and do {
|
|
if (AttrVal($hash->{NAME},"autoClear","on") eq "on") {
|
|
$lcd->clear();
|
|
}
|
|
if (AttrVal($hash->{NAME},"autoBreak","on") eq "on") {
|
|
my $sizex = $hash->{sizex};
|
|
my $sizey = $hash->{sizey};
|
|
my $start = 0;
|
|
my $len = length $value;
|
|
for (my $line = 0;$line<$sizey;$line++) {
|
|
$lcd->setCursor(0,$line);
|
|
if ($start<$len) {
|
|
$lcd->print(substr $value, $start, $sizex);
|
|
} else {
|
|
last;
|
|
}
|
|
$start+=$sizex;
|
|
}
|
|
} else {
|
|
$lcd->print($value);
|
|
}
|
|
main::readingsSingleUpdate($hash,"text",$value,1);
|
|
last;
|
|
};
|
|
$command eq "home" and do {
|
|
$lcd->home();
|
|
last;
|
|
};
|
|
$command eq "clear" and do {
|
|
$lcd->clear();
|
|
main::readingsSingleUpdate($hash,"text","",1);
|
|
last;
|
|
};
|
|
$command eq "display" and do {
|
|
if ($value ne "off") {
|
|
$lcd->display();
|
|
} else {
|
|
$lcd->noDisplay();
|
|
}
|
|
last;
|
|
};
|
|
$command eq "cursor" and do {
|
|
my ($x,$y) = split ",",$value;
|
|
$lcd->setCursor($x,$y);
|
|
last;
|
|
};
|
|
$command eq "scroll" and do {
|
|
if ($value eq "left") {
|
|
$lcd->scrollDisplayLeft();
|
|
} else {
|
|
$lcd->scrollDisplayRight();
|
|
}
|
|
last;
|
|
};
|
|
}
|
|
}
|
|
|
|
sub FRM_LCD_State($$$$)
|
|
{
|
|
my ($hash, $tim, $sname, $sval) = @_;
|
|
|
|
STATEHANDLER: {
|
|
$sname eq "text" and do {
|
|
FRM_LCD_Set($hash,$hash->{NAME},$sname,$sval);
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
|
|
sub
|
|
FRM_LCD_Undef($$)
|
|
{
|
|
my ($hash, $name) = @_;
|
|
}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="FRM_I2C"></a>
|
|
<h3>FRM_I2C</h3>
|
|
<ul>
|
|
represents an integrated curcuit connected to the i2c-pins of an <a href="http://www.arduino.cc">Arduino</a>
|
|
running <a href="http://www.firmata.org">Firmata</a><br>
|
|
Requires a defined <a href="#FRM">FRM</a>-device to work.<br>
|
|
this FRM-device has to be configures for i2c by setting attr 'i2c-config' on the FRM-device<br>
|
|
it reads out the ic-internal storage in intervals of 'sampling-interval' as set on the FRM-device<br><br>
|
|
|
|
<a name="FRM_I2Cdefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <name> FRM_I2C <i2c-address> <register> <bytes-to-read></code> <br>
|
|
Specifies the FRM_I2C device.<br>
|
|
<li>i2c-address is the (device-specific) address of the ic on the i2c-bus</li>
|
|
<li>register is the (device-internal) address to start reading bytes from.</li>
|
|
<li>bytes-to-read is the number of bytes read from the ic</li>
|
|
</ul>
|
|
|
|
<br>
|
|
<a name="FRM_I2Cset"></a>
|
|
<b>Set</b><br>
|
|
<ul>
|
|
N/A<br>
|
|
</ul>
|
|
<a name="FRM_I2Cget"></a>
|
|
<b>Get</b><br>
|
|
<ul>
|
|
N/A<br>
|
|
</ul><br>
|
|
<a name="FRM_I2Cattr"></a>
|
|
<b>Attributes</b><br>
|
|
<ul>
|
|
<li><a href="#IODev">IODev</a><br>
|
|
Specify which <a href="#FRM">FRM</a> to use. (Optional, only required if there is more
|
|
than one FRM-device defined.)
|
|
</li>
|
|
<li><a href="#eventMap">eventMap</a><br></li>
|
|
<li><a href="#readingFnAttributes">readingFnAttributes</a><br></li>
|
|
</ul>
|
|
</ul>
|
|
<br>
|
|
|
|
=end html
|
|
=cut
|