Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > ทำไงให้ !! เครื่องสแกนลายนิ้วมือ ทำให้สามารถเชื่อมต่อกันหลายๆไอพีพร้อมกันได้ครับ

[.NET] ทำไงให้ !! เครื่องสแกนลายนิ้วมือ ทำให้สามารถเชื่อมต่อกันหลายๆไอพีพร้อมกันได้ครับ

เริ่มหัวข้อใหม่

James

โพสกระทู้ ( 47 )
บทความ ( 0 )

Code (VB.NET)

Imports MySql.Data.MySqlClient
Imports System.Data
Imports System.Data.SqlClient
 
Public Class Form1
    Public axTest1 As New zkemkeeper.CZKEM
 
#Region "Communication"
    Private bIsConnected = False
    Private bIsConnected2 = False
    Private bIsConnected3 = False
    Private bIsConnected4 = False
    Private bIsConnected5 = False
    Private bIsConnected6 = False
    Private bIsConnected7 = False
    Private bIsConnected8 = False
    Private bIsConnected9 = False
    Private bIsConnected10 = False
    Private bIsConnected11 = False
    Private bIsConnected12 = False
    Private bIsConnected13 = False
    Private bIsConnected14 = False
    Private bIsConnected15 = False
    Private bIsConnected16 = False
    Private bIsConnected17 = False
    Private bIsConnected18 = False
    Private bIsConnected19 = False
    Private bIsConnected20 = False
    Private iMachineNumber As Integer
    Private iMachineNumber2 As Integer
    Private iMachineNumber3 As Integer
    Private iMachineNumber4 As Integer
    Private iMachineNumber5 As Integer
    Private iMachineNumber6 As Integer
    Private iMachineNumber7 As Integer
    Private iMachineNumber8 As Integer
    Private iMachineNumber9 As Integer
    Private iMachineNumber10 As Integer
    Private iMachineNumber11 As Integer
    Private iMachineNumber12 As Integer
    Private iMachineNumber13 As Integer
    Private iMachineNumber14 As Integer
    Private iMachineNumber15 As Integer
    Private iMachineNumber16 As Integer
    Private iMachineNumber17 As Integer
    Private iMachineNumber18 As Integer
    Private iMachineNumber19 As Integer
    Private iMachineNumber20 As Integer
 
    Private Property objCmd As SqlCommand
    'เปลี่ยนชื่อ tab
    Private Sub add_Click(sender As Object, e As EventArgs)
        tabControl1.SelectedTab.Text = InputBox("ป้อนชื่อ Tab ใหม่", "เปลี่ยนชื่อ Tab ที่เลือก", tabControl1.SelectedTab.Text)
    End Sub
 
    'If your device supports the TCP/IP communications, you can refer to this.
    'when you are using the tcp/ip communication,you can distinguish different devices by their IP address.
    Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
        If txtIP.Text.Trim() = "" Or txtPort.Text.Trim() = "" Then
            MsgBox("กรุณากรอก ip หรือ DNS ด้วยครับ", MsgBoxStyle.Exclamation, "Error")
            Return
        End If
        Dim idwErrorCode As Integer
        Cursor = Cursors.WaitCursor
        If btnConnect.Text = "ไม่เชื่อมต่อ" Then
            axTest1.Disconnect()
 
            RemoveHandler axTest1.OnFinger, AddressOf AxTest1_OnFinger
            RemoveHandler axTest1.OnFingerFeature, AddressOf AxTest1_OnFingerFeature
            RemoveHandler axTest1.OnVerify, AddressOf AxTest1_OnVerify
            RemoveHandler axTest1.OnAttTransactionEx, AddressOf AxTest1_OnAttTransactionEx
            RemoveHandler axTest1.OnEnrollFingerEx, AddressOf AxTest1_OnEnrollFingerEx
            RemoveHandler axTest1.OnDeleteTemplate, AddressOf AxTest1_OnDeleteTemplate
            RemoveHandler axTest1.OnNewUser, AddressOf AxTest1_OnNewUser
            RemoveHandler axTest1.OnAlarm, AddressOf AxTest1_OnAlarm
            RemoveHandler axTest1.OnDoor, AddressOf AxTest1_OnDoor
            RemoveHandler axTest1.OnWriteCard, AddressOf AxTest1_OnWriteCard
            RemoveHandler axTest1.OnEmptyCard, AddressOf AxTest1_OnEmptyCard
            RemoveHandler axTest1.OnHIDNum, AddressOf AxTest1_OnHIDNum
 
            bIsConnected = False
            btnConnect.Text = "เชื่อมต่อสำเร็จ"
            lblState.ForeColor = Color.Red
            lblState.Text = "ไม่เชื่อมต่อ"
            Cursor = Cursors.Default
            Return
        End If
 
        bIsConnected = axTest1.Connect_Net(txtIP.Text.Trim(), Convert.ToInt32(txtPort.Text.Trim()))
        If bIsConnected = True Then
            btnConnect.Text = "ไม่เชื่อมต่อ"
            btnConnect.Refresh()
            lblState.ForeColor = Color.Green
            lblState.Text = "เชื่อมต่อสำเร็จ"
            iMachineNumber = 1 'In fact,when you are using the tcp/ip communication,this parameter will be ignored,that is any integer will all right.Here we use 1.
 
            If axTest1.RegEvent(iMachineNumber, 65535) = True Then 'Here you can register the realtime events that you want to be triggered(the parameters 65535 means registering all)
 
                AddHandler axTest1.OnFinger, AddressOf AxTest1_OnFinger
                AddHandler axTest1.OnFingerFeature, AddressOf AxTest1_OnFingerFeature
                AddHandler axTest1.OnVerify, AddressOf AxTest1_OnVerify
                AddHandler axTest1.OnAttTransactionEx, AddressOf AxTest1_OnAttTransactionEx
                AddHandler axTest1.OnEnrollFingerEx, AddressOf AxTest1_OnEnrollFingerEx
                AddHandler axTest1.OnDeleteTemplate, AddressOf AxTest1_OnDeleteTemplate
                AddHandler axTest1.OnNewUser, AddressOf AxTest1_OnNewUser
                AddHandler axTest1.OnAlarm, AddressOf AxTest1_OnAlarm
                AddHandler axTest1.OnDoor, AddressOf AxTest1_OnDoor
                AddHandler axTest1.OnWriteCard, AddressOf AxTest1_OnWriteCard
                AddHandler axTest1.OnEmptyCard, AddressOf AxTest1_OnEmptyCard
                AddHandler axTest1.OnHIDNum, AddressOf AxTest1_OnHIDNum
 
            End If
        Else
            axTest1.GetLastError(idwErrorCode)
            MsgBox("ไม่พบไดร์เวอร์,ErrorCode=" & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
        End If
        Cursor = Cursors.Default
    End Sub
 
    'math2
    Private Sub btnConnect2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect2.Click
        If txtIP2.Text.Trim() = "" Or txtPort2.Text.Trim() = "" Then
            MsgBox("กรุณากรอก ip หรือ DNS ด้วยครับ", MsgBoxStyle.Exclamation, "Error")
            Return
        End If
        Dim idwErrorCode2 As Integer
        Cursor = Cursors.WaitCursor
        If btnConnect2.Text = "ไม่เชื่อมต่อ" Then
            axTest1.Disconnect()
 
            RemoveHandler axTest1.OnFinger, AddressOf AxTest1_OnFinger
            RemoveHandler axTest1.OnFingerFeature, AddressOf AxTest1_OnFingerFeature
            RemoveHandler axTest1.OnVerify, AddressOf AxTest1_OnVerify
            RemoveHandler axTest1.OnAttTransactionEx, AddressOf AxTest1_OnAttTransactionEx
            RemoveHandler axTest1.OnEnrollFingerEx, AddressOf AxTest1_OnEnrollFingerEx
            RemoveHandler axTest1.OnDeleteTemplate, AddressOf AxTest1_OnDeleteTemplate
            RemoveHandler axTest1.OnNewUser, AddressOf AxTest1_OnNewUser
            RemoveHandler axTest1.OnAlarm, AddressOf AxTest1_OnAlarm
            RemoveHandler axTest1.OnDoor, AddressOf AxTest1_OnDoor
            RemoveHandler axTest1.OnWriteCard, AddressOf AxTest1_OnWriteCard
            RemoveHandler axTest1.OnEmptyCard, AddressOf AxTest1_OnEmptyCard
            RemoveHandler axTest1.OnHIDNum, AddressOf AxTest1_OnHIDNum
 
            bIsConnected2 = False
            lblState2.ForeColor = Color.Red
            btnConnect2.Text = "เชื่อมต่อสำเร็จ"
            lblState2.Text = "ไม่เชื่อมต่อ"
            Cursor = Cursors.Default
            Return
        End If
 
        bIsConnected2 = axTest1.Connect_Net(txtIP2.Text.Trim(), Convert.ToInt32(txtPort2.Text.Trim()))
        If bIsConnected2 = True Then
            btnConnect2.Text = "ไม่เชื่อมต่อ"
            btnConnect2.Refresh()
            lblState2.ForeColor = Color.Green
            lblState2.Text = "เชื่อมต่อสำเร็จ"
            iMachineNumber2 = 1 'In fact,when you are using the tcp/ip communication,this parameter will be ignored,that is any integer will all right.Here we use 1.
 
            If axTest1.RegEvent(iMachineNumber2, 65535) = True Then 'Here you can register the realtime events that you want to be triggered(the parameters 65535 means registering all)
 
                AddHandler axTest1.OnFinger, AddressOf AxTest1_OnFinger
                AddHandler axTest1.OnFingerFeature, AddressOf AxTest1_OnFingerFeature
                AddHandler axTest1.OnVerify, AddressOf AxTest1_OnVerify
                AddHandler axTest1.OnAttTransactionEx, AddressOf AxTest1_OnAttTransactionEx
                AddHandler axTest1.OnEnrollFingerEx, AddressOf AxTest1_OnEnrollFingerEx
                AddHandler axTest1.OnDeleteTemplate, AddressOf AxTest1_OnDeleteTemplate
                AddHandler axTest1.OnNewUser, AddressOf AxTest1_OnNewUser
                AddHandler axTest1.OnAlarm, AddressOf AxTest1_OnAlarm
                AddHandler axTest1.OnDoor, AddressOf AxTest1_OnDoor
                AddHandler axTest1.OnWriteCard, AddressOf AxTest1_OnWriteCard
                AddHandler axTest1.OnEmptyCard, AddressOf AxTest1_OnEmptyCard
                AddHandler axTest1.OnHIDNum, AddressOf AxTest1_OnHIDNum
 
            End If
        Else
            axTest1.GetLastError(idwErrorCode2)
            MsgBox("ไม่พบ ไดร์เวอร์,ErrorCode=" & idwErrorCode2, MsgBoxStyle.Exclamation, "Error")
        End If
        Cursor = Cursors.Default
 
    End Sub
 
 
#End Region
 
    '**************************************************************************************************
    '* Before you refer to this demo,we strongly suggest you read the development manual deeply first.*
    '* This part is for demonstrating the RealTime Events that triggered  by your operations          *
    '**************************************************************************************************
#Region "RealTime Events"
    'When you place your finger on sensor of the device,this event will be triggered
    Private Sub AxTest1_OnFinger()
        inboxshow.Items.Add("<<--มีการ สแกนลายนิ้วมือ-->>")
    End Sub
    'After you have placed your finger on the sensor(or swipe your card to the device),this event will be triggered.
    'If you passes the verification,the returned value userid will be the user enrollnumber,or else the value will be -1;
    Private Sub AxTest1_OnVerify(ByVal iUserID As Integer)
        inboxshow.Items.Add("กำลังตรวจสอบลายนิ้วมือ...")
        If iUserID <> -1 Then
            inboxshow.Items.Add("ลายนิ้วมือ ถูกต้อง")
 
        Else
            inboxshow.Items.Add("ลายนิ้วมือผิดพลาดหรือไม่มีข้อมูลในระบบ ครับ...!")
        End If
    End Sub
    'If your fingerprint(or your card) passes the verification,this event will be triggered
    Private Sub AxTest1_OnAttTransactionEx(ByVal sEnrollNumber As String, ByVal iIsInValid As Integer, ByVal iAttState As Integer, ByVal iVerifyMethod As Integer, _
                      ByVal iYear As Integer, ByVal iMonth As Integer, ByVal iDay As Integer, ByVal iHour As Integer, ByVal iMinute As Integer, ByVal iSecond As Integer, ByVal iWorkCode As Integer)
 
        inboxshow.Items.Clear()
        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, strSQL As String
 
        strConnString = "Server=www.ohotime.com;User Id=ohotime; Password=mit260914; Database=ohotime_pepo; Pooling=false"
        objConn.ConnectionString = strConnString
        objConn.Open()
 
        Dim intNumRows As Integer
        strSQL = "INSERT INTO checkinout (USERID,CHECKTIME,CHECKTYPE,WorkCode,UserExtFmt) VALUES ('" & sEnrollNumber & "','" & iYear.ToString() & "-" & iMonth.ToString() & "-" & iDay.ToString() & "  " & iHour.ToString() & ":" & iMinute.ToString() & ":" & iSecond.ToString() & "','" & iAttState.ToString() & "','" & 0 & "','" & 0 & "')"
        objCmd = New MySqlCommand(strSQL, objConn)
        intNumRows = objCmd.ExecuteScalar()
 
        objConn.Close()
        objConn = Nothing
 
 
        inboxshow.Items.Add("บันทึกข้อมูลเรียบร้อยครับ...!")
        inboxshow.Items.Add("รายละเอียด ดังนี้")
        inboxshow.Items.Add("รหัส ID : " & sEnrollNumber)
        ' lbRTShow.Items.Add("...isInvalid:" & iIsInValid.ToString())
        inboxshow.Items.Add("สถานะ : " & iAttState.ToString())
        'lbRTShow.Items.Add("...VerifyMethod:" & iVerifyMethod.ToString())
        'lbRTShow.Items.Add("...Workcode:" & iWorkCode.ToString()) 'the difference between the event OnAttTransaction and OnAttTransactionEx
        inboxshow.Items.Add("วัน/เวลา : " & iYear.ToString() & "-" & iMonth.ToString() & "-" & iDay.ToString() & " " & iHour.ToString() & ":" & iMinute.ToString() & ":" & iSecond.ToString())
 
 
 
    End Sub
    'When you have enrolled your finger,this event will be triggered and return the quality of the fingerprint you have enrolled
    Private Sub AxTest1_OnFingerFeature(ByVal iScore As Integer)
        If iScore < 0 Then
            inboxshow.Items.Add("The quality of your fingerprint is poor")
        Else
            inboxshow.Items.Add("RTEvent OnFingerFeature Has been Triggered...Score:" & iScore.ToString())
        End If
    End Sub
    'When you have deleted one one fingerprint template,this event will be triggered.
    Private Sub AxTest1_OnDeleteTemplate(ByVal iEnrollNumber As Integer, ByVal iFingerIndex As Integer)
        inboxshow.Items.Add("RTEvent OnDeleteTemplate Has been Triggered...")
        inboxshow.Items.Add("...UserID=" & iEnrollNumber.ToString() & " FingerIndex=" & iFingerIndex.ToString())
    End Sub
    'When you have enrolled a new user,this event will be triggered.
    Private Sub AxTest1_OnNewUser(ByVal iEnrollNumber As Integer)
        inboxshow.Items.Add("RTEvent OnNewUser Has been Triggered...")
        inboxshow.Items.Add("...NewUserID=" & iEnrollNumber.ToString())
    End Sub
    'When you swipe a card to the device, this event will be triggered to show you the card number.
    Private Sub AxTest1_OnHIDNum(ByVal iCardNumber As Integer)
        inboxshow.Items.Add("RTEvent OnHIDNum Has been Triggered...")
        inboxshow.Items.Add("...Cardnumber=" & iCardNumber.ToString())
    End Sub
    'When you are enrolling your finger,this event will be triggered.
    Private Sub AxTest1_OnEnrollFingerEx(ByVal sEnrollNumber As String, ByVal iFingerIndex As Integer, ByVal iActionResult As Integer, ByVal iTemplateLength As Integer)
        If iActionResult = 0 Then
            inboxshow.Items.Add("RTEvent OnEnrollFigerEx Has been Triggered....")
            inboxshow.Items.Add(".....UserID: " & sEnrollNumber & " Index: " & iFingerIndex.ToString() & " tmpLen: " & iTemplateLength.ToString())
        Else
            inboxshow.Items.Add("RTEvent OnEnrollFigerEx Has been Triggered Error,actionResult=" + iActionResult.ToString())
        End If
    End Sub
    '/When the dismantling machine or duress alarm occurs, trigger this event.
    Private Sub AxTest1_OnAlarm(ByVal iAlarmType As Integer, ByVal iEnrollNumber As Integer, ByVal iVerified As Integer)
        inboxshow.Items.Add("RTEvnet OnAlarm Has been Triggered...")
        inboxshow.Items.Add("...alarmType=" & iAlarmType.ToString())
        inboxshow.Items.Add("...enrollNumber=" & iEnrollNumber.ToString())
        inboxshow.Items.Add("...verified=" & iVerified.ToString())
    End Sub
    'Door sensor event
    Private Sub AxTest1_OnDoor(ByVal iEventType As Integer)
        inboxshow.Items.Add("RTEvent Ondoor Has been Triggered...")
        inboxshow.Items.Add("...EventType=" & iEventType.ToString())
    End Sub
    'When you have emptyed the Mifare card,this event will be triggered.
    Private Sub AxTest1_OnEmptyCard(ByVal iActionResult As Integer)
        inboxshow.Items.Add("RTEvent OnEmptyCard Has been Triggered...")
        If iActionResult = 0 Then
            inboxshow.Items.Add("...Empty Mifare Card OK")
        Else
            inboxshow.Items.Add("...Empty Failed")
        End If
    End Sub
    'When you have written into the Mifare card ,this event will be triggered.
    Private Sub AxTest1_OnWriteCard(ByVal iEnrollNumber As Integer, ByVal iActionResult As Integer, ByVal iLength As Integer)
        inboxshow.Items.Add("RTEvent OnWriteCard Has been Triggered...")
        If iActionResult = 0 Then
            inboxshow.Items.Add("...Write Mifare Card OK")
            inboxshow.Items.Add("...EnrollNumber=" & iEnrollNumber.ToString())
            inboxshow.Items.Add("...TmpLength=" & iLength.ToString())
        Else
            inboxshow.Items.Add("...Write Failed")
        End If
    End Sub
#End Region
End Class

นี่คือรูป ทำให้เชื่อมต่อได้หลายๆไอพี พร้อมกัน ครับ ตอนนี้ปัญหาคือเชื่อมต่อได้แค่เครื่องเดียวครับ ทีละไอพี อยากทราบว่าต้องทำยังไงครับผมขอบคุณครับ เป็นเครื่องสแกนลายมือ

Tag : .NET, MySQL, VB.NET, VS 2012 (.NET 4.x), VS 2013 (.NET 4.x)

ประวัติการแก้ไข
2017-07-24 20:28:31

Date : 2017-07-24 16:51:03

By : tokyoes

View : 1566

Reply : 4

No. 1

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ถ้า port เดียวกันไม่น่าจะได้นะครับ

Date : 2017-07-24 17:33:50

By : lamaka.tor

No. 2

James

โพสกระทู้ ( 47 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2017-07-24 17:33:50

รายละเอียดของการตอบ ::

อ่อคนละ port ครับพี่ 3 อันล่างแค่ลองใส่ไว้เฉยๆครับ แต่ 2 อันบนคือตัวทดลองครับ คนละไอพี คนละพอร์ตเลยครับ

Date : 2017-07-24 20:11:13

By : tokyoes

No. 3

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

แบบนี้หวานเลย

ก็ลองเขียนโค้ดในการเชื่อมซัก 1 ตัว ดู

ถ้าเครื่องรุ่นเดียวกันก็ไม่น่าจะยากนะ

Date : 2017-07-24 20:24:25

By : lamaka.tor

No. 4

James

โพสกระทู้ ( 47 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 3 เขียนโดย : lamaka.tor เมื่อวันที่ 2017-07-24 20:24:25

รายละเอียดของการตอบ ::

ผมพิมผิดครับ หมายถึงเชื่อมต่อพร้อมๆกันได้ หลายๆไอพีครับ เพราะผมเชื่อมไอพีนึงต่อ 1 เครื่อง เสร็จปั๊ป จะใส่ไอพี เครื่องที่ 2 มันก็อ่านแค่เครื่องที่ 2 ครับพอลองสแกนลายนิ้วเครื่องที่ 1 มันไม่อ่านเครื่องที่ 1 แต่พอสแกนลายนิ้วมือเครื่องที่ 2 กับอ่านและแสดงผล

Date : 2017-07-24 20:30:35

By : tokyoes

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ทำไงให้ !! เครื่องสแกนลายนิ้วมือ ทำให้สามารถเชื่อมต่อกันหลายๆไอพีพร้อมกันได้ครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] ทำไงให้ !! เครื่องสแกนลายนิ้วมือ ทำให้สามารถเชื่อมต่อกันหลายๆไอพีพร้อมกันได้ครับ

No. 1

No. 2

No. 3

No. 4

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

[.NET] ทำไงให้ !! เครื่องสแกนลายนิ้วมือ ทำให้สามารถเชื่อมต่อกันหลายๆไอพีพร้อมกันได้ครับ