全国统一服务热线：
13381559975,13917681176技术文章您当前的位置：首页 > 2024德国欧洲杯各队积分表图 > 如何用VB6.0通过串口从电子秤中获取数据（源代码）
如何用VB6.0通过串口从电子秤中获取数据（源代码）
日期：2013-03-04浏览：7080次
如何用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的标定步骤
上海佳宜电子科技有限公司(www.lecugy.com)主营：电子天平,电子汽车衡,防爆电子秤,电子吊秤,地磅,砝码,称重传感器,称重仪表,测试仪
传真：021-67768220
地址：上海市松江区洞泾镇长浜路501弄6-316
Copyright © 2019 上海佳宜电子科技有限公司 All Rights Reserved. 备案号：沪ICP备11001022号-5 管理登陆 技术支持：化工仪器网 GoogleSitemap
上海佳宜电子科技有限公司专业提供:地磅传感器,汽车衡传感器,汽车衡维修,称重显示器等产品
|