短信在VB.NET中发送SIMCOM 900A [英] SMS sending SIMCOM 900A in VB.NET

问题描述

我在我的项目中使用SIMCOM900A发送短信。我已经测试了具有超级终端的GSM模块，它工作正常。但是它不能使用VB.NET代码。



任何人都可以找到我的错误以我的代码帮助我，

感谢你



我尝试了什么：

I AM USING SIMCOM900A IN MY PROJECT TO SEND SMS. I HAVE TESTED THE GSM MODULE WITH HYPER TERMINAL, IT IS WORKING ABSOLUTELY OK.BUT IT IS NOT WORKING WITH BELOW VB.NET CODE.

CAN ANYONE FIND ME THE WRONG IN MY CODE TO HELP ME OUT,
THANKS YOU

What I have tried:

 Dim SerialPort1 As New System.IO.Ports.SerialPort()



    Private Sub SMS_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SerialPort1.PortName = "COM2"
        SerialPort1.BaudRate = 9600
        SerialPort1.Parity = Parity.None
        SerialPort1.StopBits = StopBits.One
        SerialPort1.DataBits = 8
        SerialPort1.Handshake = Handshake.RequestToSend
        SerialPort1.DtrEnable = True
        SerialPort1.RtsEnable = True
        SerialPort1.NewLine = vbCrLf
    End Sub

    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As String
        message = RichTextBox1.Text
        Try
            SerialPort1.Open()
            If SerialPort1.IsOpen() Then
                SerialPort1.Write("AT" & vbCrLf)
                System.Threading.Thread.Sleep(200)
                SerialPort1.Write("AT+CMGF=1" & vbCrLf)
                System.Threading.Thread.Sleep(200)
                SerialPort1.Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
                System.Threading.Thread.Sleep(200)
                SerialPort1.Write(message & Chr(26))
                MsgBox("Sent")
            Else
                MsgBox("Port not available")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
       
    End Sub
End Class

推荐答案

首先使用hypertermonal ob接收方来检查消息是否应该是什么。调试器也可以提供帮助。



当你不明白你的代码在做什么或为什么它做它的作用时，答案是 debugger 。

使用调试器查看代码正在执行的操作。只需设置断点并查看代码执行情况，调试器允许您逐行执行第1行并在执行时检查变量，这是一个令人难以置信的学习工具。



调试器 - 维基百科，免费的百科全书 [ ^ ]

掌握Visual Studio 2010中的调试 - 初学者指南 [ ^ ]

使用Visual Studio 2010进行基本调试 - YouTube [ ^ ]



调试器在这里向您展示您的代码在做什么你的任务是与它应该做的事情进行比较。

调试器中没有魔法，它没有发现错误，它只是帮助你。当代码没有达到预期的效果时，你就会接近一个错误。

Start by using hypertermonal ob receiving side to check if message is what it should. Debugger may help too.

When you don't understand what your code is doing or why it does what it does, the answer is debugger.
Use the debugger to see what your code is doing. Just set a breakpoint and see your code performing, the debugger allow you to execute lines 1 by 1 and to inspect variables as it execute, it is an incredible learning tool.

Debugger - Wikipedia, the free encyclopedia[^]
Mastering Debugging in Visual Studio 2010 - A Beginner's Guide[^]
Basic Debugging with Visual Studio 2010 - YouTube[^]

The debugger is here to show you what your code is doing and your task is to compare with what it should do.
There is no magic in the debugger, it don't find bugs, it just help you to. When the code don't do what is expected, you are close to a bug.

这篇关于短信在VB.NET中发送SIMCOM 900A的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！