VM140/K8061 pulsingang probleem
Posted: Fri Aug 09, 2013 10:59 am
Mijn HS2 systeem draait al zeer geruime tijd zonder problemen.
Ik heb een aantal VM140 eraan hangen voor de sturing van lampen en relais, en natuurlijk PIRS en gewone schakelaars.
Je blijft hobbyen en nu leek het me leuk om ook het opgenomen vermogen weer te geven.
Ik het dit gedaan met het volgende scriptje:
kaart 3 digitale ingang 1 (Device System Garage VerbruiksTeller changed to status *Off*)
En elke minuut:
Dus zodra ingang 1 op kaart 3 Off wordt runt VerhoogTellerVerbruik, de teller wordt met 1 verhoogt.
Dan heb ik tevens een Recurring every 1 minute(s) event gemaakt welke BerekenVerbruik uitvoert.
Het werkt goed: opgenomen vermogen wordt weergegeven in T13 en het dagverbruik in T11.
So far so good!
ECHTER, indien HS 1 tot 2 dagen draait komt er geen reactie meer vanuit de kaarten, pulsingangen werken niet meer evenals de analoge (dimmer) uitgangen. Even voor de duidelijkheid op kaart 3 zit de pulsteller, kaart 0,1,2 zijn andere in- en uitgangen. Webpagina van HS is wel gewoon toegankelijk.
Ik heb het idee dat het geheugen ofzo volloopt indien men een event vaak uitvoert. Vaak is hier 3000 (vanaf middernacht tot 11 am) keer event VerhoogTellerVerbruik sinds middernacht (3000 pulsen is 3.75 kwh)
Heeft iemand hiermee ervaring?
Alex
Ik heb een aantal VM140 eraan hangen voor de sturing van lampen en relais, en natuurlijk PIRS en gewone schakelaars.
Je blijft hobbyen en nu leek het me leuk om ook het opgenomen vermogen weer te geven.
Ik het dit gedaan met het volgende scriptje:
kaart 3 digitale ingang 1 (Device System Garage VerbruiksTeller changed to status *Off*)
Code: Select all
Public Sub VerhoogTellerVerbruik(ByVal parm As Object)
Dim s As Integer
s = Val(hs.DeviceString("T14"))
s = s + 1
hs.SetDeviceString("T14", s, True)
End Sub
En elke minuut:
Code: Select all
Public Sub BerekenVerbruik(ByVal parm As Object)
Dim TMin, TMax, TDiff
Dim DMin, DMax As Date
Dim DDiff
Dim ActWatt As Integer
TMin = Val(hs.DeviceString("T15"))
DMin = hs.DeviceLastChange("T15")
TMax = Val(hs.DeviceString("T14"))
DMax = hs.DeviceLastChange("T14")
DDiff = DateDiff(DateInterval.Second, DMin, DMax)
TDiff = TMax - TMin
ActWatt = Val((TDiff / 800) * (3600 / DDiff)) * 1000
hs.SetDeviceString("T15", Val(hs.DeviceString("T14")), True)
hs.SetDeviceString("T13", ActWatt, True) 'actueel verbruik
hs.SetDeviceString("T11", Format(TMax / 800, "0.###"), True) 'Dagverbruik
'800 pulsen is 1 kwh
'formule = (tdiff/800)*(3600/ddiff)
End Sub
Dan heb ik tevens een Recurring every 1 minute(s) event gemaakt welke BerekenVerbruik uitvoert.
Het werkt goed: opgenomen vermogen wordt weergegeven in T13 en het dagverbruik in T11.
So far so good!
ECHTER, indien HS 1 tot 2 dagen draait komt er geen reactie meer vanuit de kaarten, pulsingangen werken niet meer evenals de analoge (dimmer) uitgangen. Even voor de duidelijkheid op kaart 3 zit de pulsteller, kaart 0,1,2 zijn andere in- en uitgangen. Webpagina van HS is wel gewoon toegankelijk.
Ik heb het idee dat het geheugen ofzo volloopt indien men een event vaak uitvoert. Vaak is hier 3000 (vanaf middernacht tot 11 am) keer event VerhoogTellerVerbruik sinds middernacht (3000 pulsen is 3.75 kwh)
Heeft iemand hiermee ervaring?
Alex