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 rb0(8400)