none
多個reader無法同時連續讀取 RRS feed

  • 問題

  • 讀取RFID Tag時...要如何同時讓兩個或以上 reader同時讀取...

    目前只能用timer控制一個reader 讀取tag  沒有問題...

    但是....兩個reader 同時讀取就...

    除了timer我也想不出要怎麼樣讓他自動連續讀取

    可是用了 他就會有問題

    請問各位前輩 應該怎麼解決

     

    程式碼↓

     

     

     

     

     

     

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

     

     

     

     

     

            Timer1.Enabled = True

     

            Call OpenComport(System.Convert.ToInt16(TextBox1.Text))

     

            Call ReaderCard()

     

            Call OpenComport1(System.Convert.ToInt16(TxtMember.Text))

     

            Call ReaderCard1()

     

     

     

        End Sub

     

     

     

     

    Private Sub OpenComport(ByVal comport As Integer)

     

     

     

            Try

     

                iReturnCode = CSAPI.lib_ver(z)

     

                iReturnCode = CSAPI.rf_init_com(comport, 9600)

     

                iReturnCode = CSAPI.rf_init_device_number(1)

     

                iReturnCode = CSAPI.rf_beep(1, 10)

     

                iReturnCode = CSAPI.rf_antenna_sta(1, 1)

     

                iReturnCode = CSAPI.rf_init_type(1, abc)

     

     

            Catch ex As Exception

     

                MessageBox.Show("ERROR")

     

            End Try

     

     

        End Sub

     

        Private Sub OpenComport1(ByVal comport As Integer)

     

     

            Try

     

                iReturnCode = CSAPI.lib_ver(z)

     

                iReturnCode = CSAPI.rf_init_com(comport, 9600)

     

                iReturnCode = CSAPI.rf_init_device_number(9)

     

                iReturnCode = CSAPI.rf_beep(9, 10)

     

                iReturnCode = CSAPI.rf_antenna_sta(9, 1)

     

                iReturnCode = CSAPI.rf_init_type(9, abc)

     

     

            Catch ex As Exception

     

                MessageBox.Show("ERROR")

     

     

            End Try

     

     

     

        End Sub

     

       Private Sub ReaderCard()

     

     

            CSAPI.ISO15693_Inventorys(1, pdata(0), plen)

     

            s1 = bufprn(pdata, plen)

     

            TextBox2.Text = s1

     

        end Sub

     

       Private Sub ReaderCard1()

     

            CSAPI.ISO15693_Inventorys(9, pdata(0), plen)

     

            s1 = bufprn(pdata, plen)

     

            TextBox6.Text = s1

     

        End Sub

     

       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

            Call ReaderCard()

            Call ReaderCard1()

        End Sub

     

    2010年7月15日 上午 08:18

解答

所有回覆