为什么我从串口读出来的数据不对?
Private Sub MSComm1_OnComm()
Dim txtBuf As String
Dim i As Integer
With MSComm1
Select Case .CommEvent
Case comEvReceive
txtBuf = .Input
'为什么读出来的txtbuf有时候对,有时候不对,我是与超级终端读的
'比较(超级终端都是对的)正常数据比如是:
‘04:49 27/01/02 96512628 Denied
’可是很多时候是读不全的,而且正确获得是上一次刷卡记录?
Debug.Print txtBuf 'nowgetstr 'Right(txtResponse, nowlen)
'下面是从txtBuf 中提取卡号
If Not GetCardId(txtBuf) Then'如果提取错误就退出
Exit Sub
End If
'按此卡号查询员工信息
GetStaffInfo cardid
'把刷卡记录添加到数据库中
AddCheckOnInfo cardid
End Select
End With
End Sub
Dim txtBuf As String
Dim i As Integer
With MSComm1
Select Case .CommEvent
Case comEvReceive
txtBuf = .Input
'为什么读出来的txtbuf有时候对,有时候不对,我是与超级终端读的
'比较(超级终端都是对的)正常数据比如是:
‘04:49 27/01/02 96512628 Denied
’可是很多时候是读不全的,而且正确获得是上一次刷卡记录?
Debug.Print txtBuf 'nowgetstr 'Right(txtResponse, nowlen)
'下面是从txtBuf 中提取卡号
If Not GetCardId(txtBuf) Then'如果提取错误就退出
Exit Sub
End If
'按此卡号查询员工信息
GetStaffInfo cardid
'把刷卡记录添加到数据库中
AddCheckOnInfo cardid
End Select
End With
End Sub
...全文
相关推荐
赫夫曼树对英文26个字母的编码译码
26个字母的编码译码 赫夫曼树编码译码
C# SerialPort连接串口,读写串口数据
C# SerialPort连接串口,读写串口数据 一、起始 最近在公司做上位机,上位机要求是能够读取一款支持串口通信的传感器并且把传感器的数据用图表显示出来,且上位机能对传感器发送指令,需求有涉及到串口通信和绘制图表。 那么首先要解决的问题就是能够让电脑上的程序进行串口通信,有串口通信的编程语言有很多,C++,C#,JAVA,Python等语言都是支持串口通信的。我选择了使用C#,因为上位机主要是在Windows操作系统上运行,而C#对于winodws桌面应用的开发支持是比较方便的,功能也比较强大,尤其是W
霍夫曼树实现编码解码C语言实现
本资源为利用了Huffman树这样一种常用的数据结构实现了对一个指定文件的编码和解码功能。
赫夫曼树的编码与译码_赫夫曼树的编码与译码_
实现对一串字符的赫夫曼编码与译码,不能实现对文件的编码与译码。
解读赫夫曼树编码的问题
定义: 结点的带权路径长度为从该结点到树根之间的路径长度与结点上权的乘积。树的带权路径长度为树中所有叶子结点的带权路径长度之和。假设有n个权值,试构造一棵有n个叶子结点的二叉树,每个叶子结点带权为wi,则其中带权路径长度最小的二叉树称做最优二叉树或赫夫曼树。 构造赫夫曼树的方法: (1)根据给定的n个权值{w1,w2,w3……}构成n棵二叉树的集合F={T1,T2,T3,T4……},其中每棵二叉树Ti中只有一个带权为wi的根结点,其左右子树均空。 (2)在F中选取两棵根结点的权值最小的树作为左右子树构造一棵新的二叉树,且置新的二叉树的根结点的权值为其左、右子树上根结点的权值之和。


非技术类
