定期的にセンサー計測値をDBに保管、クライアントPCのエクセルから集計

Transcription

1 [APNOTE06] 定 期 的 にセンサー 計 測 値 を DB に 保 管 クライアント PC の エクセルから 集 計 ABS-9000 DeviceServer APNOTE06 Rev A /11/03 オールブルーシステム (All Blue System) ウェブページ:

2 1 イントロダクション アラームデバイス(SigSensor,NetUIO)の A/D 変 換 値 や Digital 入 力 ポートの 値 を 定 期 的 に 取 得 して 随 時 クライア ントPCから 集 計 を 行 うシステムについて 説 明 します DeviceServer に 接 続 された 複 数 のアラームデバイス(SigSensor,NetUIO)の A/D 変 換 入 力 とDigital 入 力 の 値 を 定 期 的 に 取 得 して データベースに 保 管 します データベースは DeviceServerに 組 み 込 まれた Firebird DBMS を 使 用 します データ 保 管 用 のデータベースとして 外 部 の Oracle 10g サーバーを 使 用 することもできます クライアントPC のエクセルから 計 測 データの 期 間 とデバイス 名 を 指 定 して データベースに 保 管 されたデータを 取 得 して 集 計 やグラフの 作 成 等 を 行 うことができます 2 必 要 な 機 材 リソース 必 要 なシステムやデバイス 等 ABS-9000 DeviceServerの 動 作 してい るPC 説 明 スタンダードライセンスもしくはエンハンスライセンスが 必 要 になります データを 保 管 するためのデータベースに Oracle 10gを 使 用 する 場 合 は エ ンハンスライセンスが 必 要 になります ABS-9000 DeviceServerの 動 作 してい るPC の Windows OS タスクスケジュールコマンド(schtasks) を 使 用 するため DeviceServer の 動 作 している OS が WindowsXP もしくは Windows2003 である 必 要 があり ます SigSensor,NetUIOデバイス DeviceServer に 接 続 された 全 てのSigSensor,NetUIOデバイスがデータ 収 集 対 象 となります (SENSOR_ACQUISITION.lua スクリプトを 変 更 することで データ 収 集 の 機 能 をカストマイズ 可 能 です) Oracle10g サーバー(オプション) 保 管 対 象 のデータベースをFirebird からOracleに 変 更 する 時 だけ 必 要 に DeviceServer の 動 作 するPC もしくは 別 PC にOracle10g サーバーと DeviceServer の 動 作 するPCに Oracleクライアントが 必 要 です 詳 細 は DeviceServer ユーザーマニュアル を 参 照 してください なります 3 システム 構 成 図 - 2 -

3 4 システム 動 作 概 要 DeviceServer の 動 作 するPC で アラームデバイスの A/D 変 換 と Digital 入 力 値 を 取 り 込 む 様 にスケジュー ルします スケジュール 実 行 では Windows のタスクスケジューラによって 5 分 毎 に ScriptExecCmd.exe プ ログラム(DeviceServer のクライアントプログラム) が 起 動 されて SENSOR_ACQUISITION スクリプトを 実 行 し ます SENSOR_ACQUISITION スクリプトは アラームデバイスを 検 索 して A/D 変 換 値 の 取 り 込 みと Digital 入 力 値 の 取 り 込 みを 行 います その 後 タイムスタンプとデバイス 名 に 応 じたキー 名 で データベースに 取 得 した 計 測 値 を 保 管 します リモートPCもしくはサーバーPC のエクセルから DeviceServer 経 由 でデータベースに 保 管 された 計 測 値 を 取 り 込 みます 集 計 対 象 デバイスと 期 間 を 指 定 して 計 測 データをエクセルのワークシートのセルにロードして 集 計 作 業 やグラフ 作 成 などを 行 います 5 設 定 手 順 5.1 サーバー 設 定 計 測 データ 保 管 用 のデータベースに DeviceServer に 組 み 込 まれた Firebird を 使 用 する 場 合 は 特 別 にサーバー 設 定 プログラムで 設 定 する 項 目 はありません 計 測 データ 保 管 用 のデータベースに Oracle10g サーバーを 使 用 する 場 合 は サーバー 設 定 プログラムで 下 記 の 項 目 を 設 定 します このほかにもOracle サーバーに 保 管 用 テーブル 作 成 と オラクルクライアントの 設 定 が 必 要 とな ります 詳 細 は DeviceServer ユーザーマニュアル を 参 照 してください サーバー 設 定 プログラム 設 定 が 必 要 な 項 目 設 定 内 容 Oracle 接 続 機 能 を 有 効 にする チェックを 付 ける - 3 -

