作者al1234kimo (小胖罗)
看板Visual_Basic
标题[VBA ] rfid 程式问题
时间Mon May 23 16:23:00 2011
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