实时采集的数据筛选

Question

需要把实时采集的数据进行筛选,突变的数据不保存,正常的数据保存入EXCEL文件里.请问如何判断突变?就是怎么和采集的上一数据进行比较如果差值超出一定范围就不写入文件啊

Answer 1

大概就是这样一个样子:Dim FirstValue As Boolean
Dim LastValue  As Double
Dim CurValue   As Double.....
FirstValue = True
Do
  CurValue = GetNewValue()         'GetNewValue函数返回一个新的实时值
  If FirstValue Then
     FirstValue = False
     LastValue = CurValue
  End If
  If Abs(CurValue - LastValue) / LastValue <= 0.1 Then  '判断是否未超过10%
      WriteValueToFile(CurValue)   'WriteValueToFile函数负责写数据到文件
      LastValue = CurValue
  End If
Loop Until 结束条件
......