4 Oracleユーザー 名 Oracleパスワード ホスト 接 続 文 字 列 同 時 接 続 数 Oracle サーバーの 設 定 に 合 わせて 下 さい Oracle サーバーの 設 定 に 合 わせて 下 さい Oracle クライアントの 設 定 に 合 わせて 下 さい 4を 設 定 します Oracle クライアントライセンスによっては 設 定 可 能 な 接 続 数 に 制 限 がある 場 合 があります (1 以 上 の 値 を 設 定 する 必 要 があり ます) 5.2 デバイス 設 定 SigSensor デバイス NetUIOデバイスを LAN 上 に 設 置 します 複 数 台 設 置 して 同 時 に 計 測 データを 保 存 することも 可 能 です DeviceServer のアラーム 管 理 プログラムで 設 置 したアラームデバイスをDeviceServer に 登 録 します また アラーム 管 理 プログラムで アラームデバイス(SigSensorまたは NetUIO) の 下 記 の 項 目 の 詳 細 設 定 行 います アラーム 管 理 プログラムで 設 定 するデバイスの 詳 細 機 能 設 定 設 定 が 必 要 な 項 目 IPアドレス IPネットワークマスク デフォルトゲートウェイアドレス DINPUT 値 を 有 効 にする A/D 入 力 を 有 効 にする A/D サンプリングレート 設 定 内 容 デバイスのIP アドレスを 設 定 する デバイスを 設 置 した LAN の 環 境 に 合 わせる デバイスを 設 置 した LAN の 環 境 に 合 わせる チェックを 付 ける チェックを 付 ける 10msを 設 定 センサー 値 を 取 り 込 むスクリプトは 未 読 み 込 みで 直 近 の A/D 変 換 値 バ ッファの 平 均 値 を 読 み 込 む 様 になっています スクリプト 実 行 の 間 隔 (ス ケジュール 間 隔 5 分 ) と 比 べて ここで 設 定 したサンプリングレートと A/D バッファの 個 数 (1024) を 掛 けた 値 が 少 なくなるようにしてくださ い デバイス 登 録 と 詳 細 機 能 設 定 の 方 法 については DeviceServerユーザーマニュアル を 参 照 してください また SigSensor NetUIO デバイスの 詳 しい 使 用 方 法 については SigSensor_NetUIOユーザーマニュアル を 参 照 してく ださい 5.3 スクリプト 設 定 SENSOR_LIST スクリプト 作 成 エクセルからデバイスリストを 取 得 するためのスクリプトを 作 成 します エクセル 中 の VBA からこのスクリプトを 実 行 します DeviceServer に 接 続 中 の 有 効 なデバイスを 検 索 して 得 られたデバイスリストをエクセルに 取 り 込 み ます ファイル 名 (SENSOR_LIST.lua) で DeviceServerのスクリプトフォルダに 保 管 します - 4 -

