１０：３５から１２：５３の間で、一分毎に全部で１３５回計測しました。
PHP+EXPECTを使って、実際には約１kmほど離れたところにあるデータセンタのWEBサーバからVPNを使って、実験室まで接続して計測しました。今回はVPNを使ってLOCALIPで接続していますが、もちろん環境さえ許せば、インターネット上のGLOBALIPを使っても計測可能です。

さて、このデータを早速グラフにしてみましょう。
グラフを書くには色々な方法があり、このGAIASENSORでも既に紹介していますPHPlotというものが便利です。

http://www.gaiasensor.com/archives/2006/04/post_17.html

まず、今回使用しているシリアル・ネットワークコンバータはPort10001でTELNETサーバが動いています。
このPortにアクセスすれば、RS-232Cで接続された計測器と通信することになります。TELNETなどはLINUXではデフォルトで入っていますので、これを利用します。
WEBサーバから手動でTELNETを使って、他のサーバなどにアクセスするのは簡単ですが、自動処理となるとちょっと工夫が必要です。
さて、IPアドレスが 192.168.13.171 でPort 10001にアクセスするには、Unixのシェルで

さて、このようにtelnetでアクセスした際には、ユーザ名やパスワード、そしてコマンド等を入力する必要があります。定期的に処理をするには、このような処理を自動化しないといけません。
そこで、そういったTELNETなどキャラクタベースのコマンドモードでの自動処理を簡単に実現できるソフトウエアにEXPECTというものがあります。

expectのホームページ http://expect.nist.gov/

昔、モデムを使ったパソコン通信で「オートパイロット」を使って、NIFTYや日経MIXなど複数のパソコン通信サイトにアクセスし、掲示板を一括ダウンロード！、などの経験の
ある方もいらっしゃるかもしれません。このEXPECTというものは、その「オートパイロット」をUnixの標準入力などに対して設定できる便利なソフトウエアです。
サーバからプロンプトとして出される username: や password: などを受け取るとそれに応じて、ユーザ名やパスワードを出力してくれるのです。
今回は計測器に接続して放射温度計に対して温度を取得するコマンドである「：」を出力し、そのデータをファイルに保存します。

まず、EXPECTを使って簡単な放射温度計IT-550のデータを取得するスクリプトを書いてみましょう。

簡単に説明しますと、タイムアウトは１０秒、LOGの標準出力はOFFにしておいて telnetを実行。'が出力されたら温度を取得する:を出力。
現状の設定では:がエコーバックされるので、それをまって、標準出力をONにして、温度を出力。
24.5 C などと出力されますので、Cを待って終了。

という処理です。このスクリプトをit_temp.exp として保存しておき、実行フラグを設定しておきます。

さて、これに計測時間も付け加えて、ファイルに保存するために以下のPHPのスクリプトを使いました。
もちろん、上記のEXPECTのスクリプトに手を加えても可能ですが、ここでは手馴れたPHPで処理をしてみました。
（といっても4行ですが...。）

単に、日付を温度データの前につける処理をしているだけです。
後は、これを定期的に実行して、その出力をファイルに保存します。

さて、定期的なファイルの実行にはUnixの場合CRONを使います。CRONはもっとも細かくて1分間に一度の処理しかできませんが、一般的な環境計測であれば十分な間隔かと思います。
もし、もっと短い周期でデータを取得するのであれば、アプリケーション側で工夫する必要があります。

定期的に実行する処理を記述するCRONTABは以下のように書いてみました。

これでit_temp.log に毎分計測した温度データが蓄積されます。

IPさえ繋がってさえいれば、どんな遠隔地のデータでも取得できます。きっと、月の上や火星の計測器にもきっとIPが振られているのでしょう。
やがて、そんなIPが公開されて、火星の気温や映像がだれでもリアルタイム（火星との通信時間はかかりますが）で取得できる時代がくるのでしょうね。

TELNET経由でアクセスしてみた。ホリバの放射温度計は「：」を送信することで、温度を返すしくみになっている。さて、実際の画面を示す。

というように簡単にネットワーク化が完了だ。あとは、ネットワーク経由でデータを取得するアプリケーションを作れば、目的はほぼ完了だ。

なお、この機器と同じような機能を持つキットが販売されている。テスト用としても、あるいは簡単な実験用にも十分使える。
製品の半額くらいなので、ちょっと試して見たい方はトライしてみたらいかがだろう。筆者も組み立ててみたが、半田ごてに慣れている人であれば３０分もかからない。
【参考】組み立てキットの販売元：若松通商

●２４Term
今回、USB経由でRS-２３２ｃのシリアル接続を試み、その接続検証などに使わせていただいた。いろいろネットワークが進化しても、最初はまずシリアル通信から。そんなときにとても便利なソフトウエアだ。
図では、COM2で２３２usbで作成されたシリアルデバイスが認識されいているようすを示した。

