frm_hfecg2.frm

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

Call rposit(r9(), rp9(), rpt9())



Call FindR(HFECG10(), rb10(), r10())
Call Rpoint(HFECG10(), r10(), rp10())
Call rposit(r10(), rp10(), rpt10())


Call FindR(HFECG11(), rb11(), r11())
Call Rpoint(HFECG11(), r11(), rp11())
Call rposit(r11(), rp11(), rpt11())


Call FindR(HFECG12(), rb12(), r12())
Call Rpoint(HFECG12(), r12(), rp12())
Call rposit(r12(), rp12(), rpt12())

For i = 1 To 4     '验证
Print rpt1(i)
Next i



Call Lvbo(rb1(), HFECG1(), df1())         '滤波平滑
Call Lvbo(rb2(), HFECG2(), df2())
Call Lvbo(rb3(), HFECG3(), df3())
Call Lvbo(r4(), HFECG4(), df4())
Call Lvbo(rb5(), HFECG5(), df5())
Call Lvbo(rb6(), HFECG6(), df6())
Call Lvbo(rb7(), HFECG7(), df7())
Call Lvbo(rb8(), HFECG8(), df8())
Call Lvbo(rb9(), HFECG9(), df9())
Call Lvbo(rb10(), HFECG10(), df10())
Call Lvbo(rb11(), HFECG11(), df11())
Call Lvbo(rb12(), HFECG12(), df12())





                                               '求局部极值
                                               
Call jz1(df1(), rpt1(), jda1(), jdb1(), ja1(), jb1())
Call jz1(df2(), rpt2(), jda2(), jdb2(), ja3(), jb3())
Call jz1(df4(), rpt4(), jda4(), jdb4(), ja4(), jb4())
Call jz1(df5(), rpt5(), jda5(), jdb5(), ja5(), jb5())
Call jz1(df6(), rpt6(), jda6(), jdb6(), ja7(), jb7())
Call jz1(df8(), rpt8(), jda8(), jdb8(), ja8(), jb8())
Call jz1(df9(), rpt9(), jda9(), jdb9(), ja9(), jb9())
Call jz1(df11(), rpt11(), jda11(), jdb11(), ja11(), jb11())
Call jz1(df12(), rpt12(), jda12(), jdb12(), ja12(), jb12())
Call jz1(df3(), rpt3(), jda3(), jdb3(), ja3(), jb3())
Call jz1(df6(), rpt6(), jda6(), jdb6(), ja6(), jb6())

'For i = 1 To 4
'Print rpt2(i)
'Print jd1(i)
'Print jd2(i)
'Print j1(i)
'Print j2(i)
'Next i

Call QSpt(df1(), rpt1(), q1(), s1())
Call QSpt(df2(), rpt2(), q2(), s2())
Call QSpt(df3(), rpt3(), q3(), s3())
Call QSpt(df4(), rpt4(), q4(), s4())
Call QSpt(df5(), rpt5(), q5(), s5())
Call QSpt(df6(), rpt6(), q6(), s6())
Call QSpt(df7(), rpt7(), q7(), s7())
Call QSpt(df8(), rpt8(), q8(), s8())
Call QSpt(df9(), rpt9(), q9(), s9())
Call QSpt(df10(), rpt10(), q10(), s10())
Call QSpt(df11(), rpt11(), q11(), s11())
Call QSpt(df12(), rpt12(), q12(), s12())



'Print df12(rpt12(1))
'Print df12(q12(1))
'Print df12(s12(1))




'Call qieji(q1(), s1(), HFECG1(), qieji1())
Call qieji(q2(), s2(), HFECG2(), qieji2())
Call qieji(q3(), s3(), HFECG3(), qieji3())
Call qieji(q4(), s4(), HFECG4(), qieji4())
Call qieji(q5(), s5(), HFECG5(), qieji5())
Call qieji(q6(), s6(), HFECG6(), qieji6())
Call qieji(q7(), s7(), HFECG7(), qieji7())
Call qieji(q8(), s8(), HFECG8(), qieji8())
Call qieji(q9(), s9(), HFECG9(), qieji9())
Call qieji(q10(), s10(), HFECG10(), qieji10())
Call qieji(q11(), s11(), HFECG11(), qieji11())
Call qieji(q12(), s12(), HFECG12(), qieji12())





