Change time on Hs Touch screen

[Stevieboy]

Now just to give you ideas. I have a panel in the guest bathroom that just gives data no control. Very basic but people like it and the simple info it displays.

Like it!

Will post a couple of shots of mine when finished. Only has two screens, one is for control, screen comes to life when motion sensed in bedroom, after no motion is detected, it revert to another screen (similar to yours) showing basic clock (now sunrise/sunset )

You will see from earlier posts, this being the reason I want to dim this particular screen as screen/clock is a little bright. Once motion is again sensed, it reverts back to control screen.

[ITguyHS]

Ok, Heres the script and here is the error. Device ID is 793

Here is the link to my method

http://board.homeseer.com/showpost.p...8&postcount=80

Sub Main(Parms As Object)

dim plug as object
dim backlight_current_value as integer = hs.DeviceValue("793")
plug = hs.plugin("HSTouch Server")

' If backlight currently on, set to .01 to turn off, else set to minimum dim level of 38%
If backlight_current_value > 1 Then
plug.ClientAction(89,"Android:Masterbedroom",".01","")
hs.setdevicevalue("793", "1")
Else
plug.ClientAction(89,"Android:Masterbedroom",".38","")
hs.setdevicevalue("793", "38")
End if

End Sub

Pete - I wish I understood your method.

Try this instead:

hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom",".01",""})
hs.SetDeviceValueByRef(793, "1", True)

[Stevieboy]

Try this instead:

hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom",".01",""})
hs.SetDeviceValueByRef(793, "1", True)

Ok, Thanks. I have copied/pasted above script but now get this error.

Excuse my ignorance but just delete ALL of the previous script and replace with the above, no other text correct?

[ITguyHS]

Ok, Thanks. I have copied/pasted above script but now get this error.

Excuse my ignorance but just delete ALL of the previous script and replace with the above, no other text correct?

Sorry, I wasn't very clear. Most of your script is correct. You just need to use the HS3 functions [what you have looks like HS2]. So your script becomes this:

Sub Main(Parms As Object)

dim backlight_current_value as integer = hs.DeviceValue(793)

' If backlight currently on, set to .01 to turn off, else set to minimum dim level of 38%
If backlight_current_value > 1 Then
    hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom",".01",""}) 

    hs.setdevicevaluebyref(793, "1", True)
Else
    hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom",".38",""}) 

    hs.setdevicevaluebyref(793, "38", True)
End if

End Sub

[Stevieboy]

Sorry, I wasn't very clear. Most of your script is correct. You just need to use the HS3 functions [what you have looks like HS2]. So your script becomes this:

Sub Main(Parms As Object)

dim backlight_current_value as integer = hs.DeviceValue(793)

' If backlight currently on, set to .01 to turn off, else set to minimum dim level of 38%
If backlight_current_value > 1 Then
    hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom",".01",""}) 

    hs.setdevicevaluebyref(793, "1", True)
Else
    hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom",".38",""}) 

    hs.setdevicevaluebyref(793, "38", True)
End if

End Sub

Ok,thank you

Pasted and tried, Have following error in log. Any suggestions?

[ITguyHS]

Ok,thank you

Pasted and tried, Have following error in log. Any suggestions?

Try adding "Imports System.Core" [without the quotes] as the very first line of your script, on a line before the Sub Main. Sub Main still goes on a line by itself. So your script will start with

Imports System.Core
Sub Main(Parms As Object)

the remainder of the script is unchanged.

I'm a little confused about that mono-project error. Not being a Linux guy, that may involve something else.

[sparkman]

The second parameter in the hs.setdevicevaluebyref statements should not be in quotes. The systems.core message is the typical error message with any kind of issue with a script. The imports should not be neccesary.

Cheers
Al

[ITguyHS]

The second parameter in the hs.setdevicevaluebyref statements should not be in quotes. The systems.core message is the typical error message with any kind of issue with a script. The imports should not be neccesary.

Cheers
Al

Nice catch, Al! You are absolutely right. Does the Windows version trap this without throwing an error? I've been running it successfully with the quotes and without the import for over a year and it doesn't log anything!

[sparkman]

Hi Fred, I would have expected Windows to throw an error as well, but maybe it's more forgiving. Everything else looks ok in the script as far as I can see.

Cheers
Al

[Stevieboy]

