[VBA ] rfid 程式問題

[al1234kimo (小胖羅)]

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxMSComm1.Settings = "9600,n,8,1"    ' 設定通訊協定
        AxMSComm1.CommPort = 4           ' 設定通訊埠
        AxMSComm1.RThreshold = 1           ' 設定RThreshold
        AxMSComm1.PortOpen = True           ' 開啟通訊埠
        If AxMSComm1.PortOpen = True Then
            MessageBox.Show("通訊埠開啟成功")
        Else
            MessageBox.Show("通訊埠開啟失敗")
        End If
    End Sub

    Dim tagcode As String     ' 宣告Form1表單全域變數記錄卡號資料
    Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm
        Dim I As Integer                  ' 紀錄資料封包結束的位置
        Select Case AxMSComm1.CommEvent
            Case 2  ' 正常讀取
                tagcode = tagcode & AxMSComm1.Input     ' 組合封包
                If InStr(tagcode, vbCrLf) Then
                    I = InStr(tagcode, vbCrLf) - 1  ' 判斷ㄧ個完整的資料
                    If Len(Mid(Trim(tagcode), 1, I)) < 8 Then Exit Sub
                    TextBox1.Text = Mid(Trim(tagcode), 1, I)
                    tagcode = ""
                End If
            Case 7  ' 讀取錯誤
                MsgBox("讀卡機設定或讀取錯誤!", 16, "錯誤")
                AxMSComm1.PortOpen = False
        End Select
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class
目前小弟可以讀出卡號但是不完整是不是因為卡號有零所以無法完整讀出
/^x

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 120.105.3.235