Manuel de l'utilisateur › Gestion du niveau de service › Cadre de logique applicative › Utilisation de la logique applicative › Définition de formules de logique applicative › Exemple de formule complet

Exemple de formule complet

La formule de logique applicative suivante agrège les valeurs des événements Uptime pour obtenir une valeur moyenne pendant la période d'application de la période de suivi de la métrique.

Option Explicit

' Déclaration globale des variables
Dim SumOfValues 'accumule les valeurs des événements
Dim NumOfValues 'compte le nombre d'événements

Sub OnRegistration (dispatcher)
'Enregistrement de l'événement UpTime à envoyer à la procédure OnUpTimeEvent
dispatcher.RegisterByContractPartyAndService "OnUpTimeEvent", "UpTime"
End sub

Sub OnLoad (time)
'Initialisation des variables globales au début du calcul
SumOfValues = 0
NumOfValues = 0
End sub

Sub OnPeriodStart (time)
'Réinitialisation de SumOfValues & NumOfValues au début de chaque période de suivi
SumOfValues = 0
NumOfValues = 0
End sub

Sub OnUpTimeEvent (upTimeEvent)
'Agrégation des valeurs des événements, uniquement dans une période d'application
If Context.IsWithinTimeSlot Then
SumOfValues = SumOfValues + upTimeEvent ("Value")
NumOfValues=  NumOfValues + 1
End If
End sub

Function Result
If NumOfValues = 0 Then
Result = NULL
Else
Result = SumOfValues / NumOfValues
End If

End Function