frmmain.frm

来自「典型的生物识别应用」· FRM 代码 · 共 104 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4980
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6270
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   15
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   4980
   ScaleWidth      =   6270
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "调试"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1215
      Left            =   1680
      TabIndex        =   0
      Top             =   1440
      Width           =   2535
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Dim tReturn As Integer
Dim uwImageWidth As Integer
Dim uwImageHeight As Integer
Dim DeviceID As String
Dim pRawImage(96 * 96) As Byte
Dim FingerMinutiaes As String
Dim FingerSingularPoints As String
Dim i As Integer

  DeviceID = "COM4"
  HPAEVFClose
  HPAEDecClose
  tReturn = HPAEDecInit(DeviceID, uwImageWidth, uwImageHeight)
   If tReturn = 0 Then
     MsgBox "初始化设备成功__" + Str(uwImageHeight) + "," + Str(uwImageWidth), vbInformation, "HOPE"
   Else
     MsgBox "初始化设备失败", vbInformation, "HOPE"
     Return
   End If
   
   tReturn = HPAEVFInit(3)
   If tReturn = 0 Then
     MsgBox "初始化安全级别成功", vbInformation, "HOPE"
   Else
     MsgBox "初始化安全级别失败", vbInformation, "HOPE"
     HPAEDecClose
     Return
   End If
   
   
'   For i = 0 To 96 * 96 - 1
'     pRawImage(i) = 1
'   Next i
   
   MsgBox "请按手指采集图像", vbInformation, "HOPE"
   
   tReturn = HPAECaptureImage(uwImageWidth, uwImageHeight, 10, pRawImage)
   
   MsgBox pRawImage(1), vbInformation, "HOPE"
   
   If tReturn = 0 Then
     MsgBox "采集图像成功", vbInformation, "HOPE"
   Else
     MsgBox "采集图像失败__" + Str(tReturn), vbInformation, "HOPE"
   End If
   
   'tReturn = HPAEFeaturesExtraction(uwImageWidth, uwImageHeight, pRawImage, FingerMinutiaes, FingerSingularPoints)
   'If tReturn = 0 Then
    ' MsgBox "提取特征点成功", vbInformation, "HOPE"
   'Else
    ' MsgBox "提取特征点失败__" + Str(tReturn), vbInformation, "HOPE"
     'HPAEVFClose
     'HPAEDecClose
     
   'End If
   

End Sub