Call niujie(q1(), s1(), HFECG1(), niujie1())                '扭挫
Call niujie(q2(), s2(), HFECG2(), niujie2())
Call niujie(q3(), s3(), HFECG3(), niujie3())
Call niujie(q4(), s4(), HFECG4(), niujie4())
Call niujie(q5(), s5(), HFECG5(), niujie5())
Call niujie(q6(), s6(), HFECG6(), niujie6())
Call niujie(q7(), s7(), HFECG7(), niujie7())
Call niujie(q9(), s9(), HFECG9(), niujie9())
Call niujie(q10(), s10(), HFECG10(), niujie10())
Call niujie(q11(), s11(), HFECG11(), niujie11())
Call niujie(q12(), s12(), HFECG12(), niujie12())
Call niujie(q8(), s8(), HFECG8(), niujie8())

'For i = 0 To 50
'Print niujie6(i)
'Next i

Call countqj(qieji1(), t1)
Call countqj(qieji2(), t2)
Call countqj(qieji3(), t3)
Call countqj(qieji4(), t4)
Call countqj(qieji5(), t5)
Call countqj(qieji6(), t6)
Call countqj(qieji7(), t7)
Call countqj(qieji8(), t8)
Call countqj(qieji9(), t9)
Call countqj(qieji10(), t10)
Call countqj(qieji11(), t11)
Call countqj(qieji12(), t12)

Text1.Text = t1   '验证使用 繁琐
Text2.Text = t2
Text3.Text = t3
Text4.Text = t4
Text5.Text = t5
Text6.Text = t6
Text7.Text = t7
Text8.Text = t8
Text9.Text = t9
Text10.Text = t10
Text11.Text = t11
Text12.Text = t12
Text25.Text = t1 + t2 + t3 + t4 + t5 + t6 + t7 + t8 + t9 + t10 + t11 + t12



Call countnc(niujie1(), u1)
Call countnc(niujie2(), u2)
Call countnc(niujie3(), u3)
Call countnc(niujie4(), u4)
Call countnc(niujie5(), u5)
Call countnc(niujie6(), u6)
Call countnc(niujie7(), u7)
Call countnc(niujie8(), u8)
Call countnc(niujie9(), u9)
Call countnc(niujie10(), u10)
Call countnc(niujie11(), u11)
Call countnc(niujie12(), u12)

Text13.Text = u1
Text14.Text = u2
Text15.Text = u3
Text16.Text = u4
Text17.Text = u5
Text18.Text = u6
Text19.Text = u7
Text20.Text = u8
Text21.Text = u9
Text22.Text = u10
Text23.Text = u11
Text24.Text = u12
Text26.Text = u1 + u2 + u3 + u4 + u5 + u6 + u7 + u8 + u9 + u10 + u11 + u12
End Sub

Private Sub Command6_Click()
frm_HFECG2.Hide
Form1.Show
End Sub



