SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Win-Computing problem: Reading a STRING

9/2/2005 9:42 AM	Rate (0)
Import-User-1 Posts: 3609 Rating: (29)	Hello! I have a problem. I am using the WinAC Basis V3.0 (incl. SP1) software-package. In my program I use the S7Data-ActiveX. I wrote the following code (Timer-Event): ... Dim ml_State as Long Dim mvrt_Text as Variant 'Text1 Me.S7Data1.ReadVariable "DB50.DBB4:STRING",_ mvrt_Text, ml_State, 0 Me.lblText.Caption = mvrt_Text 'Text2 Me.S7Data1.ReadVariable "DB50.DBB60:STRING",_ mvrt_Text, ml_State, 0 Me.lblText.Caption = mvrt_Text 'Text3 Me.S7Data1.ReadVariable "DB50.DBB116:STRING", _ mvrt_Text, ml_State, 0 Me.lblText.Caption = mvrt_Text ... If the program runs, the current use of RAM grows 4KB per second! After some hours there are problems! Why??? If I wrote the following code, there are no problems: ... Dim ml_State as Long Dim mvrt_Text as Variant 'Text1 Me.S7Data1.ReadVariable "DB50.DBB4:STRING",_ mvrt_Text, ml_State, 0 Me.lblText.Caption = mvrt_Text ... There are only problems, if i read more than one time in the same function or sub. Why?? Thanks! Stefan Schuster
Import-User-1 Posts: 3609 Rating: (29)
Suggestion To thank Quote Answer

9/2/2005 9:42 AM	Rate (0)
Import-User-2 Silver Member Joined: 8/10/2005 Last visit: 4/9/2024 Posts: 1486 Rating: (32)	Hello, this should help: (3 differents variables) Dim ml_State As Long Dim mvrt_Text1 As Variant Dim mvrt_Text2 As Variant Dim mvrt_Text3 As Variant 'Text1 Me.S7Data1.ReadVariable "mb0:STRING", mvrt_Text1, ml_State, 0 Me.lblText.Caption = mvrt_Text1 'Text2 Me.S7Data1.ReadVariable "mb10:STRING", mvrt_Text2, ml_State, 0 Me.lblText.Caption = mvrt_Text2 'Text3 Me.S7Data1.ReadVariable "mb20:STRING", mvrt_Text3, ml_State, 0 Me.lblText.Caption = mvrt_Text3 Frank Knoeller http://www.knoeller.de

Suggestion To thank Quote Answer

Share this page:

Share this page on...