'!TITLE "ProPVSample.pcs"

Sub Main
	On Error GoTo ErrorProc
	
	Dim ctrl As Object
	
	' Connet Panasonic PV
	ctrl = Cao.AddController( "PV", "CaoProv.Panasonic.PV", "", _
	"conn=eth:192.168.0.112, timeout=10000" )
	
	' Change Product No 1
	ctrl.Xtype 1
	
	' Inspection and Get Result(S11)
	S11 = ctrl.Start
	
	' Put result in V11
	V11 = "V(" & S11 & ")"
	
EndProc:
	Cao.Controllers.Clear
	ctrl = Nothing
	Exit Sub
	
ErrorProc:
	PrintDbg Hex( Err.OriginalNumber )
	GoTo EndProc
End Sub