form1.frm

软件接收机的c代码

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1365
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6855
   LinkTopic       =   "Form1"
   ScaleHeight     =   1365
   ScaleWidth      =   6855
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command3 
      Caption         =   "挂断电话号码"
      Height          =   495
      Left            =   4680
      TabIndex        =   2
      Top             =   360
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      Caption         =   "输入电话号码"
      Height          =   495
      Left            =   2760
      TabIndex        =   1
      Top             =   360
      Width           =   1815
   End
   Begin VB.CommandButton Command1 
      Caption         =   "打开端口"
      Height          =   495
      Left            =   840
      TabIndex        =   0
      Top             =   360
      Width           =   1815
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   0
      Top             =   120
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin VB.Timer Timer1 
      Left            =   0
      Top             =   840
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Echo As Boolean
Dim Ret As Integer
Dim StartTime As String

Private Sub Command1_Click()
    Dim OpenFlag
    MSComm1.PortOpen = Not MSComm1.PortOpen
    If Err Then MsgBox Error$, 48
    OpenFlag = MSComm1.PortOpen
    If MSComm1.PortOpen Then
        StartTiming
    End If
End Sub

Private Sub Command2_Click()
    Static Num As String
    Num = "013109512852"
    Num = InputBox$("输入电话号码：", "拨打电话号码", Num)
    If Num = "" Then Exit Sub
    If Not MSComm1.PortOpen Then
        If Err Then Exit Sub
    End If
    MSComm1.Output = "ATDT" & Num & vbCrLf
    StartTiming
End Sub

Private Sub Command3_Click()
    MSComm1.Output = "ATH"
    Ret = MSComm1.DTREnable
    MSComm1.DTREnable = True
    MSComm1.DTREnable = False
    MSComm1.DTREnable = Ret
    If MSComm1.PortOpen Then MSComm1.PortOpen = False
    If Err Then MsgBox Error$, 48
    StopTiming
End Sub

Private Sub MSComm1_OnComm()
    Dim EVMsg$
    Dim ERMsg$
    
    Select Case MSComm1.CommEvent
           Case comEvReceive
                Dim Buffer As Variant
                Buffer = MSComm1.Input
                Debug.Print "接收-" & StrConv(Buffer, vbUnicode)
           Case comEvSend
           Case comEvCTS
                EVMsg$ = "被检测的CTS改变"
           Case comEvDSR
                EVMsg$ = "被检测的DSR改变"
           Case comEvCD
                EVMsg$ = "被检测的CD改变"
           Case comEvRing
                EVMsg$ = "电话铃响起"
           Case comEvEOF
                EVMsg$ = "被检测的文件结尾"
           Case comBreak
                ERMsg$ = "收到中断"
           Case comCDTO
                ERMsg$ = "用户检测超时"
           Case comCTSTO
                ERMsg$ = "CTS超时"
           Case comDCB
                ERMsg$ = "检索DCB错误"
           Case comDSRTO
                ERMsg$ = "DSR 超时"
           Case comFrame
                ERMsg$ = "桢错误"
           Case comOverrun
                ERMsg$ = "超限错误"
           Case comRxOver
                ERMsg$ = "接受缓冲区溢出"
           Case comRxParity
                ERMsg$ = "奇偶效验错误"
           Case comTxFull
                ERMsg$ = "传送缓冲区满"
           Case Else
                ERMsg$ = "未知错误"
   End Select
           
End Sub
Private Sub StartTiming()
    StartTime = "2006-3-15 11:21:11 "
    Timer1.Enabled = True
End Sub
Private Sub StopTiming()
    StartTime = "2006-3-15 11:21:11 "
    Timer1.Enabled = True
End Sub