Vinnerliste

Grafana, NodeRed og InfluxDB ?

Inspirert til å løse @toonwolf sitt problem. Se under: Sub Add(ByVal inputArgs As String) 'Input: RootReference;place;NewPin 'Example: 342;65;1234 hs.WriteLog("Add user", "Adding user...") Dim interfaceID As String = hs.GetINISetting("Interfaces", "IFace_0_Unique", "", "Z-Wave.ini") hs.WriteLog("Add user", "InterfaceID: " & interfaceID) Dim rootDeviceRef As Integer = inputArgs.Split(";")(0) Dim place As Integer = inputArgs.Split(";")(1) Dim PINnumber As Integer = inputArgs.Split(";")(2) Dim PINstring As String = PINnumber.ToString("0000") Dim nodeNumber As String = ZwaveUtil_GetNodeIdByRef(rootDeviceRef) hs.WriteLog("Removing user", "Node number: " & nodeNumber) Dim configResult = hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {nodeNumber, place.ToString, PINstring, "TEST-user", interfaceID}) hs.WriteLog("Add user", "Done with result " & configResult.ToString) End Sub Sub Remove(ByVal inputArgs As String) 'Input: RootReference;place 'Example: 342;65 hs.WriteLog("Removing user", "Removing user...") Dim interfaceID As String = hs.GetINISetting("Interfaces", "IFace_0_Unique", "", "Z-Wave.ini") hs.WriteLog("Removing user", "InterfaceID: " & interfaceID) Dim rootDeviceRef As Integer = inputArgs.Split(";")(0) Dim place As Integer = inputArgs.Split(";")(1) Dim nodeNumber As String = ZwaveUtil_GetNodeIdByRef(rootDeviceRef) hs.WriteLog("Removing user", "Node number: " & nodeNumber) Dim ConfigResult = hs.PluginFunction("Z-Wave", "", "RemoveUserCodePin", {nodeNumber, place.ToString, interfaceID}) hs.WriteLog("Removing user", "Done with result " & ConfigResult.ToString) End Sub Public Function ZwaveUtil_GetNodeIdByRef(ByVal deviceId As Integer) As Integer Dim nodeId As Integer = -1 If (deviceId > 0) Then Dim device As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(deviceId) If (device IsNot Nothing) Then Dim pdata As HomeSeerAPI.PlugExtraData.clsPlugExtraData = device.PlugExtraData_Get(hs) If (pdata IsNot Nothing) Then nodeId = pdata.GetNamed("node_id") End If End If Else Throw New System.Exception("Device not found: " + deviceId) End If Return nodeId End Function

Here we go! Sub Main(ByVal inputArgs As String) hs.WriteLog("Add user", "Adding user...") Dim interfaceID As String = hs.GetINISetting("Interfaces", "IFace_0_Unique", "", "Z-Wave.ini") hs.WriteLog("Add user", "InterfaceID: " & interfaceID) Dim place As Integer = inputArgs.Split(";")(0) Dim PINnumber As Integer = CInt(inputArgs.Split(";")(1)) Dim PINstring As String = PINnumber.ToString("0000") Dim nodeNumber As String = ZwaveUtil_GetNodeIdByRef(3465) Dim configResult = hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {nodeNumber, place.ToString, PINstring, "TEST-user", interfaceID}) hs.WriteLog("Add user", "Done with result " & configResult.ToString) End Sub Public Function ZwaveUtil_GetNodeIdByRef(ByVal deviceId As Integer) As Integer Dim nodeId As Integer = -1 If (deviceId > 0) Then Dim device As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(deviceId) If (device IsNot Nothing) Then Dim pdata As HomeSeerAPI.PlugExtraData.clsPlugExtraData = device.PlugExtraData_Get(hs) If (pdata IsNot Nothing) Then nodeId = pdata.GetNamed("node_id") End If End If Else Throw New System.Exception("Device not found: " + deviceId) End If Return nodeId End Function ... med dette: ... gav dette: .... og dette: gav dette: ... merk at lås-Root er hardkodet i eksempelet over (3465).

