frm_hfecg2.frm

来自「在VB上采用改进的阈值法检测心电高频向量」· FRM 代码 · 共 2,256 行 · 第 1/5 页

Next n
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 = rp1(1) + 25
Picture1.CurrentY = HFECG1(rp1(1))
Picture1.Print "R"
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)

Picture2.Line (q2(1), HFECG2(q2(1)) + 0.5)-(q2(1), HFECG2(q2(1)) - 0.5), vbRed
Picture2.Line (s2(1), HFECG2(s2(1)) + 0.5)-(s2(1), HFECG2(s2(1)) - 0.5), vbRed
Picture2.Line (rp2(1), HFECG2(rp2(1)) + 0.5)-(rp2(1), HFECG2(rp2(1)) - 0.5), vbRed
For n = 1 To 1999 Step 1
Picture2.Line (n, HFECG2(n))-(n + 1, HFECG2(n + 1))
Next n
Picture2.CurrentX = q2(1) + 25
Picture2.CurrentY = HFECG2(q2(1))
Picture2.Print "q"
Picture2.CurrentX = s2(1)
Picture2.CurrentY = HFECG2(s2(1))
Picture2.Print "s"
Picture2.CurrentX = rp2(1) + 25
Picture2.CurrentY = HFECG2(rp2(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.Line (q3(1), HFECG3(q3(1)) + 0.5)-(q3(1), HFECG3(q3(1)) - 0.5), vbRed
Picture3.Line (s3(1), HFECG3(s3(1)) + 0.5)-(s3(1), HFECG3(s3(1)) - 0.5), vbRed
Picture3.Line (rp3(1), HFECG3(rp3(1)) + 0.5)-(rp3(1), HFECG3(rp3(1)) - 0.5), vbRed
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 = rp3(1) + 25
Picture3.CurrentY = HFECG3(rp3(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.Line (q4(1), HFECG4(q4(1)) + 0.5)-(q4(1), HFECG4(q4(1)) - 0.5), vbRed
Picture4.Line (s4(1), HFECG4(s4(1)) + 0.5)-(s4(1), HFECG4(s4(1)) - 0.5), vbRed
Picture4.Line (rp4(1), HFECG4(rp4(1)) + 0.5)-(rp4(1), HFECG4(rp4(1)) - 0.5), vbRed
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 = rp4(1) + 25
Picture4.CurrentY = HFECG4(rp4(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.Line (q5(1), HFECG5(q5(1)) + 0.5)-(q5(1), HFECG5(q5(1)) - 0.5), vbRed
Picture5.Line (s5(1), HFECG5(s5(1)) + 0.5)-(s5(1), HFECG5(s5(1)) - 0.5), vbRed
Picture5.Line (rp5(1), HFECG5(rp5(1)) + 0.5)-(rp5(1), HFECG5(rp5(1)) - 0.5), vbRed
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 = rp5(1) + 25
Picture5.CurrentY = HFECG5(rp5(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.Line (q6(1), HFECG6(q6(1)) + 0.5)-(q6(1), HFECG6(q6(1)) - 0.5), vbRed
Picture6.Line (s6(1), HFECG6(s6(1)) + 0.5)-(s6(1), HFECG6(s6(1)) - 0.5), vbRed
Picture6.Line (rp6(1), HFECG6(rp6(1)) + 0.5)-(rp6(1), HFECG6(rp6(1)) - 0.5), vbRed
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 = rp6(1) + 25
Picture6.CurrentY = HFECG6(rp6(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.Line (q7(1), HFECG7(q7(1)) + 0.5)-(q7(1), HFECG7(q7(1)) - 0.5), vbRed
Picture7.Line (s7(1), HFECG7(s7(1)) + 0.5)-(s7(1), HFECG7(s7(1)) - 0.5), vbRed
Picture7.Line (rp7(1), HFECG7(rp7(1)) + 0.5)-(rp7(1), HFECG7(rp7(1)) - 0.5), vbRed
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 = rp7(1) + 25
Picture7.CurrentY = HFECG7(rp7(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.Line (q8(1), HFECG8(q8(1)) + 0.5)-(q8(1), HFECG8(q8(1)) - 0.5), vbRed
Picture8.Line (s8(1), HFECG8(s8(1)) + 0.5)-(s8(1), HFECG8(s8(1)) - 0.5), vbRed
Picture8.Line (rp8(1), HFECG8(rp8(1)) + 0.5)-(rp8(1), HFECG8(rp8(1)) - 0.5), vbRed
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 = rp8(1) + 25
Picture8.CurrentY = HFECG8(rp8(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.Line (q9(1), HFECG9(q9(1)) + 0.5)-(q9(1), HFECG9(q9(1)) - 0.5), vbRed
Picture9.Line (s9(1), HFECG9(s9(1)) + 0.5)-(s9(1), HFECG9(s9(1)) - 0.5), vbRed
Picture9.Line (rp9(1), HFECG9(rp9(1)) + 0.5)-(rp9(1), HFECG9(rp9(1)) - 0.5), vbRed
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 = rp9(1) + 25
Picture9.CurrentY = HFECG9(rp9(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.Line (q10(1), HFECG10(q10(1)) + 0.5)-(q10(1), HFECG10(q10(1)) - 0.5), vbRed
Picture10.Line (s10(1), HFECG10(s10(1)) + 0.5)-(s10(1), HFECG10(s10(1)) - 0.5), vbRed
Picture10.Line (rp10(1), HFECG10(rp10(1)) + 0.5)-(rp10(1), HFECG10(rp10(1)) - 0.5), vbRed
Picture10.CurrentX = q10(1)
Picture10.CurrentY = HFECG10(q10(1))
Picture10.Print "q"
Picture10.CurrentX = s10(1)
Picture10.CurrentY = HFECG10(s10(1))
Picture10.Print "s"
Picture10.CurrentX = rp10(1) + 25
Picture10.CurrentY = HFECG10(rp10(1))
Picture10.Print "R"
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.Line (q11(1), HFECG11(q11(1)) + 0.5)-(q11(1), HFECG11(q11(1)) - 0.5), vbRed
Picture11.Line (s11(1), HFECG11(s11(1)) + 0.5)-(s11(1), HFECG11(s11(1)) - 0.5), vbRed
Picture11.Line (rp11(1), HFECG11(rp11(1)) + 0.5)-(rp11(1), HFECG11(rp11(1)) - 0.5), vbRed
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 = rp11(1) + 25
Picture11.CurrentY = HFECG11(rp11(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.Line (q12(1), HFECG12(q12(1)) + 0.5)-(q12(1), HFECG12(q12(1)) - 0.5), vbRed
Picture12.Line (s12(1), HFECG12(s12(1)) + 0.5)-(s12(1), HFECG12(s12(1)) - 0.5), vbRed
Picture12.Line (rp12(1), HFECG12(rp12(1)) + 0.5)-(rp12(1), HFECG12(rp12(1)) - 0.5), vbRed
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 = rp12(1) + 25
Picture12.CurrentY = HFECG12(rp12(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
For i = 1 To 15
If rp1(i) > X And rp1(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 = rp1(i)
Picture1.CurrentY = HFECG1(rp1(i))
Picture1.Print "R"
Picture1.Line (q1(i), HFECG1(q1(i)) + 0.5)-(q1(i), HFECG1(q1(i)) - 0.5), vbRed
Picture1.Line (s1(i), HFECG1(s1(i)) + 0.5)-(s1(i), HFECG1(s1(i)) - 0.5), vbRed
Picture1.Line (rp1(i), HFECG1(rp1(i)) + 0.5)-(rp1(i), HFECG1(rp1(i)) - 0.5), vbRed
End If
Next i
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
For i = 1 To 15
If rp1(i) > X And rp1(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 = rp1(i)
Picture1.CurrentY = HFECG1(rp1(i))
Picture1.Print "R"
Picture1.Line (q1(i), HFECG1(q1(i)) + 0.5)-(q1(i), HFECG1(q1(i)) - 0.5), vbRed
Picture1.Line (s1(i), HFECG1(s1(i)) + 0.5)-(s1(i), HFECG1(s1(i)) - 0.5), vbRed
Picture1.Line (rp1(i), HFECG1(rp1(i)) + 0.5)-(rp1(i), HFECG1(rp1(i)) - 0.5), vbRed
End If
Next i
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 = 1 To 4
If rp10(i) > X And rp10(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 = rp10(i)
Picture10.CurrentY = HFECG10(rp10(i))
Picture10.Print "R"
Picture10.Line (q10(i), HFECG10(q10(i)) + 0.5)-(q10(i), HFECG10(q10(i)) - 0.5), vbRed
Picture10.Line (s10(i), HFECG10(s10(i)) + 0.5)-(s10(i), HFECG10(s10(i)) - 0.5), vbRed
Picture10.Line (rp10(i), HFECG10(rp10(i)) + 0.5)-(rp10(i), HFECG10(rp10(i)) - 0.5), vbRed
End If
Next i
Else
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 = 1 To 4
If rp10(i) > X And rp10(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 = rp10(i)
Picture10.CurrentY = HFECG10(rp10(i))
Picture10.Print "R"
Picture10.Line (q10(i), HFECG10(q10(i)) + 0.5)-(q10(i), HFECG10(q10(i)) - 0.5), vbRed
Picture10.Line (s10(i), HFECG10(s10(i)) + 0.5)-(s10(i), HFECG10(s10(i)) - 0.5), vbRed
Picture10.Line (rp10(i), HFECG10(rp10(i)) + 0.5)-(rp10(i), HFECG10(rp10(i)) - 0.5), vbRed
End If
Next i
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 = 1 To 4
If rp11(i) > X And rp11(i) < X + 1999 Then
Picture11.CurrentX = q11(i)
Picture11.CurrentY = HFECG11(q11(i))
Picture11.Print "q"