Koneksi Fingerprint CZKEM

Koneksi Komputer ke Fingerprint CZKEM
Komponen tambahan ComboBoxLB

Private Sub cmdConnect_Click()
Dim dwErrCode As Long

    Me.MousePointer = 11
    If IsNull(cboMesin.Column(1)) = True Then
        MsgBox "Pilih Mesin Sidik Jari yang Akan Anda Hubungkan!", vbCritical, "Select Device First"
        cboMesin.SetFocus
        Me.MousePointer = 0
        Exit Sub
    End If
    
    CZKEM1.Disconnect
    
    If cmdConnect.Caption = "Connect" Then
        Select Case cboMesin.Column(2)
            Case "USB"
                dConn = CZKEM1.Connect_Com(CLng(cboMesin.Column(5)), CLng(cboMesin.Column(1)), CLng(cboMesin.Column(6)))
                DeviceNumber = cboMesin.Column(1)
                If dConn Then
                    CZKEM1.ACUnlock DeviceNumber, 1
                    cmdConnect.Caption = "Disconnect"
                    CZKEM1.RegEvent DeviceNumber, 65535
                Else
                    CZKEM1.GetLastError dwErrCode
                    MsgBox "Error Description : " & GetLastErrorName(dwErrCode), vbCritical, "Can't Connect Device"
                    DeviceNumber = 0
                End If
            Case Else
                dConn = CZKEM1.Connect_Net(cboMesin.Column(3), cboMesin.Column(4))
                DeviceNumber = cboMesin.Column(1)
                If dConn Then
                    CZKEM1.ACUnlock DeviceNumber, 1
                    cmdConnect.Caption = "Disconnect"
                    CZKEM1.RegEvent DeviceNumber, 65535
                Else
                    CZKEM1.GetLastError dwErrCode
                    MsgBox "Error Description : " & GetLastErrorName(dwErrCode), vbCritical, "Can't Connect Device"
                    DeviceNumber = 0
                End If
        End Select
        Me.MousePointer = 0
        Exit Sub
    End If
    
    If cmdConnect.Caption = "Disconnect" Then
        CZKEM1.Disconnect
        cmdConnect.Caption = "Connect"
        dConn = False
        DeviceNumber = 0
    End If
    Me.MousePointer = 0
End Sub

Related Post :