module2.bas

在VB上采用改进的阈值法检测心电高频向量

Attribute VB_Name = "Module2"
Public HFECG1(8500), HFECG2(8500), HFECG3(8500), HFECG4(8500), HFECG5(8500), HFECG6(8500)
Public HFECG7(8500), HFECG8(8500), HFECG9(8500), HFECG10(8500), HFECG11(8500), HFECG12(8500)

Public sampling_fre '采样频率

Public rb1(8500), rb2(8400), rb3(8400), rb4(8400), rb5(8400), rb6(8400), rb7(8400), rb8(8400)
Public rb9(8400), rb10(8400), rb11(8400), rb12(8400)

Public df1(9000), df2(9000), df3(9000), df4(9000), df5(9000), df6(9000), df7(9000)  '找QS波进行滤波，滤波的值
Public df8(9000), df9(9000), df10(9000), df11(9000), df12(9000)