实施指南 › 案例研究示例 › 业务逻辑脚本示例 › 案例研究 12：使用计数器逻辑计算故障次数

案例研究 12：使用计数器逻辑计算故障次数

以下示例计算给定计算期间内发生的故障次数。 当需要公式来计算无论什么结果时，都可以以该公式和实施该公式的方法作为示例。

存在以下计算假设：

• 输入事件：
  • 可用性事件，状态 (0/1)
  • 可用性事件每隔几分钟到达一次。 无法假定事件的频率（事件可能每五分钟发生一次，也可能一小时发生一次），并且还可能存在冗余事件（如：0、0、0、1、1、0 等）。
• 时间段 - 营业时间，时间段以外发生的故障不计在内。
• 需要的结果是该期间内已发生的故障的计数。

为了统计在计算期间内发生的故障数，必须存储定期计数器变量以及用于存储系统状态的变量。 由于可能会接收冗余事件信息（例如，一个“运行”事件后紧跟另一个“运行”事件），因此还必须统计系统状态从“运行”更改为“停机”的位置数目，但不必统计每次接收到的“停机”事件的数目（因为可能是表示已计数故障的冗余事件）。

下图形象地描绘了统计系统运行和停机次数的过程。

应考虑的要点如下：

• 常量 - 建议使用常量定义，而不要在代码中使用常量值。 采用这种方式时，如果值需要更改，那么只需修改常量定义即可轻松更改值，而不必在整个代码中搜索值。 此外，需要时，将其更改为使用参数也很容易。 在以上示例中，将表示事件中接收的系统状态的值定义为常量，可以让代码更易于理解，还可以在数字零用于计数用途而不是表示系统状态时进行区分。
• 全局变量：
  • 计数器 - 计数器变量的定义为全局定义。 在公式中，计数器在代码顶端所有子例程或函数外进行声明。 在本案例中，将计数器变量定义为全局变量非常重要。 这样，就可以在该代码中的多个子例程/函数中使用此变量，而且还能让系统在整个计算期间内保持其值并在该期间结束时提供结果。

    在本示例中，代码中的以下三个位置都需要使用计数器变量：

    • 期间开始时进行初始化。
    • 事件处理程序中出现失败的事件时继续。
    • 期间结束时通过 Result 函数输出。
  • 系统先前状态 - 此变量用于保存系统的状态，并在每次收到具有系统状态的新事件时进行更新。 此变量也需要定义为全局变量，因为会在代码中的多个子例程/函数中使用，例如：
    • 计算开始时进行初始化。
    • 收到新事件时进行更新。
• 时间段注意事项 - 为了验证时间段期间内是否发生了故障，可以使用 context.IsWithinTimeSlot 属性的值。 context 是一个全局对象，可在代码中的任何位置使用；在本案例中，用于指示何时收到故障以及是在时间段期间之内还是之外。 如果事件时间戳上的标志返回 TRUE，表示事件发生在时间段期间之内；如果返回 FALSE，则表示事件发生在时间段之外。 根据所需的逻辑，将忽略时间段之外发生的任何故障，因此不会对其计数。
• 初始化变量：
  • 计数器变量 - 保存定期值，因此会在 OnPeriodstart 处理程序中进行初始化，以确保每个计算期间可分别统计故障数。 每个期间都从零开始，并仅输出此期间内的故障数。

    如果需要计算每个期间内的累积故障数（也就是说，每个期间的结果为该期间之前的所有期间一直到该期间结束时所发生的所有故障的数目），那么只需要在 OnLoad 处理程序中初始化计数器，并将其从 OnPeriodStart 处理程序中删除。 这样，在由一个期间进入另一个期间时，计数器就会继续计数和累积，如下所示：

    Sub OnLoad(time)
        FingerprInted=0
    End Sub
    

  • 系统状态变量 - 应在计算开始时进行一次初始化，且从此刻开始对每个状态事件进行更新。 此变量可在整个计算中保留其值，且不局限于特定计算期间。 在跨越计算期间时也必须保留其值。 由于在接收第一个事件之前系统的状态为未知，因此必须对系统状态作出假设。 通常假设系统处于“Up”（运行）状态。 此假设需经过商定和检查，因为它可能会导致以下结果：

    如果在计算开始时系统状态实际为“Down”（停机），那么当第一个事件到达指示其状态为“Down”（停机）时，将被统计为故障，因为假定的状态为“Up”（运行）。 此故障将被计入第一个计算周期，虽然在该期间内不一定发生了该情况。

    Option Explicit
    
    'Constants definitions
    Const UP=1
    Const DOWN=0
    
    'Global variable for counting failures
    Dim FingerprInted
    Dim SystemStatus
    
    Sub OnRegistration(dispatcher)
       ' The parameters of the method are: <procedure name>, <Event Type>
       dispatcher.RegisterByContractPartyAndService "OnAvailabilityEvent","AvailabilityEvent"
    End Sub
    
    Sub OnLoad(time)
       SystemStatus = UP 'assume the first system status
    End Sub
    
    Sub OnPeriodStart(time)
       FingerprInted = 0
    End Sub
    
    Sub OnAvailabilityEvent(eventDetails)
       ' In case it's a failure and within the timeslot then it is counted
       If context.IsWithinTimeSlot and SystemStatus=UP and _
             eventDetails("Status")=DOWN Then
          FingerprInted = FingerprInted + 1
       End If
       ' update the system status for next comparison
       SystemStatus = eventDetails("Status") 
    End Sub
    
    Function Result
       Result = FingerprInted
    End Function