frm_hfecg2.frm
来自「在VB上采用改进的阈值法检测心电高频向量」· FRM 代码 · 共 2,256 行 · 第 1/5 页
FRM
2,256 行
TabIndex = 7
Top = 480
Width = 3735
End
Begin VB.PictureBox Picture3
BackColor = &H00FFFFFF&
Height = 1575
Left = 7560
ScaleHeight = 1515
ScaleWidth = 3675
TabIndex = 6
Top = 480
Width = 3735
End
Begin VB.PictureBox Picture2
BackColor = &H00FFFFFF&
Height = 1575
Left = 3840
ScaleHeight = 1515
ScaleWidth = 3675
TabIndex = 5
Top = 480
Width = 3735
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
Height = 1575
Left = 120
ScaleHeight = 1515
ScaleWidth = 3675
TabIndex = 4
Top = 480
Width = 3735
End
Begin VB.CommandButton Command6
BackColor = &H00C0C0C0&
Caption = "差分波形"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 13920
Style = 1 'Graphical
TabIndex = 3
Top = 9360
Width = 1095
End
Begin VB.CommandButton Command4
BackColor = &H00C0C0C0&
Caption = "找QRS波群"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1440
Style = 1 'Graphical
TabIndex = 2
Top = 9840
Width = 855
End
Begin VB.CommandButton Command2
BackColor = &H00FFFFFF&
Caption = "退出"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 14040
Style = 1 'Graphical
TabIndex = 1
Top = 10080
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "HFECG信号获取"
BeginProperty Font
Name = "楷体_GB2312"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 360
Style = 1 'Graphical
TabIndex = 0
Top = 9840
Width = 855
End
Begin MSComDlg.CommonDialog dlgCommondi1
Left = 360
Top = 480
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
Color = 4210752
End
Begin VB.Label Label16
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "总数"
Height = 300
Left = 11880
TabIndex = 69
Top = 9480
Width = 800
End
Begin VB.Label Label15
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(2000), r2(2000), r3(2000), r4(2000), r5(2000), r6(2000), r7(2000), r8(2000), r9(2000) '大约的R波点在心电信号中的位置
Dim r10(2000), r11(2000), r12(2000)
Dim rp1(100), rp2(100), rp3(100), rp4(100), rp5(100), rp6(100) 'r波点在r1的位置，两者组合可以找到R波的位置
Dim rp10(100), rp7(100), rp8(100), rp9(100), rp11(100), rp12(100)
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(15), q2(4), q3(4), q4(10), q5(10), q6(4), q7(10), q8(10), q9(10), q10(4), q11(4), q12(4) 'Q点
Dim s1(15), s2(4), s3(4), s4(10), s5(10), s6(4), s7(10), s8(10), s9(10), 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 niujie2(m) > q2(i) And niujie2(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 = niujie2(m)
'Picture2.CurrentY = Abs(HFECG2(niujie2(m)))
'Picture2.Print "s"
'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 niujie10(m) > q10(i) And niujie10(m) < s10(i) Then
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?