การใช้ timer ติดต่อ RFID เพื่อให้ทำงานได้เรื่อยๆ Web (ASP.NET)

Dim i As Int16, j As Int16, buf1(200) As Byte, b1 As Byte, s1 As String
        i = rf_request(0, &H52, j)
        If (i <> 0) Then
            'MsgBox("กรุณาเเตะบัตร")
            'lb_idcard.Text = ""
            'lb_stdid.Text = ""
            'lb_stdnam.Text = ""
            'lb_division.Text = ""
            'Me.Image2.ImageUrl = ""
            'lb_Time.Text = ""
            'lb_day.Text = ""
            Return
        End If
        'Anticollision()'
        i = rf_anticoll(0, 4, buf1(0), b1)
        If (i <> 0) Then
            'MsgBox("กรุณาเตะบัตรทีละใบ!")
            'lb_idcard.Text = ""
            'lb_stdid.Text = ""
            'lb_stdnam.Text = ""
            'lb_division.Text = ""
            'Me.Image2.ImageUrl = ""
            'lb_Time.Text = ""
            'lb_day.Text = ""
        End If




        If (i = 0) Then

            'End If
            s1 = ""
            For i = 0 To b1 - 1
                's1 = s1 & Mid("00" & Hex(buf1(i)), Hex(buf1(i)).Length - 2, 2)
                s1 = s1 & IIf(Hex(buf1(i)).Length < 2, "0", "") & Hex(buf1(i))
            Next i

            If x.checkTagID(s1) = True Then

                ds = x.show_id_stdid_stdname(s1)
                lb_idcard.Text = ds.Tables("show_id_stdid_stdname").Rows(0).Item(0)
                lb_stdid.Text = ds.Tables("show_id_stdid_stdname").Rows(0).Item(1)
                lb_stdnam.Text = ds.Tables("show_id_stdid_stdname").Rows(0).Item(2)
                lb_division.Text = ds.Tables("show_id_stdid_stdname").Rows(0).Item(3)
                Me.Image2.ImageUrl = "picture/" & ds.Tables("show_id_stdid_stdname").Rows(0).Item(4)
                lb_Time.Text = DateTime.Now.ToString("HH.mm")
                lb_day.Text = DateTime.Now.ToString("dd/MM/yyyy")

                'Else
                '    MsgBox("ไม่มีข้อมูล")
                '    lb_idcard.Text = ""
                '    lb_stdid.Text = ""
                '    lb_stdnam.Text = ""
                '    lb_division.Text = ""
                '    Me.Image2.ImageUrl = ""
                '    lb_Time.Text = ""
                '    lb_day.Text = ""
            End If
        End If


        Labelcouse_id.Text = Session("couse_id")
        LabelCouse_Name.Text = Session("couse_name")

        Dim AA As String = "Test"
        x.insert_BtnRead(Session("couse_id"), Session("couse_name"), lb_idcard.Text, lb_stdid.Text, lb_stdnam.Text, lb_division.Text, lb_Time.Text, lb_day.Text, AA)
        MsgBox("[บันทึก")

        Dim status As Int16
        Dim port As Int16
        'Dim baud As Integer
        If (port = 1) Then
        port = Convert.ToInt32(Right(DropPort.Text, 1))
            'baud = Convert.ToInt32(DropBaud.Text)
            'port = TextBox1.Text = 2
            'baud = TextBox2.Text = 9600
            status = rf_init_com(port, 9600)
            If (status = 0) Then
                ' MsgBox("ทำการเชื่อมต่อ Port เรียบร้อย")
                BtnRead.Enabled = True
                DropPort.Enabled = False
                ConnectPort.Enabled = False

                 End If
            End If