5 アラームデバイスのリストをリターン 値 に 返 す local stat,name,type,sysalert,neterr = alarm_all_list() if not stat then error() end for key,val in ipairs(name) do if ((type[key] == "SIGSENSOR") or (type[key] == "NETUIO")) and (not neterr[key]) then script_result(g_taskid,"device#".. tostring(key),val) end end SENSOR_ACQUISITION スクリプト 作 成 アラームデバイスに 接 続 された I/O 装 置 から A/D 変 換 入 力 と Digital 入 力 の 値 を 読 み 込 んで データベースに 格 納 するスクリプトを 作 成 します スクリプトは 定 期 的 に 起 動 されることを 想 定 しています 起 動 された 時 刻 に 応 じてタイムスタンプ 文 字 列 を 決 定 し た 後 下 記 のキー 名 でデータベースに 値 を 格 納 します 1 分 以 内 にこのスクリプトが2 回 以 上 起 動 されると 後 に 実 行 された 計 測 値 で 上 書 きされます ( 同 一 キー 名 になるため) データベースに 保 管 するキー 名 値 A/D ACQ-<DeviceName>-AD-<YYYYMMDDHHMM> <ad#0>,<ad#1>,<ad#2>,<ad#3> Digital 入 力 ACQ-<DeviceName>-DIN-<YYYYMMDDHHMM> <dinput> <DeviceName> には アラームデバイス 名 が 入 ります <YYYYMMDDHHMM> には 西 暦 日 付 と 時 刻 から 成 るタイムスタンプ 文 字 列 が 入 ります ( 例 2008/1/1 6:50pm は ) <ad#n> には A/D 変 換 値 が 入 ります <dinput> には Digital 入 力 ポートの 値 が 入 ります A/D 変 換 値 は 5.2 デバイス 設 定 で 設 定 したサンプリングレートで 変 換 バッファに 格 納 された A/D 変 換 値 の 平 均 値 を 示 します 例 えば スクリプトを5 分 毎 に 起 動 して A/D サンプリングレートが 10ms の 場 合 は 5 分 毎 に 直 近 の 約 10 秒 間 の 1024 個 のサンプリング 値 の 平 均 を 取 り 出 すことになります スクリプト 中 の set_permanent_data() 部 分 を set_oracle_data() に 変 更 すると 保 管 先 のデータベースを Firebird から Oracle DBMS にすることができます ファイル 名 (SENSOR_ACQUISITION.lua) で DeviceServerのスクリプトフォルダに 保 管 します file_id = "SENSOR_ACQUISITION" - 5 -

6 BEGIN SCRIPT log_msg("start..",file_id) アラームデバイスの A/D 変 換 値 と DINPUT 値 を 読 み 込 んで -- データベースに 格 納 する -- 全 ての SIGSENSOR, NETUIOデバイスを 対 象 としてデータの 取 得 を 行 う -- 取 り 込 んだデータは 下 記 のキー 名 で DeviceServer のデータベースに 格 納 する 詳 細 説 明 はアプリケーションノート (APNOTE05) を 参 照 の 事 キー 名 : ACQ-<DeviceName>-<Type>-<YYYYMMDDHHMM> -- --<DeviceName> --<Type> デバイス 名 DINPUT 値 は 'DIN', A/D 変 値 は 'AD' が 入 る --<YYYYMMDDHHMM> 日 付 と 時 間 を 表 したタイムスタンプ 値 2001/1/31 10:20:30に -- スクリプトを 起 動 した 場 合 は ' ' になる 一 つのデバイスに DINPUT, A/D 変 換 機 能 の 両 方 がある 場 合 は 1 デバイスあたり -- <Type>が 'DIN', 'AD' を 持 った2つのデータが 格 納 される local now = os.date "*t" local timestamp = string.format("%4.4d%2.2d%2.2d%2.2d%2.2d",now["year"],now["month"],now["day"],now["hour"],now["min"]) local stat,buff1,bstat1,buff2,bstat2,buff3,bstat3,buff4,bstat4,din local key_name,data_string local stat,name,type,sysalert,neterr = alarm_all_list() if not stat then error() end for key,val in ipairs(name) do if ((type[key] == "SIGSENSOR") or (type[key] == "NETUIO")) and (not neterr[key]) then A/D データ 取 得 デバイスの 格 納 バッファにある -- 直 近 の 平 均 値 データを 使 用 する - 6 -

7 stat,buff1,bstat1,buff2,bstat2,buff3,bstat3,buff4,bstat4 = alarm_adbuff_get(val) if not stat then error() end key_name = "ACQ-".. val.. "-AD-".. timestamp data_string = string.format("%d,%d,%d,%d",bstat1["meanvalue"],bstat2["meanvalue"],bstat3["meanvalue"],bstat4["meanvalue"]) if not set_permanent_data(key_name,data_string) then error() end --if not set_oracle_data(key_name,data_string) then error() end log_msg("data stored: ".. key_name.. " <- ".. data_string,file_id) DINPUT 取 得 stat,din = alarm_din_get(val) if not stat then error() end key_name = "ACQ-".. val.. "-DIN-".. timestamp data_string = string.format("%d",din) if not set_permanent_data(key_name,data_string) then error() end --if not set_oracle_data(key_name,data_string) then error() end log_msg("data stored: ".. key_name.. " <- ".. data_string,file_id) end end END SCRIPT 注 意 スクリプト 中 に 日 本 語 を 記 述 するときは スクリプトファイルを UTF-8N 形 式 で 保 存 してください Shift_JISや UTF-8 BOM 付 き 形 式 などで 保 存 すると DeviceServer でエラーが 発 生 します Windows 付 属 のワードパッドやメモ 帳 ではこの 形 式 で 保 存 できませんので 別 途 UTF-8N 形 式 で 保 存 可 能 なエディタソフト(*1)を 使 用 してください (*1)TeraPad 等 のソフトウエアがよく 使 用 されています 6 スケジュール 実 行 用 の DeviceServer ユーザー 登 録 定 期 的 にスクリプト 実 行 を 行 うときに 使 用 する ScriptExecCmd.exe プログラムで 使 用 するユーザーアカウントを - 7 -

