PC机串口控制GSM模块收发短信系统设计(流程图+源程序)论文.docVIP

PC机串口控制GSM模块收发短信系统设计(流程图+源程序)-论文 PC机串口控制GSM模块收发短信系统设计(流程图+源程序)Abstract：The SMS(Short Message Service) which has more and more been much accounted of the system developers and system operators is the value that a basic business of the GSM network. We can develop various applications that foreground is considerable using the GSM network as the network to transmit datas wireless . This text just discusses the programmer of that PC’s serial port controls the GSM module to realize Chinese or English short message’s sending and receiving, which can realize measuer datas’ sending or receiving, memory and dealing on the personal computer through the GSM network. And bat around the message format of? PDU mode and programmer of Chinese message’s coding and decoding.Key words: Short Message Service；PC’s serial port；GSM module；AT commands；PDU coding and decoding------------------------------------全局变量声明---------------------------------------Dim portno As Integer?? 端口号Dim baudrate?? As Long?? 波特率 Const prex = 0891? 定义全局静态变量Const midx = 0011000D91Const sufx = 000801Private Const EM_LINESCROLL = HB6----------------------------------------------------------------------------------------发送信息Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long-----Sleep函数(延时功能)Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)GetWindowTextW 指明这是一个 Unicode API (ASSII-unicode)Private Declare Function GetWindowText Lib user32 Alias GetWindowTextW (ByVal hwnd As Long, ByVal lpString As Long, ByVal cch As Long) As LongText2.Text = StrConv(StrConv(Text1.Text, vbUnicode), vbFromUnicode)Private Sub NewSMSeting()?????? 检测新信息?If Mobcomm.PortOpen = False Then??? Mobcomm.PortOpen = True?End If??? Mobcomm.Output = AT+CNMI=1,1,0,0,1 + vbCr??? Timer2.Enabled = TrueEnd Sub Private Function telc(num As String) As String?????? 把电话号码转换成Unicode码?Dim tl As Integer?Dim ltem, rte