📄 frm_hfecg2.frm
字号:
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "12"
ForeColor = &H00000000&
Height = 300
Left = 11280
TabIndex = 55
Top = 9480
Width = 600
End
Begin VB.Label Label14
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "11"
ForeColor = &H00000000&
Height = 300
Left = 10680
TabIndex = 54
Top = 9480
Width = 600
End
Begin VB.Label Label13
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "10"
ForeColor = &H00000000&
Height = 300
Left = 10080
TabIndex = 53
Top = 9480
Width = 600
End
Begin VB.Label Label12
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "9"
ForeColor = &H00000000&
Height = 300
Left = 9480
TabIndex = 52
Top = 9480
Width = 600
End
Begin VB.Label Label11
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "8"
ForeColor = &H00000000&
Height = 300
Left = 8880
TabIndex = 51
Top = 9480
Width = 600
End
Begin VB.Label Label10
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "7"
ForeColor = &H00000000&
Height = 300
Left = 8280
TabIndex = 50
Top = 9480
Width = 600
End
Begin VB.Label Label9
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "6"
ForeColor = &H00000000&
Height = 300
Left = 7680
TabIndex = 49
Top = 9480
Width = 600
End
Begin VB.Label Label8
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "5"
ForeColor = &H00000000&
Height = 300
Left = 7080
TabIndex = 48
Top = 9480
Width = 600
End
Begin VB.Label Label7
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "4"
ForeColor = &H00000000&
Height = 300
Left = 6480
TabIndex = 47
Top = 9480
Width = 600
End
Begin VB.Label Label6
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "3"
ForeColor = &H00000000&
Height = 300
Left = 5880
TabIndex = 46
Top = 9480
Width = 600
End
Begin VB.Label Label5
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "2"
ForeColor = &H00000000&
Height = 300
Left = 5280
TabIndex = 45
Top = 9480
Width = 600
End
Begin VB.Label Label4
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "1"
ForeColor = &H00000000&
Height = 300
Left = 4680
TabIndex = 44
Top = 9480
Width = 600
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "导联"
Height = 300
Left = 3720
TabIndex = 43
Top = 9480
Width = 1005
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "扭挫数"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 3720
TabIndex = 31
Top = 10080
Width = 1000
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "切迹数"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 3720
TabIndex = 30
Top = 9840
Width = 1000
End
End
Attribute VB_Name = "frm_HFECG2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Amin, Amax, Bmin, Bmax, Cmin, Cmax, Dmin, Dmax, Emin, Emax, Fmin, Fmax, Gmin, Gmax, Hmin, Hmax
Dim Imin, Imax, Jmin, Jmax, Kmin, Kmax, Lmin, Lmax
Dim t(1 To 12)
Dim r1(500), r2(500), r3(500), r4(500), r5(500), r6(500), r7(500), r8(500), r9(500) '大约的R波点在心电信号中的位置
Dim r10(500), r11(500), r12(500)
Dim rp1(10), rp2(10), rp3(10), rp4(10), rp5(10), rp6(10) 'r波点在r1的位置，两者组合可以找到R波的位置
Dim rp10(10), rp7(10), rp8(10), rp9(10), rp11(10), rp12(10)
Dim rpt1(1 To 4), rpt2(1 To 4), rpt3(1 To 4), rpt4(1 To 4), rpt5(1 To 4), rpt6(1 To 4) 'R点
Dim rpt7(1 To 4), rpt8(1 To 4), rpt9(1 To 4), rpt10(1 To 4), rpt11(1 To 4), rpt12(1 To 4)
Dim jda1(1 To 4), jda2(1 To 4), jda3(1 To 4), jda4(1 To 4), jda5(1 To 4), jda6(1 To 4) 'R点左侧极值点
Dim jda7(1 To 4), jda8(1 To 4), jda9(1 To 4), jda10(1 To 4), jda11(1 To 4), jda12(1 To 4)
Dim ja1(1 To 4), ja2(1 To 4), ja3(1 To 4), ja4(1 To 4), ja5(1 To 4), ja6(1 To 4) 'R点左侧极值点值
Dim ja7(1 To 4), ja8(1 To 4), ja9(1 To 4), ja10(1 To 4), ja11(1 To 4), ja12(1 To 4)
Dim jdb1(1 To 4), jdb2(1 To 4), jdb3(1 To 4), jdb4(1 To 4), jdb5(1 To 4), jdb6(1 To 4) 'R点右侧极值点
Dim jdb7(1 To 4), jdb8(1 To 4), jdb9(1 To 4), jdb10(1 To 4), jdb11(1 To 4), jdb12(1 To 4)
Dim jb1(1 To 4), jb2(1 To 4), jb3(1 To 4), jb4(1 To 4), jb5(1 To 4), jb6(1 To 4)
Dim jb7(1 To 4), jb8(1 To 4), jb9(1 To 4), jb10(1 To 4), jb11(1 To 4), jb12(1 To 4)
Dim q1(4), q2(4), q3(4), q4(4), q5(4), q6(4), q7(4), q8(4), q9(4), q10(4), q11(4), q12(4) 'Q点
Dim s1(4), s2(4), s3(4), s4(4), s5(4), s6(4), s7(4), s8(4), s9(4), s10(4), s11(4), s12(4) 'S点
Dim qieji1(50), qieji2(50), qieji3(50), qieji4(50), qieji5(50), qieji6(50)
Dim qieji7(50), qieji8(50), qieji9(50), qieji10(50), qieji11(50), qieji12(50)
Dim niujie1(50), niujie2(50), niujie3(50), niujie4(50), niujie5(50), niujie6(50), niujie7(50)
Dim niujie8(50), niujie9(50), niujie10(50), niujie11(50), niujie12(50)
Private Sub Command1_Click() '高频心电信号获取
On Error GoTo Errorhandler
With dlgCommondi1
.InitDir = "D:\Program Files\VB6Expr\高频心电数据"
.FileName = "D:\Program Files\VB6Expr\高频心电数据\" & "*.hecg"
.Filter = "专用文件(*.hecg)|*.hecg"
.Flags = cdlOFNOverwritePrompt
.ShowOpen
sfile = .FileName
End With
Open sfile For Binary As #1
Get #1, , sampling_fre '取出采样频率
For i = 1 To 8400 '取出心电波形
Get #1, , HFECG1(i)
Next i
For i = 1 To 8400
Get #1, , HFECG2(i)
Next i
For i = 1 To 8400
Get #1, , HFECG3(i)
Next i
For i = 1 To 8400
Get #1, , HFECG4(i)
Next i
For i = 1 To 8400
Get #1, , HFECG5(i)
Next i
For i = 1 To 8400
Get #1, , HFECG6(i)
Next i
For i = 1 To 8400
Get #1, , HFECG7(i)
Next i
For i = 1 To 8400
Get #1, , HFECG8(i)
Next i
For i = 1 To 8400
Get #1, , HFECG9(i)
Next i
For i = 1 To 8400
Get #1, , HFECG10(i)
Next i
For i = 1 To 8400
Get #1, , HFECG11(i)
Next i
For i = 1 To 8400
Get #1, , HFECG12(i)
Next i
Close #1
Errorhandler:
Exit Sub
End Sub
Private Sub Command2_Click() '退出
End
End Sub
Private Sub Command3_Click()
'For m = 1 To 4
'For i = 1 To 4
'If qieji2(m) > q2(i) And qieji2(m) < s2(i) Then
'Picture2.Cls
'Bmin = HFECG2(q2(i)): Bmax = HFECG2(q2(i)):
'For k = q2(i) To s2(i)
'If HFECG2(k) < Bmin Then
' Bmin = HFECG2(k)
'End If
'If HFECG2(k) > Bmax Then
' Bmax = HFECG2(k)
'End If
'Next k
'Picture2.Scale (q2(i), Bmax + Bmax * 0.25)-(s2(i), Bmin + Bmin * 0.25)
'Picture2.CurrentX = qieji2(m)
'Picture2.CurrentY = Abs(HFECG2(qieji2(m)))
'Picture2.Print "n"
'For n = q2(i) To s2(i) Step 1
'Picture2.Line (n, HFECG2(n))-(n + 1, HFECG2(n + 1))
'Next n
'End If
'Next i
'Next m
'For m = 1 To 4
'For i = 1 To 4
'If qieji3(m) > q3(i) And qieji3(m) < s3(i) Then
'Picture3.Cls
'Bmin = HFECG3(q3(i)): Bmax = HFECG3(q3(i)):
'For k = q3(i) To s3(i)
' If HFECG3(k) < Bmin Then
' Bmin = HFECG3(k)
' End If
'If HFECG3(k) > Bmax Then
' Bmax = HFECG3(k)
'End If
'Next k
'Picture3.Scale (q3(i), Bmax + Bmax * 0.25)-(s2(i), Bmin + Bmin * 0.25)
'Picture3.CurrentX = qieji3(m)
'Picture3.CurrentY = Abs(HFECG3(qieji3(m)))
'Picture3.Print "n"
'For n = q3(i) To s3(i) Step 1
'Picture3.Line (n, HFECG3(n))-(n + 1, HFECG3(n + 1))
'Next n
'End If
'Next i
'Next m
For m = 1 To 4
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())
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -