VB编程,通过串口读取电子秤数据

OptionExplicitDimcom_StringAsStringPrivateSubCommand1.Click()MSComm1.Output=Chr$(&H1B... Option Explicit
Dim com_String As String

Private Sub Command1.Click()
MSComm1.Output = Chr$(&H1B)+Chr$(&H70)
Text1.Text = com_String
End Sub

求助:MSComm1_OnComm()如何设计,满足每次按下按钮,将电子秤显示数据返回Text1.Text。我现在的程序能够取出数据,但是要按两次才行。

(1) 传输格式:串行异步传输格式
(2) 串口通讯协议: 波 特 率:600-9600可设置,出厂设置为600, 数 据 位:8位:启始位:1位; 停止位:1位
(3)数据格式:输出14位数据(ASCⅡ) 1 2 3-9 10-12 13 14 ±号 空格 数据 单位 停止 回车
(4)校 验:无校验
(5)输出引脚内容(九芯插座):2脚:RXD 3脚: TXD 5脚: GND
(6) 计算机可通过RS232控制电子天平工作,计算机给天平的命令有:
1BH+70H:要求天平发送一次数据;
1BH+71H:校准(相当于按一下“CAL”键);
1BH+72H:计数;
1BH+73H:单位转换;
1BH+74H:去皮
展开
 我来答
bdcq10
2016-07-13 · TA获得超过1434个赞
知道小有建树答主
回答量:1174
采纳率:80%
帮助的人:576万
展开全部
Private Sub Command1.Click()
MSComm1.Output = Chr$(&H1B)+Chr$(&H70)
sleep(200) ;加一延时,该函数需在开头声明,自己搜网络
Text1.Text = MSComm1.Input
End Sub

;要求不高无需用MSComm1_OnComm()。
追问
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

能解释一下问什么加上延时就可以了呢?另外什么算是要求高呢?
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式