'!TITLE "SR1Sample_RobotVar.pcs"
Sub Main 

	Dim caoCtrl As Object
	Dim caoRob As Object

	Dim caoVarPos As Object
	Dim caoVarNo As Object
	Dim caoVarSNo As Object
	Dim caoVarTNo As Object
	Dim caoVarPNo As Object
	Dim caoVarMem As Object
	Dim caoVarRobot As Object
	Dim caoVarSrvo As Object
	Dim caoVarOrg As Object
	Dim caoVarMsel As Object
	Dim caoVarShft As Object
	Dim caoVarPVA As Object
	
	Dim vRes As Variant

	set caoCtrl = cao.AddController("sr1", "CaoProv.YAMAHA.SR1","","conn=com:2:9600:o:8:1:1")
	set caoRob = caoCtrl.AddRobot("RC")

	set caoVarPos = caoRob.AddVariable("@POS")	
	set caoVarNo = caoRob.AddVariable("@NO")	
	set caoVarSNo = caoRob.AddVariable("@SNO")	
	set caoVarTNo = caoRob.AddVariable("@TNO")	
	set caoVarPNo = caoRob.AddVariable("@PNO")	
	set caoVarMem = caoRob.AddVariable("@MEM")	
	set caoVarRobot = caoRob.AddVariable("@ROBOT")	
	set caoVarSrvo = caoRob.AddVariable("@SRVO")	
	set caoVarOrg = caoRob.AddVariable("@ORG")	
	set caoVarMSel = caoRob.AddVariable("@MSEL")	
	set caoVarShft = caoRob.AddVariable("@SHFT")	
	set caoVarPVA = caoRob.AddVariable("@PVA")	

	printdbg "@?POS:" & caoVarPos.Value
	printdbg "@?NO:" & caoVarNo.Value
	printdbg "@?SNO:" & caoVarSNo.Value
	printdbg "@?TNO:" & caoVarTNo.Value
	printdbg "@?PNO:" & caoVarPNo.Value
	printdbg "@?MEM:" & caoVarMem.Value
	printdbg "@?ROBOT:" & caoVarRobot.Value
	printdbg "@?SRVO:" & caoVarSrvo.Value
	printdbg "@?ORG:" & caoVarOrg.Value
	printdbg "@?MSEL:" & caoVarMSel.Value
	printdbg "@?SHFT:" & caoVarShft.Value
	printdbg "@?PVA:" & caoVarPVA.Value

End Sub