Script met twee opties

Forum over Homeseer scripts (DUTCH forum)

Moderators: TANE, Ruud

Post Reply
User avatar
TANE
Forum Moderator
Forum Moderator
Posts: 4806
Joined: Fri Apr 06, 2007 9:46 pm
Location: Netherlands
Contact:

Script met twee opties

Post by TANE »

Om de status van een plugwise module op de HST zichtbaar te maken heb ik wat events gebouwd die de status van een virtuele device bij werken deze vraag ik dan via HST op voor status.
Dit werk goed maar per device heb ik twee events.

Het kan simpeler met 1 event + wat scripting. Script krijg ik nog niet helemaal goed..

Dit werkt
Als Optie geef ik dan op:
("Main","S3")

Code: Select all

Public Sub Main(ByVal Parms As String)
    Dim i As Integer
    i = hs.DeviceStatus("[25")
    Select Case i
        Case 2
            '' Device ON,
            hs.ExecX10(Parms, "On")
        Case 3
            '' Device OFF
            hs.ExecX10(Parms, "Off")
    End Select
End Sub

<b>Optimalisatie:</b>
Een tweede optie die de [25 kan vervangen

kan nog beter
Event wordt getriggerd via [25
Deze zou dan automatisch als tweede optie meegegeven kunnen worden.
any tips?
Bastiaan
Senior Member
Senior Member
Posts: 1259
Joined: Sat May 24, 2008 11:36 am
Location: Netherlands
Contact:

Script met twee opties

Post by Bastiaan »

Waarom staat "S3" daar? Als je niets doet met die parameter zet je daar je device in en gebruikt die als parameter in je script. Daardoor wordt het unverseel.
Je vervangt je [25 in de tekst door Parms en je hebt wat je wil.
User avatar
b_weijenberg
Forum Moderator
Forum Moderator
Posts: 1746
Joined: Sun May 14, 2006 4:32 pm
Location: Netherlands

Script met twee opties

Post by b_weijenberg »

Code: Select all

' call with options ("Main","S3|[25")

Public Sub Main(ByVal Parms As String)
    Dim i As Integer
    Dim strParms(1) As String

    strParms = Parms.split("|")

    i = hs.DeviceStatus(strParms(1))
    Select Case i
        Case 2
            '' Device ON,
            hs.ExecX10(strParms(0), "On")
        Case 3
            '' Device OFF
            hs.ExecX10(strParms(0), "Off")
    End Select
End Sub
User avatar
TANE
Forum Moderator
Forum Moderator
Posts: 4806
Joined: Fri Apr 06, 2007 9:46 pm
Location: Netherlands
Contact:

Script met twee opties

Post by TANE »

@Bastiaan
S3 is de tweede device die aangestuurd wordt
Script is redelijk universeel [25 moest nog uit.

@Bert
Bedankt voor de oplossing ga ik gelijk uitproberen
Hiermee heb je geen remapping applicatie of wat dan ook nodig.
User avatar
TANE
Forum Moderator
Forum Moderator
Posts: 4806
Joined: Fri Apr 06, 2007 9:46 pm
Location: Netherlands
Contact:

Script met twee opties

Post by TANE »

Super het werkt..:)
Zonder BLmapper is het schakelen nu ook stuk sneller.
status wordt nu iets later bijwerkt (minder dan 500 msec) Schakeling gaat wel gelijk

Dit is een tijdelijke oplossing totdat HST op de status met nummers kan controleren
Op dit moment is dat allen mogelijk op MatchValue en MatchStatus
Voor plugwise werkt dit niet
Value wordt gebruikt voor verbruik
Status is voor Plugwise geen On/Off maar een langer regel met veel extra info
Post Reply

Return to “Homeseer Scripts Forum”