のりつぐのメモ

動作環境

• Windows XP
  
• テクノキット 汎用USB-I/Oキット USBIOV8/K
  
• LED 1つ
  
• 抵抗 270Ω
  
• USBケーブル(ストレート)
  
• ruby 1.8.4 mswin32
  
• vbausbio.dll
  

準備

• LED のカソード側を P10 端子に接続し抵抗を直列に入れた回路(本に載っている通り)
  
• Ruby-mswin32 バイナリ配布サイトの Download -> Release の ruby-1.8.4-i386-mswin32.zip
  
• 「汎用USB-IO試用レポート」の「ABで汎用USB-IO（VBA用の専用DLL使用）」の vbausbio.dll
  

• ruby-1.8.4-i386-mswin32.zip を展開する
  
• 制御用のスクリプトを置くディレクトリに vbausbio.dll を置く
  
• コマンドプロンプト(DOS窓)で制御用のスクリプトを置くディレクトリに移動する(例： cd c:\tmp)
  

Win32API モジュールを使ったスクリプト

require 'optparse'
require 'Win32API'

USAGE = "ruby usb_io1.rb [--on|--off] [-h]"

opt_onoff = :ON

ARGV.options {|opt|
opt.on( '--on') { opt_onoff = :ON }
opt.on( '--off') { opt_onoff = :OFF }
opt.on('-h', '--help') { puts USAGE; exit 0 }

opt.parse!
}


def led_off(f)
f.call(1, 255, 0)
end

def led_on(f)
f.call(1, 0, 0)
end

uio_out = Win32API.new('vbausbio.dll', 'uio_out', %w(I I I), 'I')

if opt_onoff == :ON
led_on(uio_out)
else
led_off(uio_out)
end

dl モジュールを使ったスクリプト

require 'optparse'
require 'dl/import'

USAGE = "ruby usb_io2.rb [--on|--off] [-h]"

opt_onoff = :ON

ARGV.options {|opt|
opt.on( '--on') { opt_onoff = :ON }
opt.on( '--off') { opt_onoff = :OFF }
opt.on('-h', '--help') { puts USAGE; exit 0 }

opt.parse!
}

module USB_IO
extend DL::Importable
dlload "vbausbio.dll"
extern "long uio_out(long, long, long)"
end

if opt_onoff == :ON
USB_IO.uio_out(1, 0, 0)
else
USB_IO.uio_out(1, 255, 0)
end

動作確認

> D:\tmp\soft\ruby-1.8.4-i386-mswin32\bin\ruby.exe usb_io.rb

> D:\tmp\soft\ruby-1.8.4-i386-mswin32\bin\ruby.exe usb_io.rb --off

まとめ

• テクノキット 汎用USB-IOキットに接続した LED の点灯を ruby から制御するスクリプトを書いた
  
• LED の点灯を制御することができた
  
  
• 今度 GUI のついたスクリプトを書いてみよう〜
  

手作りUSB機器―USB‐IOで作る電子ルーレットからWebカメラまで