frm_hfecg2.frm

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

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))





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)
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
For i = 2 To 4
If rpt10(i) > X And rpt10(i) < X + 1999 Then
Picture10.CurrentX = q10(i)
Picture10.CurrentY = HFECG10(q10(i))
Picture10.Print "q"
Picture10.CurrentX = s10(i)
Picture10.CurrentY = HFECG10(s10(i))
Picture10.Print "s"
Picture10.CurrentX = rpt10(i)
Picture10.CurrentY = HFECG10(rpt10(i))
Picture10.Print "R"
End If
Next i
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
For i = 2 To 4
If rpt11(i) > X And rpt11(i) < X + 1999 Then
Picture11.CurrentX = q11(i)
Picture11.CurrentY = HFECG11(q11(i))
Picture11.Print "q"
Picture11.CurrentX = s11(i)
Picture11.CurrentY = HFECG11(s11(i))
Picture11.Print "s"
Picture11.CurrentX = rpt11(i)
Picture11.CurrentY = HFECG11(rpt11(i))
Picture11.Print "R"
End If
Next i
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
If HScroll12.Value > X Then
Picture12.Cls
X = HScroll12.Value
Picture12.Scale (X, Lmax + Lmax * 0.25)-(X + 2000, Lmin + Lmin * 0.25)
For k = X To X + 1999 Step 1
Picture12.Line (k, HFECG12(k))-(k + 1, HFECG12(k + 1))
Next k
For i = 2 To 4
If rpt12(i) > X And rpt12(i) < X + 1999 Then
Picture12.CurrentX = q12(i)
Picture12.CurrentY = HFECG12(q12(i))
Picture12.Print "q"
Picture12.CurrentX = s12(i)
Picture12.CurrentY = HFECG12(s12(i))
Picture12.Print "s"
Picture12.CurrentX = rpt2(i)
Picture12.CurrentY = HFECG12(rpt12(i))
Picture12.Print "R"
End If
Next i
Else
Picture12.Cls
X = HScroll12.Value
Picture12.Scale (X, Lmax + Lmax * 0.25)-(X + 2000, Lmin + Lmin * 0.25)
For k = X To X + 1999 Step 1
Picture12.Line (k, HFECG12(k))-(k + 1, HFECG12(k + 1))
Next k
End If
End Sub

Private Sub HScroll13_Change()

xmin = HFECG3(q3(2)): xmax = HFECG3(q3(2)):
For i = q3(2) To s3(2)
    If HFECG3(i) < Cmin Then
       xmin = HFECG3(i)
    End If
    If HFECG3(i) > Cmax Then
       xmax = HFECG3(i)
    End If
Next i
Static X As Integer
If HScroll13.Value > X Then
Picture13.Cls
X = HScroll13.Value
Picture13.Scale (X, xmax + xmax * 0.25)-(X + 500, xmin + xmin * 0.25)
For k = X To X + 499 Step 1
Picture13.Line (k, HFECG3(k))-(k + 1, HFECG3(k + 1))
Next k
For i = 2 To 4
If rpt1(i) > X And rpt1(i) < X + 1999 Then
Picture1.CurrentX = q1(i)
Picture1.CurrentY = HFECG1(q1(i))
Picture1.Print "q"
Picture1.CurrentX = s1(i)
Picture1.CurrentY = HFECG1(s1(i))
Picture1.Print "s"
Picture1.CurrentX = rpt1(i)
Picture1.CurrentY = HFECG1(rpt1(i))
Picture1.Print "R"
End If
Next i
For i = 2 To 50
If niujie7(i) > X And niujie7(i) < X + 499 Then
Picture13.CurrentX = niujie7(i)
Picture13.CurrentY = HFECG7(niujie7(i))
Picture13.Print "n"

End If
Next i
Else
Picture13.Cls
X = HScroll13.Value
Picture13.Scale (X, xmax + xmax * 0.25)-(X + 500, xmin + xmin * 0.25)
For k = X To X + 499 Step 1
Picture13.Line (k, HFECG3(k))-(k + 1, HFECG3(k + 1))
Next k
End If


End Sub

Private Sub HScroll2_Change()
Static X As Integer
If HScroll2.Value > X Then
Picture2.Cls
X = HScroll2.Value
Picture2.Scale (X, Bmax + Bmax * 0.25)-(X + 2000, Bmin + Bmin * 0.25)