基于AT89S32单片机的高精度称重系统的研制

2．2．2 ONCOMM事件响应程序

Private Sub MSComml_OnComm()
Dim buffer As Variant '由缓冲区接收到的数据用Variant格式接收
Dim arr()As Byte '定义二进制数组
Dim i As Integer
Dim receivester As string '定义输出到接收文本框中的字符变量
'下段程序是comEvReceive事件触发后，将数据存入相应的数组，并在接收文本框中显示
Select Case MSComml．CommEvent CasecomEvReceive buffer="MSComml"．Inpute
arr=buffer接收缓冲区内数据variant变量内
arr=buffer '转换为二进制数并送入相应数组
For i="1to8"
receivester arr(i)
Text1．Text=Text1．Text＆receiverstr＆"．"
'在接收框中显示文本
Next i
End Select
End Sub

3 结束语

本重量测量系统，充分发挥了AT89S52单片机强大的控制能力和计算机的数据处理能力，通过称重传感器和24位分辨率的A／D转换器实现了对重量的高精度测量。系统在电子秤的实际应用中收到了满意的效果。