frm_hfecg2.frm

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

Picture10.Cls
Bmin = HFECG10(q10(i)): Bmax = HFECG10(q10(i)):
For k = q10(i) To s10(i)
   If HFECG10(k) < Bmin Then
     Bmin = HFECG10(k)
 End If
If HFECG10(k) > Bmax Then
  Bmax = HFECG10(k)
End If
Next k
Picture10.Scale (q10(i), Bmax + Bmax * 0.25)-(s10(i), Bmin + Bmin * 0.25)

Picture10.CurrentX = niujie10(m)
Picture10.CurrentY = Abs(HFECG10(niujie10(m)))
Picture10.Print "s"
For n = q10(i) To s10(i) Step 1
Picture10.Line (n, HFECG10(n))-(n + 1, HFECG10(n + 1))
Next n
End If
Next i
Next m

'For m = 1 To 50
'For i = 1 To 4
'If (qieji7(m) > q7(i) - 10 And qieji7(m) < s7(i) + 10) And (niujie7(m) > q7(i) - 10 And niujie7(m) < s7(i) + 10) Then
'Picture7.Cls
'Picture7.Scale (q7(i) - 10, Bmax + Bmax * 0.25)-(s7(i) + 10, Bmin + Bmin * 0.25)
'Picture7.CurrentX = niujie7(m)
'Picture7.CurrentY = Abs(HFECG7(niujie7(m)))
'Picture7.Print "s"
'Picture7.CurrentX = qieji7(m)
'Picture7.CurrentY = Abs(HFECG7(qieji7(m)))
'Picture7.Print "n"
'For n = q7(i) To s7(i) Step 1
'Picture7.Line (n, HFECG7(n))-(n + 1, HFECG7(n + 1))
'Next n
'ElseIf qieji7(m) > q7(i) - 10 And qieji7(m) < s7(i) + 10 Then
'Picture7.Cls
'Bmin = HFECG7(q7(i)): Bmax = HFECG7(q7(i)):
'For k = q7(i) To s7(i)
 ' If HFECG7(k) < Bmin Then
  '   Bmin = HFECG7(k)
 'End If
'If HFECG7(k) > Bmax Then
 ' Bmax = HFECG7(k)
'End If
'Next k

'Picture7.Scale (q7(i), Bmax + Bmax * 0.25)-(s7(i), Bmin + Bmin * 0.25)

'Picture7.CurrentX = qieji7(m)
'Picture7.CurrentY = Abs(HFECG7(qieji7(m)))
'Picture7.Print "n"
'For n = q7(i) To s7(i) Step 1
'Picture7.Line (n, HFECG7(n))-(n + 1, HFECG7(n + 1))
'Next n

'ElseIf niujie7(m) > q7(i) - 10 And niujie7(m) < s7(i) + 10 Then
'Picture7.Cls
'Bmin = HFECG7(q7(i)): Bmax = HFECG7(q7(i)):
'For k = q7(i) To s7(i)
'  If HFECG7(k) < Bmin Then
 '    Bmin = HFECG7(k)
 'End If
'If HFECG7(k) > Bmax Then
 ' Bmax = HFECG7(k)
'End If
'Next k

'Picture7.Scale (q7(i), Bmax + Bmax * 0.25)-(s7(i), Bmin + Bmin * 0.25)

'Picture7.CurrentX = niujie7(m)
'Picture7.CurrentY = Abs(HFECG7(niujie7(m)))
'Picture7.Print "s"
'For n = q7(i) To s7(i) Step 1
'Picture7.Line (n, HFECG7(n))-(n + 1, HFECG7(n + 1))
'Next n

'End If

'Next i
'Next m







End Sub

Private Sub Command4_Click()

Dim j
Dim m
Dim s
Dim t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t12, t11
'n = 0
'For i = 1 To 8400
'j = HFECG2(i) - HFECG2(i - 1)
'rb2(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 2 To 8398
'j = HFECG1(i - 2) + 4 * HFECG1(i - 1) + 6 * HFECG1(i) + 4 * HFECG1(i + 1) + HFECG1(i + 2)
'rb1(n) = j
'n = n + 1
'Next i









'n = 0
'For i = 1 To 8400
'j = HFECG3(i) - HFECG3(i - 1)
'rb3(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 1 To 8400
'j = HFECG4(i) - HFECG4(i - 1)
'rb4(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 1 To 8400
'j = HFECG5(i) - HFECG5(i - 1)
'rb5(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 1 To 8400
'j = HFECG6(i) - HFECG6(i - 1)
'rb6(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 1 To 8400
'j = HFECG7(i) - HFECG7(i - 1)
'rb7(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 1 To 8400
'j = HFECG8(i) - HFECG8(i - 1)
'rb8(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 1 To 8400
'j = HFECG9(i) - HFECG9(i - 1)
'rb9(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 1 To 8400
'j = HFECG10(i) - HFECG10(i - 1)
'rb10(n) = j
'n = n + 1
'Next i