8 DeviceServer に 作 成 します ユーザーのアプリケーション 許 可 フラグには デフォルトの AllowLogin を 指 定 し ます ( 他 のオプションを 追 加 指 定 しても 構 いません) ここでは ユーザー 名 : data パスワード: data として 作 成 します 別 のユーザー 名 やパスワードにしても 構 い ません その 場 合 は 後 で 説 明 する ScriptExecCmd.ini ファイルに 指 定 する 内 容 も 変 更 してください DeviceServer のユーザーアカウント 作 成 の 詳 しい 説 明 は DeviceServer ユーザーマニュアル 中 の 動 作 確 認 と 簡 単 な 使 い 方 の 章 と クライアントソフトウエア の 章 を 参 照 してください 注 意 スクリプト 実 行 をスケジューラを 使 用 して 行 う 場 合 は スケジュール 毎 に 別 ユーザーアカウントを 作 成 することをお 勧 めします これは 同 一 ユーザーが 完 全 に 同 一 のタイミングでログインする 場 合 ( 複 数 のスケジュール 実 行 が 同 一 時 刻 で 実 行 される 場 合 に 発 生 します)には ログイン 処 理 中 に ユーザー 情 報 がロック 中 の 為 にエラーになる 場 合 が あるためです 7 Windows タスクスケジューラの 設 定 定 期 的 に 決 められた 時 刻 でスクリプトを 実 行 するために WindowsXP もしくは Windows2003 Server のタスクスケ ジューラとスケジュール 用 コマンド schtasks を 使 用 します また コマンドプロンプトからスクリプトを 実 行 す るためのプログラムは ABS-9000 DeviceServer インストール 時 に 保 管 されている ScriptExecCmd.exe を 使 用 しま す SENSOR_ACQUISITION スクリプトを 実 行 する タスクスケジューラのジョブ 登 録 は DeviceServer の 動 作 している PC で 行 います ScriptExecCmd.exe の 設 定 ファイルの HostName タグに localhost 以 外 を 記 述 して スケジュール 実 行 を 行 うPC と DeviceServer の 動 作 するPC を 分 けることも 可 能 です ただしSENSOR_ACQUISITION.lua 内 でタイ ムスタンプを 取 得 しているため スケジューラで 起 動 された 時 刻 とDeviceServer の 動 作 するPC の 時 刻 が 一 致 してい ないと 集 計 時 にデータ 取 得 を 行 うためのキー 名 指 定 (タイムスタンプとデバイス 名 を 元 に 指 定 する)が 困 難 になり ます 7.1 ScriptExecCmd.exe プログラムの 設 定 ScriptExecCmd.exe プログラムを "C:\Tools\Bin" に 配 置 してください また 同 一 フォルダに ScriptExecCmd.ini ファイルを 作 成 して スクリプト 名 とユーザー 名 パスワードを 予 め 指 定 しておいてください C:\Tools\Bin フォルダは フォルダ 名 に 空 白 文 字 や 日 本 語 を 含 まないようにするために 作 成 しています このフ ォルダ 以 外 の 場 所 に ScriptExecCmd.exe と ScriptExecCmd.ini ファイルを 配 置 する 場 合 は schtasks コマンドを 実 行 する 時 のパス 名 指 定 部 分 を 適 宜 変 更 してください ScriptExecCmd.iniファイルは 下 記 の 内 容 で 作 成 します ScriptExecCmd.exe を 実 行 したときに iniファイルが 見 つ からない 場 合 は 自 動 的 にiniファイルがデフォルト 値 で 作 成 されます ScriptName には SENSOR_ACQUSITION を 指 定 します HostName には localhost を 指 定 します - 8 -

