Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

S7 300 - Simatic OPC - VB

Created by: @rturas at: 8/22/2009 1:38 PM (2 Replies)

Rating (0)

Thanks 0

3 Entries

8/22/2009 1:38 PM	Rate (0)
@rturas Experienced Member Joined: 1/27/2009 Last visit: 1/10/2025 Posts: 172 Rating: (8)	Dear experts, I am trying to make a simple program, that gets some data from S7 data block and displays it. For test purpose i have CPU 315-2DP, CP5512, Simatic NET and Visual basic 2008 express. I made some Step7 project that has DB1 and 4 words in it. Then i made an OPC server and with OPC scout i can monitor and write those DB1.DBW0, DB1.DBW2, DB1.DBW4 AND DB1.DBW6. then i started visual basic project and here i stopped.I know that easiest way to monitor those values in vb form is to using components:Siemens S7Number control and SIMATIC NET OPC Data, but i would like to do it on visual basic TextBox. Please somebody help me with that. Regards Arturas
	The only thing necessary for the triumph of evil is for good men to do nothing
Suggestion To thank Quote Answer

8/22/2009 7:52 PM	Rate (0)
jklm Platinum Member Joined: 12/22/2006 Last visit: 1/25/2022 Posts: 1742 Rating: (309)	Hello, There are samples in the manual of OPC. Here the link to the manual. http://support.automation.siemens.com/WW/view/en/24843817 Here a link to some other samples (that can be adapted) http://support.automation.siemens.com/WW/view/en/7888239 Another possibility would be to use WinCC Flexible (PC runtime). WinCC Flexible can act as OPC Clinet.
	Best regards jklm Suggestion was helpful? Feel free to rate it.
Suggestion To thank Quote Answer

8/23/2009 2:07 PM	Rate (0)
@rturas Experienced Member Joined: 1/27/2009 Last visit: 1/10/2025 Posts: 172 Rating: (8)	Dear edr, Thank you for your reply, i tried to addapt the project to mine but faced some problems. After line " 'define item tables with 2 items as in parameters fod AddItem" there is a code: [code] Dim itemdefs(2) As OPCITEMDEF itemdefs(0) = New OPCITEMDEF itemdefs(0).szAccessPath="" itemdefs(0).szItemID = "s7:[s7 connection_1]db1,w0" itemdefs(0).bActive=1 itemdefs(0).hCLient=1 itemdefs(0).vtRequestedDataType=VarEnum.VT_UI1 itemdefs(0).dwBlobSizw=0 itemdefs(0).pBloB=IntPtr.Zero itemdefs(1) = New OPCITEMDEF itemdefs(1).szAccessPath="" itemdefs(1).szItemID = "s7:[s7 connection_1]db1,w0" itemdefs(1).bActive=1 itemdefs(1).hCLient=1 itemdefs(1).vtRequestedDataType=VarEnum.VT_UI1 itemdefs(1).dwBlobSizw=0 itemdefs(1).pBloB=IntPtr.Zero OutText="Adding items to the group" Dim Result As IntPtr=IntPtr.Zero Dim pErrors As IntPtr=IntPtr.Zero 'Adding to items to the group m_item.AddItems(2, itemdefs, Results, pErrors) [/code] It runs nice and smooth, but i want to add only 1 item for e.g., so i tried to change code: [code] Dim itemdefs As OPCITEMDEF itemdefs.szAccessPath="" itemdefs.szItemID = "s7:[s7 connection_1]db1,w0" itemdefs.bActive=1 itemdefs.hCLient=1 itemdefs.vtRequestedDataType=VarEnum.VT_UI1 itemdefs.dwBlobSizw=0 itemdefs.pBloB=IntPtr.Zero 'Adding to items to the group m_item.AddItems(1, itemdefs, Results, pErrors) [/code] but i got error here m_item.AddItems(1, itemdefs, Results, pErrors) error says "Value of type 'OpcRcw.Da>OPCITEMDEF' cannot be converted to "1-dimensional array of OpcRcw.Da.OPCITEMDEF'. any help on that? Regardas Arturas
	Last edited by: arturas at: 8/23/2009 2:13 PM The only thing necessary for the triumph of evil is for good men to do nothing
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on