win7 VB6.0串口通信问题

win7 VB6.0串口通信问题,第1张

串口通信:

1、必须要有仪器(台式光功率计)的通信协议,没有到网上下或者找生产厂商要,一般都会给的。

2、熟悉VB串口编程,像这种情况,首先得把的USB-RS232线安装(装驱动)。可以在网上下个串口调试助手(很多的),直接在串口调试助手上按照通信协议发命令,仪器就会有反应。

有串口控件MSComm控件

MSComm 控件示例

下面这个简单的例子演示了用调制解调器进行基本的串行通讯:

Private Sub Form_Load ()

' 保存输入子串的缓冲区

Dim Instring As String

' 使用 COM1。

MSComm1.CommPort = 1

' 9600 波特,无奇偶校验,8 位数据,一个停止位。

MSComm1.Settings = "9600,N,8,1"

' 当输入占用时,

' 告诉控件读入整个缓冲区。

MSComm1.InputLen = 0

' 打开端口。

MSComm1.PortOpen = True

' 将 attention 命令送到调制解调器。

' Chr$函数:返回 String,其中包含有与指定的字符代码相关的字符 。

MSComm1.Output = "ATV1Q0" &Chr$(13) ' 确保

' 调制解调器以"OK"响应。

' 等待数据返回到串行端口。

Do

DoEvents

Buffer$ = Buffer$ &MSComm1.Input

Loop Until InStr(Buffer$, "OK" &vbCRLF)

' 从串行端口读 "OK" 响应。

' 关闭串行端口。

MSComm1.PortOpen = False

End Sub

串口

接收

可以放在MScomm控件的

OnComm

事件里

推荐看书

Visual_Basic与_RS-232_串行通信控制


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/8041775.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-12
下一篇 2023-04-12

发表评论

登录后才能评论

评论列表(0条)

保存