'!TITLE "Pro1"

Sub Main 
	TakeArm Keep = 0
	Dim caoCtrl as Object
	Dim caoTower as Object
	Dim caoProcessDataOut as Object
	Dim caoOperatingMode as Object
	Dim caoSegBakcolor as Object
		
	'�@. IO-Link Maseter(BNI009T)と接続
	caoCtrl = cao.AddController("IOLink", "caoProv.Balluff.IOLink", "", "server=192.168.1.100,Path=Balluff-BNI-EIP-507-005-Z040-20151110-IOLM1.3.xml")
	
	'�A. Balluff-BNI_IOL-802(タワーライト)と接続
	caoTower = caoCtrl.AddFile("Tower","PortNo=0, Path=Balluff-BNI_IOL-802-102-Z036-20150730-IODD1.1.xml")

	'�B. "ProcessDataOut”を追加
	caoProcessDataOut = caoTower.AddFile("ProcessDataOut")

	'�C. アイテム "Operating Mode”, "Segment 1 color / Background color”を追加
	caoOperatingMode = caoProcessDataOut.AddFile("Operating Mode")
	caoSegBakcolor = caoProcessDataOut.AddFile("Segment 1 color / Background color")

	'�D. それぞれのオブジェクトで値を書き込む
	caoOperatingMode.Value = ("Runlight mode")
	caoSegBakcolor.Value = ("Orange")

End Sub