Function Script_3()

'NOTE: To start scripting please press <Ctrl><Space> and see the wide variety of functions.

'Write scripts by using system functions or the WinCC flexible object model. You can easily access to the

'system through the HMI runtime object. For a convenient picking of an object reference

'you can press <Alt><Right Arrow>. Design complex scripts by employing the basic features

'of the programming language VBScript and access tags directly by name e.g. tag = 5.

Dim fso

Dim f

Dim N

Dim TimeIt

Dim ts

Dim path

Dim StopArchive

Dim EleNo

Dim DataSet

Dim Header

Dim Shift

Dim ShiftNo

Dim BundeNo

Dim TimeS

Dim TimeStamp

Dim StartArch

Dim exten

Dim StartTime, EndTime,flag,diff

If exten=0 Then

path = "E:\REPORTS\" & "STEAM STERILIZATION LAB UNIT" & CStr(DatePart("yyyy",Date))&"_"&CStr(DatePart("m",Date))& ".csv"

End If

Set fso = CreateObject("Scripting.FilesystemObject")

If Not fso.FileExists(path) Then

fso.CreateTextFile(path)

SmartTags("HEADER")=0

End If

Set f = fso.GetFile(path)

Set ts = f.OpenAsTextStream(8,-2)

Header=SmartTags("HEADER")

If Header=False Then

ts.WriteLine "DATE,TIME ,BATCH COUNTER, BATCH TIME(Min),VACUUM PRESSURE(Bar),SHELL INSIDE TEMP(°C),PRODUCT -1 TEMP(°C), PRODUCT-2 TEMP(°C),STERILIZATION ROOM TEMP(°C),STEAM PRESSURE (Kg/Cm2), STEAM TEEMP(°C),TEMP PID SV(°C), TEMP PID PV(°C), TEMP PID MV(%),TEMP PID GAIN(%),TEMP PID Ti(Sec), TEMP PID Td(Sec),VACUUM PID SV(Bar),VACUUM PID PV(Bar),VACUUM PID MV(rpm),VACUUM PID GAIN (%),VACUUM PID Ti(Sec),VACUUM PID Td(Sec)"

SmartTags("HEADER")=1

End If

While(1)

'Call TimeIt(5)

flag=True

StartTime = Timer

While(flag)

EndTime = Timer

diff=EndTime-StartTime

If diff>60 Then

flag=False

End If

Wend

DataSet =Date & ","& Time& ","&SmartTags("BATCHSTARTSTOPDB_BATCHCOUNT")& ","&SmartTags("BATCHSTARTSTOPDB_BATCHTIME_TOTALMIN")& ","&SmartTags("AISCALINGDB_VACUUMPRESSURE")& ","&SmartTags("RTDSCALINGDB_INSIDESHELLTEMP")& ","&SmartTags("RTDSCALINGDB_PRODUCTTEMP-1")& ","&SmartTags("RTDSCALINGDB_PRODUCTTEMP-2")& ","&SmartTags("RTDSCALINGDB_ROOMTEMP(STERILIZATION)")& ","&SmartTags("AISCALINGDB_STEAMPRESSURE(1)")& ","&SmartTags("RTDSCALINGDB_STEAMTEMP")& ","&SmartTags("TEMPPIDDB_SPINTERNAL")& ","&SmartTags("TEMPPIDDB_PV")& ","&SmartTags("TEMPPIDDB_PIDOUT")& ","&SmartTags("TEMPPIDDB_GAIN")& ","&SmartTags("TEMPPIDDB_Ti")& ","&SmartTags("TEMPPIDDB_Td")& ","&SmartTags("VACUUMPIDDB_SPINTERNAL")& ","&SmartTags("VACUUMPIDDB_PV")& ","&SmartTags("VACUUMPIDDB_VACUUMPIDOUTPUTRPM")& ","&SmartTags("VACUUMPIDDB_GAIN")& ","&SmartTags("VACUUMPIDDB_Ti")& ","&SmartTags("VACUUMPIDDB_Td")

ts.WriteLine DataSet

Wend

ts.Close

Set fso = Nothing

Set f = Nothing

Set ts = Nothing

Timer

End Function