frm_hfecg2.frm

来自「在VB上采用改进的阈值法检测心电高频向量」· FRM 代码 · 共 107 行

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frm_HFECG2 
   Caption         =   "高频心电图分析"
   ClientHeight    =   8355
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10650
   LinkTopic       =   "Form1"
   ScaleHeight     =   8355
   ScaleWidth      =   10650
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   615
      Left            =   1680
      TabIndex        =   1
      Top             =   4440
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      Caption         =   "HFECG信号获取"
      Height          =   735
      Left            =   1560
      TabIndex        =   0
      Top             =   1920
      Width           =   2175
   End
   Begin MSComDlg.CommonDialog dlgCommondi1 
      Left            =   360
      Top             =   480
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
      Color           =   4210752
   End
End
Attribute VB_Name = "frm_HFECG2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click() '高频心电信号获取
On Error GoTo Errorhandler

With dlgCommondi1
     .InitDir = "G:\lhy_data\lhy\lhy_CQU\2003级本科毕业设计\高频心电数据"
     .FileName = "G:\lhy_data\lhy\lhy_CQU\2003级本科毕业设计\高频心电数据\" & "*.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