'!TITLE "ProIMACTEST"

#define CHN 1
#define PTN 1
#define PWM 100


Sub Main 
	Dim caoCtrl as Object


	' Connect IPPA
	caoCtrl = cao.AddController("IPPA", "CaoProv.IMAC.IPPA", "", "conn=eth:192.168.0.29")
	

	' Change the execution pattern
	caoCtrl.WriteExecutionPattern PTN

	' Set the light ON/OF
	caoCtrl.WriteOnOffSetting CHN, 1

	' Set the PWM
	caoCtrl.WritePWMDuty PTN, CHN, PWM

	' Set the trigger mode
	caoCtrl.WriteTriggerMode CHN, 0


	' Disconnect IPPA
	cao.Controllers.Remove caoCtrl.Name
	caoCtrl = Nothing

	delay 100
End Sub