Arduino Script Testing. (Enigmatheatre)

[dhalsall]

It is making me feel a bit better that you're finding it strange too

tab below:

[enigmatheatre]

It is making me feel a bit better that you're finding it strange too

tab below:

In the event do you have a space between the comma and the dim? If so try removing it as it had to be exactly like the status pair.

Greig.

Sent from my SM-G925F using Tapatalk

[dhalsall]

DOAH!

That's it... as usual, couldn't see the forest for the trees.

Works as expected now - lol.

Thanks for all you help Greig!

I'll quietly attempt to learn the rest on my own - of course, this performance hasn't filled me with self confidence... but I'll keep pluggin' away.

dave

[enigmatheatre]

DOAH!

That's it... as usual, couldn't see the forest for the trees.

Works as expected now - lol.

Thanks for all you help Greig!

I'll quietly attempt to learn the rest on my own - of course, this performance hasn't filled me with self confidence... but I'll keep pluggin' away.

dave

Good news. Glad we got there.
I'm of to bed as it is 1.45am here and I am up at 7.[emoji17]

Sent from my SM-G925F using Tapatalk

[dhalsall]

wow - thanks Greig.
Hope you work well on 5hrs sleep (I'm the same).

[dhalsall]

Hi Greig,

FYI, I managed to muddle through and modify the code for my final application:

Sub Main(parms As Object)
        Dim tempBOX As Integer
        Dim speedPCT As Integer
        Dim myDevCmd As String
        tempBOX = hs.DeviceValue(45)
        speedPCT = (tempBOX-25)*10
        myDevCmd = "Dim " & speedPCT & "%"
        hs.WriteLog("BOX Cool Down", " Box Temp: " & tempBOX &"C" & " Fan Percentage: " & speedPCT)
        CallCAPI(37, myDevCmd)
End Sub

    Function CallCAPI(ByVal intDevRef As Integer, ByVal strDevCmd As String) As CAPIControlResponse
        CallCAPI = CAPIControlResponse.Indeterminate
        For Each objCAPIControl As CAPIControl In hs.CAPIGetControl(intDevRef)
            If LCase(objCAPIControl.Label) = LCase(strDevCmd) Then
                CallCAPI = hs.CAPIControlHandler(objCAPIControl)
                Exit For
            End If
        Next
    End Function

However, I have read your function over and over, and just don't get how it works! Mostly I'm sure because I have to improve my VB / scripting skills, but also, I find the references to these functions and methods in the HS3 scripting doc to be fairly vague. Is there a more in-depth resource to educate myself? Or is it just a lot of trial and error?