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
Script of locatie voor nieuwe Housecode
-
- Starting Member
- Posts: 41
- Joined: Tue Jun 16, 2009 9:15 pm
- Location: Netherlands
Re: Script of locatie voor nieuwe Housecode
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.
Re: Script of locatie voor nieuwe Housecode
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.
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.
-
- Starting Member
- Posts: 41
- Joined: Tue Jun 16, 2009 9:15 pm
- Location: Netherlands
Re: Script of locatie voor nieuwe Housecode
Bedankt Rene en Digit,
Ik heb het zo opgelost. (Voor degene die het willen weten )
In de hspi_SAMPLE_NET
bestand Module1.VB
Public Function GetDeviceCode
Veranderd in:
Ik heb het zo opgelost. (Voor degene die het willen weten )
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
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