9 UserName, Password は 6. スケジュール 実 行 用 の DeviceServerユーザー 登 録 で 設 定 した 値 を 指 定 します [ScriptExecCmd] ScriptName=SENSOR_ACQUISITION HostName=localhost UserName=data Password=data KeyList= ValList= ScriptExecCmd.exe プログラムと ScriptExecCmd.ini ファイルの 設 定 方 法 については DeviceServer ユーザーマ ニュアル 中 の その 他 のプログラム の 章 を 参 照 してください 7.2 タスクスケジューラへの JOB 登 録 ここでは 5 分 毎 にデータを 取 得 してデータベースに 格 納 する 例 で 説 明 します DeviceServer の 動 作 する PC で コマンドプロンプトを 起 動 して 下 記 のコマンドを 実 行 してください 必 ず シ ステム 管 理 者 権 限 を 持 った Windows アカウントでログインしてから 実 行 してください 下 記 のコマンドは Windows のシステム 管 理 者 特 権 のユーザー 名 が Administrator でパスワードが xxxxx の 場 合 の 例 になります 2 行 で 表 示 されていますが 実 際 には1 行 で 入 力 してください schtasks /create /tn ACQUISITION_TASK /sc minute /mo 5 /st 00:00:00 /ru Administrator /rp xxxxx /tr C:\tools\bin\scriptexeccmd.exe Windows タスクスケジューラと schtasksコマンド についての 詳 しい 説 明 はマイクロソフト 社 のドキュメントを 参 照 してください 8 エクセルからデータ 取 得 集 計 クライアントPC のエクセルから データベースに 保 存 された 計 測 データを 取 り 込 んで 集 計 を 行 います データの 取 得 とデータベース 保 管 は スケジューラによってバックグランドで 実 行 されていますので クライアント からの 集 計 は 任 意 のタイミングで 行 えます 以 降 で 説 明 している 内 容 は 添 付 のエクセルファイル( 計 測 データ 集 計.xls)のワークシートを 実 行 したものです 全 てのマクロ(VBA スクリプト)とワークシートシートはエクセルファイル( 計 測 データ 集 計.xls) 内 に 記 述 されていま すので 詳 細 はエクセルをデザインモードにして Visual Basic Editor で 開 いてください ここでは データ 取 り 込 み 用 のワークシートのマクロ 実 行 画 面 と マクロ(VBA スクリプト)の 動 作 について 説 明 します - 9 -

10 ( 計 測 データ 集 計.xls を 開 いた 画 面 起 動 時 にエクセルのマクロを 有 効 にして 下 さい) クライアントPC でエクセルを 実 行 する 場 合 には 予 め XASDLCMD.DLL をクライアントPC のシステムフォルダにコピ ーしておく 必 要 があります エクセルを 実 行 するPC が DeviceServer の 動 作 しているPC と 同 一 の 場 合 は DLL のコ ピーは 必 要 ありません 詳 細 は DeviceServerユーザーマニュアル の インストール 章 の ユーザーアプリケー ションを 利 用 する 場 合 の 項 目 を 参 照 してください 8.1 DeviceServer にログイン 計 測 データ 集 計.xls をエクセルで 開 いて ログイン ログアウト ワークシートを 選 択 します ログインボタンを 押 して DeviceServer にログインします この 時 に 指 定 するユーザーは DeviceServer に 登 録 済 みのユーザーを 指 定 してください スケジューラでスクリプト 実 行 用 に 作 成 したユーザー 以 外 も 指 定 することができ ます ホスト 名 には DeviceServer の 動 作 しているPC のホスト 名 を 入 力 します

