基于51單片機的高精度稱重系統的研制

MSComml．CommPort=1 '設置端口1
MSComml．Settings="2400，N,8，1" '2400 b／s，無校驗，8位數據位，1位停止位
MSComml．InputLen=1 '一次從緩沖區中接收一個字節
MSComml．InBufferSize=1024 '接口收緩沖區大小
MSComml．PortOpen=Ture '打開端口
MSComml．Rthreshold=1 '接收一個字節觸發一次ONCOMM事件
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轉換器實現了對重量的高精度測量。系統在電子秤的實際應用中收到了滿意的效果。