亚洲精品综合日韩中文字幕网站_精品综合久久久久97_中文在线天堂网www_久久精品免费一区二区三区_91久久国产综合精品女同国语_久久资源总站在线国产成人

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

13381559975

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

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

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

如何用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
該信息已收藏!
標(biāo)簽:
保存成功

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

常用:

提示

X
您的留言已提交成功!我們將在第一時間回復(fù)您~
撥打電話
在線留言
祁阳县| 汤原县| 南平市| 黄梅县| 凤凰县| 广平县| 政和县| 乳源| 泰来县| 龙江县| 达拉特旗| 上饶县| 西充县| 尼玛县| 乃东县| 奈曼旗| 石渠县| 右玉县| 萝北县| 宝鸡市| 蒲江县| 黑河市| 龙海市| 台中市| 汤阴县| 商南县| 许昌市| 海宁市| 南康市| 会理县| 武安市| 博爱县| 灵山县| 柳江县| 永仁县| 军事| 新乡县| 灵山县| 汉阴县| 搜索| 龙胜|