232usbと24Termは以下で公開されている。
http://www.softclub.jp/zoro/ce/
ZERO氏に感謝。

●PHSの画面をPCから操作できる PocketVNC
http://www.pocketvnc.com/projects/pocketvnc/index.php
私は仕事の中でもVNCというソフトウエアを良く利用する。リモートデスクトップの一つだが、対応しているOSがWindows、MacそれにLinux、おまけに今回MobileWindowsでもサーバ、クライアントともに動くのでとても便利だ。
私は普段Windowsから遠隔地のMacやLinuxなどにアクセスするのにとても重宝している。また、Windows上でマニュアルなどのドキュメントを書く際に、他のOSの画面を参照しながら、必要であればスナップショットがとれるのはとても便利だ。
VNC、そしてPocketVNCの作者の方々に感謝したい。

なお、PHSとWindowsPCをUSBケーブルで接続して、ActiveSyncを使うが、この際にUSB経由でTCP/IPの接続が作られているようだ。
今回は、この接続とPocketVNCを利用してZERO3の画面を取り込んでいる。

#関数httpを使うには package http を宣言する必要がある
package require http
#データをWEBに保存する関数 getURL
proc getURL {url} {
	set token [::http::geturl $url]
}

while {[gets $232c data] >= 0} { 
	puts -nonewline $logfile "$now $data"
	.text insert  0.0 "$now $data\n"
	set url "http://www.gaiasensor.com/log.php?text=$now_$data"
	#ここで上記の関数を読み出し、WEB上へデータを保存
	getURL {$url}
	}

/*
2007.07.01 T.NAGATOMO
log.php ITの温度データの保存・表示用
dataの保存 log.php?text=xxxxx
dataの表示 log.php?cmd=1
*/
#HTMLの調整
header ("Content-Type: text/html; charset='SJIS'");
error_reporting(E_ALL);
#使用変数の取り込み
import_request_variables("gP", "rv_");
$cmd = $rv_cmd;
#日付の取得
	$now = date('Y-m-d H');
	$year = date('y');
	$mon = date('m');
	$day = date('d');
#データを保存するファイル名　it_0707.log　形式
$filename ="/var/tmp/it_$year$mon.log";
$text = $rv_text;
if ($text) {
	`echo $text >> /var/tmp/it_$year$mon.log`;
	#データをブラウザ出力する。実際には不要かも
	echo mb_convert_encoding($text,"SJIS","EUC-JP");
}
if ($cmd) {
#cmdを指定されたら、データから最新１００件を表示
	$data = array_slice(file($filename), -100, 100);
	$data = join("",$data);
	echo $data;
}

proc disptemp {logfile} {
	#時刻を取得
	set now [clock seconds]
	set now [clock format $now -format {%Y-%m-%d %H:%M:%S}]
	#com2を232cという名前で開く
	set 232c [open {com2:} w+ ]
	#232cのポートの通信条件を設定
	fconfigure $232c -mode 2400,n,8,1 -timeout 100 -handshake none
	#232cに接続された温度計にコマンド「：」をおくり温度データを出力
	puts $232c ":"
	#232cポートをフラッシュして、データを温度計に確実に送信
	flush $232c
	#データを取得した場合には保存する処理を実行
	while {[gets $232c data] >= 0} { 
		#データを保存
		#　ローカルファイルに保存
		#　ネットワーク上へ保存
	}
	#予定された時間後に再度実施する設定
	#232cポートを閉じる
	close $232c
}

それでは、早速eTcl/Tkを使ってアプリケーションの開発にあたって、簡単なスケッチを書いてみよう。

1.RS-232Cからデータを読み込む
2.データをファイルに保存する
3.同時にネットワーク上にデータを転送
4.1.からを定期的に（5分に一度程度）繰り返す

というように、今回のアプリは大きく３つの部分で構成される。

では、各部分をもう少し、具体的に見ていこう。

1.RS-232Cから定期的（5分に一度程度）データを読み込む

COMポートをClose
データを読み出すコマンド「 : +改行コード」を出力
温度計からデータ、たとえば「24.5 C」が出力されるのでこれを読み出し
COMポートをClose

2.データをファイルに保存
Fileを追加書き込みノードでOpenし、データを書き込む
FileをClose

3.ネットワーク上にデータを転送
別途用意したWEBサーバにGET形式でデータを転送
例：www.gaiasensor.com?temp=23.5
上記のようなURLへアクセスする。
なお、インターネット上のURLのアクセスには
httpパッケージが公開されている
eTcl/Tk http パッケージ
なお、このコマンドを使うときには、プログラムの冒頭で、以下の宣言が必要。
package require http

4.1.からを定期的に（5分に一度程度）繰り返す
定期的に繰り返すには、通常RepeatコマンドがTclにはあるのだが、どうもeTclには実装されていない。
そこで、一定時間後に処理を実行する After コマンドを使うことにした。

