<< Click to Display Table of Contents >> マニュアル > サーバ作成ガイド > インターフェース編 > OPCインターフェース > VisualBasic.NETからのOPC接続 > 手順３値の読み書き

手順３ 値の読み書きを行う

読み出し

 
OPCサーバから値を読み出す場合、複数の方法が用意されています。

 

 

サンプルでは、接続時にコンボボックスでどの方式かを選択します。

同期読み出し、非同期読み出しはタイマー処理で一定周期の間隔で値読み出しを行うようになっています。

 

 

 

■同期読み出し

 

同期読み出しはOPCグループオブジェクトに対して、SyncReadメソッドを発行することで行います。

Private Sub timSyncRead_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timSyncRead.Tick
    Try
        Dim Errors As Array = Nothing
        Dim ItemValues As Array = Nothing
        Dim Qualities As Array = Nothing
        Dim TimeStamps As Array = Nothing
        mvGroup.SyncRead(OPCAutomation.OPCDataSource.OPCDevice, mcItemCount, mvSHandles, ItemValues, Errors, Qualities, TimeStamps)
        SbDrawData(mcItemCount, mvCHandles, ItemValues, Qualities, TimeStamps)

 

 

■非同期読み出し

 

非同期読み出しはOPCグループオブジェクトに対して、AsyncReadメソッドを発行することで行います。

Private Sub timAsyncRead_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timAsyncRead.Tick
    Try
        Dim Errors As Array = Nothing
        mvReadTxId = mvReadTxId + 1
        mvGroup.AsyncRead(mcItemCount, mvSHandles, Errors, mvReadTxId, mvReadCancelId)

 

結果は、AsyncReadCompleteイベントで受け取ります。

Private Sub Group_AsyncReadComplete(ByVal TransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As Array, ByRef ItemValues As Array, ByRef Qualities As Array, ByRef TimeStamps As Array, ByRef vErrors As Array) Handles mvGroup.AsyncReadComplete
    SbDrawData(NumItems, ClientHandles, ItemValues, Qualities, TimeStamps)

 

 

■変化通知

 

OPCグループオブジェクトのIsActiveプロパティをTrueにすると、グループがアクティブ状態になります。

    Select Case CmbType.SelectedIndex
        Case 0  'SyncRead
            timSyncRead.Enabled = True
        Case 1  'AsyncRead
            timAsyncRead.Enabled = True
        Case 2  'Subscription
            mvGroup.IsActive = True
    End Select

 

UpdateRateの周期でグループ内アイテムのデータ値、または品質フラグに変化が起きると、Datachangeイベントが発生します。

Private Sub Group_DataChange(ByVal vTransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As Array, ByRef ItemValues As Array, ByRef Qualities As Array, ByRef TimeStamps As Array) Handles mvGroup.DataChange
    SbDrawData(NumItems, ClientHandles, ItemValues, Qualities, TimeStamps)
End Sub

 

 

---

書き込み

 

OPCサーバに値を書き込む場合、複数の方法が用意されています。

 

 

 

■同期書き込み

 

同期書き込みは、OPCグループオブジェクトに対して、SyncWriteメソッドを発行することで行います。

Private Sub btnSyncWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSyncWrite.Click
    Dim vServerHandles(mcItemCount) As Integer
    Dim vItemValues(mcItemCount) As Object
    Dim vNumItems = FnGetInputData(vServerHandles, vItemValues)
    If vNumItems > 0 Then
        Dim Errors As Array = Nothing
        mvGroup.SyncWrite(vNumItems, vServerHandles, vItemValues, Errors)
    End If
End Sub

 

 

■非同期書き込み

 

非同期書き込みは、OPCグループオブジェクトに対して、AsyncWriteメソッドを発行することで行います。

Private Sub BtnASyncWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnASyncWrite.Click
    Dim vServerHandles(mcItemCount) As Integer
    Dim vItemValues(mcItemCount) As Object
    Dim vNumItems = FnGetInputData(vServerHandles, vItemValues)
    If vNumItems > 0 Then
        Dim Errors As Array = Nothing
        mvWriteTxId = mvWriteTxId + 1
        mvGroup.AsyncWrite(vNumItems, vServerHandles, vItemValues, Errors, mvWriteTxId, mvWriteCancelId)
    End If
End Sub

 

書き込み結果を受け取る場合は、AsyncWriteCompleteを定義して受け取ってください。