資料
1．使用方法
（1）システムの便用方法
①Exce1VBAの起動をするため，システムのExce1ファイル（図1）を起動し，さらにVBAを起
動ずる．
図1．システムのExce1ファイル 【起動方法】
Exce12003：「ツール」→「マクロ」→「V遁ua1Basic E曲tor」
Exce12007．2010：「開発」→ 「V由ua1Basic」
②本システムをPCのUSB端子に接続する・
③使用用途に応じたユーザーフォームを選択する（図2）．ユーザーファーム1が計測モード，ユ ーザーファーム2は制御モードである．
、薦鮒
，此｝F｝m1 ・9山置F皿就
葦」〔；ミ際■モヲユール
図2．ユーザーフォーム選択画面
④システムの切換スイッチをユーザーフォームに応じて，切換える．
⑤切換え後，選択したユーザーフォームを実行する（図3）．
⑥【計測モード1 （1）温度校正
LEDで温度測定をする際，まず初めに温度校正を行う．現在の室温（温度計で測った数値）
をユーザフォーム（図4）上のテキストボックスに入力し，その右側の測定ボタンを押す．そ うするとEx㏄1シートに入力した温度と計測した電圧値が記録される（図5）．次に恒温槽等 にLEDを入れ，室温とは異なる温度で同様の測定をする、以上の測定が終了後，温度校 正ボタンを押して，温度校正を行う．すると2点間の直線の傾き，切片が計算され，それ らの数値がシートに記録される．
（2）温度測定
「ON」を押すと校正後の温度が表示される．測定を終了するときは「OFF」を押す．
図4．ユーザーフォーム（計測モード）
協：選中肺…刈冒 し≡o跳馳シシ繍胴徴討鰍ユテム，鮎倒誠一同・閉㎞o嚇邑曲
調■．．．†ム．坪．，㍗〕㍗ト．岬．デー臼棚．．．野．．1一一義曼」一1．．．ア岬．．．岬卿
三・一二 一＝ガー 吊一，i卜．
幽棚鮒二舳一・← 1湘燃1 仰榊 ．榊
＾ 目 ．下血止一〇山一 下一0 「丁 て了 H l ア k てL …マ 一一w 星・服1
3
．4．．
葦．一
〇
9．
・@ V
胴2 v LEDの昌度センシング機能を利用した
計頑調調システム
調作兵脳醐尚大
図5．温度校正のシート1
［制御モード1（デモ用）
テキストボックスにディジタルデータ（1〜255）を入力し（図6），出力ボタンを押すとシステム のLEDが発光する．ディジタルデータが大きくなるにつれて発光強度が増加する．
HuTech L日D
「
図6．ユーザーフォーム（制御モード）
実行しているユーザフォームを停止する（図7）．
図7．ユーザーフォームの停止
2．プログラムリスト
以下に制作したシステムの計測時および制御時のプログラムを記載する．
（1）討購時のプログラム
榊榊榊㈱榊榊榊 し印の温度センシング機能を利用した計測制伺システム（計測モード）
2013年12月20日 兵庫教育大学 西村尚夫
榊榊欄榊榊燃
1Di111Wcc ＾s1，oob16， Wr6f ＾s Ooublo DiIll st＾s Intogor． ico I I ＾s Lon9
料榊｝設定榊榊鮒榊■榊榊榊榊榊㈱榊榊榊‡
Pr i ato Sub usorI＝ormLi ni tia I izoO Vcc ＝ 5．0958
Wrof ＝ Vcc ホ 2 ／ 3）
End S山
榊料鵜測定1榊帥㈱㈱榊陣鰍案湘榊榊榊榊榊竈榊榊榊閑｝榊
Pri atoSubCoo㎜andButton4＿C−ick0
0in OutOat（一） ＾s8ソto． ■nPDat（1） ＾s8ソto． ΨoD3t＾s Bソto
l＝■i l■187 ＾s 8yto， a6 ＾s 8yt6． a5 ＾s 8yto． a4＾s Byto． a3 ＾s 8yt6， a2 ＾s Oyto． a1 ＾s 8yt0 D i I11｝2 ＾s Ooob I o． T2 ＾s Ooub l o
i col l：3 0ot03t（0） ＝ 1
I榊榔榊ユニット1榊榊
OutDat｛1） ： 128 1」i o2＿out OutOat（0〕
SlooP5
u i o2＿i np 1nPDat（0）
lf lnODat（1）＝14TI16n a7： 一≡．S8 aT ； O
，榊同榊ユニット2㈱
OutDat（1） ： （128 ‡ a了） 十 64 o i o2＿out OutOat（0）
S1eoP5
u i o2＿i l lP I nPDat（0）
■f In00at（一〕 ＝一41 Ilon a6＝1 1ミ■so a6＝O
榊榊ユニット3榊
0utl〕at（1） ＝ （128 ‡ a7〕 十 （64筆a6） 十 32 ui o2＿out OutDat（0）
S108P5
u i o2＿i np −nPOat（O）
■f InpDat（1） 呈14Thon a5＝1 IミIso a5ヨ①
I榊岡榊ユニット4榊
0utOat（1） ＝ （128 ＊ a7） 十 （64事 a6） 十 （32 ホ a5） ・一・16 o i o2＿o■』t Ou1＝Dat（0）
S106P5
u i o2＿i np l・ lODat（0）
If I・1pOat（1） ＝141−hon a4：1 Iミ1s6a4＝0
I榊は榊ユニット5榊榊
OutDat（1） ＝ （128 ホ a7） 十 （64 ‡ a6） 十 （32ホ a5） 十 u i o2＿out OutOat（0）
SlooP5
u i o2＿i Ilp I npDat（0）
一f 1npI〕at（1〕 呈14Thon a3＝1IミIse a3＝O
（16 ｝ a4） 十 （8）
I榊榊ユニット6榊螂
OutDat（1） ＝ （128 ｝ a7〕 十 （64 a6） 十 （32ホ a5〕
u i o2＿out OutOat（0）
SlooP5
u i o2＿i nP l nPOat（0）
1f lnl＝一0at（1〕 ＝ 14 1．h6n a2＝ 1 E I se a2＝O
十 （16ホa4） 十 （8まa3〕
十4
榊榊ユニット7榊
OutDat（1） ＝ （128 ‡a7〕 十 u i o2＿out O凹tDat（0）
SlooP5
oio2＿inP ■nPOat（O）
1f −np．〕at（1） ＝14Thon a1
（64 ホ a6） 十 （32 ‡ a5）
＝1Els6a1＝O
十 （16 ‡ a4） 十 （8 ‡ a3） 十 （4‡a2〕
十2
榊即納ユニット8榊
0ut08t（1） 二 （128 ‡ a7） 十 （64 宗 a6） 十 （32ホ a5〕
uio2＿out O1」tDat（0）
slooP5
I」i o2＿i np ■npDat（0）
■f ■npDat（1） ＝14T・10n aO＝1 EI80aO＝O
十 （16 ホ a4〕 十 （8 ｝ a3〕 十 （4案a2） 十 （2 ま a1） 十
淋纐電圧の計算榊榊
VoOat ＝ （128 ‡ a7） 十 （64 ‡ a6） 十
V2＝Vrof｝（VoOat／256）
（32‡a5〕 十 （16 ‡ a4） 十 （8 ‡ a3） 十 （4ホa2） 十（2＊a1）
十a0
榊榊■圧の表示燃榊榊串
Labo13．CaPtion ＝ ＾V2≡… ＆■＝or㎜at（V2，
1−2 ＝ 1 ext8ox2．Toxt
＃0．OO ） ＆
ザ
Sh60t1．CoI ls（i coI一．
Shgot1，CoI l s（i c811，
End Sub
2〕．、 a Iuo ≡ T2
3），ソa」uo ＝I＝ol 皿at（V2二 山拠，oo ）
榊榊測定2欄｝榊榊榊㈱榊㈱｝榔榊は榊㈱榊榊榊榊
PriΨato S b Comland阯tton5＿C1iok0
0i．110utDat（1） ＾s 8yt6． ■npDat（1） ＾s Byto． VOI〕at ＾s l…■yto
O i l■l a7 ＾s 8yt6． a6 ＾s Byto． a5 ＾s Byto． a4＾s 8yto． a3 ＾s 8yto．
1〕i I11W1 ＾8 1＝一〇ub19． T1 ＾6 1〕oub1o
a2 ＾s 8yto．
a1＾s8yt8
i col l＝3 0utDat（O） ＝1
燃料ユ＝ット1欄｝榊
0otOat（1） … 128 u i o2＿out OutDat（0）
SlooP5
uio2＿inp InPI〕at（O）
榊榊ユニット2榊
OotOat（1） ＝ （128 ｝aフ） 十64 u i o2 oot OutDat（0）
SlooP5
u i o2＿i nP l nPOat（0）
一f lnpI〕at（1） ＝14Thon a6＝1 Iミ■so a6＝O
I榊；一一ニット3㈱
0｝tOat（1〕＝（128‡a7）十（64‡a6〕十32
u i o2＿out OutOat（0）
Slo叩5
o i o2＿i nP ■nPDat（O）
lf lnl＝■Dat（1） ＝141 Ilon a5＝1 ■≡ls6a5＝O
榊帥榊ユニット4粋榊
0I」tI〕at（1） ： （128 ‡ a1） 十 （64案 a6） 十 （32 a5） 十 16 u i o2＿out OutDat（0）
SloeP5
u i o2＿i nP ■nPOat（0）
1f lnPDat（1） 二14Th6n a4＝11≡1so a4：O
榔｝無ユニット5榊鰍
OutOat（1） ＝ （128＊ a7〕 十 （64‡ a6） 十 （32案 a5） 十 （16 ‡ a4） 十 （8）
u i o2＿out 0・jtDat（O〕
SlooP5
u i o2＿i nP I nPOat（0）
■f lIlPOat（1〕 ＝14T−16n a3＝1 IミI80a3：O
I榊は榊ユニット6榊榊
OutDat（1） ＝ （128 業 a7） 十 （64讐 a6） 十 （32‡ a5） 十 （16 讐a4） 十 （8 ‡a3）
u i o2＿out OutOat（0〕
S106P5
u i o2＿i l．1P I nPOat（0）
一f −npDat（1） ＝14Thon a2＝1 一≡lse a2＝0