'n = 0
'For i = 1 To 8400
'j = HFECG11(i) - HFECG11(i - 1)
'rb11(n) = j
'n = n + 1
'Next i
'
'n = 0
'For i = 1 To 8400
'j = HFECG12(i) - HFECG12(i - 1)
'rb12(n) = j
'n = n + 1
'Next i


Call FindR(HFECG3(), rb3(), r3())
Call Rpoint(HFECG3(), r3(), rp3())
'Call rposit(r3(), rp3(), rpt3())


Call FindR(HFECG1(), rb1(), r1())
Call Rpoint(HFECG1(), r1(), rp1())
'Call rposit(r1(), rp1(), rpt1())


  

Call FindR(HFECG2(), rb2(), r2())
Call Rpoint(HFECG2(), r2(), rp2())
'Call rposit(r2(), rp2(), rpt2())




Call FindR(HFECG4(), rb4(), r4())
Call Rpoint(HFECG4(), r4(), rp4())
'Call rposit(r4(), rp4(), rpt4())
    
    

Call FindR(HFECG5(), rb5(), r5())
Call Rpoint(HFECG5(), r5(), rp5())
'Call rposit(r5(), rp5(), rpt5())




Call FindR(HFECG6(), rb6(), r6())
Call Rpoint(HFECG6(), r6(), rp6())
'Call rposit(r6(), rp6(), rpt6())



Call FindR(HFECG7(), rb7(), r7())
Call Rpoint(HFECG7(), r7(), rp7())
'Call rposit(r7(), rp7(), rpt7())



Call FindR(HFECG8(), rb8(), r8())
Call Rpoint(HFECG8(), r8(), rp8())
'Call rposit(r8(), rp8(), rpt8())



Call FindR(HFECG9(), rb9(), r9())
Call Rpoint(HFECG9(), r9(), rp9())
'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 q11(i)
'Print s11(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(), rp1(), jda1(), jdb1(), ja1(), jb1())
Call jz1(df2(), rp2(), jda2(), jdb2(), ja3(), jb3())
Call jz1(df4(), rp4(), jda4(), jdb4(), ja4(), jb4())
Call jz1(df5(), rp5(), jda5(), jdb5(), ja5(), jb5())
Call jz1(df6(), rp6(), jda6(), jdb6(), ja7(), jb7())
Call jz1(df8(), rp8(), jda8(), jdb8(), ja8(), jb8())
Call jz1(df9(), rp9(), jda9(), jdb9(), ja9(), jb9())
Call jz1(df11(), rp11(), jda11(), jdb11(), ja11(), jb11())
Call jz1(df12(), rp12(), jda12(), jdb12(), ja12(), jb12())
Call jz1(df3(), rp3(), jda3(), jdb3(), ja3(), jb3())
Call jz1(df6(), rp6(), 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(), rp1(), q1(), s1())
Call QSpt(df2(), rp2(), q2(), s2())
Call QSpt(df3(), rp3(), q3(), s3())
Call QSpt(df4(), rp4(), q4(), s4())
Call QSpt(df5(), rp5(), q5(), s5())
Call QSpt(df6(), rp6(), q6(), s6())
Call QSpt(df7(), rp7(), q7(), s7())
Call QSpt(df8(), rp8(), q8(), s8())
Call QSpt(df9(), rp9(), q9(), s9())
Call QSpt(df10(), rp10(), q10(), s10())
Call QSpt(df11(), rp11(), q11(), s11())
Call QSpt(df12(), rp12(), q12(), s12())





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





End Sub

Private Sub Command5_Click()
'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 niujie3(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)
Picture1.Line (q1(1), HFECG1(q1(1)) + 0.5)-(q1(1), HFECG1(q1(1)) - 0.5), vbRed
Picture1.Line (s1(1), HFECG1(s1(1)) + 0.5)-(s1(1), HFECG1(s1(1)) - 0.5), vbRed
Picture1.Line (rp1(1), HFECG1(rp1(1)) + 0.5)-(rp1(1), HFECG1(rp1(1)) - 0.5), vbRed
For n = 1 To 1999 Step 1
Picture1.Line (n, HFECG1(n))-(n + 1, HFECG1(n + 1))