5/10/2018 10:31 AM | |
Posts: 49 Rating: (1) |
DEAR FRIEND , PLEASE HELP ME. i am using wincc professional v15. my problem is i am copy my wincc advanced script in wincc professional v15 . script runing but no any tag value store in excel file using wincc professional v15 RT. its working with wincc advanced only. see script : 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...... ------------------------------------------------------------------------------------------ Attachmentscript.docx (247 Downloads) |
Last edited by: RRAAHHUULL at: 5/10/2018 10:36:24 AMLast edited by: Jen_Moderator at: 5/11/2018 10:13:13 AMNew subject after splitting |
|
5/15/2018 4:44 PM | |
Posts: 49 Rating: (1) |
NO ANY ERROR , COLUMN CREATED WITH NAME BUT NO ANY TAG VALUE STORE IN EXCEL FILE. HELP ME |
5/16/2018 4:07 PM | |
Joined: 9/27/2007 Last visit: 12/18/2020 Posts: 993 Rating: (102)
|
Hi RRAAHHUULL, I can give you the following advice: Maybe this links will help you too: And please answer in normal letters. Best regards, |
Learn more about visualization - visit the HMI courses of Siemens AG! |
|
This contribution was helpful to1 thankful Users |
Follow us on