11 ワークシート 内 のログインボタンを 押 した 時 に 実 行 されるマクロ(VBA) 部 分 は 以 下 の 様 に 記 述 されています ログイ ンに 成 功 するとLastSessionToken にセッショントークン 文 字 列 が 入 っています 未 ログインの 場 合 は 空 文 字 列 が 入 っています Private Sub LoginBtn_Click() If LastSessionToken <> "" Then MsgBox (" 現 在 ログイン 中 です 一 旦 ログアウトしてからやり 直 してください") Exit Sub End If LoginForm.LoginPasswordEdit.Text = "" LoginForm.Show End Sub ログインフォームの OK ボタンを 押 した 時 に 実 行 されるマクロ(VBA) 部 分 は 以 下 の 様 に 記 述 されています Private Sub CommandButton1_Click() If Not LoginUser(ServerEdit.Text, LoginNameEdit.Text, LoginPasswordEdit.Text) Then MsgBox ("ログインに 失 敗 しました") End If LoginForm.Hide End Sub 標 準 モジュールに 定 義 された LoginUser() は 以 下 の 様 になっています ' この 関 数 を 直 接 コールしないで 代 わりに LoginUser() を 使 用 してください Public Declare Function SX_LoginUser Lib "XASDLCMD.dll " (ByVal Host As String, ByVal Port As Integer, ByVal UserName As String, ByVal Password As String, ByVal Session As String) As Integer Public LastSessionToken As String Public LastLoginName As String Public LastLoginHost As String

12 Public Function LoginUser(ByVal Host As String, ByVal UserName As String, ByVal Password As String) As Boolean Dim NewSession As String * 128 If SX_LoginUser(Host, DefPort, UserName, Password, NewSession) = 0 Then LastLoginHost = Host LastLoginName = UserName LastSessionToken = NewSession LoginUser = True Else LoginUser = False End If End Function 8.2 データ 取 り 込 み 範 囲 指 定 ログインに 成 功 したら 計 測 データ 集 計 ワークシートを 選 択 します

13 最 初 にデータベースから 計 測 データを 取 得 する 条 件 を 設 定 します デバイス 名 と 日 付 範 囲 計 測 データ 間 隔 を 指 定 し ます デバイス 名 はコンボボックスになっていますので 直 接 アラームデバイスの 名 前 を 指 定 することができます デバイス 一 覧 を 取 得 ボタンを 押 すと SENSOR_LIST スクリプト 作 成 で 作 成 したスクリプトを DeviceServerで 実 行 して コンボボックスのリストに 最 新 のデバイス 名 をロードすることができます 集 計 対 象 日 付 には 集 計 対 象 の 開 始 日 を 指 定 します 集 計 対 象 日 数 には 開 始 日 から 何 日 分 のデータを 取 得 するかを 日 数 で 指 定 します アクイジション 間 隔 は 集 計 対 象 日 付 の 午 前 00:00 から 何 分 単 位 にデータを 取 得 するかを 指 定 し ます ここで 指 定 する 分 間 隔 は 7.2 タスクスケジューラへのJOB 登 録 で 指 定 した 値 の 整 数 倍 を 指 定 してください (アラームデバイス 名 SigSensor の 2008/10/19 日 から3 日 分 のデータを30 分 間 隔 で 取 得 する 例 ) 8.3 データ 取 得 と 集 計 集 計 対 象 条 件 を 入 力 した 後 に データベースから 計 測 データ 取 得 ボタンを 押 します 集 計 対 象 に 指 定 された 計 測 データを DeviceServer のデータベースから 取 得 して ワークシートのセルに 入 力 されます

14 計 測 データが 見 つからない 場 合 は セルは 空 になります A/D 変 換 値 はそれぞれのチャンネル 毎 にセルに 値 が 入 りま す Digital 入 力 ポート( 合 計 4bit) は ビット 毎 にセルに 値 が 入 り - が Low レベルで + が High レベルを 示 します 計 測 データをセルに 取 り 込 んだ 後 は エクセルで 自 由 に 加 工 して 集 計 を 行 うことができます 計 測 データの A/D 変 換 値 をグラフ 化 した 例 は 以 下 の 様 になります データベースから 計 測 データ 取 得 ボタンを 押 した 時 に 実 行 されるマクロ(VBA) 部 分 は 以 下 の 様 に 記 述 されていま す マクロ(VBA) 中 の SX_get_permanent_data() を SX_get_oracle_data() に 変 更 すると 計 測 データの 取 得 先 のデ ータベースを Firebird から Oracle DBMS にすることができます CsvToList() 関 数 等 詳 しい 内 容 はエクセルファイル( 計 測 データ 集 計.xls)の 内 容 を 参 照 してください Private Sub DoSummarizeBtn_Click() Call fetch_data End Sub Public Sub fetch_data() Dim TimeStamp As Date Dim ADKeyName As String Dim DINKeyName As String Dim i As Integer

