Siemens SIMOTION SCOUT Funktionshandbuch Seite 416

Programmierung allgemeiner Standardfunktionen
7.21 Kopplung HMI (Human Machine Interface)
Private Sub Form_Load()
End Sub
Private Sub Form_Unload(Cancel As Integer)
End Sub
Private Sub cmdRead_Click()
End Sub
416
Set g_Server = New OPCServer
g_Server.Connect ("OPC.SimaticNet")
Set g_GroupObj = g_Server.OPCGroups.Add("Test1")
g_GroupObj.IsActive = False
Set g_myItem1 = g_GroupObj.OPCItems.AddItem("C240.consistencyFlag", 2)
Set g_myItem2 = g_GroupObj.OPCItems.AddItem("C240.myDint", 2)
Set g_myItem3 = g_GroupObj.OPCItems.AddItem("C250.myArray", 3)
consistencyFlag = 1
Set g_myItem1 = Nothing
Set g_myItem2 = Nothing
Set g_myItem3 = Nothing
Set g_GroupObj = Nothing
Set g_Server = Nothing
End
Static reentrancyFlag As Boolean
Dim var1 As Variant
Dim var2 As Variant
Dim var3 As Variant
If reentrancyFlag = False Then
reentrancyFlag = True
consistencyFlag = consistencyFlag + 2
g_myItem1.Write consistencyFlag
Do
g_myItem1.Read OPC_DS_DEVICE, var1
Loop Until var1 = consistencyFlag + 1
g_myItem2.Read OPC_DS_DEVICE, var2
g_myItem3.Read OPC_DS_DEVICE, var3
reentrancyFlag = False
End If
Basisfunktionen
Funktionshandbuch, 05/2009