歡迎訪問(wèn)上海佳宜電子科技有限公司網(wǎng)站
全國(guó)統(tǒng)一服務(wù)熱線：
13381559975,13917681176技術(shù)文章您當(dāng)前的位置：首頁(yè) > 技術(shù)文章 > 如何用VB6.0通過(guò)串口從電子秤中獲取數(shù)據(jù)（源代碼）
如何用VB6.0通過(guò)串口從電子秤中獲取數(shù)據(jù)（源代碼）
日期：2013-03-04瀏覽：7363次
如何用VB6.0通過(guò)串口從電子秤中獲取數(shù)據(jù)（源代碼）
Option Explicit Dim strss As String Private Sub Form_Load（） MSComm1.CommPort = 1 '串口號(hào)， 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） '去除回車(chē)換行 Close strss = "" End If End Select End Sub
上海佳宜電子科技有限公司(smiletime.cn)主營(yíng)：電子天平,電子汽車(chē)衡,防爆電子秤,電子吊秤,地磅,砝碼,稱重傳感器,稱重儀表,測(cè)試儀
傳真：021-67768220
地址：上海市松江區(qū)洞涇鎮(zhèn)長(zhǎng)浜路501弄6-316
Copyright © 2019 上海佳宜電子科技有限公司 All Rights Reserved. 備案號(hào)：滬ICP備11001022號(hào)-5 管理登陸 技術(shù)支持：化工儀器網(wǎng) GoogleSitemap
上海佳宜電子科技有限公司專業(yè)提供:地磅傳感器,汽車(chē)衡傳感器,汽車(chē)衡維修,稱重顯示器等產(chǎn)品
|