eHome Digial Tools

I used the Kitchen Timer and liked the little beep beep it made, but it would be kewl if the alarm flashed all the lights in the house on and off so that I can really notice it. This of course could be be whatever Macro you have set up in PowerHome like sending me a txt message to my cell phone telling me not to burn the kitchen down.

I like it

It's already in there.

Towards the end of the ehomeclient.vbs file there is a function called KITCHEN_TIMER_SHOW_ALARM.

I cut and pasted this

Code: Select all

Dim sRet
sRet = g_oGbl.EH_PH_MACRO("ph_macro(" & Chr(34) & "TEST" & Chr(34) & ")")
'if sRet = "" then msgbox "Fail"

into the function from the beginning of the same .vbs file. Changed macro name and voila... TTS on the WHA when the timer hit zero.

Thanks.
Maybe this can be done via GUI kinda like the HA screen designer?
Grandma (nor I) have no idea what "Dim sRet" is.
But I'll do as you suggest in the meantime. Thanks again.

signed,
Manny
Non-code-jockey

Manny,

I don't know VBS code at all. But I figured what the heck, I'll try it.

BTW, I commented out the IF ... THEN msgbox "Fail" statement because mine ran the macro correctly but still displayed the msgbox "Fail."

Here is how the function looks in my ehomeclient.vbs file

Code: Select all

Function KITCHEN_TIMER_SHOW_ALARM(TimerNumber)
  '--- called when kitchen timer fires
  'msgbox "KITCHEN_TIMER_SHOW_ALARM " & TimerNumber

  if TimerNumber = 1 then
     '--- 1st timer fires
    Dim sRet
    sRet = g_oGbl.EH_PH_MACRO("ph_macro(" & Chr(34) & "TEST" & Chr(34) & ")")
    'if sRet = "" then msgbox "Fail"
  Else
     '--- 2st timer fires
                 Dim sRet
    sRet = g_oGbl.EH_PH_MACRO("ph_macro(" & Chr(34) & "TEST" & Chr(34) & ")")
    'if sRet = "" then msgbox "Fail"
  End If

  '--- if False is returned then eHome will NOT
  '--- beep or show anything on the screen
  KITCHEN_TIMER_SHOW_ALARM = True


End Function


The ehomeclient.vbs resides on my client machine in the kitchen.

After playing around with this function a little, this works if you just want notification that a time has alarmed, but don't need to know which one.

Code: Select all

Function KITCHEN_TIMER_SHOW_ALARM(TimerNumber)
  '--- called when kitchen timer fires
  'msgbox "KITCHEN_TIMER_SHOW_ALARM " & TimerNumber

    Dim sRet
    sRet = g_oGbl.EH_PH_MACRO("ph_macro(" & Chr(34) & "TEST" & Chr(34) & ")")
    'if sRet = "" then msgbox "Fail"

  '--- if False is returned then eHome will NOT
  '--- beep or show anything on the screen
  KITCHEN_TIMER_SHOW_ALARM = True


End Function


Pretty good jbbtex.

For the function EH_PH_MACRO - sRet always is nothing.

There is another function EH_PH_MACRO_RETVAR
This waits for PH to send back anything.