vb中mscomm控件的经典实例,有详细步骤,适用于学习vb中串口通信的学者!!!

本实例是实现电话通信的,步鄹详细,并且有说明。
资源推荐
资源详情
资源评论
计算机拨号
在一些实际应用中经常需要使用计算机拨号。下面这个例子利用MSComm控件操作Modem进行拨号,实现串口通信。
实现步骤:
1.建窗体
添加一个MSComm控件,用来建立与串口的连接;
添加一个Text控件,Name属性为Txttel,用来输入电话号码;
添加3个CommandButton控件,Name属性分别为DialButton、CancellButton、QuitButton,分别用来实现拨号、中止拨号、中止程序;
添加一个Label控件,用来显示所有与拨号有关的信息。窗体见图1。
2.设置MSComm控件属性
InBufferSize=1024; ’ InBufferSize 是指整个接收缓冲区的大小。缺省值是 1024 字节。
Inputlen=0; ’ InputLen 属性的缺省值是 0。设置 InputLen 为 0 时,使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。
InputMode=0; ’0---(缺省)数据通过 Input 属性以文本形式取回。
1--数据通过 Input 属性以二进制形式取回
Rthreshold=2; ’ 当接收字符后,若 Rthreshold 属性设置为 0(缺省值)则不产生 OnComm 事件。
RTSEnable=True; ’ 当 RTSEnable 设置为 True,端口打开时,Request To Send 线设置为高电平,端口关闭时,设置为低电平。
Settings=“9600,N,8,1”;
Sthreshold=0。 ’ 若设置 Sthreshold 属性为 0(缺省值),数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1,当传输缓冲区完全空时,MSComm 控件产生 OnComm 事件。
因为每一台计算机的串口使用状态都不会一样。为使程序具有通用性,在窗体的Load方法中首先进行串口测试,找到第一个可用串口后再进行设置。
3.程序功能
程序根据输入的电话号码进行拨号,Modem正常拨号后,提示用户摘机,准备通话。
4.主要方法与事件代码
'设置可用串口
Private Sub Form_Load()
On Error GoTo error_open
For i = 1 To 4
MSComm1.CommPort = 1
MSComm1.PortOpen = True
'设置可用的第一个串口
On Error GoTo 0
Exit Sub
在一些实际应用中经常需要使用计算机拨号。下面这个例子利用MSComm控件操作Modem进行拨号,实现串口通信。
实现步骤:
1.建窗体
添加一个MSComm控件,用来建立与串口的连接;
添加一个Text控件,Name属性为Txttel,用来输入电话号码;
添加3个CommandButton控件,Name属性分别为DialButton、CancellButton、QuitButton,分别用来实现拨号、中止拨号、中止程序;
添加一个Label控件,用来显示所有与拨号有关的信息。窗体见图1。
2.设置MSComm控件属性
InBufferSize=1024; ’ InBufferSize 是指整个接收缓冲区的大小。缺省值是 1024 字节。
Inputlen=0; ’ InputLen 属性的缺省值是 0。设置 InputLen 为 0 时,使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。
InputMode=0; ’0---(缺省)数据通过 Input 属性以文本形式取回。
1--数据通过 Input 属性以二进制形式取回
Rthreshold=2; ’ 当接收字符后,若 Rthreshold 属性设置为 0(缺省值)则不产生 OnComm 事件。
RTSEnable=True; ’ 当 RTSEnable 设置为 True,端口打开时,Request To Send 线设置为高电平,端口关闭时,设置为低电平。
Settings=“9600,N,8,1”;
Sthreshold=0。 ’ 若设置 Sthreshold 属性为 0(缺省值),数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1,当传输缓冲区完全空时,MSComm 控件产生 OnComm 事件。
因为每一台计算机的串口使用状态都不会一样。为使程序具有通用性,在窗体的Load方法中首先进行串口测试,找到第一个可用串口后再进行设置。
3.程序功能
程序根据输入的电话号码进行拨号,Modem正常拨号后,提示用户摘机,准备通话。
4.主要方法与事件代码
'设置可用串口
Private Sub Form_Load()
On Error GoTo error_open
For i = 1 To 4
MSComm1.CommPort = 1
MSComm1.PortOpen = True
'设置可用的第一个串口
On Error GoTo 0
Exit Sub












rong19871114
- 粉丝: 0
- 资源: 2

上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
已下载
下载帮助

看过该资源的人还看了
没有合适的资源?快使用搜索试试~ 我知道了~
安全验证
文档复制为VIP权益,开通VIP直接复制

- 1
- 2
前往页