VM140/K8061 pulsingang probleem

Homeseer Forum in het Nederlands (DUTCH forum)

Moderator: Ruud

Post Reply
dreambox
Starting Member
Starting Member
Posts: 47
Joined: Sat Jun 12, 2010 8:02 pm

VM140/K8061 pulsingang probleem

Post by dreambox »

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*)

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
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
dreambox
Starting Member
Starting Member
Posts: 47
Joined: Sat Jun 12, 2010 8:02 pm

Re: VM140/K8061 pulsingang probleem

Post by dreambox »

nobody?
Post Reply

Return to “Homeseer algemeen Forum”