Private Sub Command7_Click()
Picture1.Cls
Amin = HFECG1(0): Amax = HFECG1(0):
For i = 1 To 8400
    If HFECG1(i) < Amin Then
       Amin = HFECG1(i)
    End If
    If HFECG1(i) > Amax Then
       Amax = HFECG1(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.CurrentX = q1(1)
Picture1.CurrentY = HFECG1(q1(1))
Picture1.Print "q"
Picture1.CurrentX = s1(1)
Picture1.CurrentY = HFECG1(s1(1))
Picture1.Print "s"
Picture1.CurrentX = rpt1(1)
Picture1.CurrentY = HFECG1(rpt1(1))
Picture1.Print "R"


Picture1.Line (n, HFECG1(n))-(n + 1, HFECG1(n + 1))
Next n

Picture2.Cls
Bmin = HFECG2(0): Bmax = HFECG2(0):
For i = 1 To 8400
    If HFECG2(i) < Bmin Then
       Bmin = HFECG2(i)
    End If
    If HFECG2(i) > Bmax Then
       Bmax = HFECG2(i)
    End If
Next i

Picture2.Scale (0, Bmax + Bmax * 0.25)-(2000, Bmin + Bmin * 0.25)
For n = 1 To 1999 Step 1
Picture2.Line (n, HFECG2(n))-(n + 1, HFECG2(n + 1))
Next n
Picture2.CurrentX = q2(1)
Picture2.CurrentY = HFECG2(q2(1))
Picture2.Print "q"
Picture2.CurrentX = s2(1)
Picture2.CurrentY = HFECG2(s2(1))
Picture2.Print "s"
Picture2.CurrentX = rpt2(1)
Picture2.CurrentY = HFECG2(rpt2(1))
Picture2.Print "R"


Picture3.Cls
Cmin = HFECG3(0): Cmax = HFECG3(0):
For i = 1 To 8400
    If HFECG3(i) < Cmin Then
       Cmin = HFECG3(i)
    End If
    If HFECG3(i) > Cmax Then
       Cmax = HFECG3(i)
    End If
Next i

Picture3.Scale (0, Cmax + Cmax * 0.25)-(2000, Cmin + Cmin * 0.25)
Picture3.CurrentX = q3(1)
Picture3.CurrentY = HFECG3(q3(1))
Picture3.Print "q"
Picture3.CurrentX = s3(1)
Picture3.CurrentY = HFECG3(s3(1))
Picture3.Print "s"
Picture3.CurrentX = rpt3(1)
Picture3.CurrentY = HFECG3(rpt3(1))
Picture3.Print "R"
For n = 1 To 1999 Step 1
Picture3.Line (n, HFECG3(n))-(n + 1, HFECG3(n + 1))
Next n


Picture4.Cls
Dmin = HFECG4(0): Dmax = HFECG4(0):
For i = 1 To 8400
    If HFECG4(i) < Dmin Then
       Dmin = HFECG4(i)
    End If
    If HFECG4(i) > Dmax Then
       Dmax = HFECG4(i)
    End If
Next i


Picture4.Scale (0, Dmax + Dmax * 0.25)-(2000, Dmin + Dmin * 0.25)
Picture4.CurrentX = q4(1)
Picture4.CurrentY = HFECG4(q4(1))
Picture4.Print "q"
Picture4.CurrentX = s4(1)
Picture4.CurrentY = HFECG4(s4(1))
Picture4.Print "s"
Picture4.CurrentX = rpt4(1)
Picture4.CurrentY = HFECG4(rpt4(1))
Picture4.Print "R"
For n = 1 To 1999 Step 1
Picture4.Line (n, HFECG4(n))-(n + 1, HFECG4(n + 1))
Next n

Picture5.Cls
Emin = HFECG5(0): Emax = HFECG5(0):
For i = 1 To 8400
    If HFECG5(i) < Emin Then
       Emin = HFECG5(i)
    End If
    If HFECG5(i) > Emax Then
       Emax = HFECG5(i)
    End If
Next i

Picture5.Scale (0, Emax + Emax * 0.25)-(2000, Emin + Emin * 0.25)
Picture5.CurrentX = q5(1)
Picture5.CurrentY = HFECG5(q5(1))
Picture5.Print "q"
Picture5.CurrentX = s5(1)
Picture5.CurrentY = HFECG5(s5(1))
Picture5.Print "s"
Picture5.CurrentX = rpt5(1)
Picture5.CurrentY = HFECG5(rpt5(1))
Picture5.Print "R"
For n = 1 To 1999 Step 1
Picture5.Line (n, HFECG5(n))-(n + 1, HFECG5(n + 1))
Next n

Picture6.Cls
Fmin = HFECG6(0): Fmax = HFECG6(0):
For i = 1 To 8400
    If HFECG6(i) < Fmin Then
       Fmin = HFECG6(i)
    End If
    If HFECG6(i) > Fmax Then
       Fmax = HFECG6(i)
    End If
Next i

Picture6.Scale (0, Fmax + Fmax * 0.25)-(2000, Fmin + Fmin * 0.25)
Picture6.CurrentX = q6(1)
Picture6.CurrentY = HFECG6(q6(1))
Picture6.Print "q"
Picture6.CurrentX = s6(1)
Picture6.CurrentY = HFECG6(s6(1))
Picture6.Print "s"
Picture6.CurrentX = rpt6(1)
Picture6.CurrentY = HFECG6(rpt6(1))
Picture6.Print "R"
For n = 1 To 1999 Step 1
Picture6.Line (n, HFECG6(n))-(n + 1, HFECG6(n + 1))
Next n

Picture7.Cls
Gmin = HFECG7(0): Gmax = HFECG7(0):
For i = 1 To 8400
    If HFECG7(i) < Gmin Then
      Gmin = HFECG7(i)
    End If
    If HFECG7(i) > Gmax Then
      Gmax = HFECG7(i)
    End If
Next i

Picture7.Scale (0, Gmax + Gmax * 0.25)-(2000, Gmin + Gmin * 0.25)
Picture7.CurrentX = q7(1)
Picture7.CurrentY = HFECG7(q7(1))
Picture7.Print "q"
Picture7.CurrentX = s7(1)
Picture7.CurrentY = HFECG7(s7(1))
Picture7.Print "s"
Picture7.CurrentX = rpt7(1)
Picture7.CurrentY = HFECG7(rpt7(1))
Picture7.Print "R"
For n = 1 To 1999 Step 1
Picture7.Line (n, HFECG7(n))-(n + 1, HFECG7(n + 1))
Next n

Picture8.Cls
Hmin = HFECG8(0): Hmax = HFECG8(0):
For i = 1 To 8400
    If HFECG8(i) < Hmin Then
      Hmin = HFECG8(i)
    End If
    If HFECG8(i) > Hmax Then
      Hmax = HFECG8(i)
    End If
Next i

Picture8.Scale (0, Hmax + Hmax * 0.25)-(2000, Hmin + Hmin * 0.25)
Picture8.CurrentX = q8(1)
Picture8.CurrentY = HFECG8(q8(1))
Picture8.Print "q"
Picture8.CurrentX = s8(1)
Picture8.CurrentY = HFECG8(s8(1))
Picture8.Print "s"
Picture8.CurrentX = rpt8(1)
Picture8.CurrentY = HFECG8(rpt8(1))
Picture8.Print "R"
For n = 1 To 1999 Step 1
Picture8.Line (n, HFECG8(n))-(n + 1, HFECG8(n + 1))
Next n

Picture9.Cls
Imin = HFECG9(0): Imax = HFECG9(0):
For i = 1 To 8400
    If HFECG9(i) < Imin Then
      Imin = HFECG9(i)
    End If
    If HFECG9(i) > Imax Then
      Imax = HFECG9(i)
    End If
Next i

Picture9.Scale (0, Imax + Imax * 0.25)-(2000, Imin + Imin * 0.25)
Picture9.CurrentX = q9(1)
Picture9.CurrentY = HFECG9(q9(1))
Picture9.Print "q"
Picture9.CurrentX = s9(1)
Picture9.CurrentY = HFECG9(s9(1))
Picture9.Print "s"
Picture9.CurrentX = rpt9(1)
Picture9.CurrentY = HFECG9(rpt9(1))
Picture9.Print "R"
For n = 1 To 1999 Step 1
Picture9.Line (n, HFECG9(n))-(n + 1, HFECG9(n + 1))
Next n


Picture10.Cls
Jmin = HFECG10(0): Jmax = HFECG10(0):
For i = 1 To 8400
    If HFECG10(i) < Jmin Then
      Jmin = HFECG10(i)
    End If
    If HFECG10(i) > Jmax Then
      Jmax = HFECG10(i)
    End If
Next i

Picture10.Scale (0, Jmax + Jmax * 0.25)-(2000, Jmin + Jmin * 0.25)
Picture10.CurrentX = q10(1)
Picture10.CurrentY = HFECG10(q10(1))
Picture10.Print "R"
Picture10.CurrentX = s1(1)
Picture10.CurrentY = HFECG10(s10(1))
Picture10.Print "s"
Picture10.CurrentX = rpt10(1)
Picture10.CurrentY = HFECG10(rpt10(1))
Picture10.Print "q"
For n = 1 To 1999 Step 1
Picture10.Line (n, HFECG10(n))-(n + 1, HFECG10(n + 1))
Next n

Picture11.Cls
Kmin = HFECG11(0): Kmax = HFECG11(0):
For i = 1 To 8400
    If HFECG11(i) < Kmin Then
      Kmin = HFECG11(i)
    End If
    If HFECG11(i) > Kmax Then
      Kmax = HFECG11(i)
    End If
Next i

Picture11.Scale (0, Kmax + Kmax * 0.25)-(2000, Kmin + Kmin * 0.25)
Picture11.CurrentX = q11(1)
Picture11.CurrentY = HFECG11(q11(1))
Picture11.Print "q"
Picture11.CurrentX = s11(1)
Picture11.CurrentY = HFECG11(s11(1))
Picture11.Print "s"
Picture11.CurrentX = rpt11(1)
Picture11.CurrentY = HFECG11(rpt11(1))
Picture11.Print "R"
For n = 1 To 1999 Step 1
Picture11.Line (n, HFECG11(n))-(n + 1, HFECG11(n + 1))
Next n


Picture12.Cls
Lmin = HFECG12(0): Lmax = HFECG12(0):
For i = 1 To 8400
    If HFECG12(i) < Lmin Then
      Lmin = HFECG12(i)
    End If
    If HFECG12(i) > Lmax Then
      Lmax = HFECG12(i)
    End If
Next i

Picture12.Scale (0, Lmax + Lmax * 0.25)-(2000, Lmin + Lmin * 0.25)
Picture12.CurrentX = q12(1)
Picture12.CurrentY = HFECG12(q12(1))
Picture12.Print "q"
Picture12.CurrentX = s12(1)
Picture12.CurrentY = HFECG12(s12(1))
Picture12.Print "s"
Picture12.CurrentX = rpt12(1)
Picture12.CurrentY = HFECG12(rpt12(1))
Picture12.Print "R"
For n = 1 To 1999 Step 1
Picture12.Line (n, HFECG12(n))-(n + 1, HFECG12(n + 1))
Next n





End Sub



Private Sub Dir1_Change()

End Sub

Private Sub HScroll1_Change()
Static X As Integer
If HScroll1.Value > X Then
Picture1.Cls
X = HScroll1.Value
Picture1.Scale (X, Amax + Amax * 0.25)-(X + 2000, Amin + Amin * 0.25)
For k = X To X + 1999 Step 1
Picture1.Line (k, HFECG1(k))-(k + 1, HFECG1(k + 1))
Next k
Else
Picture1.Cls
X = HScroll1.Value
Picture1.Scale (X, Amax + Amax * 0.25)-(X + 2000, Amin + Amin * 0.25)
For k = X To X + 1999 Step 1
Picture1.Line (k, HFECG1(k))-(k + 1, HFECG1(k + 1))
Next k
End If
End Sub


Private Sub HScroll10_Change()
Static X As Integer
If HScroll10.Value > X Then
Picture10.Cls
X = HScroll10.Value
Picture10.Scale (X, Jmax + Jmax * 0.25)-(X + 2000, Jmin + Jmin * 0.25)
For k = X To X + 1999 Step 1
Picture10.Line (k, HFECG10(k))-(k + 1, HFECG10(k + 1))
Next k
Else
Picture10.Cls
X = HScroll1.Value
Picture10.Scale (X, Jmax + Jmax * 0.25)-(X + 2000, Jmin + Jmin * 0.25)
For k = X To X + 1999 Step 1
Picture10.Line (k, HFECG10(k))-(k + 1, HFECG10(k + 1))
Next k
End If
End Sub

Private Sub HScroll11_Change()
Static X As Integer
If HScroll11.Value > X Then
Picture11.Cls
X = HScroll11.Value
Picture11.Scale (X, Kmax + Kmax * 0.25)-(X + 2000, Kmin + Kmin * 0.25)
For k = X To X + 1999 Step 1
Picture11.Line (k, HFECG11(k))-(k + 1, HFECG11(k + 1))
Next k
Else
Picture11.Cls
X = HScroll11.Value
Picture11.Scale (X, Kmax + Kmax * 0.25)-(X + 2000, Kmin + Kmin * 0.25)
For k = X To X + 1999 Step 1
Picture11.Line (k, HFECG11(k))-(k + 1, HFECG11(k + 1))
Next k
End If
End Sub

Private Sub HScroll12_Change()
Static X As Integer