ในตัวอย่างนี้จะเป็นการอ่านค่าจากText Fileจากไฟล์ factoryautomation.txt ซึ่งมีเนื้อหาในไฟล์ดังรูป ส่งให้OPC Tagด้วยGENESIS32 SCADA
ให้คัดลอกเนื้อหาข้อความด้านล่างไปไว้ใน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อัตโนมัติ