GENESIS32 SCADA อ่านค่าจากText fileส่งให้OPC tag

ในตัวอย่างนี้จะเป็นการอ่านค่าจากText Fileจากไฟล์ factoryautomation.txt ซึ่งมีเนื้อหาในไฟล์ดังรูป ส่งให้OPC Tagด้วยGENESIS32 SCADA

ชมเวอร์ชั่นVDO

ให้คัดลอกเนื้อหาข้อความด้านล่างไปไว้ในNotepadแล้วSave Asเป็นไฟล์ factoryautomation.txt

26715 0300701219TCS BA009971224189600000000

จากนั้นสร้างไฟล์GraphWorXขึ้นมา แล้ววางProcess Pointลงไป และลิงค์กับOPC tagในOPC Simulatorชื่อ ICONICS.Simulator.1\SimulatePLC.OUTPUTS.STRING001

นำปุ่มมาวางลงไป

เลือก Run Script แล้วคลิ้ก Create… เพื่อสร้างScript

ตั้งชื่อScipt nameเป็นtestแล้วคลิ้กOK

จะพบหน้าVBA Editor ให้คัดลอกโค้ดด้านล่างว่างลงไป ซึ่งเป็นโค้ดการอ่านค่าจากText fileมาไว้ในOPC tagชือ่ ICONICS.Simulator.1\SimulatePLC.OUTPUTS.STRING001

Dim v As String
Dim myFile As String, textline As String
Dim gc As New OpcHelper

myFile = "G:\factoryautomation.txt"
Open myFile For Input As #1
Do Until EOF(1)
    Line Input #1, textline
    v = v & textline
Loop
Close #1

gc.Write "ICONICS.Simulator.1\SimulatePLC.OUTPUTS.STRING001", v

แก้ไขบรรทัด

myFile = “G:\factoryautomation.txt”

ให้ตรงกับพาธที่เก็บไฟล์ที่จะอ่านจริงๆ

เลือก Tools > Referesnces… เพื่อเพิ่มคอมโพเน็นท์อ่านค่าOPCที่อ้างถึงในโค้ด

หาGenClientWrapper 1.0 Type Library แล้วใส่เครื่องหมายถูก คลิ้กOK

กลับมาที่หน้าGraphWorXหลัก เอาProcesspointวางลงไปแล้วลิงค์กับExpressionดังรูปเพื่อตัดคำจากOPC tag STRING001 ตั้งแต่ตำแหน่งเริ่มต้นมา 5 ตัวอักษร (เป็นตัวอย่างการนำบางคำจากOPC tagมาใช้)

คลิ้กOK, OK

ตรวจสอบให้แน่ใจว่าไม่ได้เปิดไฟล์factoryautomation.txtไว้ แล้วลองเข้าสู่Runtime แล้วกดปุ่มที่สร้างขึ้น จะมีการอ่านค่าจากไฟล์แล้วส่งให้OPC tagและตัดคำมาแสดง จากรูปล่างผมเพิ่มตัวอย่างการตัดคำตั้งแต่อักษรลำดับที่6มา10ตัวอักษร และลำดับที่20มา10ตัวอักษรด้วย

ถ้าต้องการให้ทำงานอัตโนมัติก็สามารถทำได้โดยใช้Timer ชมท้ายVDOเพื่อใช้งานTimerสั่งอ่านค่าText Fileอัตโนมัติ