Membuat log file .CSV pada HMI SIEMENS WinCC Flexible

Kali ini saya  akan menunjukkan contoh membuat file logging dalam format .CSV yang akan dikeluarkan dari software HMI Siemens WinCC Flexible.

Logging file tersebut dapat berisi time stamp pengambilan data dan beberapa tag yang dapat di-record dalam file logging.

Format file .CSV akan dapat dibuka menggunakan program spreadsheet seperti Microsoft Office Excel.
Contoh berikut menggunakan simulasi internal tag pada WinCC Flexible Runtime PC dan generate file .CSV diaktifkan dari fitur Script.

Dim logFile, fileTemp, targetFile, DataSetup

Set logFile = CreateObject("Scripting.FileSystemObject")

'buat variabel string untuk nama file

'misalkan: "Log_2019-04-12.csv disimpan di drive C:\LOGS\"

SmartTags("Log_FileName") = "C:\LOGS\Log_" & CStr(DatePart("yyyy",Date)) & "-" & CStr(DatePart("m",Date)) & "-" & CStr(DatePart("d",Date)) & ".csv"

'susun data yang akan dicatat

DataSetup = CStr(Now) & "," & CStr(SmartTags("Tag_value"))

'cek apakah file sudah tersedia

'Bila tidak ada, maka buat file baru dan tulis data baris pertama

'Bila ada, maka lanjutkan

If Not logFile.FileExists(SmartTags("Log_FileName")) Then

logFile.CreateTextFile SmartTags("Log_FileName")

Set fileTemp = logFile.GetFile(SmartTags("Log_FileName"))

Set targetFile = fileTemp.OpenAsTextStream(8, -2)

targetFile.WriteLine "Waktu , Nilai"

targetFile.WriteLine DataSetup

targetFile.Close

Else

Set fileTemp = logFile.GetFile(SmartTags("Log_FileName"))

Set targetFile = fileTemp.OpenAsTextStream(8, -2)

targetFile.WriteLine DataSetup

targetFile.Close

End If

Set targetFile = Nothing

Set fileTemp = Nothing

Set logFile = Nothing

Nilai dari internal tag Tag_value diinput melalui IO Field dan pencatatan pada logging file dilakukan setelah menekan Button SAVE. Logging file akan tersimpan pada drive direktori komputer C:/Logs, tentu saja target penyimpanan ini dapat diubah sesuai yang ada pada script.

contoh program lengkap dapat diunduh pada tautan berikut :

http://bit.ly/2Ik1UtW