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:去皮 展开
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:去皮 展开
1个回答
展开全部
Private Sub Command1.Click()
MSComm1.Output = Chr$(&H1B)+Chr$(&H70)
sleep(200) ;加一延时,该函数需在开头声明,自己搜网络
Text1.Text = MSComm1.Input
End Sub
;要求不高无需用MSComm1_OnComm()。
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)
能解释一下问什么加上延时就可以了呢?另外什么算是要求高呢?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询