Skip to Content

SiePortal

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

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

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

How to run script once every 6 hours in Wincc TIA

Created by: Mahmoud.Hazem at: 9/29/2019 9:41 PM (5 Replies)

Rating (1)

Thanks 4

6 Entries

9/29/2019 9:41 PM	Rate (0)
Mahmoud.Hazem Experienced Member Joined: 6/5/2014 Last visit: 7/21/2024 Posts: 109 Rating: (2)	Dear all, Right now I made a script to generate excel sheet contains some data, but I need to run this script once every 6 hours, I tried the scheduled tasks but I found only every 1 hour, and then daily, could you please assist, FYI the script is attached, many thanks in advance. Attachment Script V4.txt (240 Downloads)

Suggestion To thank Quote Answer

9/30/2019 4:13 AM	Rate (1)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 4/25/2025 Posts: 3149 Rating: (524)	Hello Mahmoud, create another script which is called every hour and calls MainScript (your attachment) with the sixth call. E.g. Sub script() If Counter < 1 Then Counter = 1 Else Counter = Counter + 1 If Counter = 6 Then MainScript Counter = 0 End If End If End Sub If the Runtime is not stopped, you could use an internal tag for Counter. If it is required to call your script every 6 hours, it would be better to trigger a tag from the PLC. Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Mahmoud.Hazem

9/30/2019 10:53 AM	Rate (0)
Mahmoud.Hazem Experienced Member Joined: 6/5/2014 Last visit: 7/21/2024 Posts: 109 Rating: (2)	Dear Frink, Many thanks for your support, but how can I call the main script in this script?

Suggestion To thank Quote Answer

9/30/2019 12:24 PM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 4/25/2025 Posts: 3149 Rating: (524)	Hi, Mahmoud.Hazem Dear Frink, Many thanks for your support, but how can I call the main script in this script? replace the call "MainScript" in the code of my last post with the name of your function. Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Mahmoud.Hazem

9/30/2019 4:16 PM	Rate (0)
Silenosss Posts: 7 Rating: (1)	You can make four daily scheduled tasks ;)
Silenosss Posts: 7 Rating: (1)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Mahmoud.Hazem

10/1/2019 9:18 AM	Rate (0)
Mahmoud.Hazem Experienced Member Joined: 6/5/2014 Last visit: 7/21/2024 Posts: 109 Rating: (2)	Dear all, Many thanks for your support, FYI, the following shows the final tested script, hope this will help anyone in the future: Sub WriteDatatoExcel() Dim FolderWay, FolderExist, ObjectWay, FileName, File, FileExist, Appendix, Row Dim delimiter, gap, DateNow, TimeNow, DatesNow DateNow = CStr(DatePart("d",Date)) & "." & CStr(DatePart("m",Date)) & "." & CStr(DatePart("yyyy",Date)) TimeNow = CInt(DatePart("h",Time)) & ":" & CInt(DatePart("n",Time)) & ":" & CInt(DatePart("s",Time)) 'Creating Folder Section: FolderWay = "G:\ExcelExample" Set ObjectWay = CreateObject ("Scripting.FileSystemObject") FolderExist = ObjectWay.FolderExists(FolderWay) If FolderExist = False Then Set FolderExist = ObjectWay.CreateFolder ("G:\ExcelExample") End If 'Creating File Section: FileName = "RTG" & CStr(SmartTags("CRNID"))& "_" & CStr(DatePart("d",Date)) & "." & CStr(DatePart("m",Date)) & "." & CStr(DatePart("yyyy",Date)) & ".CSV" delimiter="," gap="" Set File = CreateObject ("Scripting.FileSystemObject") FileExist = File.FileExists(FolderWay & "\" & FileName) If FileExist = False Then File.CreateTextFile(FolderWay & "\" & FileName) Set Appendix = File.OpenTextFile(FolderWay & "\" & FileName,8,-2) Appendix.WriteLine( "Parameter" & delimiter & "Date" & gap & delimiter & "Time" & gap & delimiter & "Reading") Appendix.Close Set File = Nothing End If 'Entering Data Every RUN Set File = CreateObject ("Scripting.FileSystemObject") Set Row = File.OpenTextFile(FolderWay & "\" & FileName,8,-2) Row.WriteLine("RTG" & CStr(SmartTags("CRNID"))& "_" & "Crane On" & delimiter & DateNow & delimiter & TimeNow & delimiter & SmartTags("CTRLON_HR")) Row.WriteLine("RTG" & CStr(SmartTags("CRNID"))& "_" & "Hoist" & delimiter & DateNow & delimiter & TimeNow & delimiter & SmartTags("HOT_HR")) Row.WriteLine("RTG" & CStr(SmartTags("CRNID"))& "_" & "Trolley" & delimiter & DateNow & delimiter & TimeNow & delimiter & SmartTags("TRL_HR")) Row.WriteLine("RTG" & CStr(SmartTags("CRNID"))& "_" & "Gantry" & delimiter & DateNow & delimiter & TimeNow & delimiter & SmartTags("GNT_HR")) Row.WriteLine("RTG" & CStr(SmartTags("CRNID"))& "_" & "Overlap" & delimiter & DateNow & delimiter & TimeNow & delimiter & SmartTags("OVRLP_HR")) Row.WriteLine("RTG" & CStr(SmartTags("CRNID"))& "_" & "Container" & delimiter & DateNow & delimiter & TimeNow & delimiter & SmartTags("LCKCNT")) Row.WriteLine("RTG" & CStr(SmartTags("CRNID"))& "_" & "Engine" & delimiter & DateNow & delimiter & TimeNow & delimiter & SmartTags("ENG_HR")) Row.Close End Sub --------------------------------------------------------------------------------------------------------------------------------- Sub RunCycle() If SmartTags("counter") < 1 Then SmartTags("counter") = 1 Else SmartTags("counter") = SmartTags("counter") + 1 End If If SmartTags("counter") = 2 Or SmartTags("counter") > 2 Then Call WriteDatatoExcel() SmartTags("counter") = 0 End If End Sub Best Regards, Mahmoud Hazem

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Wit_Moderator

|

Share this page:

Share this page on...

Related topics by keywords:

Follow us on