Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

Store data with a script in a file with WinCC

Created by: tbdavidsen_DK at: 2/8/2019 1:57 PM (4 Replies)

Rating (1)

Thanks 0

5 Entries

2/8/2019 1:57 PM	Rate (0)
tbdavidsen_DK Regular Member Joined: 5/7/2018 Last visit: 3/6/2024 Posts: 3 Rating: (0)	Operating System: Windows 7 - TIA Version : V14 - WinCC Advanced - Service pack and update : SP1 Update 5 - Panel TP1500 Comfort V14.0.1.0 - The Problems (Bugs) : Can't get script to store the selected data - Expected causes of the Problem : Multiplex tag Hello, I'm having trouble storing the right data. I'm using multiplex tag to change values on a setup page for pump 1 & 2. The script is running without problems but in the log it's the value from pump 2 that is stored for both pumps. The reason I active screen before store data is that the value only updates on screen change. Script: Dim objFileSystem, objFile, objLog Dim strOldErr, strFolderPath, strFileName Dim ii 'Constant initialization strFolderPath = "\flash\documents and settings\" strFileName = "paramread" 'Determine system configuration / options 'Start Error Handling strStatusMsg = "Script Started..." strOldErr = "" On Error Resume Next 'Set objects Set objFileSystem = CreateObject("FileCtl.FileSystem") Set objFile = CreateObject("FileCtl.File") Set objLog = CreateObject("FileCtl.File") If Err.Number <> 0 Then strStatusMsg = "Error #" & Err.Number & " - " & Err.Description Exit Sub End If 'If 'objFileSystem.Kill strFolderPath & "\" & strFileName & "_log.txt" 'Attempt to open file for reading (1) and open log for writing 'objFile.Open strFolderPath & "\" & strFileName, 1 objFile.Open strFolderPath & "\" & strFileName & ".txt", 2 objLog.Open strFolderPath & "\" & strFileName & "_log.txt", 2 If Err.Number <> 0 Then strStatusMsg = "Error #" & Err.Number & " - " & Err.Description Exit Sub End If 'Print file lines one by one' strStatusMsg = "Writing File..." intCurrentLine = 0 SmartTags ("iloc") = 1 DelayScript 1 SmartTags ("iloc") = 0 DelayScript 1 ActivateScreen "Operation_settings$LOC_BURN",0 DelayScript 1 objFile.LinePrint "DB_SETT_LOC_AL_WS_WATER_LT_LL.P_DELAY" objFile.LinePrint "DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_TRIG" objFile.LinePrint "DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_RST" SmartTags ("iloc") = 1 DelayScript 1 ActivateScreen "Operation_settings$LOC_BURN",0 DelayScript 1 objFile.LinePrint "DB_SETT_LOC_AL_WS_WATER_LT_LL.P_DELAY" objFile.LinePrint "DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_TRIG" objFile.LinePrint "DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_RST" 'Perform error check after attempt to write to file If Err.Number <> 0 Then 'strStatusMsg = "Error #" & Err.Number & " - " & Err.Description If Err.Description <> strOldErr Then strOldErr = Err.Description objLog.LinePrint "Error number: " & Err.Number & ", Error desc: " & Err.Description strStatusMsg = Err.Description End If End If 'Close files objFile.Close objLog.Close 'Perform final error check If Err.Number <> 0 Then strStatusMsg = "Script Completed with errors" Exit Sub End If objFileSystem.Kill strFolderPath & "\" & strFileName & "_log.txt" ShowSystemAlarm "File written succesfully !" strStatusMsg = "Script Completed Succesfully..." _________________ The result from the script DB_SETT_LOC_AL_WS_WATER_LT_LL.P_DELAY 16 DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_TRIG -151 DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_RST -146 DB_SETT_LOC_AL_WS_WATER_LT_LL.P_DELAY 16 DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_TRIG -151 DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_RST -146 The value from the first 3 lines should be: DB_SETT_LOC_AL_WS_WATER_LT_LL.P_DELAY 15 DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_TRIG -150 DB_SETT_LOC_AL_WS_WATER_LT_LL.P_LIMIT_RST -145 Are there any who have a good suggestion for what I'm doing wrong?

Suggestion To thank Quote Answer

2/8/2019 3:14 PM	Rate (1)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 11/5/2024 Posts: 14087 Rating: (1766)	Hello Its a kind of Timing Problem and a Update topic. Tags that are used only in Scripts do not update if you do not use the aquisition cycle "cyclic continous". the second is if you change the Multiplex tag in script the script would be too fast, that i t reads out the old values. Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

2/8/2019 3:39 PM	Rate (0)
tbdavidsen_DK Regular Member Joined: 5/7/2018 Last visit: 3/6/2024 Posts: 3 Rating: (0)	Hello Murof, Thank you for taking the time to answer. I'm not quite sure what you mean with "cyclic continous", but I will try and search for it. About the script being to fast. Do you think that it will help if I delay the script before it start storing the data? Best regards Tdavidsen

Suggestion To thank Quote Answer

2/28/2019 9:28 AM	Rate (0)
Nzett11 Silver Member Joined: 11/14/2018 Last visit: 7/26/2024 Posts: 502 Rating: (69)	Hello tbdavidsen_DK, did the usage of "cyclic continous" solved your problem? Greetings, Nzett11
	If I could help you, be so kind and rate my contribution. :) Best regards
Suggestion To thank Quote Answer

7/1/2019 1:26 PM	Rate (0)
tbdavidsen_DK Regular Member Joined: 5/7/2018 Last visit: 3/6/2024 Posts: 3 Rating: (0)	Hello Nzett11 No, didn't get that to work. However when I use the SmartTags function I get get the correct values from my multiplex tags. My code is not done yet. I'm working on autogenerate the memory words that I want to log on my USB. But the logging of the data is working It's a project i'm working on between others project :) This is my code in my test program. Keep in mine that i'm working on automatic generate the memory words on the writing line :) [snip] Attachment code.txt (137 Downloads)
	Last edited by: Jen_Moderator at: 07/02/2019 09:09:32 Added code as an attachment.
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on