気の向くままに辿るIT/ICT/IoT
webzoit.net
IoT・電子工作

自作ラズパイスマートスピーカーでエアコンを音声操作

ウェブ造ホーム前へ次へ
サイト内検索
カスタム検索
Raspberry Piって?

自作ラズパイスマートスピーカーでエアコンを音声操作

自作ラズパイスマートスピーカーでエアコンを音声操作

2019/04/14

 以前、作って運用しつつもブラッシュアップ中のRaspberry Pi 3 Model B+とJuliusOpen JTalkベースの自作スマートスピーカーがあります。

 主な機能は、

 尚、ラズパイ用ACアダプタを挿したスイッチ付きコンセントでのON/OFFとは別にラズパイ用boot/reboot/shutdown物理ボタン付き。

 ちなみに便利なのでラズパイだけでなく、PC/Debianにも自作スマートスピーカー機能を搭載しています。

SHARP製エアコンを音声操作

自作ラズパイスマートスピーカーで操作する古いエアコンSHARP AY-M28SC

 今回は、エアコンを音声で操作します。

 家電操作リモコンには、やはり、ESP8266による自作スマートリモコンを使い、今回は、ESP-01/12/ESP32でSHARP製エアコンをWiFi操作します。

概要

 詳細は、自作スマートスピーカー、自作スマートリモコン、エアコン操作など各リンク先に譲りますが、概要としては、次のようになります。

 何をどう操作するかイメージすべく、

$ pwd
/home/xxx/julius/path/to/dictation-kit
$ vi ./mydic.list
<sil> [] silB
<sil> [] silE
<sp> [] sp
スタンバイ [スタンバイ] s u t a N b a i
ニュートラル [ニュートラル] n u t o r a r u
...
エアコン自動運転 [自動] e a k o N j i d o: u N t e N
冷房つけて [冷房] r e i b o u t u k e t e
暖房つけて [暖房] d a N b o u t u k e t e
除湿して [除湿] j o s i t u s i t e
エアコン空気清浄つけて [空気清浄] e a k o N k u: k i s e i j o: t u k e t e
エアコン消して [エアコン停止] e a k o N k e s i t e
エアコン止めて [エアコン停止] e a k o N t o m e t e
...
$ iconv -f utf8 -t eucjp mydic.list > mydic.eucjp
$

 ちなみに家のシャープのエアコン(や東芝 大清快[2019/05/02追記])には、空気清浄機能(プラズマクラスタ、[2019/05/02追記]プラズマ空清)もついています。

 音声認識ソフトウェアJulius用には、

 []内が応答スクリプトvoicerecieve.plに音声テキスト(条件分岐の条件)として渡される部分。

$ pwd
/home/xxx/sound/
$ vi ./voicerecieve.pl
#!/usr/bin/env perl
...
      # 【エアコン】
      when("自動"){
       system("/home/xxx/sound/script/aircon_control.pl AUTO_DRIVE &");
      }
 ...
      when("冷房"){
       system("/home/xxx/sound/script/aircon_control.pl COOLER &");
      }
 ...
      when("暖房"){
       system("/home/xxx/sound/script/aircon_control.pl HEATER &");
      }
 ...
      when("空気清浄"){
       system("/home/xxx/sound/script/aircon_control.pl AIR_CLEANER &");
      }
 ...
      when("エアコン停止"){
       system("/home/xxx/sound/script/aircon_control.pl STOP &");
      }
 ...
 

 Juliusから渡される音声テキストへの応答スクリプトvoicerecieve.plは、

 このようなPerlスクリプトの場合、system()を使って実際の家電操作スクリプトaircon_control.plを呼ぶ。

$ pwd
/home/xxx/sound/script
$ vi ./aircon_control.pl
#!/usr/bin/env perl
use utf8;
#use strict;
use warnings;
 
use 5.10.0;
 
use Encode;
use IO::Socket;
 
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request::Common( "GET" );
 
# エアコン用スマートリモコンサーバー
local $esp_aircon1_server='esp_aircon1.local';
 
if ($ARGV[0] eq "AUTO_DRIVE"){
  print "$esp_aircon1_server/AUTO_DRIVE ON\n";
 
  #### インスタンスの生成
  my $ua = new LWP::UserAgent;
  $ua->timeout( 10 );
  #### 要求条件を生成
  my $req = GET( "http://esp_aircon1.local/AUTO_DRIVE" );
  my $res = $ua->request( $req );
  print $res->as_string;
}
...
elsif ($ARGV[0] eq "COOLER"){
  print "$esp_aircon1_server/COOLER ON\n";
  my $ua = new LWP::UserAgent;
  $ua->timeout( 10 );
  my $req = GET( "http://esp_aircon1.local/COOLER" );
  my $res = $ua->request( $req );
}
...
elsif ($ARGV[0] eq "HEATER"){
  print "$esp_aircon1_server/HEATER ON\n";
  my $ua = new LWP::UserAgent;
  $ua->timeout( 10 );
  my $req = GET( "http://esp_aircon1.local/HEATER" );
  my $res = $ua->request( $req );
}
...
elsif ($ARGV[0] eq "AIR_CLEANER"){
  print "$esp_aircon1_server/AIR_CLEANER ON/OFF\n";
  my $ua = new LWP::UserAgent;
  $ua->timeout( 10 );
  my $req = GET( "http://esp_aircon1.local/AIR_CLEANER" );
  my $res = $ua->request( $req );
}
...
elsif ($ARGV[0] eq "STOP"){
  print "$esp_aircon1_server/STOP\n";
  my $ua = new LWP::UserAgent;
  $ua->timeout( 10 );
  my $req = GET( "http://esp_aircon1.local/STOP" );
  my $res = $ua->request( $req );
}
...
else {
  print "Argument Error!";
}

 エアコン各種操作スクリプトaircon_control.plは、

 ユーザーエージェントのインスタンス化、タイムアウト、リクエスト要求は、共用してもよいかも。

 また、use文は、要らないのもあるかも。

 自動起動時(や現在のログイン状態)に反映すべく、

 リモコン送受信回路については、

ウェブ造ホーム前へ次へ