The functions below control or return information about the CPU-XA device manufactured by Applied Digital Inc.
Dim CPUXA As Object = hs.Plugin("Applied Digital Ocelot")
Then, if you wish to perform a test to make sure that the plug-in is loaded and operating properly:
If CPUXA
Is Nothing Then
' Do whatever you
want such as....
Exit Sub
End If
At this point in your script, you may reference the CPUXA commands as documented below, such as this example:
CPUXA.PlayRemoteIR(3,
2, 0) '
Input 1, Music Source 1
' Raise the music
volume just a little bit more.
For x = 1
To 8
CPUXA.PlayRemoteIR(3,
2, 6) '
Volume Up
hs.WaitEvents()
Next
|
cpuxa.GetPoint |