データの読み出し関数

データの書き込み関数

データの一括読み出し関数

その他の関数

ReadR (Obj As Rs, ByVal No%, ByVal CH As Long, ByVal DataNum As Long)

入出力リレー／内部補助リレー／特殊補助リレーエリア読み出し

戻り値
　関数の実行に成功した場合、10進数データの入った配列を返す。失敗した場合、配列０に-1を入れて返す。

例：
Dim d
d = ReadR(Rs1, 0, 10, 2)
If d(0) = -1 Then
　MsgBox "関数の実行に失敗しました"
Else
　Print d(0)
　Print d(1)
End If

ReadL (Obj As Rs, ByVal No%, ByVal CH As Long, ByVal DataNum As Long)

ＬＲリレーエリア読み出し

戻り値
　関数の実行に成功した場合、10進数データの入った配列を返す。失敗した場合、配列０に-1を入れて返す。

例：
Dim d
d = ReadL(Rs1, 0, 10, 2)
If d(0) = -1 Then
　MsgBox "関数の実行に失敗しました"
Else
　Print d(0)
　Print d(1)
End If

ReadH (Obj As Rs, ByVal No%, ByVal CH As Long, ByVal DataNum As Long)

ＨＲリレーエリア読み出し

戻り値
　関数の実行に成功した場合、10進数データの入った配列を返す。失敗した場合、配列０に-1を入れて返す。

例：
Dim d
d = ReadH(Rs1, 0, 10, 2)
If d(0) = -1 Then
　MsgBox "関数の実行に失敗しました"
Else
　Print d(0)
　Print d(1)
End If

ReadC (Obj As Rs, ByVal No%, ByVal CH As Long, ByVal DataNum As Long)

タイマ／カウンタエリア読み出し

戻り値
　関数の実行に成功した場合、10進数データの入った配列を返す。失敗した場合、配列０に-1を入れて返す。

例：
Dim d
d = ReadC(Rs1, 0, 10, 2)
If d(0) = -1 Then
　MsgBox "関数の実行に失敗しました"
Else
　Print d(0)
　Print d(1)
End If

ReadG (Obj As Rs, ByVal No%, ByVal CH As Long, ByVal DataNum As Long)

タイマ／カウンタアップデータ読み出し

戻り値
　関数の実行に成功した場合、10進数データの入った配列を返す。失敗した場合、配列０に-1を入れて返す。

例：
Dim d
d = ReadG(Rs1, 0, 10, 2)
If d(0) = -1 Then
　MsgBox "関数の実行に失敗しました"
Else
　Print d(0)
　Print d(1)
End If

ReadD (Obj As Rs, ByVal No%, ByVal CH As Long, ByVal DataNum As Long)

ＤＭエリア読み出し

戻り値
　関数の実行に成功した場合、10進数データの入った配列を返す。失敗した場合、配列０に-1を入れて返す。

例：
Dim d
d = ReadD(Rs1, 0, 10, 2)
If d(0) = -1 Then
　MsgBox "関数の実行に失敗しました"
Else
　Print d(0)
　Print d(1)
End If

ReadJ (Obj As Rs, ByVal No%, ByVal CH As Long, ByVal DataNum As Long)

ＡＲエリア読み出し

戻り値
　関数の実行に成功した場合、10進数データの入った配列を返す。失敗した場合、配列０に-1を入れて返す。

例：
Dim d
d = ReadJ(Rs1, 0, 10, 2)
If d(0) = -1 Then
　MsgBox "関数の実行に失敗しました"
Else
　Print d(0)
　Print d(1)
End If

ReadE (Obj As Rs, ByVal No%, ByVal BK%, ByVal CH%, ByVal DataNum%)

ＥＭエリア読み出し 使用できない機種があります

戻り値
　関数の実行に成功した場合、10進数データの入った配列を返す。失敗した場合、配列０に-1を入れて返す。

例： 0Bバンクの10チャネルから２チャネル分のデータを読み出します
Dim d
d = ReadE(Rs1, 0, 11, 10, 2)
If d(0) = -1 Then
　MsgBox "関数の実行に失敗しました"
Else
　Print d(0)
　Print d(1)
End If

WriteR (Obj As Rs, ByVal No%, ByVal CH As Long, WrData() As Long, ByVal DataNum As Long) As Boolean

入出力リレー／内部補助リレー／特殊補助リレーエリア書き込み

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例：
Dim d(2) As Long
d(0) = 12
d(1) = 13
If WriteR(Rs1, 0, 10, d, 2) = FALSE Then
　MsgBox "関数の実行に失敗しました"
Else
　MsgBox "関数の実行に成功しました"
End If

WriteL (Obj As Rs, ByVal No%, ByVal CH As Long, WrData() As Long, ByVal DataNum As Long) As Boolean

ＬＲリレーエリア書き込み

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例：
Dim d(2) As Long
d(0) = 12
d(1) = 13
If WriteL(Rs1, 0, 10, d, 2) = FALSE Then
　MsgBox "関数の実行に失敗しました"
Else
　MsgBox "関数の実行に成功しました"
End If

WriteH (Obj As Rs, ByVal No%, ByVal CH As Long, WrData() As Long, ByVal DataNum As Long) As Boolean

