作者icezerospace (暴走路人)
看板Visual_Basic
标题[.NET] 书上的范例
时间Thu Oct 7 14:14:12 2010
小弟是新手 在一本书的教如何设计RFID程式的范例中
遇到了问题 程式码是这样的:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
AxMSComm1.Settings = "19200,n,8,1"
AxMSComm1.CommPort = 5
AxMSComm1.RThreshold = 1
AxMSComm1.PortOpen = True
If AxMSComm1.PortOpen = True Then
MessageBox.Show("开启")
Else
MessageBox.Show("失败")
End If
End Sub
Dim tagcode As String
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)) < 16 Then Exit Sub
TextBox2.Text = Mid(Trim(tagcode), 1, I)
tagcode = ""
End If
Case 7
MsgBox("错误", 8, "错误")
AxMSComm1.PortOpen = False
End Select
End Sub
End Class
设备的连接上都照着设备厂商提供的数据去修改了
但在执行上只显示开启 却读不出卡号??
试了很多次 还是不行 不知问题出在哪里...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 120.126.19.244
1F：推 horngsh:首先你的CODE应是VB6版本,第二是你要先送命令给RFID设备 10/10 01:04