動作環境について |
ハードウェア環境 |
PC：Microsoft Windows2000(SP4)、WindowsXP(SP2)、WindowsServer2003(SP2)※2が動作するコンピュータ。
Ethernet通信インターフェース、またはシリアル通信インターフェイス
MELSEC：CPU（Aシリーズ、Qシリーズ）、電源、ベースの各モジュール(正常動作する組み合わせ）およびEthernetユニット、または計算機リンクユニット（Aシリーズ） |
ソフトウェア環境 |
OS：Microsoft Windows2000(SP4)、WindowsXP(SP2)、WindowsServer2003(SP2)に対応
開発言語：Microsoft VisualBasic6.0(SP6)、VisualC++6.0(SP6)、
VisualBasic.NET、VisualStudio.NET2003(SP1)、VisualStudio2005(SP1)※3 |
※2:“Windows2000 Professional”,“WindowsXP”,“WindowsServer2003”は、米マイクロソフト社の登録商標です。
※3:“MS VisualBasic.NET”は、米マイクロソフト社の登録商標です。
|
| 対応するMELSEC
CPU |
| QｎAシリーズ |
Q2A(S),Q2A(S)-S1,Q3A,Q4A,Q4AR,Q2AS(H),Q2AS(H)-S1 |
| Aシリーズ |
AOJ2H,A1S,A1SH(S1),A1SJ,A1SJH,A1N,A2C,A2CJ,A2N(S1),A2S,
A2SH,A3N,A2A(S1),A3A,A1FX,A2U(S1),A3U,A4U,A2US(S1),A2USH-S1 |
| Qシリーズ |
Q02(H),Q06H,Q12h,Q25h,Q00J,Q00,Q01,Q12PH,Q25PH |
| 通信可能なMELSECユニット |
| CPUユニット直結（RS422） |
対応する全CPUユニット |
| 計算機リンクユニット |
AJ71C24/UC24(N),A1SJ71UC24 |
| イーサネットユニット |
AJ71E71,A1SJ71E71,A1S71QE71,QJ71E71,QJ71E71-100 |
対応するデバイス |
FX,FY,FD,SM,SD,X,Y,M,L,F,V,B,D,W,TS,TC,TN,CS,CC,CN,SS,SN,SB,SW,S,
DX,DY,A,Z,V,R,ZR,ER*\R,G,J*\,U*\,Q*\,SC |
|
設備 No.1のD0レジスタの内容を取得し、テキストボックス（Text1.text)へ表示する例を示します。
（対象となるMELSECの設定は、以下の通りとしています。）
ユニット..........................................................QシリーズEthernetユニット
CPU...............................................................Q00
通信プロトコルタイプ...............................TCP/IP
ユニットとの接続ポート番号................0番
IPアドレス....................................................192.168.1.1
要求元ネットワーク番号.......................1番
要求元局番..............................................2番
対象先ユニットへのポート番号..........5002番
---example---
'宣言
Dim funObj As FunIO
Set funObj = New FunIO
Dim param As Variant
Dim DataBuf As Variant
Dim nError As FunError
'FUNのオブジェクト'通信用接続パラメータが格納
'取得したデータが格納
'メソッドの戻り値が格納
'通信用の接続パラメータを設定
param = Array("UNIT_TYPE=QJ71E71", _
"CPU_TYPE=Q00", _
"PROTOCOL_TYPE=TCPIP", _
"PORT_NUMBER=0", _
"HOST=192.168.1.1", _
"SRC_NETWORK=1", _
"SRC_STATION=2", _
"DEST_PORT=5002") 'MELSECへの接続
nError = funObj.CommInitialize(1, "funMELSEC", param) '接続がOKのとき
If nError = funOK Then
'データを取得するメソッドを実行
nError = funObj.ReadBlock(1, "D0", 1, DataBuf) 'メソッドの実行がOKのとき
If nError = funOK Then
'取得したデータをテキストボックスへ代入
Text1.Text = DataBuf(0)
End If
'MELSECとの接続を解除
nError = funObj.CommUninitialize(1)
End If |