ＨＲリレーエリア書き込み

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例：
Dim d(2) As Long
d(0) = 12
d(1) = 13
If WriteH(Rs1, 0, 10, d, 2) = FALSE Then
　MsgBox "関数の実行に失敗しました"
Else
　MsgBox "関数の実行に成功しました"
End If

WriteC (Obj As Rs, ByVal No%, ByVal CH As Long, WrData() As Long, ByVal DataNum As Long) As Boolean

タイマ／カウンタエリア書き込み

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例：
Dim d(2) As Long
d(0) = 12
d(1) = 13
If WriteC(Rs1, 0, 10, d, 2) = FALSE Then
　MsgBox "関数の実行に失敗しました"
Else
　MsgBox "関数の実行に成功しました"
End If

WriteG (Obj As Rs, ByVal No%, ByVal CH As Long, WrData() As Long, ByVal DataNum As Long) As Boolean

タイマ／カウンタアップデータ書き込み

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例：
Dim d(2) As Long
d(0) = 1
d(1) = 0
If WriteG(Rs1, 0, 10, d, 2) = FALSE Then
　MsgBox "関数の実行に失敗しました"
Else
　MsgBox "関数の実行に成功しました"
End If

WriteD (Obj As Rs, ByVal No%, ByVal CH As Long, WrData() As Long, ByVal DataNum As Long) As Boolean

ＤＭエリア書き込み

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例：
Dim d(2) As Long
d(0) = 12
d(1) = 13
If WriteD(Rs1, 0, 10, d, 2) = FALSE Then
　MsgBox "関数の実行に失敗しました"
Else
　MsgBox "関数の実行に成功しました"
End If

WriteJ (Obj As Rs, ByVal No%, ByVal CH As Long, WrData() As Long, ByVal DataNum As Long) As Boolean

ＡＲエリア書き込み

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例：
Dim d(2) As Long
d(0) = 12
d(1) = 13
If WriteJ(Rs1, 0, 10, d, 2) = FALSE Then
　MsgBox "関数の実行に失敗しました"
Else
　MsgBox "関数の実行に成功しました"
End If

WriteE (Obj As Rs, ByVal No%, ByVal BK%, ByVal CH As Long, WrData() As Long, ByVal DataNum%) As Boolean

ＥＭエリア書き込み 使用できない機種があります

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例： カレントバンクの10チャネルから２チャネル分のデータを書き込み
Dim d(2) As Long
d(0) = 12
d(1) = 13
If WriteE(Rs1, 0, -1, 10, d, 2) = FALSE Then
　MsgBox "関数の実行に失敗しました"
Else
　MsgBox "関数の実行に成功しました"
End If

WriteQQ(Obj As Rs, ByVal No%, Area() As Integer, CH() As Integer, DataType() As Integer, ByVal DataNum%) As Boolean

複合コマンド　読み出し登録

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

例： リレーの０チャネルと、DMの０チャネルを一括して読み出すための登録
Dim a(2) As Integer, c(2) As Integer, t(2) As Integer
配列の添え字の等しいものが、同じチャネルの設定となります。例では、0がリレー、1がDMの設定を示します。
a(0) = 1　1は、リレーを意味します
c(0) = 0　チャネルの番号
t(0) = -1　-1は、チャネルの値を意味します。0〜15を指定すると、指定のビットのみを読み出せます。
a(1) = 9　9は、DMを意味します
c(1) = 0　
t(1) = -1　
If WriteQQ(Rs1, 0, a, c, t, 2) = False Then
　　MsgBox "関数の実行に失敗しました"
Else
　　MsgBox "OK"
End If

ReadQQ(Obj As Rs, ByVal No%, ByRef DataNum As Integer)

複合コマンド　一括読み出し

戻り値
　関数の実行に成功した場合、文字列データの入った配列を返す。失敗した場合、配列０に文字列”FALSE”を入れて返す。例：R(0)=”FALSE”

例： 上記の設定(WriteQQの例)を行い、一括してデータを読み出す
Dim Ret, n%, i%

Ret = ReadQQ(Rs1, 0, n)
If Ret(0) = "FALSE" Then
　MsgBox "関数の実行に失敗しました"
Else
　For i = 0 To n - 1
　　Print Ret(i)
　Next
End If

PlcXZ(Obj As Rs, ByVal No%)

アボート関数　処理中の上位リンク機能を中断し、新しいコマンドを受け付け可能にする

戻り値　なし

PlcInit(Obj As Rs)

イニシャル関数　全号機Noを初期状態に戻す

戻り値　なし

PlcTS(Obj As Rs, ByVal No%, ByVal SendData$, ByRef RecData$) As Boolean

テスト関数　送信データが、受信できるかをテストします。
データを送信し、同じデータが返ってくるかを確認する場合に使います。

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

ReadMM(Obj As Rs, ByVal No%, ByRef StData1$, ByRef StData2$) As Boolean

機種コード読み出し関数

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

ReadMF(Obj As Rs, ByVal No%, ByVal OnOff%, ByRef StData1$, ByRef StData2$) As Boolean

故障情報読み出し

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

ReadMS(Obj As Rs, ByVal No%, ByRef StData$, ByRef StMsg$) As Boolean

ステータス読み出し

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。

WriteSC(Obj As Rs, ByVal No%, ByVal StData$) As Boolean

ステータス書き込み

戻り値
　関数の実行に成功した場合、TRUEを返す。失敗した場合、FALSEを返す。