[Gainer] Perl用Device::Gainerモジュールを書いてみた Kawa.netブログ（川崎有亮）/ウェブリブログ

[Gainer] Perl用Device::Gainerモジュールを書いてみた

<< 作成日時： 2008/02/09 05:25 >>

ActionScriptやRubyではGainerを使えるのに、Perlから使えないのは寂しい。
Device::Gainerモジュールを書いてみた。4時間くらいかかった。
とりあえず、Gainer の最低限の機能が一通り使えるようになりました。
テストやドキュメントは全く書いてないけど、とりあえずCodeReposに晒してみます。

http://svn.coderepos.org/share/lang/perl/Device-Gainer/trunk/lib/Device/Gainer.pm

基板上の配線は、trick7 寺井くんがやってくれたもの。先生ありがとう！

use Device::Gainer; my $gainer = Device::Gainer->new( host => '192.168.1.xx' ); $gainer->on_pressed( sub { print "PRESS\n"; } ); $gainer->on_released( sub { print "RELEASE\n"; } ); $gainer->turn_on_led(); $gainer->turn_off_led();

みたいなコードで使えます。

Gainer の USB ドライバは別途、インストールが必要です。
gsp (GAINER serial proxy) も、起動しておいて下さい。
VMware (Debian) 上の Perl から、ホスト Windows 上の gsp を呼び出して試しました。
そのほか Gainer について詳しくは、こちら：　http://gainer.cc/

`メソッド名`	コマンド	内容
`turn_on_led`	h*	オンボードLED点灯
`turn_off_led`	l*	オンボードLED消灯
`digital_output`	D____*	デジタル出力（4ポート一括）
`set_high`	H_*	デジタル出力をhigh（ポートごと）
`set_low`	L_*	デジタル出力をlow（ポートごと）
`peek_digital_input`	R*	デジタル入力読取り（1回のみ）
`analog_output`	a___*	アナログ出力（ポートごと）
`peek_analog_input`	I*	アナログ入力読取り（1回のみ）
`on_pressed`	N*	オンボードボタンを押した時のコールバック
`on_released`	F*	オンボードボタンを離した時のコールバック