athandler.vb

通过串口发送短信的模块,采用vb.net编写

    '    Set(ByVal value As String)
    '        strCmdEcho = value
    '    End Set
    'End Property

    'Public Property NoEchoCommand() As String
    '    Get
    '        Return strCmdNoEcho
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdNoEcho = value
    '    End Set
    'End Property

    'Public Property KeepAliveCommand() As String
    '    Get
    '        Return strCmdKeepAlive
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdKeepAlive = value
    '    End Set
    'End Property

    'Public Property ManufacturerCommand() As String
    '    Get
    '        Return strCmdManufacturer
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdManufacturer = value
    '    End Set
    'End Property

    'Public Property RevisionCommand() As String
    '    Get
    '        Return strCmdRevision
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdRevision = value
    '    End Set
    'End Property

    'Public Property CHUPHangUpCommand() As String
    '    Get
    '        Return strCmdCHUPHangUp
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCHUPHangUp = value
    '    End Set
    'End Property

    'Public Property HangUpCommand() As String
    '    Get
    '        Return strCmdHangUp
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdHangUp = value
    '    End Set
    'End Property

    'Public Property MsgIndicationCommand() As String
    '    Get
    '        Return strCmdMsgIndication
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdMsgIndication = value
    '    End Set
    'End Property

    'Public Property CLIPCommand() As String
    '    Get
    '        Return strCmdCLIP
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCLIP = value
    '    End Set
    'End Property

    'Public Property CLIPResponse() As String
    '    Get
    '        Return strCLIPResponse
    '    End Get
    '    Set(ByVal value As String)
    '        strCLIPResponse = value
    '    End Set
    'End Property

    'Public Property CMGSCommand() As String
    '    Get
    '        Return strCmdCMGS
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCMGS = value
    '    End Set
    'End Property

    'Public Property CMGWCommand() As String
    '    Get
    '        Return strCmdCMGW
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCMGW = value
    '    End Set
    'End Property

    'Public Property CMSSCommand() As String
    '    Get
    '        Return strCmdCMSS
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCMSS = value
    '    End Set
    'End Property

    'Public Property CMGFCommand() As String
    '    Get
    '        Return strCmdCMGF
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCMGF = value
    '    End Set
    'End Property

    'Public Property CMGFREsponse() As String
    '    Get
    '        Return strCMGFResponse
    '    End Get
    '    Set(ByVal value As String)
    '        strCMGFResponse = value
    '    End Set
    'End Property

    'Public Property CSQCommand() As String
    '    Get
    '        Return strCmdCSQ
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCSQ = value
    '    End Set
    'End Property '

    'Public Property CBCCommand() As String
    '    Get
    '        Return strCmdCBC
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCBC = value
    '    End Set
    'End Property


    Public Property MsgIndication() As String
        Get
            Return strMsgIndication
        End Get
        Set(ByVal value As String)
            strMsgIndication = value
        End Set
    End Property

    Public Property NoMsgIndication() As String
        Get
            Return strNoMsgIndication
        End Get
        Set(ByVal value As String)
            strNoMsgIndication = value
        End Set
    End Property

    'Public Property CNMIResponse() As String
    '    Get
    '        Return strCNMIResponse
    '    End Get
    '    Set(ByVal value As String)
    '        strCNMIResponse = value
    '    End Set
    'End Property

    'Public Property CPMSCommand() As String
    '    Get
    '        Return strCmdCPMS
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCPMS = value
    '    End Set
    'End Property

    'Public Property CPMSResponse() As String
    '    Get
    '        Return strCPMSResponse
    '    End Get
    '    Set(ByVal value As String)
    '        strCPMSResponse = value
    '    End Set
    'End Property

    'Public Property COPSCommand() As String
    '    Get
    '        Return strCmdCOPS
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCOPS = value
    '    End Set
    'End Property

    'Public Property CNUMCommand() As String
    '    Get
    '        Return strCmdCNUM
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCNUM = value
    '    End Set
    'End Property

    'Public Property CMGSResponse() As String
    '    Get
    '        Return strCMGSResponse
    '    End Get
    '    Set(ByVal value As String)
    '        strCMGSResponse = value
    '    End Set
    'End Property

    'Public Property VTSCommand() As String
    '    Get
    '        Return strCmdVTS
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdVTS = value
    '    End Set
    'End Property

    'Public Property VTSResponse() As String
    '    Get
    '        Return strVTFResponse
    '    End Get
    '    Set(ByVal value As String)
    '        strVTFResponse = value
    '    End Set
    'End Property

    'Public Property CGSNCommand() As String
    '    Get
    '        Return strCmdCGSN
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCGSN = value
    '    End Set
    'End Property

    'Public Property CIMICommand() As String
    '    Get
    '        Return strCmdCIMI
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCIMI = value
    '    End Set
    'End Property

    'Public Property CSCACommand() As String
    '    Get
    '        Return strCmdCSCA
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdCSCA = value
    '    End Set
    'End Property

    'Public Property CNUMResponse() As String
    '    Get
    '        Return strCNUMResponse
    '    End Get
    '    Set(ByVal value As String)
    '        strCNUMResponse = value
    '    End Set
    'End Property

    'Public Property GMMCommand() As String
    '    Get
    '        Return strCmdGMM
    '    End Get
    '    Set(ByVal value As String)
    '        strCmdGMM = value
    '    End Set
    'End Property


    Public Property HangUpCommand() As String
        Get
            Return strHangUpCommand
        End Get
        Set(ByVal value As String)
            strHangUpCommand = value
        End Set
    End Property


    ''' <summary>
    ''' Retrieve the supported range of values from the AT responses
    ''' </summary>
    ''' <param name="str"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function GetNumberRange(ByVal str As String) As Hashtable
        If str Is Nothing Then Return Nothing
        str = str.Trim()
        If str = String.Empty Then Return Nothing

        Dim resultMap As New Hashtable
        Dim numberList() As String
        Dim idx As Integer
        If str.IndexOf(",") > 0 Then
            numberList = str.Split(",")
            For idx = 0 To numberList.Length - 1
                resultMap.Add(numberList(idx), numberList(idx))
            Next
        ElseIf str.IndexOf("-") > 0 Then
            numberList = str.Split("-")
            If numberList.Length = 2 Then
                For idx = 0 To numberList.Length - 1
                    numberList(idx) = numberList(idx).Trim()
                Next
                If IsNumeric(numberList(0)) And IsNumeric(numberList(0)) Then
                    Dim lowerBound As Integer = Convert.ToInt16(numberList(0))
                    Dim upperbound As Integer = Convert.ToInt16(numberList(1))
                    For idx = lowerBound To upperbound
                        resultMap.Add(idx.ToString, idx.ToString)
                    Next
                End If
            End If
        Else
            resultMap.Add(str, str)
        End If
        Return resultMap
    End Function

End Class