欧美国产日韩在线免费观看-欧美日韩成人激情一区二区-欧美久久综合一区二区-亚洲av寂寞少妇久久

上海佳宜電子科技有限公司
中級會員 | 第15年

13381559975

傳感器
汽車衡
顯示器
測力儀出租
測力計出租
拉力計出租
地磅
特殊工業(yè)秤
防爆秤
砝碼
測力計
吊秤
電子稱
臺秤
天平
桌秤
電子汽車衡

如何用VB6.0通過串口從電子秤中獲取數(shù)據(jù)(源代碼)

時間:2013/3/4閱讀:7593
分享:

如何用VB6.0通過串口從電子秤中獲取數(shù)據(jù)(源代碼)

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
 

會員登錄

×

請輸入賬號

請輸入密碼

=

請輸驗證碼

收藏該商鋪

X
該信息已收藏!
標簽:
保存成功

(空格分隔,最多3個,單個標簽最多10個字符)

常用:

提示

X
您的留言已提交成功!我們將在第一時間回復您~
撥打電話
在線留言