'KVCOMプロバイダ Sample


Sub Main
	'PLCに接続(KV-5500 USB接続)
	Set oCtrl = CAO.AddController("KV5500", "CaoProv.KEYENCE.KVCOM", "", "PlcId=4611, DestName=USB")
	Dbg.Output "接続"

	'動作モード取得
	Set oMode = oCtrl.AddVariable("@MODE")
	Dbg.Output "MODE:" & oMode.Value


	'デバイスアクセス (対象：DM10000 〜 DM10015)
	Set oVar = oCtrl.AddVariable("DM", "DeviceKind=18, DeviceNo=10000, Elem=4")

	'デバイスから読出し
	vValue = oVar.Value
	
	'デバイスへ書込み
	oVar.Value = vValue
	
	
	'PLC切断処理
	CAO.Controllers.Remove oCtrl.Index
	Dbg.Output "切断"
End Sub