testcase.vb

来自「vc实现串口收发短信」· VB 代码 · 共 384 行 · 第 1/2 页

            Console.WriteLine("  Failed: {0}", ex.Message)
        End Try

        Console.ReadLine()
        Try
            Console.WriteLine("3.Test Add Entry to last")
            Console.Write("  Try to read phonebook capacity: ")
            Dim status As PhonebookStatus = phone.GetPhonebookStatus()
            Console.WriteLine("Capacity={0}, Used={1}", status.Capacity, status.Used)
            Console.WriteLine("  New Entry will be add to {0}", lastIndex + 1)
            Console.WriteLine("  Name=test, Number=12345678")
            Console.WriteLine("  Adding...")
            Dim newEntry As New PhonebookEntry
            newEntry.Index = lastIndex + 1
            lastIndex += 1
            newEntry.Name = "test"
            newEntry.SIMNumber = "1234567"
            phone.AddPhonebookEntry(newEntry)
            Console.Write("  Read out new entry:")
            Dim entry As PhonebookEntry = phone.ReadPhonebookEntry(lastIndex)
            Console.WriteLine("  Name={0},Number={1}", entry.Name, entry.SIMNumber)
            Console.WriteLine(" You may take a look at your phone for this new entry.")
            Console.WriteLine(" Press enter key to continue")
            Console.ReadLine()
            Console.Write(" Del the new entry:")
            Console.WriteLine(phone.DelPhonebookEntry(lastIndex))
            Console.WriteLine(" Read out this new entry again, this should return index=0")
            entry = phone.ReadPhonebookEntry(lastIndex)
            Console.WriteLine("  Index={0}", entry.Index)
        Catch ex As Exception
            Console.WriteLine(" Failed:{0}", ex.Message)
        End Try
        phone.Disconnect()
    End Sub

    ''' <summary>
    ''' Test SMS Sending
    ''' </summary>
    ''' <remarks></remarks>
    Sub TestCase3(ByVal port As String, ByVal baudrate As Integer, ByVal phone As IPhoneController)
        Console.WriteLine("Test Case 3:")
        'Test Connect
        Try
            Console.WriteLine("1.Test connect phone using given port and baudrate. This should success.")
            Console.WriteLine("  Connected:{0}", phone.Connect(port, baudrate))
            Console.WriteLine("  Set standard:{0}", phone.SetStandard)
        Catch e As Exception
            Console.WriteLine("  Failed:{0}", e.Message)
        End Try

        Try
            Console.WriteLine()
            Console.WriteLine("2.Test sending and writting SMS")
            'phone.ServiceCenterNumber = phone.GetServiceCenterNumber
            phone.ServiceCenterNumber = "[phone]"
            Console.WriteLine("You service center number:{0}", phone.ServiceCenterNumber)
            Dim msgToSend As New SMSSend
            Console.Write("Please enter destination number:")
            msgToSend.DestinationNumber = Console.ReadLine
            'msgToSend.DestinationNumber = "1008611"
            Console.Write("Require status report (Y/N)?")
            If UCase(Console.ReadLine()) = "Y" Then
                msgToSend.RequireStatusReport = True
                Console.WriteLine("Will require status report")
            End If
            msgToSend.RequireStatusReport = True
            Console.WriteLine("Valid period will be automatically set to Maximum")
            msgToSend.ValidPeriod = SMSSend.TP_VALID_PERIOD.Maximum
            Console.WriteLine("Please enter text you want to send.(Length<160 for English, Length<70 for Chinese)")
            msgToSend.Content = Console.ReadLine()
            'msgToSend.Content = "HF"
            Console.WriteLine("Sending...")
            Dim msgRef As Integer() = phone.SendSMS(msgToSend)
            Console.WriteLine("Message reference number, for SMS there should be only one")
            For i As Integer = 0 To msgRef.Length - 1
                Console.WriteLine(" Message Reference Number: {0}", msgRef(i))
            Next
            Console.WriteLine("You should receive a status report later,please check")
            Console.WriteLine("Try to write message to your phone")
            Dim index As Integer() = phone.WriteSMS(ATSMSStatus.STO_SENT, msgToSend)
            Console.WriteLine("Your message saved to index={0}", index(0))
            Console.WriteLine("Reading out this message...")
            Dim SMS As SMSRead = phone.ReadSMSByIndex(index(0))
            Console.WriteLine(" Number={0},Content={1}", SMS.DestNumber, SMS.Content)
            Console.Write("Del this:")
            Console.WriteLine(phone.DelSMS(index(0)))
            Console.WriteLine("Success")
        Catch ex As Exception
            Console.WriteLine(" Failed:{0}", ex.Message)
        End Try

        phone.Disconnect()
    End Sub

    ''' <summary>
    ''' Test reading message
    ''' </summary>
    ''' <param name="port"></param>
    ''' <param name="baudrate"></param>
    ''' <param name="phone"></param>
    ''' <remarks></remarks>
    Sub TestCase4(ByVal port As String, ByVal baudrate As Integer, ByVal phone As IPhoneController)
        Console.WriteLine("Test Case 4:")
        'Test Connect
        Try
            Console.WriteLine("1.Test connect phone using given port and baudrate. This should success.")
            Console.WriteLine("  Connected:{0}", phone.Connect(port, baudrate))
            Console.WriteLine("  Set standard:{0}", phone.SetStandard)
        Catch e As Exception
            Console.WriteLine("  Failed:{0}", e.Message)
        End Try

        Try
            Console.WriteLine()
            Console.WriteLine("2.Read out all your SMSs")
            Console.WriteLine(" Reading,please wait")
            Dim SMS As SMSRead() = phone.ReadSMSByStatus(ATSMSStatus.ALL)   'Modify here to test read out SMS READ,SMS SENT
            Console.WriteLine(" List:")
            For i As Integer = 0 To SMS.Length - 1
                With SMS(i)
                    Console.WriteLine()
                    Console.WriteLine("Index={0}", .Index)
                    If (SMS(i).DestNumber <> Nothing) Then
                        Console.WriteLine("  Dest Number:{0}", .DestNumber)
                        Console.WriteLine("  Content:{0}", .Content)

                    End If
                    If SMS(i).SrcNumber <> Nothing Then
                        Console.WriteLine("  Source Number:{0}", .SrcNumber)
                        Console.WriteLine("  Received Date:{0}", .ReceivedDate)
                        If SMS(i).IsStatusReport = True Then
                            Console.WriteLine("  Status From Report:{0}", .StatusFromReport)
                        Else
                            Console.WriteLine("  Content:{0}", .Content)
                        End If
                    End If

                End With
            Next
        Catch ex As Exception
            Console.WriteLine(" Failed: {0}", ex.Message)
        End Try
        phone.Disconnect()
    End Sub

    ''' <summary>
    ''' Test SMS Receving Report
    ''' </summary>
    ''' <param name="port"></param>
    ''' <param name="baudrate"></param>
    ''' <param name="phone"></param>
    ''' <remarks></remarks>
    Sub TestCase5(ByVal port As String, ByVal baudrate As Integer, ByVal phone As IPhoneController)
        Console.WriteLine("Test Case 5:")
        'Test Connect
        Try
            Console.WriteLine("1.Test connect phone using given port and baudrate. This should success.")
            Console.WriteLine("  Connected:{0}", phone.Connect(port, baudrate))
            Console.WriteLine("  Set standard:{0}", phone.SetStandard)
        Catch e As Exception
            Console.WriteLine("  Failed:{0}", e.Message)
        End Try

        Try
            Console.WriteLine("2.Test data receiving report")
            AddHandler phone.NewMessageArrived, AddressOf NewMessageArriveHandle
            phone.ServiceCenterNumber = "[phone]"
            'phone.ServiceCenterNumber = phone.GetServiceCenterNumber()
            Console.WriteLine("Your service center number:{0}", phone.ServiceCenterNumber)
            Console.WriteLine("  This will send a message to 1008611 with content HF, status report required")
            Dim SMS As New SMSSend
            SMS.DestinationNumber = "1008611"
            SMS.RequireStatusReport = True
            SMS.ValidPeriod = SMSSend.TP_VALID_PERIOD.OneHour
            SMS.Content = "HF"
            phone.SetNewMessageArriveReport(True)
            Console.WriteLine("Message reference:{0}", phone.SendSMS(SMS)(0))
            Console.WriteLine("Please note when a message arrive, a report will show you.")
            Console.WriteLine("You should received two messsage report, a SMS you recieved from 1008611, another is status report. Please wait some minute")
            Console.WriteLine("If ok, press enter key to exit")
            Console.ReadLine()
        Catch ex As Exception
            Console.WriteLine("Failed:{0}", ex.Message)
        End Try
        phone.Disconnect()
    End Sub

    Private Sub NewMessageArriveHandle(ByVal index As Integer, ByVal content As String)
        Console.WriteLine("**** New message arrive index={0}, content={1}(May be empty) ****", index, content)
    End Sub
End Module