EDX-1500Aユーザ様用フリーソフト（共和計測）

各種ダウンロード

最終更新日 3月17日

ソフト名	EDX1500Binary Version1.0
種類	ActiveX DLL （コードコンポーネント）
対応機種	KYOWA EDX-1500A（特注品等は対象外）
動作言語	Excel 2000 以降 VBA / Visual Basic 6.0 Visual Basic .Net / Visual C#
対応ＯＳ	Windows95 / Windows98 / WindowsMe WindowsNT / Windows2000 / WimdowsXP
著作権	株）共和計測
転載	事前にメールで連絡してください
サポート	基本的になし

KYOWA EDX-1500Aのデータファイル（バイナリ）を直接読み込むことが出来るライブラリです。

ダウンロードしたファイルを実行すると、自己解凍してからセットアップがスタートします。指定するのはインストール先だけです。なお、Visual Basic SP5 のランタイムが同時にインストールされます。アンインストールは「アプリケーションの追加と削除」から行ってください。

Excelのサンプルマクロが一緒にインストールされますので、参考にしてください。ただし、Excelの最大行数以上のデータは読み込むことが出来ません。
ファイル名：ReadEDX1500.xls

基本的な使用方法は以下の通りです。詳細はサンプルおよびリファレンスを参照してください。

Visual Basic のIDEで「EDX-1500 Binary Code Component」に参照設定してください。
モジュールの宣言セクションに次の宣言を記述してください。
Pablic myEDX1500 As EDX1500
インスタンスを作成するコードを記述します。
Set myEDX1500 = New EDX1500
名前を指定してEDX-1500Aのバイナリファイルを開きます。
myEDX1500.ReadOpen("DATA001.KS1")
各種集録条件を取得します。
Dim FileTitle As String
Dim StartDateTime As String
Dim ChannelComments As Variant
FileTitle = myEDX1500.FileTitle
StartDateTime = Format$
(myEDX1500.StartDateTimeValue, _
"yyyy/mm/dd hh:nn:ss")
ChannelComments = myEDX1500.ChannelComments
集録データを取得します。
Dim MeasureData As Variant
MeasureData = myEDX1500.GetData
インスタンスを破棄します。
Set myEDX1500 = Nothing

Visual C# のIDEで、「プロジェクト」メニューの「参照の追加」をクリックし、「ＣＯＭ」タブをクリックして「使用できる参照」の中から「EDX -1500 Binary Code Component」を選択します。
名前空間を指定します。
using EDX1500Binary;
インスタンスを作成するコードを記述します。
EDX1500 myEDX1500 = new EDX1500();
名前を指定してEDX-1500Aのバイナリファイルを開きます。
bool result = myEDX1500.ReadOpen ("C:\\DATA001.KS1");
各種集録条件を取得します。
string FileTitle = myEDX1500.FileTitle;
DateTime StartDateTime = DateTime.Parse(myEDX1500.StartDateTime);
object[] ChannelComments = (object[])myEDX1500.ChannelComments
string ChannelComment1 = ChannelComments[0].ToString();
集録データを取得します。
object[,] MeasureData = (object[,])myEDX1500.GetData();
string MeasureData1_1 = MeasureData[0, 0].ToString();
ファイルを閉じます。
myEDX1500.Clear;