Weeder Technologies makes nice I/O board that can be used for a variety of purposes. I have a WTDIO-M that I’ve been experimenting with for use with my home automation system. To interface with Indigo I use Serial Bridge and it output data to variables in Indigo. I had a poorly written script and never bother to make it production worthy.
A user on the Perceptive Automation message boards shared a nice generic script that interfaces with the analog and digital boards and outputs the data to Indigo variables.
This scripts requires a trigger action to run at a set time (1 hour) to poll the analog board using the following code.
tell application "Serial Bridge"
– request reading from WT Analog I/O
send to source "wtdio" string "BS" & return
end tell
For the digital board, the a Auto Zeroize function needs to be performed one a day with this code in a trigger action.
tell application "Serial Bridge"
– AutoZeroize WT Analog I/O
send to source "wtdio" string "BZ" & return
end tell
Below is the script that is used with Serial Bridge.
on MyProcessSerialData(connectionName)
tell application "Serial Bridge"
wait for data from source connectionName to count 1
set whichWeeder to read string from source connectionName to count 1
if whichWeeder = "A" then – digital I/O
– capture the remaingin two character word from the Weeder Module
set WeederResponse to read string from source connectionName to count 2
– Log it in its untraslated state
log "The Weeder says… " & "A" & WeederResponse using type "Sample"
set restOfString to read string from source connectionName
– Identify the which contact the Weeder is reporting on.
set ContactName to "Contact_" & first character of WeederResponse as text
– Convert the Contact state to state of the Contact
set ContactState to second character of WeederResponse
if ContactState = "L" then
set ContactState to "CLOSED" as text
else if ContactState = "H" then
set ContactState to "OPEN" as text
end if
– Log the the tranaslated state.
log "That translates to… " & ContactName & " is " & ContactState & "."
– Get a timestamp from the OS.
set time_stamp to do shell script "date +%Y-%m-%d\ %H:%M:%S"
tell application "IndigoServer"
log ContactName & " is " & ContactState & "."
– Create if neccessary a state varable name after the Contact, then set the state.
if not (variable ContactName exists) then
make new variable with properties {name:ContactName, value:ContactState}
else
set value of variable ContactName to ContactState
end if
– Create a dynamic variable name (just because we are going to call on it several times)
set ContactTimestamp to ContactName & "_LastEvent_TimeStamp"
– Create if neccessary a timestamp varable name after the Contact number, then set the timestamp.
if not (variable ContactTimestamp exists) then
make new variable with properties {name:ContactTimestamp, value:time_stamp}
else
set value of variable ContactTimestamp to time_stamp
end if
end tell
else if whichWeeder = "B" then – analog I/O
delay 0.2
set wtaio to read string from source connectionName
log "Analog I/O: " & wtaio
–set measurement1 to word 1 of wtaio as integer
–log "Word 1: " & measurement1
tell application "IndigoServer"
set AutoZero to word 1 of wtaio
if AutoZero = "Z" then
log "AutoZeroize WT Analog I/O"
else
set value of variable "wtaio1" to word 1 of wtaio
set value of variable "wtaio2" to word 2 of wtaio
set value of variable "wtaio3" to word 3 of wtaio
set value of variable "wtaio4" to word 4 of wtaio
set value of variable "wtaio5" to word 5 of wtaio
set value of variable "wtaio6" to word 6 of wtaio
set value of variable "wtaio7" to word 7 of wtaio
set value of variable "wtaio8" to word 8 of wtaio
log "Reading WT Analog I/O"
– adjust scaling for integer degrees with a single decimal place
set t1 to (get value of variable "wtaio8" as string)
set t1Last to last character of t1
set t1Len to length of t1
set t1 to characters 1 thru (t1Len - 1) of t1 as string
–set value of variable "TempBasement" to t1 & "." & t1Last
set value of variable "TempBasement" to t1
set t1 to (get value of variable "wtaio1" as string)
set t1Last to last character of t1
set t1Len to length of t1
set t1 to characters 1 thru (t1Len - 1) of t1 as string
set value of variable "TempOutside" to t1 & "." & t1Last
end if
end tell
end if
end tell
end MyProcessSerialData
–—————————————————————————
on startCommunication(connectionName)
tell application "Serial Bridge"
– initialize Serial Bridge; 5 contacts into Switch Mode
send to source connectionName string "ASI" & return
delay 0.2
send to source connectionName string "ASJ" & return
delay 0.2
send to source connectionName string "ASK" & return
delay 0.2
send to source connectionName string "ASL" & return
delay 0.2
send to source connectionName string "ASM" & return
delay 0.2
– make other ios into outputs to prevent false triggering
send to source connectionName string "AHA" & return
delay 0.2
send to source connectionName string "AHB" & return
delay 0.2
send to source connectionName string "AHC" & return
delay 0.2
send to source connectionName string "AHD" & return
delay 0.2
send to source connectionName string "AHE" & return
delay 0.2
send to source connectionName string "AHF" & return
delay 0.2
send to source connectionName string "AHG" & return
delay 0.2
send to source connectionName string "AHH" & return
delay 0.2
send to source connectionName string "AHN" & return
log "INITIALIZED" using type "Error"
repeat while true
try
set maxTimeoutDelay to 8947848 – 103.56 days (hex 0×00888888)
with timeout of maxTimeoutDelay seconds
my MyProcessSerialData(connectionName)
end timeout
on error number errNum
if errNum is -1712 then
log "timeout waiting for serial data" using type "Error"
else if errNum is -1708 then
log "AppleEvent not handled" using type "Error"
return – fatal error; exit script processing
else if errNum is -128 then
log "connection script aborted" using type "Error"
return – fatal error; exit script processing
else
log "error " & errNum & " inside MyProcessSerialData()" using type "Error"
return – maybe fatal error; exit script processing
end if
end try
end repeat
end tell
end startCommunication
I have not yet implemented this applescript. If you want to know more, check out the thread on the Perceptive Automation message boards.
Smarthome has upgraded the Insteon Thermostat to version 2.0
(Update: There are 
which is considerably more expensive.
The INSTEON LampLinc Dimmer (Dual-Band) is a full-featured plug-in lamp dimmer that can be remotely controlled by a RemoteLinc, KeypadLinc, or any other INSTEON controller. This simple-to-use plug-in dimmer has advanced features like an adjustable ramp rate that slowly brings the lamp on, a preset dim level that stores your preferred choice of 32 brightness levels when turning the lamp on initially, as well as local control, so you can still use the lamp’s built-in switch to turn the light on and off. This LampLinc is made to be plugged into any wall outlet. This dimmer can control incandescent loads up to 300 watts.
model for $129 I decided it was time give it a try.
Have you ever wondered if you left the lights on at home? Do you want to have everything just so before arriving home?
Recent Comments