'!TITLE "RCXSample_CtrlVar.pcs"

Sub Main 

	Dim caoCtrl As Object
	Dim caoVarCnfg as Object
	Dim caoVarExeLvl as Object		
	Dim caoVarMod as Object		
	Dim caoVarMsg as Object		
	Dim caoVarUnit as Object		
	Dim caoVarVer as Object		
	Dim caoVarMem as Object		
	Dim caoVarEmg as Object		
	Dim caoVarSelfChk as Object		
	Dim caoVarOpslot as Object		

	Dim vRes As Variant
	Dim	lCnt as long 
	Dim lNo as long

	set caoCtrl = cao.AddController("rcx1", "CaoProv.YAMAHA.RCX","","conn=com:2:19200:o:8:1:1, timeout=20000")
'	set caoCtrl = cao.AddController("rcx1", "CaoProv.YAMAHA.RCX","","conn=eth:133.215.201.11:23, timeout=20000")

	set caoVarCnfg = caoCtrl.AddVariable("@CONFIG")
	set caoVarExeLvl = caoCtrl.AddVariable("@EXELVL")
	set caoVarMod = caoCtrl.AddVariable("@MOD")
	set caoVarMsg = caoCtrl.AddVariable("@MSG")
	set caoVarUnit = caoCtrl.AddVariable("@UNIT")
	set caoVarVer = caoCtrl.AddVariable("@VER")
	set caoVarMem = caoCtrl.AddVariable("@MEM")
	set caoVarEmg = caoCtrl.AddVariable("@EMG")
	set caoVarSelfChk = caoCtrl.AddVariable("@SELFCHK")
	set caoVarOpslot = caoCtrl.AddVariable("@OPSLOT")

	S[1] = "@ExeLvl:" & caoVarExeLvl.Value
	S[2] = "@Mod:" & caoVarMod.Value
	S[3] = "@Msg:" & caoVarMsg.Value
	S[4] = "@Unit:" & caoVarUnit.Value
	S[5] = "@Ver:" & caoVarVer.Value
	S[6] = "@EMG:" & caoVarEmg.Value

	lNo = 7
	vRes = caoVarCnfg.Value
	for lCnt = 0 to Ubound(vRes)
		S[lNo] = "@Config" & lCnt & ":" & vRes(lCnt)
		lNo = lNo + 1
	next

	vRes = caoVarMem.Value
	for lCnt = 0 to Ubound(vRes)
		S[lNo] = "@Mem" & lCnt & ":" & vRes(lCnt)
		lNo = lNo + 1
	next

	vRes = caoVarSelfChk.Value
	if (VarType(vRes) <> 0) then
		for lCnt = 0 to Ubound(vRes)
			S[lNo] = "@SelfChk" & lCnt & ":" & vRes(lCnt)
			lNo = lNo + 1
		next
	end if

	vRes = caoVarOpslot.Value
	for lCnt = 0 to Ubound(vRes)
		S[lNo] = "@Opslot" & lCnt & ":" & vRes(lCnt)
		lNo = lNo + 1
	next

End Sub