'KVCOM provider sample


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

	'Get mode
	Set oMode = oCtrl.AddVariable("@MODE")
	Dbg.Output "MODE:" & oMode.Value


	'Devices access  (Target device DM10000 ~ DM10015)
	Set oVar = oCtrl.AddVariable("WRITE25", "DeviceKind=18, DeviceNo=10000, Elem=4")

	'Read from devices
	vValue = oVar.Value
	
	'Write to devices
	oVar.Value = vValue
	
	
	'Dissconnect
	CAO.Controllers.Remove oCtrl.Index
	Dbg.Output "Dissconnect"
End Sub