このスケッチを元にプログラムを作成するわけだが、その前にGUIの設計を簡単にしておこう。

今回は、データを[es]で読み込めるかを確認するのが、主な目的なので、GUIは極めてシンプルにしたい。必要な要素は以下で十分であろう。

1.計測を開始するボタン
2.計測結果を表示するテキストエリア
3.アプリケーションの終了ボタン

場合によっては、起動してすぐ実行を開始するのであれば1.は不要かもしれないが、作業の準備など、アプリは起動しているが、データの取り込みはしたくない場合もあるので、つけることにした。
Tkのコマンドを記載しておこう。今回は最低限度の要素を並べただけだ。

#2007.06.28
#堀場製作所放射温度計のデータをウイルコムのSmartPhone ES007SHで取り込もう！
#

#$fout は出力ファイルハンドル
#スタートボタン定義
button .start -text {TempRead} -command {
disptemp $fout
#disptempがデータ取り込みプロシージャ
}
pack .start

#データを表示するテキストエリア
text .text -width 25 -height 15
pack .text

#終了ボタン
button .b2 -text {END} -command {
close $fout
exit
}
pack .b2

さて、アプリケーションの実際のGUIをWindows上で確かめてみよう。

http://www.softclub.jp/zoro/ce/

http://www.softclub.jp/zoro/ce/

次にUSB機器を[es]に接続する際に必要となるUSBホストケーブルだが、これは量販店で入手できるTYPE A のUSBのコネクタの変換ケーブルを使った。

シリアル-USBケーブルは、以前にも使ったPCI のURS-03を使用した。一般的なシリアル－USBケーブルでも問題なく使えると思う。

さて、これらのケーブル、デバイスドライバを使って[es]で温度を取り込み、メールあるいはFTPなどネットワーク経由でデータをインターネット上のサーバへ保存することを行ってみようと考えている。

開発環境としては今回 eTcl を考えている。WindowsMobile上で簡単にGUIのアプリケーションが作成できること、また今回のように外部機器を接続して、そのデータを取り込む際には必須の外部入出力に対応していることから eTcl　を採用した。
WindowsPC版も出ており、基本的な開発をPCで済ませてしまえることも魅力の一つだ。

さて、どのようなアプリケーションが出来上がるのか、お楽しみに！！

use IO::Socket;
$port = 80; # 最近のWindwowsでは変なポートを使うと動作しないので注意

$listening_socket = IO::Socket::INET->new(LocalPort => $port,
Listen => SOMAXCONN,
Proto => 'tcp',
Reuse => 1,
);

if ( ! $listening_socket ){
die "listen できませんでした。 $!\n";
}
print "ポート $port を見張ります。\n";
while (1){
$new_socket = $listening_socket->accept();

$client_sockaddr = $new_socket->peername();
($client_port,$client_iaddr) = unpack_sockaddr_in($client_sockaddr);
$client_hostname = gethostbyaddr($client_iaddr, AF_INET);
$client_ip = inet_ntoa($client_iaddr);

print "接続: $client_hostname($client_ip) ポート $client_port\n";

select($new_socket); $|=1; select(STDOUT);

while (<$new_socket>){
print "入力コマンド：$_";
if ($_) {
$mes = `perl get_data2.pl`;
print $mes;
print $new_socket "$mes";
}
$new_socket->close();
}
print "接続が切れました。引き続きポート $port を見張ります。\n";
}
#【参考】http://x68000.q-e-d.net/~68user/net/module-1.html

$mes = "get_data";

print "$host:$port に接続します。\n";

$socket = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
);
if ( ! $socket ){
die "接続できませんでした。 $!\n";
}
# 文字列を送信
print "送信メッセージ: $mes\n";
print $socket "$mes\n";
$socket->flush();

# 文字列を受信
while ( <$socket> ) {
print "$_";
}

$socket->close();

#【参考】http://x68000.q-e-d.net/~68user/net/module-1.html

　０６年５月３日の気温と壁面温度

５月３日の１３時から翌日7時までの気温と壁面温度の変化を示したものである。
水色が壁面温度で、グリーンが気温である。壁面温度より気温の方が数度低い状態で推移している。気温は明け方に一段と冷え込んでいる様子がよくわかる。

０６年５月５日の気温と壁面温度、日照量

一方、もう一つのグラフは、５月５日の朝６時から夜10時までの気温、壁面、そして日射量（黄色）をプロットしたものである。日射量のメモリが表示されていないが、最大が午後13：30の0.41MJ/m^2であった。
なお、このグラフはpHPLOTで作成したものをpHOTOSHOPで手を加えたものだ。
pHPPLOTで第二Y軸を設定する方法がみつからない。ちょっとお粗末だが、ご勘弁を。