15 Dim cntr As Integer Dim MaxSample As Integer Dim SharedValue As String * 256 Dim TmpVal As Integer TimeStamp = CDate(ActiveSheet.Range("D5").Value) + #12:00:00 AM# MaxSample = 24 * (ActiveSheet.Range("D6").Value) * (60 / ActiveSheet.Range("E7").Value) ' アクイジショ ン 間 隔 が 60 で 割 り 切 れないと 正 しく 動 作 しない For i = 1 To MaxSample ' タイムスタンプを 記 入 ActiveSheet.Cells(start_line + i - 1, start_column).value = Format(TimeStamp, "yyyy/mm/dd hh:nn") ' A/D データ 取 得 ADKeyName = "ACQ-" & DeviceListCbx.Text & "-AD-" & Format(TimeStamp, "yyyymmddhhnn") If SX_get_permanent_data(LastSessionToken, LastLoginHost, DefPort, ADKeyName, SharedValue) <> 0 Then 'If SX_get_oracle_data(LastSessionToken, LastLoginHost, DefPort, ADKeyName, SharedValue) <> 0 Then MsgBox (SVR_ERR_MSG) Exit Sub Else ' A/D データリスト(CSV)の 各 フィールドをセルに 代 入 Call CsvToList(SharedValue) For cntr = 0 To (result_csv_clmcnt - 1) ActiveSheet.Cells(start_line + i - 1, start_column cntr) = result_csv(cntr) Next cntr End If ' DINPUT データ 取 得 DINKeyName = "ACQ-" & DeviceListCbx.Text & "-DIN-" & Format(TimeStamp, "yyyymmddhhnn") If SX_get_permanent_data(LastSessionToken, LastLoginHost, DefPort, DINKeyName, SharedValue) <> 0 Then 'If SX_get_oracle_data(LastSessionToken, LastLoginHost, DefPort, DINKeyName, SharedValue) <> 0 Then MsgBox (SVR_ERR_MSG) Exit Sub Else ' 取 得 データが 空 でなかったものについて 処 理 する SharedValue = Left(SharedValue, InStr(SharedValue, vbnullchar) - 1) If Trim(SharedValue) <> "" Then TmpVal = Val(SharedValue) TmpVal = TmpVal Mod

16 For cntr = 3 To 0 Step -1 If (TmpVal >= (2 ^ cntr)) Then ActiveSheet.Cells(start_line + i - 1, start_column cntr) = "+" Else ActiveSheet.Cells(start_line + i - 1, start_column cntr) = "-" End If TmpVal = TmpVal Mod (2 ^ cntr) Next cntr End If End If TimeStamp = DateAdd("n", ActiveSheet.Range("E7").Value, TimeStamp) Next i MsgBox ("データ 取 得 完 了 しました") End Sub 9 このドキュメントについて 9.1 著 作 権 および 登 録 商 標 Copyright 2008 オールブルーシステム このドキュメントの 権 利 はすべてオールブルーシステムにあります 無 断 でこのドキュメントの 一 部 を 複 製 もしく は 再 利 用 することを 禁 じます Windows Visual Basic および Excel は 米 国 Microsoft Corporationの 米 国 およびその 他 の 国 における 登 録 商 標 ま たは 商 標 です ここではExcel をエクセル Visual Basic for Applications をVBAと 表 記 する 場 合 があります 9.2 連 絡 先 オールブルーシステム (All Blue System) ウェブページ メール contact@allbluesystem.com 9.3 このドキュメントの 使 用 について このドキュメントは ABS-9000 DeviceServer の 一 般 的 な 使 用 方 法 と 応 用 例 について 解 説 してあります お 客 様 の 個 別 の 問 題 について このドキュメントに 記 載 された 内 容 を 実 際 のシステムに 利 用 するときには ここに 記 載 されてい る 以 外 にも 考 慮 する 事 柄 がありますので ご 注 意 ください 特 に 安 全 性 やセキュリティ 長 期 間 にわたる 運 用 を 想 定 してシステムを 構 築 する 必 要 があります オールブルーシステムでは ABS-9000 DeviceServer の 使 用 や このドキュメントに 記 載 された 内 容 を 使 用 することによっ て お 客 様 及 び 第 三 者 に 損 害 を 与 えないことを 保 証 しません ABS-9000 DeviceServer を 使 用 したシステムを 構 築 するとき は お 客 様 の 責 任 の 下 で システムの 構 築 と 運 用 が 行 われるものとします