主题：外接设备端口问题

在项目中添加外接硬件端口该怎样操作？有参考教程吗？

指纹识别机，U.are.U 4000B

VB的例子还是VFP的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:vb.net.rar

哪里有下载？ 在项目中设计个窗口，然后如何设置？还是在项目设备监视器里先设置事件？

谁能帮做好啊？哈哈哈 那可阿弥陀佛了

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim FRegTemplate As Object
    Dim FMatchType As Integer
    Dim FID As Integer
    Dim fpcHandle As Integer

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents AxZKFPEngX1 As AxZKFPEngXControl.AxZKFPEngX
    Friend WithEvents btnInit As System.Windows.Forms.Button
    Friend WithEvents btnEnroll As System.Windows.Forms.Button
    Friend WithEvents btnVerify As System.Windows.Forms.Button
    Friend WithEvents btnIdentify As System.Windows.Forms.Button
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.AxZKFPEngX1 = New AxZKFPEngXControl.AxZKFPEngX
        Me.btnInit = New System.Windows.Forms.Button
        Me.btnEnroll = New System.Windows.Forms.Button
        Me.btnVerify = New System.Windows.Forms.Button
        Me.btnIdentify = New System.Windows.Forms.Button
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.StatusBar1 = New System.Windows.Forms.StatusBar
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        CType(Me.AxZKFPEngX1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxZKFPEngX1
        '
        Me.AxZKFPEngX1.Enabled = True
        Me.AxZKFPEngX1.Location = New System.Drawing.Point(504, 24)
        Me.AxZKFPEngX1.Name = "AxZKFPEngX1"
        Me.AxZKFPEngX1.OcxState = CType(resources.GetObject("AxZKFPEngX1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxZKFPEngX1.Size = New System.Drawing.Size(24, 24)
        Me.AxZKFPEngX1.TabIndex = 0
        '
        'btnInit
        '
        Me.btnInit.Location = New System.Drawing.Point(376, 56)
        Me.btnInit.Name = "btnInit"
        Me.btnInit.Size = New System.Drawing.Size(80, 24)
        Me.btnInit.TabIndex = 1
        Me.btnInit.Text = "初始化"
        '
        'btnEnroll
        '
        Me.btnEnroll.Location = New System.Drawing.Point(376, 120)
        Me.btnEnroll.Name = "btnEnroll"
        Me.btnEnroll.Size = New System.Drawing.Size(80, 24)
        Me.btnEnroll.TabIndex = 2
        Me.btnEnroll.Text = "登记指纹"
        '
        'btnVerify
        '
        Me.btnVerify.Location = New System.Drawing.Point(376, 192)
        Me.btnVerify.Name = "btnVerify"
        Me.btnVerify.Size = New System.Drawing.Size(96, 24)
        Me.btnVerify.TabIndex = 3
        Me.btnVerify.Text = "比对指纹 1:1"
        '
        'btnIdentify
        '
        Me.btnIdentify.Location = New System.Drawing.Point(488, 192)
        Me.btnIdentify.Name = "btnIdentify"
        Me.btnIdentify.Size = New System.Drawing.Size(96, 24)
        Me.btnIdentify.TabIndex = 4
        Me.btnIdentify.Text = "比对指纹 1:N"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(512, 56)
        Me.Button1.Name = "Button1"
        Me.Button1.TabIndex = 5
        Me.Button1.Text = "释放设备"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(488, 120)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.TabIndex = 6
        Me.TextBox1.Text = "TextBox1"
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 336)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Size = New System.Drawing.Size(648, 22)
        Me.StatusBar1.TabIndex = 7
        '
        'PictureBox1
        '
        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.PictureBox1.Location = New System.Drawing.Point(16, 16)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(224, 304)
        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox1.TabIndex = 8
        Me.PictureBox1.TabStop = False
        '
        'Form1
        '
 

       Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 358)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.btnIdentify)
        Me.Controls.Add(Me.btnVerify)
        Me.Controls.Add(Me.btnEnroll)
        Me.Controls.Add(Me.btnInit)
        Me.Controls.Add(Me.AxZKFPEngX1)
        Me.Name = "Form1"
        Me.Text = "U.R.U 4000 指纹仪测试程序"
        CType(Me.AxZKFPEngX1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub btnInit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInit.Click
        If AxZKFPEngX1.InitEngine = 0 Then
            MsgBox("初始化成功", MsgBoxStyle.OKOnly, "Information")
        Else
            MsgBox("初始化失败！", MsgBoxStyle.OKOnly, "Information")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxZKFPEngX1.EndEngine()
    End Sub

    Private Sub btnEnroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnroll.Click
        If TextBox1.Text = "" Then
            MsgBox("请先输入标识")
        Else
            AxZKFPEngX1.BeginEnroll()
        End If

    End Sub

    Private Sub btnVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerify.Click
        If AxZKFPEngX1.IsRegister Then AxZKFPEngX1.CancelEnroll()
        StatusBar1.Text = "开始比对"
        FMatchType = 1
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FID = 1
        fpcHandle = AxZKFPEngX1.CreateFPCacheDB()

    End Sub

    Private Sub btnIdentify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIdentify.Click
        If AxZKFPEngX1.IsRegister Then AxZKFPEngX1.CancelEnroll()
        StatusBar1.Text = "开始比对"
        FMatchType = 2
    End Sub

 

 

 

这些东东？矮油 看着真晕啊

大师您就教教我怎么初步架设就行。我编那个项目您估计比我自己还清楚。。。 我就是想外接个指纹识别来代替现在的签到

我电脑里好像有， 是打开

此主题相关图片如下：123.jpg

这个文件吗？打开之后就是我前面发的那一堆一堆天书。。