ＴＥＸＣＥＬＬ　ＲｕｂｙでシーケンサＴＣＰ／ＩＰ通信（ＱＪ７１Ｅ７１）

三菱電機（株）製シーケンサＱシリーズのＥｔｈｅｒｎｅｔインターフェースユニットへＲｕｂｙにより通信を行います。実行環境は、以下となります。

項目	内容
Ｒｕｂｙのバージョン	ruby 1.9.3p0 (ActiveScriptRuby）
対象としたユニット	Ｅｔｈｅｒｎｅｔインターフェースユニット　QJ71E71-100、QJ71E71、QJ71E71-B2
通信手順	ＭＣプロトコル　ＱｎＡ互換３Ｅフレーム

■ ＥｔｈｅｒｎｅｔインターフェースユニットQJ71E71-100、QJ71E71、QJ71E71-B2での設定

ＧＸ－ＤｅｖｅｌｏｐｅｒによりネットワークパラメータＭＥＬＳＥＣＮＥＴ／Ｅｔｈｅｒｎｅｔで設定します。

1)動作設定

項目	内容
交信データコード設定	「ＡＳＣＩＩコード交信」を選択
イニシャルタイミング設定	「常にＯＰＥＮ待ち（ＳＴＯＰ中交信可能）」を選択
ＩＰアドレス設定	入力形式「１０進数」を選択ＩＰアドレスをここでは、「１９２．１６８．１．７７」と設定します。
送信フレーム設定	「Ethernet(V2.0)」を選択
ＲＵＮ中書き込み	チェックマークあり（許可）とします。
ＴＣＰ生存確認設定	「Ｐｉｎｇを使用」を選択

2)オープン設定

任意の１局に以下の項目を設定します。

項目	内容
プロトコル	「ＴＣＰ」を選択
オープン方式	「Ｕｎｐａｓｓｉｖｅ」（受動的オープン）を選択
固定バッファ	「送信」を選択　ＭＣプロトコルの場合は、「送信」、「受信」どちらでも良い
固定バッファ交信手順	「手順あり」を選択
ペアリングオープン	「ペアにしない」を選択
生存確認	「確認する」を選択
自局ポート番号	ここでは、「２０００」と設定します。　１６進で設定します。
交信相手ＩＰアドレス	設定不要
交信相手ポート番号	設定不要

■ サンプルソフト

下記サンプルソフトは、レジスタのＤ０１００より１０ワード読み込みを行ってます。エラー処理は行ってません。「Q」キーで終了します。

「wincons.rb」の説明及びダウンロード

# -*- coding: shift_jis -*-
# QJ71E71 TCP MC QnA互換3E
require 'socket'
require "./wincons"

htcp = TCPSocket.new("192.168.1.77",0x2000)
iflg = 0
src = 0

thr = Thread.start{ #受信スレッド
  loop{
    src = htcp.recv(100,0)
    iflg = 1
  }
}

cons1 = Console.new(__ENCODING__)
istep = 1

# サブヘッダー Qヘッダー
ched = "5000" + "00" + "FF" + "03FF" + "00" + "0000" + "0010"
# コマンドサブ コマンド D100より10ワード読み込み
srsbcmd = "0000"        #サブコマンド
sdv = "D*"              #Dデバイス
itopad = 100            #読み込み先頭
ireadsu = 10            #読み込み個数
# コマンドサブ コマンド M100より20ビット読み込み
#srsbcmd = "0001"        #サブコマンド
#sdv = "M*"              #Mデバイス
#itopad = 100            #読み込み先頭
#ireadsu = 20            #読み込み個数

cscmd = "0401" + srsbcmd + sdv + sprintf("%06d",itopad) + sprintf("%04X",ireadsu)
ilen = cscmd.length + 4  #要求データ長
ched[14,4] = format("%4.4X",ilen)
sa = ched + cscmd

loop{
  case istep
    when 1
      iflg = 0
#      p sa
      htcp.send(sa,0)
      istep = 2
    when 2
      if iflg == 1
#        p src
        sd = ""; ik = 0
        if sdv == "D*" then ik = 4 end
        if sdv == "M*" then ik = 1 end
        for ia in 0..(ireadsu - 1)
          sd += src[22 + ia * ik,ik] + ","
        end
        cons1.cprint sd + "¥r¥n"
#        sleep 0.2  #表示遅延用
        istep = 1
      end
  end
  ca, = cons1.inkey
  if ca == "q" || ca == "Q"
    thr.exit #kill
    thr.join
    htcp.close
    break
  end
  sleep 0.01
}