Make daily report from TIA Portal V.16 to Ms.Excel Automatically using VBScript | INSTRUMENT PART 10

Export Data TIA PORTAL V-16 to Ms.Excel

Pada bagian ini saya akan mencoba membuat daily report secara otomatis dari TIA Portal ke Ms. Excel. Bisa dibilang ini bisa berfungsi seperti data logger, namun yang berfungsi sebagai device memorinya merupakan PG/PC (Personal Computer).

Data from TIA Portal

Sebelumnya, mentor saya telah mencoba untuk memanfaatkan memori PLC sebagai data logger. Namun setelah dicoba ternyata kuantitas data yang dapat disimpan hanya sedikit, padahal free space memorinya masih memadai. Oleh karena itu dicoba alternatif lain yaitu menggunakan WinCC RT (WinCC Runtime)  nya SIEMENS. WinCC sendiri penjelasan simpelnya merupakan HMI yang menampilkan kondisi sistem secara real time, yang ditanam pada PG/PC (computer with programming software). Simpelnya data yang diterima akan disimpan di laptop saya. Kali ini saya hanya akan menggunakan simulasi saja (tidak terkoneksi ke fisik PLC) karena ya sama saja sebenarnya langkahnya.

1. Konfigurasikan WinCC RunTime Advance di TIA Portal

Ketika ingin membuat WinCC RT, kita harus mengkonfigurasikannya pada bagian Device Configuration. WinCC terdapat pada PC Station.

WinCC Device Configuration TIA Portal

2. Membuat VBScript

VBScript merupakan bahasa pemrograman untuk visual basic. Pada pemrograman PLC sebenarnya terdapat beberapa bahasa pemrograman, seperti : Ladder diagram, Function Block Diagram, Structured text, dan Statement List. Namun, pada TIA Portal juga dapat disisipkan bahasa pemrograman lain untuk fitur-fitur seperti data logging maupun export data. Misalnya dengan menggunakan bahasa C ataupun Visual Basic (VBScript). Karena di beberapa referensi internet banyak menggunakan VBScript, maka saya memutuskan untuk menggunakan VBScript juga. Berikut adalah code VBScript nya:

------------------------------------------------------------------------------------------------------------------------

Sub Create()

Dim FolderPath, ObjectPath, Filename, File, FileExist, Columns, Row

Dim DY,MNTH,YR,

Dim HR,MNT,SCND

DY=Day(Date())

MNTH=Month(Date())

YR=Year(Date())

HR=Hour(Time())

MNT=Minute(Time())

SCND=Second(Time())

FolderPath = "D:\KELINCI PER TRY AN\"

Filename = "Report_" & YR & "_" & MNTH & "_" & DY & ".csv"

Set ObjectPath = CreateObject("Scripting.FilesystemObject")

'Check if folder exists

If Not ObjectPath.FolderExists(FolderPath) Then              

ObjectPath.CreateFolder FolderPath     

End If

' Check if file exists

Set File = CreateObject("Scripting.FilesystemObject")

FileExist = File.FileExists(FolderPath & "\" & Filename)

If FileExist = False Then

File.CreateTextFile(FolderPath & "\" & Filename)

Set Columns = File.OpenTextFile(FolderPath & "\" & Filename, 8)

                Columns.WriteLine("tanggal ; waktu ; suhu ; tekanan ; arus")

                Columns.Close                 

                Set File = Nothing           

End If

'Write data to file

Set File = CreateObject("Scripting.FilesystemObject")

Set Row = File.OpenTextFile(FolderPath & "\" & Filename, 8)

Row.WriteLine(Date() & ";" & Time() & ";" & SmartTags("suhu") & ";" & SmartTags("tekanan") & ";" & SmartTags("arus") & ";")

Row.Close

Set File = Nothing  'Here we are releasing the File.

End Sub

--------------------------------------------------------------------------------------------------------------------------

Walaupun saya tidak suka segala sesuatu yang berbau programming, namun kode di atas tidak begitu saja saya copas dari sumbernya. Code diatas merupakan gabungan dari 2 source code, dimana saya rasa alangkah lebih baik jika digabungkan. Ada beberapa juga yang sedikit saya modifikasi. Penjelasan kode di atas adalah sebagai berikut :

Dim : syntax untuk mendeclare suatu variable

Code baris 2-4 : declare variabel

Code baris 5-10 : Mendefinisikan waktu saat ini

Code baris 11-22 : Mendeteksi file di direktori seperti yang ditulis, jika file tidak terdeteksi, maka file akan dibuat sesuai dengan nama yang diberi

Code baris 23-25 : Membuat nama pada masing-masing kolom

Code baris 29-31 : Export data dari TIA Portal ke Excel

VBScript data export

3. Membuat Screen untuk Win CC Run Time 

Screen kita desain sesuka hati kita. Karena saya sedang malas bikin program ladder, saya buat bar charts saja yang besar nilainya nanti yang akan di export ke Ms Excel. Oiya kalau dalam dunia nyata, semua data yang ditampilkan pada HMI SCADA merupakan data hasil pengukuran di lapangan, jadi jangan dianggap sama seperti yang saya lakukan yak wkwk. Saya cuma mau fokus di export data nya saja.

WinCC RT Screen

Di atas merupakan tampilan WinCC SCADA nya SIEMENS. Kalau di industri, tampilannya biasanya menampilkan nilai pengukuran sensor.

4. Buat HMI Tag dan Scheduled Task

Oiya setiap kali kita menggunakan WinCC untuk desain tampilan, setiap objek biasanya di alamatkan. Artinya objek tersebut akan menampilkan data yang di alamatkan kepadanya. Untuk kasus ini, karena saya lagi malas bikin program laddernya dan sedang tidak dihubungkan ke fisik PLC, maka saya bikin HMI Tag bebas saja. Yang perlu diingat, nama HMI Tag kalian harus identik dengan nama SmartTag pada baris ke-24 VBScript di atas. Disini saya membuat tag suhu, tekanan, dan arus.

HMI Tag

Selanjutnya agar data di export secara real time, kalian bebas memilih update data dilakukan setiap berapa waktu. Disini agar cepat, saya melakukan export data ke Excel setiap 2 detik. Ini tergantung kebutuhan dan seberapa akurat data yang kalian inginkan sih.

Scheduled Task for Created VBScript

5. Compile Program, Simulasikan dan Perbaiki format data CSV 

Setelah semua selesai, selalu lakukan compile untuk mengecek apakah masih ada error code. Jikalau semua beres, maka bisa langsung start simulation. Bar chart tadi akan muncul dan bisa kalian gerakin naik turun. Boleh langsung di cek di direktori mana tadi kalian simpan sesuai code VBScript, akan ada file baru sesuai nama yang kita buat.

Creating New File was  successfull

Setelah dibuka maka akan muncul file CSV (comma separataed values) yang masih berupa data berantakan. Tinggal kita ubah menggunakan fungsi text to column yang ada pada toolbar data Ms.Excel, lalu pilih delimate dan centang parameter yang perlu. Data dari TIA Portal dapat ter export secara automatis ke Excel. Jikalau kalian malas untuk men-delimate secara manual, kalian bisa lakukan dengan cara : Klik kanan file csv, open with notepade, dan tambahkan code 

sep=;

pada bagian paling paling atas. Nantinya file csv akan langsung terdelimate menjadi masing-masing kolom :

Berikut adalah video hasil percobaan saya :