用MSComm控件实现来电显示

来电显示的实现
MODEM的AT命令CID和VCID是设置是不是来电显示的,如果电信开通了来电显示功能
就能通过MODEM来显示对方的电话号码。那么首先设置CID=1或是VCID=1

般来说来电显示的信息为:
DATE = MMDD "来电日期 MMDD
TIME = HHMM "来电时间 HHMM
NMBR = ######## "来电号码
程序实现如下,设置MSComm1的相关设置,并建两个Label为Label1和Label2

Function  OpenCID(OpenCLose  As   Boolean As   Boolean
' 打开或是关毕来电显示功能
     On   Error   Resume   Next
    
Dim  ArrCID( 1 As   String
    ArrCID(
0 =   " at#cid= "   &  IIf(openclode,  1 0 )
    ArrCID(
1 =   " at#vcid= "   &  IIf(openclode,  1 0 )
    MSComm1.RThreshold 
=   0
    
For  i  =   0   To   1
        MSComm1.Output 
=  ArrCID(i)  &  vbCr
        EndTime 
=   Timer   +   0.5
        
Do   While  bStop  =   False
            nTemp 
=  nTemp  +   1
            
If  MSComm1.InBufferCount  >=   2   Then
                sTemp 
=  MSComm1.Input
                
If   InStr (sTemp,  " OK " =   0   Then
                    bStop 
=   True
                    OpenCID 
=   True
                    
Exit   Function
                
End   If
            
End   If
            
If   Timer   >=  EndTime  Or  ErrorCode  Then   Exit   Do
        
Loop
    
Next  i
    OpenCID 
=   False
    MSComm1.RThreshold 
=   1
End Function

下面的函数显示来电号码并在窗体上的Label1的Label2上显示出来
Private   Sub  MSComm1_OnComm()
    
On   Error   Resume   Next
    Static Buffer 
As   String
     
'  收到多于 RThreshold 属性设置的字符数(RThreshold 属性必须大于 0)。
             ' label1 = "收到" + Str(MSComm1.InBufferCount) + "个字符"
            Buffer  =  Buffer  +  MSComm1.Input
            Buffer 
=   UCase (Buffer)

         
'    Exit Sub
             If   InStr ( 1 , Buffer,  " RING " , vbTextCompare)  Then
            
' 收到震铃
                 ' Comm1.Output = "ATA" + Chr(13) '命令 Modem 摘机响应
                Buffer  =   ""   ' 清缓冲区字符
                 ' mciExecute "sound " & SystemPath & " ingin.wav"
                Label1  =   " 状态:收到震铃 "
                Zhen 
=   True
                frmCallID.Show
                frmCallID.ChangRing
             
               
            
ElseIf   InStr ( 1 , Buffer,  " CONNECT " , vbTextCompare)  Then
            
' 对方应答呼叫
                Buffer  =   ""   ' 清缓冲区字符
                Label1  =   " 状态:已经建立连接 "
            
ElseIf   InStr ( 1 , Buffer,  " BUSY " , vbTextCompare)  Then
            
' 对方线路忙
                Buffer  =   ""   ' 清缓冲区字符
                Label1  =   " 状态:对方线路忙 "
            
ElseIf   InStr ( 1 , Buffer,  " No DIA " , vbTextCompare)  Then
                Buffer 
=   ""   ' 清缓冲区字符
                Label1  =   " 状态:拨出号码错,请检查电话线 "
                Command1_Click
            
ElseIf   InStr ( 1 , Buffer,  " No CARRIER " , vbTextCompare)  Then
            
' 对方未摘机或未响应
                Buffer  =   ""   ' 清缓冲区字符
                Label1  =   " 状态:对方未摘机 "
          
            
ElseIf   InStr ( 1 , Buffer,  " NMBR = " , vbTextCompare)  Then
             tmpStr 
=   InStr ( 1 , Buffer,  " NMBR " , vbTextCompare)
             CallNum 
=   Right (Buffer,  Len (Buffer)  -  lll  -   6 )
             Label2.Caption 
=   " 对方电话: "   +  CallNum

                
' Buffer = "" '清缓冲区字符
             ElseIf   InStr ( 1 , Buffer,  " OK " , vbTextCompare)  And   Asc ( Right (Buffer,  1 ))  =   10   Then
              
If  Zhen  =   False   Then  Buffer  =   ""   ' 清缓冲区字符
              If  Command1.Caption  =   " 挂断 "   Then
              Label2.Caption 
=   " 状态:已经播通电话: "   +  txtCallNum
            
End   If
            
End   If
End Sub

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
### 回答1: MSComm控件是Visual Basic程序中常用的串口通信控件之一。它可以用于实现与串口设备的数据传输和通信。 首先,要使用MSComm控件,需要在Visual Basic的工具箱中将其添加到窗体上。然后,在程序代码中对该控件进行初始化和设置。可以设置端口号、波特率、数据位、停止位等串口参数。 接下来,可以使用MSComm控件提供的事件来进行串口数据的读取和写入。常用的事件有DataReceived和CommEvent。当串口接收到数据时,DataReceived事件会触发,可以在事件处理程序中读取串口接收到的数据。当串口发生其他事件时,如断开连接、错误等,CommEvent事件会触发,可以在事件处理程序中对相应的事件进行处理。 在读取和写入串口数据时,可以使用MSComm控件提供的方法和属性。常用的方法有Input、Output、OutputLen等。Input方法用于读取串口接收缓冲区中的数据,可以指定要读取的字节数。Output方法用于向串口发送数据。OutputLen属性可以获取或设置串口发送缓冲区中的字节数。 在使用MSComm控件时,需要注意一些问题。首先,要确保串口设备与计算机连接正常,并且正确设置了串口的参数。其次,要避免并发访问串口,以免造成数据冲突和错误。此外,要及时关闭和释放MSComm控件,以确保程序的稳定性和性能。 总之,通过使用MSComm控件,可以方便地实现与串口设备的数据传输和通信。掌握了它的使用方法和原理,可以为串口通信相关的应用程序开发提供很大的帮助。 ### 回答2: MSCOMM控件是一个非常常用的控件,它主要用于在Visual Basic应用程序中实现串口通信。下面我将详细介绍如何使用MSCOMM控件。 首先,在VB的工具箱中找到MSCOMM控件并将其拖放到窗体上。然后,在属性窗口中设置控件的相关属性,如串行端口号、波特率、数据位、校验位等。 接下来,在程序中编写代码来使用MSCOMM控件。可以使用控件的Open方法打开串口,然后使用控件的Output方法发送数据。还可以使用控件的Input方法接收数据。 要接收串口数据,可以使用MSCOMM控件的DataReceived事件。在事件处理程序中,可以使用控件的Input方法来获取接收到的数据。 如果希望在数据发送或接收时进行一些特定的操作,可以使用控件的OnComm事件。在该事件的处理程序中,可以根据CommEvent属性的值进行相应的操作。 另外,MSCOMM控件还提供了一些其他功能,如设置超时时间、发送和接收缓冲区的大小等。通过设置相应的属性,可以实现这些功能。 总的来说,使用MSCOMM控件可以方便地实现串口通信功能。只需设置相关属性并编写相应的代码,即可完成数据的发送和接收。 ### 回答3: MSComm控件是VB6中的一个串口通信控件,用于在Windows操作系统下通过串口进行数据通信。使用MSComm控件,可以实现与外部设备(如传感器、PLC等)进行数据的收发和控制。 首先,我们需要在VB6环境下添加MSComm控件。在VB6中点击“项目”菜单,再选择“组件”选项,勾选“Microsoft Comm Control”。然后在工具箱中会多出一个MSComm控件,可以将其拖拽到窗体中。 在使用MSComm控件之前,需要设置一些属性。主要属性包括: 1. Port属性:指定串口的编号(如COM1)。需要确保计算机中已经正确安装了相应的串口。 2. Settings属性:设置串口的波特率、数据位、校验位、停止位等信息,以便与外部设备进行通信。 3. RThreshold属性和OnComm事件:设置接收数据的阈值,当数据的长度满足阈值时会触发OnComm事件,从而进行数据的处理。 通过编写VB6的代码,可以实现对MSComm控件的操作。常用的方法有: 1. Open:打开串口连接。 2. Close:关闭串口连接。 3. Input:读取串口接收缓冲区中的数据。 4. Output:向串口发送数据。 在使用MSComm控件进行数据通信时,需要注意一些常见问题和解决方法: 1. 数据长度不一致:因为串口通信丢失数据的可能性较高,可能会导致数据长度不一致。可以通过设置RThreshold属性和OnComm事件来处理。 2. 波特率不一致:发送和接收数据的设备之间需要保持一致的波特率。如果波特率不一致,可能导致数据无法正确读取。 3. 缓冲区溢出:如果输入缓冲区的数据过多,可能会导致缓冲区溢出。可以定期清空缓冲区,或者提高缓冲区的大小。 总的来说,MSComm控件是VB6中用于实现串口通信的重要工具,通过设置属性和编写代码,可以实现与外部设备的数据交互。使用MSComm控件进行串口通信需要注意一些常见问题,以保证数据的正确传输。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值