frm_hfecg2.frm

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

Picture11.CurrentX = s11(i)
Picture11.CurrentY = HFECG11(s11(i))
Picture11.Print "s"
Picture11.CurrentX = rp11(i)
Picture11.CurrentY = HFECG11(rp11(i))
Picture11.Print "R"
Picture11.Line (q11(i), HFECG11(q11(i)) + 0.5)-(q11(i), HFECG11(q11(i)) - 0.5), vbRed
Picture11.Line (s11(i), HFECG11(s11(i)) + 0.5)-(s11(i), HFECG11(s11(i)) - 0.5), vbRed
Picture11.Line (rp11(i), HFECG11(rp11(i)) + 0.5)-(rp11(i), HFECG11(rp11(i)) - 0.5), vbRed
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
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"
Picture11.CurrentX = s11(i)
Picture11.CurrentY = HFECG11(s11(i))
Picture11.Print "s"
Picture11.CurrentX = rp11(i)
Picture11.CurrentY = HFECG11(rp11(i))
Picture11.Print "R"
Picture11.Line (q11(i), HFECG11(q11(i)) + 0.5)-(q11(i), HFECG11(q11(i)) - 0.5), vbRed
Picture11.Line (s11(i), HFECG11(s11(i)) + 0.5)-(s11(i), HFECG11(s11(i)) - 0.5), vbRed
Picture11.Line (rp11(i), HFECG11(rp11(i)) + 0.5)-(rp11(i), HFECG11(rp11(i)) - 0.5), vbRed
End If
Next i
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 = 1 To 4
If rp12(i) > X And rp12(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 = rp2(i)
Picture12.CurrentY = HFECG12(rp12(i))
Picture12.Print "R"
Picture12.Line (q12(i), HFECG12(q12(i)) + 0.5)-(q12(i), HFECG12(q12(i)) - 0.5), vbRed
Picture12.Line (s12(i), HFECG12(s12(i)) + 0.5)-(s12(i), HFECG12(s12(i)) - 0.5), vbRed
Picture12.Line (rp12(i), HFECG12(rp12(i)) + 0.5)-(rp12(i), HFECG12(rp12(i)) - 0.5), vbRed
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
For i = 1 To 4
If rp12(i) > X And rp12(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 = rp12(i)
Picture12.CurrentY = HFECG12(rp12(i))
Picture12.Print "R"
Picture12.Line (q12(i), HFECG12(q12(i)) + 0.5)-(q12(i), HFECG12(q12(i)) - 0.5), vbRed
Picture12.Line (s12(i), HFECG12(s12(i)) + 0.5)-(s12(i), HFECG12(s12(i)) - 0.5), vbRed
Picture12.Line (rp12(i), HFECG12(rp12(i)) + 0.5)-(rp12(i), HFECG12(rp12(i)) - 0.5), vbRed
End If
Next i
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)
For k = X To X + 1999 Step 1
Picture2.Line (k, HFECG2(k))-(k + 1, HFECG2(k + 1))
Next k
For i = 1 To 4
If rp2(i) > X And rp2(i) < X + 1999 Then
Picture2.CurrentX = q2(i)
Picture2.CurrentY = HFECG2(q2(i))
Picture2.Print "q"
Picture2.CurrentX = s2(i)
Picture2.CurrentY = HFECG2(s2(i))
Picture2.Print "s"
Picture2.CurrentX = rp2(i)
Picture2.CurrentY = HFECG2(rp2(i))
Picture2.Print "R"
Picture2.Line (q2(i), HFECG2(q2(i)) + 0.5)-(q2(i), HFECG2(q2(i)) - 0.5), vbRed
Picture2.Line (s2(i), HFECG2(s2(i)) + 0.5)-(s2(i), HFECG2(s2(i)) - 0.5), vbRed
Picture2.Line (rp2(i), HFECG2(rp2(i)) + 0.5)-(rp2(i), HFECG2(rp2(i)) - 0.5), vbRed
End If
Next i
Else
Picture2.Cls
X = HScroll2.Value
Picture2.Scale (X, Bmax + Bmax * 0.25)-(X + 2000, Bmin + Bmin * 0.25)
For k = X To X + 1999 Step 1
Picture2.Line (k, HFECG2(k))-(k + 1, HFECG2(k + 1))
Next k
For i = 1 To 4
If rp2(i) > X And rp2(i) < X + 1999 Then
Picture2.CurrentX = q2(i)
Picture2.CurrentY = HFECG2(q2(i))
Picture2.Print "q"
Picture2.CurrentX = s2(i)
Picture2.CurrentY = HFECG2(s2(i))
Picture2.Print "s"
Picture2.CurrentX = rp2(i)
Picture2.CurrentY = HFECG2(rp2(i))
Picture2.Print "R"
Picture2.Line (q2(i), HFECG2(q2(i)) + 0.5)-(q2(i), HFECG2(q2(i)) - 0.5), vbRed
Picture2.Line (s2(i), HFECG2(s2(i)) + 0.5)-(s2(i), HFECG2(s2(i)) - 0.5), vbRed
Picture2.Line (rp2(i), HFECG2(rp2(i)) + 0.5)-(rp2(i), HFECG2(rp2(i)) - 0.5), vbRed
End If
Next i
End If
End Sub

Private Sub HScroll3_Change()
Static X As Integer
If HScroll3.Value > X Then
Picture3.Cls
X = HScroll3.Value
Picture3.Scale (X, Cmax + Cmax * 0.25)-(X + 2000, Cmin + Cmin * 0.25)
For k = X To X + 1999 Step 1
Picture3.Line (k, HFECG3(k))-(k + 1, HFECG3(k + 1))
Next k
For i = 1 To 4
If rp3(i) > X And rp3(i) < X + 1999 Then
Picture3.CurrentX = q3(i)
Picture3.CurrentY = HFECG3(q3(i))
Picture3.Print "q"
Picture3.CurrentX = s3(i)
Picture3.CurrentY = HFECG3(s3(i))
Picture3.Print "s"
Picture3.CurrentX = rp3(i)
Picture3.CurrentY = HFECG3(rp3(i))
Picture3.Print "R"
Picture3.Line (q3(i), HFECG3(q3(i)) + 0.5)-(q3(i), HFECG3(q3(i)) - 0.5), vbRed
Picture3.Line (s3(i), HFECG3(s3(i)) + 0.5)-(s3(i), HFECG3(s3(i)) - 0.5), vbRed
Picture3.Line (rp3(i), HFECG3(rp3(i)) + 0.5)-(rp3(i), HFECG3(rp3(i)) - 0.5), vbRed
End If
Next i
Else
Picture3.Cls
X = HScroll3.Value
Picture3.Scale (X, Cmax + Cmax * 0.25)-(X + 2000, Cmin + Cmin * 0.25)
For k = X To X + 1999 Step 1
Picture3.Line (k, HFECG3(k))-(k + 1, HFECG3(k + 1))
Next k
For i = 1 To 4
If rp3(i) > X And rp3(i) < X + 1999 Then
Picture3.CurrentX = q3(i)
Picture3.CurrentY = HFECG3(q3(i))
Picture3.Print "q"
Picture3.CurrentX = s3(i)
Picture3.CurrentY = HFECG3(s3(i))
Picture3.Print "s"
Picture3.CurrentX = rp3(i)
Picture3.CurrentY = HFECG3(rp3(i))
Picture3.Print "R"
Picture3.Line (q3(i), HFECG3(q3(i)) + 0.5)-(q3(i), HFECG3(q3(i)) - 0.5), vbRed
Picture3.Line (s3(i), HFECG3(s3(i)) + 0.5)-(s3(i), HFECG3(s3(i)) - 0.5), vbRed
Picture3.Line (rp3(i), HFECG3(rp3(i)) + 0.5)-(rp3(i), HFECG3(rp3(i)) - 0.5), vbRed
End If
Next i
End If
End Sub

Private Sub HScroll4_Change()
Static X As Integer
If HScroll4.Value > X Then
Picture4.Cls
X = HScroll4.Value
Picture4.Scale (X, Dmax + Dmax * 0.25)-(X + 2000, Dmin + Dmin * 0.25)
For k = X To X + 1999 Step 1
Picture4.Line (k, HFECG4(k))-(k + 1, HFECG4(k + 1))
Next k
For i = 1 To 4
If rp4(i) > X And rp4(i) < X + 1999 Then
Picture4.CurrentX = q4(i)
Picture4.CurrentY = HFECG4(q4(i))
Picture4.Print "q"
Picture4.CurrentX = s4(i)
Picture4.CurrentY = HFECG4(s4(i))
Picture4.Print "s"
Picture4.CurrentX = rp4(i)
Picture4.CurrentY = HFECG4(rp4(i))
Picture4.Print "R"
Picture4.Line (q4(i), HFECG4(q4(i)) + 0.5)-(q4(i), HFECG4(q4(i)) - 0.5), vbRed
Picture4.Line (s4(i), HFECG4(s4(i)) + 0.5)-(s4(i), HFECG4(s4(i)) - 0.5), vbRed
Picture4.Line (rp4(i), HFECG4(rp4(i)) + 0.5)-(rp4(i), HFECG4(rp4(i)) - 0.5), vbRed
End If
Next i
Else
Picture4.Cls
X = HScroll4.Value
Picture4.Scale (X, Dmax + Dmax * 0.25)-(X + 2000, Dmin + Dmin * 0.25)
For k = X To X + 1999 Step 1
Picture4.Line (k, HFECG4(k))-(k + 1, HFECG4(k + 1))
Next k
For i = 1 To 4
If rp4(i) > X And rp4(i) < X + 1999 Then
Picture4.CurrentX = q4(i)
Picture4.CurrentY = HFECG4(q4(i))
Picture4.Print "q"
Picture4.CurrentX = s4(i)
Picture4.CurrentY = HFECG4(s4(i))
Picture4.Print "s"
Picture4.CurrentX = rp4(i)
Picture4.CurrentY = HFECG4(rp4(i))
Picture4.Print "R"
Picture4.Line (q4(i), HFECG4(q4(i)) + 0.5)-(q4(i), HFECG4(q4(i)) - 0.5), vbRed
Picture4.Line (s4(i), HFECG4(s4(i)) + 0.5)-(s4(i), HFECG4(s4(i)) - 0.5), vbRed
Picture4.Line (rp4(i), HFECG4(rp4(i)) + 0.5)-(rp4(i), HFECG4(rp4(i)) - 0.5), vbRed
End If
Next i
End If
End Sub

Private Sub HScroll5_Change()
Static X As Integer
If HScroll5.Value > X Then
Picture5.Cls
X = HScroll5.Value
Picture5.Scale (X, Emax + Emax * 0.25)-(X + 2000, Emin + Emin * 0.25)
For k = X To X + 1999 Step 1
Picture5.Line (k, HFECG5(k))-(k + 1, HFECG5(k + 1))
Next k
For i = 1 To 4
If rp5(i) > X And rp5(i) < X + 1999 Then
Picture5.CurrentX = q5(i)
Picture5.CurrentY = HFECG5(q5(i))
Picture5.Print "q"
Picture5.CurrentX = s5(i)
Picture5.CurrentY = HFECG5(s5(i))
Picture5.Print "s"
Picture5.CurrentX = rp5(i)
Picture5.CurrentY = HFECG5(rp5(i))
Picture5.Print "R"
Picture5.Line (q5(i), HFECG5(q5(i)) + 0.5)-(q5(i), HFECG5(q5(i)) - 0.5), vbRed
Picture5.Line (s5(i), HFECG5(s5(i)) + 0.5)-(s5(i), HFECG5(s5(i)) - 0.5), vbRed
Picture5.Line (rp5(i), HFECG5(rp5(i)) + 0.5)-(rp5(i), HFECG5(rp5(i)) - 0.5), vbRed
End If
Next i
Else
Picture5.Cls
X = HScroll5.Value
Picture5.Scale (X, Emax + Emax * 0.25)-(X + 2000, Emin + Emin * 0.25)
For k = X To X + 1999 Step 1
Picture5.Line (k, HFECG5(k))-(k + 1, HFECG5(k + 1))
Next k
For i = 1 To 4
If rp5(i) > X And rp5(i) < X + 1999 Then
Picture5.CurrentX = q5(i)
Picture5.CurrentY = HFECG5(q5(i))
Picture5.Print "q"
Picture5.CurrentX = s5(i)
Picture5.CurrentY = HFECG5(s5(i))
Picture5.Print "s"
Picture5.CurrentX = rp5(i)
Picture5.CurrentY = HFECG5(rp5(i))
Picture5.Print "R"
Picture5.Line (q5(i), HFECG5(q5(i)) + 0.5)-(q5(i), HFECG5(q5(i)) - 0.5), vbRed
Picture5.Line (s5(i), HFECG5(s5(i)) + 0.5)-(s5(i), HFECG5(s5(i)) - 0.5), vbRed
Picture5.Line (rp5(i), HFECG5(rp5(i)) + 0.5)-(rp5(i), HFECG5(rp5(i)) - 0.5), vbRed
End If
Next i
End If
End Sub

Private Sub HScroll6_Change()
Static X As Integer
If HScroll6.Value > X Then
Picture6.Cls
X = HScroll6.Value
Picture6.Scale (X, Fmax + Fmax * 0.25)-(X + 2000, Fmin + Fmin * 0.25)
For k = X To X + 1999 Step 1
Picture6.Line (k, HFECG6(k))-(k + 1, HFECG6(k + 1))
Next k
For i = 1 To 4
If rp6(i) > X And rp6(i) < X + 1999 Then
Picture6.CurrentX = q6(i)
Picture6.CurrentY = HFECG6(q6(i))
Picture6.Print "q"
Picture6.CurrentX = s6(i)
Picture6.CurrentY = HFECG6(s6(i))
Picture6.Print "s"
Picture6.CurrentX = rp6(i)
Picture6.CurrentY = HFECG6(rp6(i))
Picture6.Print "R"
Picture6.Line (q6(i), HFECG6(q6(i)) + 0.5)-(q6(i), HFECG6(q6(i)) - 0.5), vbRed
Picture6.Line (s6(i), HFECG6(s6(i)) + 0.5)-(s6(i), HFECG6(s6(i)) - 0.5), vbRed
Picture6.Line (rp6(i), HFECG6(rp6(i)) + 0.5)-(rp6(i), HFECG6(rp6(i)) - 0.5), vbRed
End If
Next i
Else
Picture6.Cls
X = HScroll6.Value
Picture6.Scale (X, Fmax + Fmax * 0.25)-(X + 2000, Fmin + Fmin * 0.25)
For k = X To X + 1999 Step 1
Picture6.Line (k, HFECG6(k))-(k + 1, HFECG6(k + 1))
Next k
For i = 1 To 4
If rp6(i) > X And rp6(i) < X + 1999 Then
Picture6.CurrentX = q6(i)
Picture6.CurrentY = HFECG6(q6(i))
Picture6.Print "q"
Picture6.CurrentX = s6(i)
Picture6.CurrentY = HFECG6(s6(i))
Picture6.Print "s"
Picture6.CurrentX = rp6(i)
Picture6.CurrentY = HFECG6(rp6(i))
Picture6.Print "R"
Picture6.Line (q6(i), HFECG6(q6(i)) + 0.5)-(q6(i), HFECG6(q6(i)) - 0.5), vbRed
Picture6.Line (s6(i), HFECG6(s6(i)) + 0.5)-(s6(i), HFECG6(s6(i)) - 0.5), vbRed
Picture6.Line (rp6(i), HFECG6(rp6(i)) + 0.5)-(rp6(i), HFECG6(rp6(i)) - 0.5), vbRed
End If
Next i
End If
End Sub

Private Sub HScroll7_Change()
Static X As Integer
If HScroll7.Value > X Then
Picture7.Cls
X = HScroll7.Value
Picture7.Scale (X, Gmax + Gmax * 0.25)-(X + 2000, Gmin + Gmin * 0.25)
For k = X To X + 1999 Step 1
Picture7.Line (k, HFECG7(k))-(k + 1, HFECG7(k + 1))
Next k
For i = 1 To 4
If rp7(i) > X And rp7(i) < X + 1999 Then
Picture7.CurrentX = q7(i)
Picture7.CurrentY = HFECG7(q7(i))
Picture7.Print "q"
Picture7.CurrentX = s7(i)
Picture7.CurrentY = HFECG7(s7(i))
Picture7.Print "s"
Picture7.CurrentX = rp7(i)
Picture7.CurrentY = HFECG7(rp7(i))
Picture7.Print "R"
Picture7.Line (q7(i), HFECG7(q7(i)) + 0.5)-(q7(i), HFECG7(q7(i)) - 0.5), vbRed
Picture7.Line (s7(i), HFECG7(s7(i)) + 0.5)-(s7(i), HFECG7(s7(i)) - 0.5), vbRed
Picture7.Line (rp7(i), HFECG7(rp7(i)) + 0.5)-(rp7(i), HFECG7(rp7(i)) - 0.5), vbRed
End If
Next i
Else
Picture7.Cls
X = HScroll7.Value
Picture7.Scale (X, Gmax + Gmax * 0.25)-(X + 2000, Gmin + Gmin * 0.25)
For k = X To X + 1999 Step 1
Picture7.Line (k, HFECG7(k))-(k + 1, HFECG7(k + 1))
Next k
For i = 1 To 4
If rp7(i) > X And rp7(i) < X + 1999 Then
Picture7.CurrentX = q7(i)
Picture7.CurrentY = HFECG7(q7(i))
Picture7.Print "q"
Picture7.CurrentX = s7(i)
Picture7.CurrentY = HFECG7(s7(i))
Picture7.Print "s"
Picture7.CurrentX = rp7(i)
Picture7.CurrentY = HFECG7(rp7(i))
Picture7.Print "R"
Picture7.Line (q7(i), HFECG7(q7(i)) + 0.5)-(q7(i), HFECG7(q7(i)) - 0.5), vbRed
Picture7.Line (s7(i), HFECG7(s7(i)) + 0.5)-(s7(i), HFECG7(s7(i)) - 0.5), vbRed
Picture7.Line (rp7(i), HFECG7(rp7(i)) + 0.5)-(rp7(i), HFECG7(rp7(i)) - 0.5), vbRed
End If
Next i
End If
End Sub

Private Sub HScroll8_Change()
Static X As Integer
If HScroll8.Value > X Then
Picture8.Cls
X = HScroll8.Value
Picture8.Scale (X, Hmax + Hmax * 0.25)-(X + 2000, Hmin + Hmin * 0.25)
For k = X To X + 1999 Step 1
Picture8.Line (k, HFECG8(k))-(k + 1, HFECG8(k + 1))
Next k

For i = 1 To 4
If rp8(i) > X And rp8(i) < X + 1999 Then
Picture8.CurrentX = q8(i)
Picture8.CurrentY = HFECG8(q8(i))
Picture8.Print "q"
Picture8.CurrentX = s8(i)
Picture8.CurrentY = HFECG8(s8(i))
Picture8.Print "s"
Picture8.CurrentX = rp8(i)
Picture8.CurrentY = HFECG8(rp8(i))
Picture8.Print "R"
Picture8.Line (q8(i), HFECG8(q8(i)) + 0.5)-(q8(i), HFECG8(q8(i)) - 0.5), vbRed
Picture8.Line (s8(i), HFECG8(s8(i)) + 0.5)-(s8(i), HFECG8(s8(i)) - 0.5), vbRed
Picture8.Line (rp8(i), HFECG8(rp8(i)) + 0.5)-(rp8(i), HFECG8(rp8(i)) - 0.5), vbRed
End If
Next i


Else
Picture8.Cls
X = HScroll8.Value
Picture8.Scale (X, Hmax + Hmax * 0.25)-(X + 2000, Hmin + Hmin * 0.25)
For k = X To X + 1999 Step 1
Picture8.Line (k, HFECG8(k))-(k + 1, HFECG8(k + 1))
Next k
For i = 1 To 4
If rp8(i) > X And rp8(i) < X + 1999 Then
Picture8.CurrentX = q8(i)
Picture8.CurrentY = HFECG8(q8(i))
Picture8.Print "q"
Picture8.CurrentX = s8(i)
Picture8.CurrentY = HFECG8(s8(i))
Picture8.Print "s"
Picture8.CurrentX = rp8(i)
Picture8.CurrentY = HFECG8(rp8(i))
Picture8.Print "R"
Picture8.Line (q8(i), HFECG8(q8(i)) + 0.5)-(q8(i), HFECG8(q8(i)) - 0.5), vbRed
Pict