それでは、早速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上で確かめてみよう。