Question

RFID读卡机套件用VB写程式

我写了一个程式
一开始要先利用CMD来决定要选择哪一个PORT
然后利用TIMER来做一个RFID的连接
利用我的PORT连接上RFID套件
只要RFID套件触发时
CardNOText.Text就会显示出这张卡里面的资料

但是出现一个大问题
一开始都和我希望的一样
但是当套件触发以后
在CardNOText.Text上面显示的资料只停留了不到2秒
马上就又消失了
请问有没有办法
让资料就停在那边
不会再消失!?!

下面是我的程式码
Dim InByte() As Byte

Private Sub cmdCheck_Click()

MSComm1.CommPort = commText.Text
MSComm1.PortOpen = True
Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim i%, Buf$

InByte = MSComm1.Input
For i = LBound(InByte) To UBound(InByte)
Buf = Buf + Chr(InByte(i))
Next i
CardNOText.Text = Buf

End Sub

Answer 1

在timer1的timer事件里，判断一下读出的buffer的数据，如果数据已经结束，则CardNOText.Text = Buf 这一句不要执行，否则你的txt就成空的了

Answer 2

这些问题 你可以上RFID世界网论坛上面提问，上面专家一大把，问题解决快

Answer 3

211111