亚洲精品综合日韩中文字幕网站_精品综合久久久久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ù)您~
撥打電話
在線留言
定边县| 天门市| 邓州市| 孟连| 阳曲县| 花垣县| 阳西县| 安吉县| 青浦区| 仙居县| 凤凰县| 共和县| 临猗县| 金溪县| 三亚市| 报价| 独山县| 南康市| 昌图县| 宁津县| 太白县| 肃北| 武宣县| 九江市| 文成县| 乳山市| 运城市| 阜城县| 牙克石市| 华蓥市| 望江县| 共和县| 赫章县| 松潘县| 大关县| 上栗县| 江孜县| 会东县| 出国| 鄂托克旗| 肥东县|