|
複数のタグの値を書き込みます。
構文
bResult = AxEng1.WriteVals(
Count,
TagPaths,
Values,
Results
)
パラメータ
Count
|
|
type:
|
integer
|
|
書き込みを行うタグの個数。
|
TagPaths
|
|
type:
|
string()
|
|
タグパスを配列で指定します。（配列タグは指定できません。）
|
Values
|
|
type:
|
object
|
|
書き込む値をバリアント（オブジェクト）型配列で指定します。
|
Results
|
|
type:
|
object
|
|
タグごとの書き込みの結果が返ってきます。bResultがTrueの時のみ有効です。
|
戻り値
bResult
|
|
type:
|
bool
|
|
FALSE - 失敗。TRUE - 成功。
|
解説
複数のタグの値を書き込みたい場合、WriteValsメソッドは一度に書き込みが行われるため、WriteValメソッドを複数回呼び出すよりも、高速に処理されます。返値がTrueの時のみ、Resultsが有効になります。Resultsではタグごとの通信の成否がわかります。
|
例
Dim TagPaths(2) As String
Dim Values(2) As Object = Noting
Dim Results As Object = Noting
TagPaths(0) = "U01.F01.T01"
TagPaths(1) = "U01.F01.T02"
Values(0) = 123
Values(1) = 456
If AxEng1.WriteVals(2, TagPaths, Values, Results) Then
For i = 0 To 1
If Results(i) Then
txtResult(i).Text = "Success!"
Else
txtResult(i).Text = "Error!"
End If
Next i
Else
For i = 0 To 1
txtResult (i).Text = "Error!"
Next i
End If
|
参照
WriteVal
|