5/10/2018 10:56 AM | |
Posts: 49 Rating: (1) |
help me, my script runing in wincc professional v15 RT but no any tag value store in excel file. see the script in attachment and help me , i am new in wincc professional.... Function VBFunction_1() '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 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\" & "HBOT_" & 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 , PATIENT NAME, AGE (Y),GENEDER,PATIENT NO, COMMENTS, TREATMENT COUNTER,CHAMBER OXYGEN (%),CHAMBER CO2 (%),CHAMBER PRESSURE(Kg/cm2), CHAMBER TEMP(°C), CHAMBER HUMIDITY (%), WATER EXTINGUISHER TANK LEVEL (mm),TREATMENT PRESSURE SET (Kg/cm2), TREATMENT PRESSURE ACTUAL (Kg/cm2), TREATMENT TEMP SET (°C), TREATMENT TEMP ACTUAL (°C), TREATMENT TIME SET (M),TREATMENT TIME ACTUAL (M), PRESSURISE TIME SET (M), PRESSURISE TIME ACTUAL (M),DEPRESSURISE TIME SET (M), DEPRESSURISE TIME ACTUAL (M), SP1(kg/cm2), PV1(kg/cm2),MV1(%),SP2(kg/cm2),PV2(kg/cm2),MV2(%)" SmartTags("HEADER")=1 End If While(1) 'Call TimeIt(5) flag=True StartTime = Timer While(flag) EndTime = Timer diff=EndTime-StartTime If diff>15 Then flag=False End If Wend DataSet = Date&","& Time &","&HMIRuntime.Tags("PROCESSTIMEANDREPORTDB_PATIENTNAME")&","&HMIRuntime.Tags("PROCESSTIMEANDREPORTDB_PATIENTAGE")&","&HMIRuntime.Tags("PROCESSTIMEANDREPORTDB_PATIENTGENDER")&","&HMIRuntime.Tags("PROCESSTIMEANDREPORTDB_PATIENTNO")&","&HMIRuntime.Tags("PROCESSTIMEANDREPORTDB_COMMENTS")&","&HMIRuntime.Tags("PROCESSTIMEANDREPORTDB_TREATMENTCOUNTER")&","&HMIRuntime.Tags("IOMAPPINGDB_OXYGENTRSOUTREAL")&","&HMIRuntime.Tags("IOMAPPINGDB_CO2TRANSMITTEROUTREAL")&","&HMIRuntime.Tags("IOMAPPINGDB_HBOTTANKPRESSUROUTREAL")&","&HMIRuntime.Tags("IOMAPPINGDB_TEMP.TROUTREAL")&","&HMIRuntime.Tags("IOMAPPINGDB_HUMIDITYTROUTREAL")&","&HMIRuntime.Tags("IOMAPPINGDB_LEVELTRANSMITTEROUTREAL")&","&HMIRuntime.Tags("PROCESSSTARTSTOPDB_TREATMENTPRESSUREREQUIRED")&","&HMIRuntime.Tags("IOMAPPINGDB_HBOTTANKPRESSUROUTREAL")&","&HMIRuntime.Tags("AIHILOSCALINGDB_CHAMBERTEMPTR.HI")&","&HMIRuntime.Tags("IOMAPPINGDB_TEMP.TROUTREAL")&","&HMIRuntime.Tags("PROCESSSTARTSTOPDB_TREATMENTTIMESET")&","&HMIRuntime.Tags("PROCESSSTARTSTOPDB_TREATMENTTIMEACTUAL")&","&HMIRuntime.Tags("PROCESSSTARTSTOPDB_TREATMENTPRESSURISETIMEINMIN")&","&HMIRuntime.Tags("PROCESSSTARTSTOPDB_PROCESSPRESSURISEACTUALTIMEINMIN")&","&HMIRuntime.Tags("PROCESSSTARTSTOPDB_TREATMENTDEPRESSURISETIMEINMIN")&","&HMIRuntime.Tags("PROCESSSTARTSTOPDB_PROCESSDEPRESSURISEACTUALTIMEINMIN")&","&HMIRuntime.Tags("PIDDB_PID1INTERNALSP")&","&HMIRuntime.Tags("PIDDB_PID1PV")&","&HMIRuntime.Tags("PIDDB_PID1OUTREAL")&","&HMIRuntime.Tags("PIDDB_PID2INTERNALSP")&","&HMIRuntime.Tags("PIDDB_PID2PV")&","&HMIRuntime.Tags("PIDDB_PID2OUTREAL") ts.WriteLine DataSet Wend ts.Close Set fso = Nothing Set f = Nothing Set ts = Nothing End Function thanks in advance ... please help me ------------------------------------------------------------------------------------------ Attachmentscript.docx (81 Downloads) |
Last edited by: Jen_Moderator at: 5/11/2018 10:31:38 AMNew subject after splitting |
|
5/15/2018 12:14 PM | |
Joined: 6/19/2017 Last visit: 9/6/2024 Posts: 8175 Rating: (171) |
Closed cause question posted twice.
|
Follow us on