Tall med "" behandles som tekst (string). Tall uten behandles som tall (integer). Og som vi vet så er det aldri 0 først i et «ekte» tall, for det har ingen betydning i tall-verden. Feilkoden tyder på at Blade har laget sin plugin slik at koden må angis som tall (int) og ikke tekst (string). I så fall er det umulig å sende en kode som starter på 0. Om det er tilstrekkelig at Blade endrer sin kode eller om underliggende HomeSeer-kode må endres også må nesten Blade svare på. Det ville vært min løsning - quickfix.

Med tanke på Blade sin plugin så er det egentlig bare å avvente hans svar. Jeg er desverre tom for forslag. Du får passe på å generere koder som er større enn 999.

Mulig variabelen må spesifiseres til tross for at ToString skulle gjøre det Sub Main (byval inputArgs as string) Dim lockCode as String= hs.DeviceValue(707).ToString("0000") hs.PluginFunction("BLLock", "", "AddUserCodePin", New Object(){647,79,lockCode,"TEST"}) End Sub Eventuelt du bare håndkoder slik at vi slipper å bekymre oss for konverteringsfeil. Då får man iallefall testet om det fungerer med å sende inn en streng med nuller i koden. Sub Main (byval inputArgs as string) hs.PluginFunction("BLLock", "", "AddUserCodePin", New Object(){647,79,"0001","TEST"}) End Sub Med tanke på ZWave så er jeg usikker på hva som gjør at du får feilmelding, men jeg ser i koden som @Moskus linket til så er alle parametre strenger. Så kanskje den under fungerer bedre. Sub Main (byval inputArgs as string) Dim PIN as String = hs.DeviceValue(707).ToString("0000") hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {"647", "79", PIN, "TEST", "955BFE54AEE6"}) End Sub

Prøv følgende (BLLock) Sub Main (byval inputArgs as string) Dim lockCode= hs.DeviceValue(737).ToString("0000") hs.PluginFunction("BLLock", "", "AddUserCodePin", New Object(){647,79,lockCode,"TEST"}) End Sub Mulig Dim lockCode bør være Dim lockCode as String=hs.DeviceValue(737).ToString("0000") Eventuelt (Z-wave direkte) Sub Main (byval inputArgs as string) Dim PIN as String = hs.DeviceValue(737).ToString("0000") hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {647, 79, PIN, "TEST", "955BFE54AEE6"}) End Sub Her antar jeg at 737 er en device som inneholder tallkoden. NB: Her synser jeg i forhold til interface id er gjort om til en streng. Test er kanskje brukernavn og bør vel også være en streng.

Og en liten video-snutt som viser det hele. 2019-07-04-Z-UNO.mp4

... og der tror jeg du traff spikeren på hodet. Fordi det er ikke det som står her: Der er 0123 et tall siden det ikke står i gåseøyne og de blir trimmet til 123. Jeg hadde brukt dette: Dim PIN as String = hs.DeviceValue(dev_ref).ToString("0000") hs.PluginFunction("Z-Wave", "", "AddUserCodePin", {NodeId, LockLocationId, PIN, Username, InterfaceID})

men jeg ser at du ikke har prøvd følgende: hs.PluginFunction("BLLock", "", "AddUserCodePin", New Object(){647,79,"0123","TEST"}) Det som er viktig her er at man har satt tallet inne i fnutter/hermetegn/gåseøyne/double quotes

Ja, skal dele alt ja.. ? Her er link til Z-UNO - firmware: https://github.com/balmli/no.almli.flexit.zuno Og Athom Homey appen: https://github.com/balmli/no.almli.flexit Så med HW, firmware og appen for Homey så kan jeg styre ventilasjonsanlegget, f.eks. starte en timer automatisk når man trykker på selve SP30-panelet slik at anlegget skrus av etter f.eks. 1 time, eller starte når inneluften blir for dårlig, sjekke luftfuktighet på badet og starte automatisk, osv... Har ikke dekodet ISDN - pluggen fra SP30 panelet 100% ennå.. så det er sagt .. Usikker på pinner for viftehastighet og varme.. Og det gjenstår litt på firmware. Og mangler noen deler... rele og optocouplere .. før jeg går videre med elektronikken, og tar gjerne i mot hjelp..