Programing Insteon Modules

[General Patton]

First off, glad to see the plugin is coming along. I have not migrated over to HS 2.0 yet (purchased, just haven't taken the plunge)

I am trying to program the Insteon lamplincs with HS 1.7. I have the primary X10 address set up fine. Works great.

I am trying to set an X10 scene address and on level.

I am doing the following:

First I am holding the lamplinc button in for 3 secs until it blinks although this isn't mentioned in the manual.

I am then executing the following code (in HS 1.7)

sub main()

hs.ExecX10 "O16", "NoCmd", 0, 0
hs.waitsecs 1
hs.ExecX10 "N16", "NoCmd", 0, 0
hs.waitsecs 1
hs.ExecX10 "M16", "NoCmd", 0, 0
hs.waitsecs 1
hs.ExecX10 "P16", "NoCmd", 0, 0
hs.waitsecs 1
hs.ExecX10 "M16", "NoCmd", 0, 0
hs.waitsecs 1

hs.ExecX10 "F9", "Dim", 50, 0 'set desired dim at module
hs.waitsecs 1

hs.ExecX10 "M16", "NoCmd", 0, 0
hs.waitsecs 1
hs.ExecX10 "N16", "NoCmd", 0, 0
hs.waitsecs 1
hs.ExecX10 "O16", "NoCmd", 0, 0
hs.waitsecs 1
hs.ExecX10 "P16", "NoCmd", 0, 0
hs.waitsecs 1

hs.ExecX10 "F10", "NoCmd", 0, 0 'The scene address I want

end sub

If I read the manual right, this is correct.

I first tried this without the waitsecs in between. The lamplinc led never stopped flashing and no programing was done.

Then I added the 1 second waits. The led stops blinking but it does not respond to the scene.

Does anybody have any ideas? Am I missing something here?

Thanks,

[chadg]

Hey General,
I had the exact same problem. The problem is that is that it is "No Cmd" NOT "NoCmd". You do not need to press the button on your lamplincs. You only need to do that to set the primary X10 address once that is done just run the scene setup script. No need for the waits (allthough I tried that first too!) Here is the script that works for me:

Sub Main
' ---- Send Clear ------
hs.ExecX10 "O16", "No Cmd"
hs.ExecX10 "N16", "No Cmd"
hs.ExecX10 "M16", "No Cmd"
hs.ExecX10 "P16", "No Cmd"
hs.ExecX10 "M16", "No Cmd"

'---- Turn on Scene lights
hs.ExecX10 "C1", "On"
hs.ExecX10 "C2", "On"

' ---Send end commmand
hs.ExecX10 "M16", "No Cmd"
hs.ExecX10 "N16", "No Cmd"
hs.ExecX10 "O16", "No Cmd"
hs.ExecX10 "P16", "No Cmd"

'---- Set Scene address
hs.Execx10 "E1", "No Cmd"
End Sub

[General Patton]

I knew it had to be something simple...

I get it...so any activity between the "clear" and the "end" becomes part of the scene. It makes sense.

Thanks for the help. I'll try it when I get home.

[General Patton]

Worked like a charm, once I figured out that the "Dim, 50" was relative so I needed to turn the light on to 100% first.

Thanks!