ID : 1513
書式サンプル1
NetwoRCプロバイダを使用し、PACプログラムの開始を行う例を示します。
Task.pcs
'!TITLE "Task"
Sub Main
Dim g_ctrl as Object ' CaoControllerオブジェクト用
Dim g_task as Object ' CaoTaskオブジェクト用
' 接続
g_ctrl = cao.AddController("RC", "CaoProv.DENSO.NetwoRC",
"", "conn=eth:10.6.235.60")
' Taskの生成
g_task = g_ctrl.AddTask("Pro1", "")
' Taskの開始
g_task.Start 2
' 切断
g_ctrl.Tasks.Remove g_task.Index
g_task = Nothing
cao.Controllers.Remove g_ctrl.Index
g_ctrl = Nothing
End Sub
解説
接続と切断は、RC7Mコントローラの変数値の取得、設定の場合と同じです。
まず、CaoController
オブジェクトのAddTaskメソッドでcaoTaskオブジェクトを生成し、次にCaoTaskオブジェクトのStartメソッドでTaskを開始します。
上の例では、プログラムPro1のTaskを開始します。
AddTaskメソッドの詳細は、「NetwoRCプロバイダ ユーザズガイド」の「4.2.5.CaoController::AddTaskメソッド」の項を参照してください。
Startメソッドについての詳細は、「NetwoRCプロバイダ ユーザズガイド」の「4.2.42.CaoTask::Startメソッド」の項を参照してください。
ID : 1513