Script of locatie voor nieuwe Housecode

Forum over Homeseer scripts (DUTCH forum)

Moderators: TANE, Ruud

Post Reply
maikelwijnen
Starting Member
Starting Member
Posts: 41
Joined: Tue Jun 16, 2009 9:15 pm
Location: Netherlands

Script of locatie voor nieuwe Housecode

Post by maikelwijnen »

Hoi,

Weet iemand een script of de locatie in de hspi_SAMPLE_NET van Homeseer om te kijken of er nog minimaal 33 vrije devicecodes vrij zijn binnen de huidige housecode voordat hij begint met aanmaken. En hoe hij zichzelf een nieuwe houscode kan toewijzen als hij hier niet aan voldoet?

groeten Maikel
User avatar
Rene
Global Moderator
Global Moderator
Posts: 1689
Joined: Wed Oct 08, 2008 3:54 pm
Location: Netherlands

Re: Script of locatie voor nieuwe Housecode

Post by Rene »

Een huiscode kan maar door een plugin gebruikt worden. Indien je plugin dus al een huiscode gebruikt, weet je dus ook in de plugin hoeveel devicecodes er nog vrij zijn, als het goed is weet je namelijk hoeveel de plugin er al in gebruikt heeft. Als je een nieuwe huiscode nodig hebt kan je deze via GetNextFreeIOCode registreren.
Rene.
Digit
Global Moderator
Global Moderator
Posts: 3388
Joined: Sat Mar 25, 2006 10:23 am
Location: Netherlands
Contact:

Re: Script of locatie voor nieuwe Housecode

Post by Digit »

Geen kant en klare functie hiervoor vzv ik weet; ik denk dat je hier zelf iets voor moet maken.
Met GetNextFreeIOCode() kun je een vrije HC 'aanvragen' bij hs. Dan is het niet zo moeilijk meer om in een loopje uit te vragen hoeveel vrije DC's er zijn met betreffende HC. Dat kun je doen met DeviceExists(). Beide genoemde functies worden binnen de NETSample gebruikt volgens mij.
maikelwijnen
Starting Member
Starting Member
Posts: 41
Joined: Tue Jun 16, 2009 9:15 pm
Location: Netherlands

Re: Script of locatie voor nieuwe Housecode

Post by maikelwijnen »

Bedankt Rene en Digit,

Ik heb het zo opgelost. (Voor degene die het willen weten :wink: )
In de hspi_SAMPLE_NET
bestand Module1.VB
Public Function GetDeviceCode

Code: Select all

If iRet = -1 Then
       Return s.ToUpper & i.ToString
End If
Veranderd in:

Code: Select all

If iRet = -1 Then
    ' Kijk of er nog 33 vrije devicecodes beschikbaar zijn in de Housecode 
    If i.ToString > 66 Then
        GoTo GetNewHC
    Else
        Return s.ToUpper & i.ToString
End If
End If
Post Reply

Return to “Homeseer Scripts Forum”