'!TITLE "ProAIOSample_en.pcs"

Sub Main
	On Error Goto ErrorProc

	Dim ctrl as Object				'For CaoController object
    Dim sDeviceName as String		'For acquiring device name
	Dim varAO0 As Object			'For variable object used to access the AIO board
	Dim sngAO0 as Single = 10.0		'For analog output(Specified voltage value=10.0V)

	'Establish (open) connection
	ctrl = cao.AddController("AIO", "CaoProv.CONTEC.AIO","","DeviceName=AIO000")

	'Acquire device name
	sDeviceName = ctrl.AddVariable("@DeviceName").Value	

	'Create variable object
	varAO0 = ctrl.AddVariable("AO0")

	'Output a specified voltage value
	varAO0.value = sngAO0

EndProc:
	Cao.Controllers.Clear
	ctrl = Nothing
	Exit Sub

ErrorProc:
	PrintDbg Hex(Err.OriginalNumber)
	Goto EndProc
End Sub