Page 2 of 3

Re: AZ_P2000 scanner v2.0

Posted: Sat Aug 10, 2013 11:22 am
by AshaiRey
Opslaan in de scripts folder

Een recuring event aanmaken die dit script aan roept
En bij optional parameters dit invullen ("Main","devicecode;aantal meldingen") vb. ("Main","W67;3")
Staat trouwens aan het begin van het script vermeld
Je moet ook het script even lezen tot aan dit stuk om je eigen instellingen te doen als je dat wenst
'************************************************
' END OF USER SETTINGS
' Below this there is no real need for altering
' anything unless you know what you are doing.
'************************************************

Re: AZ_P2000 scanner v2.0

Posted: Fri Oct 25, 2013 11:50 pm
by raymonvdm
Ik was van plan om vanavond Domotiga te installeren zodat ik de P2000 optie kon gebruiken, blijkt deze gewoon voor HomeSeer al heel lang geleden gemaakt te zijn door de Guru`s van het forum :D

Ik heb hem zojuist toegevoegd en hij lijkt het te doen het was alleen even rommelen met de locatie instellingen :twisted: Ik heb nu het aantal kilometer op 100 gezet en dan krijg ik inderdaad meldingen. Maar hoe trigger ik hier nu een event op? DeviceValue en DeviceStatus lijkt niet bruikbaar te zijn

Re: AZ_P2000 scanner v2.0

Posted: Sat Oct 26, 2013 9:43 am
by AshaiRey
Hoi Raymon
Bedankt voor de update, dat was me nog niet opgevallen (zelf nog niet nodig gehad)
Ik heb de eerste posting aangepast en naar v2.3 gebracht.
Je kan dan op de eerste melding een trigger zetten als deze 1 wordt (becomes 1)
Wil je nu niet alles weer opnieuw instellen dan kan je ook de volgende aanpassing met de hand doen.

In dit stukje 2 regels toe voegen maar natuurlijk zonder de -->

Code: Select all

   '**********************************
   ' We have filtered all the data
   ' No its time to display things
   '**********************************
   Dim Test As Boolean = false
   Dim Teller2 As Integer = 0

   For Count = Teller To 0 Step -1
     If Len(Titel(Count)) > 0 Then

        'Is this call already in a device
        Test = false
        For Teller2 = 0 To intNumberOfMessages - 1
          If hs.devicestring(strHouseCode & Val(strDeviceCode + Teller2)) = Titel(Count) Then Test = true
        Next

        If Test = false Then
          'Move all calls to the next device and 
          'then load this call into the first device

          If intNumberOfMessages > 1 Then MoveMessages(strHouseCode, strDeviceCode, intNumberOfMessages)

 -->         hs.SetDeviceValue(strHouseCode & Val(strDeviceCode), 0)
 -->         hs.WaitSecs(1)
          hs.SetdeviceString(strHouseCode & Val(strDeviceCode), Titel(Count), true)
          hs.SetDeviceValue(strHouseCode & Val(strDeviceCode), 1)
          hs.setdevicelastchange(strHouseCode & Val(strDeviceCode), now)
        End If
     End If
   Next
En in deze de laatste 1 in een 0 veranderen bij de regel -->

Code: Select all


'Move the messages from the first device
'into the next device and cascade this
'to the last device
Sub MoveMessages(ByVal HC As String, ByVal DC As String, Byval Devices As Integer)
   Dim i As Integer = 0
   For i = (Devices - 1) To 1 Step -1
     hs.Setdevicestring(HC & Val(DC + i), hs.devicestring(HC & Val(DC + i - 1)), true)
-->     hs.SetdeviceValue(HC & Val(DC + i - 1), 1)
     hs.SetdeviceLastChange(HC & Val(DC + i), now)
     hs.SetdeviceStatus(HC & Val(DC + i), hs.deviceStatus(HC & Val(DC + i - 1)) )
   Next
End Sub

Re: AZ_P2000 scanner v2.0

Posted: Sun Oct 27, 2013 2:34 am
by raymonvdm
Ik heb het volledige script uit de openingspost gekopieerd en ik wacht nu op een P2000 melding

Re: AZ_P2000 scanner v2.0

Posted: Sun Oct 27, 2013 11:00 am
by AshaiRey
Als het wachten mij te lang duurt dan zet ik de radius op 400 km en trap ik het script handmatig af waarna in de radius weer terug zet naar de oude waarde.

Re: AZ_P2000 scanner v2.0

Posted: Sun Oct 27, 2013 12:58 pm
by raymonvdm
Ik had ook nog een Domotiga stoei avond dus ik vermaakte me wel. Ondertussen heb ik een melding gekregen en ik krijg inderdaad een mailtje dat er iets gebeurd is. Nu kijken hoe ik de inhoud an het device kan mailen :-)

Re: AZ_P2000 scanner v2.0

Posted: Wed Oct 30, 2013 12:50 pm
by raymonvdm
Ik heb de afgelopen week veel mailtje gehad van P2000 :D maar hoe krijg ik nu in de mail wat er precies aan de hand is. Dit lukt met Domotiga bijvoorbeeld wel http://www.domotiga.nl/issues/355

Op welke manier moet ik de mail laten sturen om de informatie erin op te nemen ?

Re: AZ_P2000 scanner v2.0

Posted: Thu Oct 31, 2013 11:53 am
by AshaiRey
Er is een event type genaamd 'send email'
Als je device ID bijvoorbeeld W67 is plaats dan $$DS:W67 in de body van het bericht (het vak message genaamd)

Meer info hier
homeseer.com/support/homeseer/WebHelp2/ ... iables.htm

En voor de visueel ingestelden
http://youtu.be/lJIGtakOx7k

Re: AZ_P2000 scanner v2.0

Posted: Thu Oct 31, 2013 12:35 pm
by raymonvdm
Soms is het zo eenvoudig :D

Re: AZ_P2000 scanner v2.0

Posted: Wed Apr 15, 2015 5:18 pm
by raymonvdm
Did someone already tried this script in HS3?

Re: AZ_P2000 scanner v2.0

Posted: Wed Sep 09, 2015 11:10 pm
by raymonvdm
Werkt dit script ondertussen ook in HS3?

Re: AZ_P2000 scanner v2.0

Posted: Thu Sep 10, 2015 10:26 am
by AshaiRey
Nee, sorry.
Ik blijf voorlopig op HS2 zitten omdat HS3 voor mij niets toevoegt en mijn ervaring met HS3 dusdanig belabberd is zit een overgang naar HS3 er voorlopig ook niet in. Misschien dat ik in de komende winter maanden tijd heb om het om te zetten.

Re: AZ_P2000 scanner v2.0

Posted: Thu Sep 10, 2015 6:13 pm
by esschenk
Zou geweldig zijn mis het wel.

HS2 was bij mij instabiel HS3 werkt intussen al 4 maanden nonstop zonder reboot.


Ed

Re: AZ_P2000 scanner v2.0

Posted: Sat Jun 18, 2016 4:02 pm
by Meden199
I have an error running the script:

Running script C:\Program Files (x86)\HomeSeer HS3\scripts\AZ_P2000.vb :Het doel van een aanroep heeft een uitzondering veroorzaakt.Het openbare lid StringItem voor type hsapplication is niet gevonden.

Any idea?

Re: AZ_P2000 scanner v2.0

Posted: Sun Jun 19, 2016 9:27 am
by AshaiRey
Yes, uninstall HS3 and install HS2 :D

Or convert the script to HS3 scripting engine