首页 >> 读书频道 >> 电脑 >> VB Mscomm控件应用中
 
· 第14章 XSL变换
· VB Mscomm控件应
· 编写映射驱动器
· 第14章 XSL变换
· 用VB更换桌面墙纸下
· 一组VB实用小程序函数
· 第14章 XSL变换
· 第14章 XSL变换
· 设计更换屏幕保护的程序
· 第14章 XSL变换
· 反转桌面
· 采用API实现的文件拖放
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

VB Mscomm控件应用中


查看有无更新版本

关键字:VB 2006-9-18

 

4.主要方法与事件代码 
'设置可用串口 
Private Sub Form_Load()  
On Error GoTo error_open 
For i = 1 To 4 
MSComm1.CommPort = i 
MSComm1.PortOpen = True 
'设置可用的第一个串口 
On Error GoTo 0  
Exit Sub 
error_resume: 
Next 
error_open: 
Resume error_resume 
End Sub 
 
Private Sub DialButton_Click() 
Dim Number$, Temp$ 
Number$ = Trim$(Txttel.Text) 
If Number$ = "" Then 
MsgBox "请输入电话号码" 
Txttel.SetFocus 
Exit Sub 
End If 
DialButton.Enabled = False 
QuitButton.Enabled = False 
DialString$ ="ATDT"+ Number$ + ";" + vbCr 
'清除接收缓冲区 
MSComm1.InBufferCount =0  
'拨电话号码 
MSComm1.Output = DialString$  
Lblmessage.Caption = "正在拨号码 -"+Number$ 
DialButton.Enabled = True 
QuitButton.Enabled = True 
End Sub 
 
Private Sub MSComm1_OnComm() 
Select Case MSComm1.CommEvent 
Case comEvReceive 
'读取串口数据 
COMBUF=COMBUF + MSComm1.Input  
lc = InStr(1, COMBUF, "OK") 
If lc = 0 Then Exit Sub 
'Modem已正常拨号,返回OK 
Lblmessage.Caption = "请您摘下电话机, 
准备通话"  
Case comEvSend 
End Select 
End Sub 
 
Private Sub CancelButton_Click() 
'断开与调制解调器的连接 
MSComm1.Output = "ATH" + vbCr  
End Sub 
实例2:实现来电显示 
在一些实际应用中,需要显示并保存来电号码,并根据电话号码显示相应资料,比如小区物业管理和110报警等系统。 
实现步骤: 
1.创建窗体 
●添加一个MSComm控件,用来建立与串口的连接; 
●添加4个Option控件,用来确定使用的串口号; 
●添加4个Label控件,用来显示来电号码及日期时间; 
●添加一个ProgressBar控件,用来显示电话振铃次数; 
●为方便调试程序,添加一个Text控件Text 5,用来显示Modem传来的所有信息。窗体见图2。 
 
图2 来电显示窗体 
 
2.设置MSComm控件属性 
●InBufferSize=1024; 
●Inputlen=0; 
●InputMode=0; 
●Rthreshold=1; 
●RTSEnable=True; 
●Settings="9600,N,8,1"; 
●Sthreshold=0。 

3.程序功能
程序首先初始化Modem,然后等待来电。当有来电时,MSComm产生OnComm事件。Modem送出的信息格式为"DATE = 月日回车换行TIME = 时分回车换行NMBR = 电话号码回车换行"。在OnComm事件处理程序中对读入信息进行截取,截取电话号码后,以该电话号码为关键字,查询并显示数据库中有关信息。 
4.主要方法与事件代码 
'通用声明部分 
Const DEBFLG = 1 
Public COMX, BEEPNO, HANGUP,PNLOC As Integer 
Public COMBUF, COMLIN As String 
Private Sub Form_Load() 
'检测串行口 
Dim I, C As Integer  
COMX = 0 
COMBUF = "" 
COMLIN = "" 
BEEPNO = 0 
HANGUP = 0 
'正常运行程序,关闭右侧Text5 
If DEBFLG= 0 Then 
Form1.Width = Form1.Width - Text5.Width 
Text5.Enabled = False 
Text5.Visible = False 
End If 
On Error GoTo ERRORFORMLOAD 

VB Mscomm控件应用中

[ 1 ]
VB Mscomm控件应用中 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