timucincelik82
Üye
- Katılım
- 21 Kas 2009
- Mesajlar
- 58
- Puanları
- 1
- Yaş
- 41
Arkadaşlar eğer bilgisayarınızda wincc flexible üzerinden yapılmış scada uygulaması varsa extra bir opc server almanıza gerek yok. WINCC flexible üzerindeki tüm taglara VB.net ile yazdığınız program ile haberleşebilirsiniz. Böylece raporlama yazılımlarınızı yapabilirsiniz. Ayrıca paneller üzerindende
ulaşabilirsiniz anlamına göre. XML tabanlı olarak.
Aşağıda örnek bir kod var. İyi çalışmalar.
Public Shared OPCServerName As String = "OPC.SimaticHMI.HmiRTm"
Public Sub Connect()
Try
obj_Server.Connect(OPCServerName)
For i As Integer = 1 To ItemsQuantity ' Yeni bir makina eklenirse +makina kadar arttirmak gerekir.
obj_item(i) = New Item(i)
obj_item(i).Group = obj_Server.OPCGroups.Add("Item" & i)
obj_item(i).Group.OPCItems.AddItem("debimetre", 1) 'Çalışıyor
AddHandler obj_item(i).DataChange, AddressOf obj_Item_DataChange
Next
obj_send_to_plc = obj_Server.OPCGroups.Add("SentToPLC")
Subscribe()
Catch ex As Exception
ExToEventLog(ex.ToString)
End Try
End Sub
ulaşabilirsiniz anlamına göre. XML tabanlı olarak.
Aşağıda örnek bir kod var. İyi çalışmalar.
Public Shared OPCServerName As String = "OPC.SimaticHMI.HmiRTm"
Public Sub Connect()
Try
obj_Server.Connect(OPCServerName)
For i As Integer = 1 To ItemsQuantity ' Yeni bir makina eklenirse +makina kadar arttirmak gerekir.
obj_item(i) = New Item(i)
obj_item(i).Group = obj_Server.OPCGroups.Add("Item" & i)
obj_item(i).Group.OPCItems.AddItem("debimetre", 1) 'Çalışıyor
AddHandler obj_item(i).DataChange, AddressOf obj_Item_DataChange
Next
obj_send_to_plc = obj_Server.OPCGroups.Add("SentToPLC")
Subscribe()
Catch ex As Exception
ExToEventLog(ex.ToString)
End Try
End Sub
