全國統一服務熱線：
13381559975,13917681176技術文章您當前的位置：首頁 > 技術文章 > 如何用VB6.0通過串口從電子秤中獲取數據（源代碼）
如何用VB6.0通過串口從電子秤中獲取數據（源代碼）
日期：2013-03-04瀏覽：7649次
如何用VB6.0通過串口從電子秤中獲取數據（源代碼）
Option Explicit Dim strss As String Private Sub Form_Load（） MSComm1.CommPort = 1 '串口號， MSComm1.Settings = "9600,n,8,1 " '串口的屬性 MSComm1.InputLen = 0 MSComm1.InputMode = comInputModeText MSComm1.RThreshold = 1 MSComm1.PortOpen = True End Sub Private Sub MSComm1_OnComm（） Select Case MSComm1.CommEvent Case comEvReceive strss = strss & MSComm1.Input If Right（strss, 2） = vbCrLf Then Label1.Caption = strss Open "D:\DATA.txt" For Append As #1 Print #1, Mid（strss, 1, Len（strss） - 2） '去除回車換行 Close strss = "" End If End Select End Sub
下一篇：XK3190-A36的標定步驟
上海佳宜電子科技有限公司(m.sxconsulting.com.cn)主營：電子天平,電子汽車衡,防爆電子秤,電子吊秤,地磅,砝碼,稱重傳感器,稱重儀表,測試儀
傳真：021-67768220
地址：上海市松江區洞涇鎮長浜路501弄6-316
Copyright © 2019 上海佳宜電子科技有限公司 All Rights Reserved. 備案號：滬ICP備11001022號-5 管理登陸 技術支持：化工儀器網 GoogleSitemap
上海佳宜電子科技有限公司專業提供:地磅傳感器,汽車衡傳感器,汽車衡維修,稱重顯示器等產品
|