'!TITLE "ProDIOSample_en.pcs"

Sub Main
	On Error Goto ErrorProc

	Dim ctrl as Object				'For CaoController object
	Dim varIO0 As Object			'For variable object used to access the DIO board
	Dim vntOut as variant = 255		'For digital output(Specified value=11111111)

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

	'Create variable object(Specify data size(8bit))
	varIO0 = ctrl.AddVariable("IO0", "Len=8" )

	'Output specified value
	varIO0.Value = vntOut

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

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