The second parameter in the hs.setdevicevaluebyref statements should not be in quotes. The systems.core message is the typical error message with any kind of issue with a script. The imports should not be neccesary.



Cheers

Al

Guys,

Thanks for prompt response. Rather than me tearing my hair out trying to get this to work . Would be grateful if you could provide correct script here for me. Sorry, parameters & quotes are a foreign language to us non techies.[emoji853]

Much appreciated

Steve


Sent from my iPhone using Tapatalk

[Stevieboy]

Two screens, toggled by motion sensor in bedroom. Brief from wife was keep it simple!

Motion sensed - status screen

No motion - clock display . Just added two times at bottom , these are sunrise/sunset , I need to add text and locate to correct place .

Clock far too bright , hence the script .


Sent from my iPhone using Tapatalk

[ITguyHS]

Guys,

Thanks for prompt response. Rather than me tearing my hair out trying to get this to work . Would be grateful if you could provide correct script here for me. Sorry, parameters & quotes are a foreign language to us non techies.[emoji853]

Much appreciated

Steve

This should do it.

Sub Main(Parms As Object)

dim backlight_current_value as integer = hs.DeviceValue(793)

' If backlight currently on, set to .01 to turn off, else set to minimum dim level of 38%
If backlight_current_value > 1 Then
    hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom", ".01", ""}) 

    hs.setdevicevaluebyref(793, 1, True)
Else
    hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom", ".38", ""}) 

    hs.setdevicevaluebyref(793, 38, True)
End if

End Sub

Are you sure your backlight will still be on if you set it to 38%? You might want to start at 50% and gradually go down until it no longer displays, then go back up a percent or two. Just change the .38 in the hs.PluginFunction line to .50, .40, etc. to try it.

[Pete]

Here tried the follow me PIR motion / touchscreen events sensing with wife. It worked fine but due to WAF shut most of it off. IE: it worked too good.

The HAI Omnitouch screens are off here untill you touch them. They remain on for set amount of time then shut off.

That said personally for touch screens just shut them off at night. If you touch them then they wake up. I put screen dim or off buttons on the touchscreens though. They can be dimmed to glowing mode for say a clock. It is a bit dimmer than the old LED clocks still around.

[Stevieboy]

This should do it.

Sub Main(Parms As Object)

dim backlight_current_value as integer = hs.DeviceValue(793)

' If backlight currently on, set to .01 to turn off, else set to minimum dim level of 38%
If backlight_current_value > 1 Then
    hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom", ".01", ""}) 

    hs.setdevicevaluebyref(793, 1, True)
Else
    hs.PluginFunction("HSTouch Server", "", "ClientAction", {89,"Android:Masterbedroom", ".38", ""}) 

    hs.setdevicevaluebyref(793, 38, True)
End if

End Sub

Are you sure your backlight will still be on if you set it to 38%? You might want to start at 50% and gradually go down until it no longer displays, then go back up a percent or two. Just change the .38 in the hs.PluginFunction line to .50, .40, etc. to try it.

Mmmm sorry, now have the following error.

Pete - Touchscreen is the other side of the room so would have to get out of bed to wake screen up - I need my beauty sleep!

On the lookout for a decent size android touchscreen for kitchen, any recommendations ?

[Pete]

Ahh....

On the lookout for a decent size android touchscreen for kitchen, any recommendations ?

Yeah here mostly utilize Jogglers. You can typically find them around and used for around $35 USD. The Jogglers are UK based.
Only modifications are 1- updating base firmware via USB stick and 2 - building or using an Android based boot stick. Here I have done more modifications such that I am using an SSD card inside and booting to embedded wintel (of whatever flavor). Runs Linux Ubuntu 14.04 natively via a boot stick too.

Jogglers have built in wireless and a Gb interface. You can run Android via a USB boot stick. It is a 7" capacitance touchscreen tabletop tablet with an Atom dual threaded CPU with with 512Mb of memory. It does fine. Nothing fancy here; very simple.

I have two of them on the two nightstands connected via the NIC to one combo mini POE in wall managed switch which I purchased used for a song and a dance. One is also in the master bedroom media cabinet (wired) and another in the master bedroom bathroom(wireless).



I am using an old one which fits inside of a box. New managed switches are bigger and fit on the box. Tiny managed switch.