当前位置： 论文资料 >> 计算机论文 >> 计算机网络 >> 一种基于GSM网络的通用短信息控制系统设计
一种基于GSM网络的通用短信息控制系统设计


软件的关键代码如下：

Private Sub Init_Click()

　　Dim ret As Integer

ret = Smscom1.InitDevice(3, 19200, 0) ‘初始化设备

If ret = 0 Then MsgBox “YK-2 GSM模块初始化成功！”

End Sub


Private Sub Send_Click()

　　Dim ret As Integer

　　ret = Smscom1.SendMsg(“13852035375”, “水位”) ’发送

　　If ret = 0 Then MsgBox “YK-2 GSM模块正在发送信息，请等待！”

End Sub



Private Sub Close_Click()

Smscom1.CloseDevice ’关闭设备

MsgBox “YK-2 GSM模块已经被关闭！”

End Sub



’事件通知

Private Sub Smscom1_SmsEvent(ByVal nID As Integer, ByVal szPhone As String, ByVal szText As String, ByVal szTime As String)

EventID.Text = nID

Select Case nID

　　 Case 1　　　　 ’发送成功

　　 MsgBox　　　　 “信息发送成功!”

　　 Case 2　　　　　　’发送失败

　　 MsgBox　　 “信息发送失败!”

　　 Case 3　　　　 ’接收到信息

　　 MsgBox　　　　“接收到信息”

　　 Phone.Text = szPhone　　 ’Phone

　　 Message.Text = szText　　 ’Text

　　 Time.Text = szTime　　　　’Time　　

　　 Case 4　　　　　　　　　　’保留

　　 MsgBox　　　　 “空信息！”

　　Case 5　　　　　　’出错

　　MsgBox　　　　　　 “信息出错！”

Case Else

　　MsgBox “”

　　End Select

End Sub

5结 语

基于GSM网络的通用短信息控制系统由于结构简单、价格低廉、通用性、实用性强，能够直接或者在稍作改造后用于诸如：工厂、煤矿等需要远程自动控制的场合。该基于GSM网络的通用短信息控制系统能够在提高经济效益，减少工作人员劳动强度方面起到了较大的作用，能使需要该系统的工矿自动化水平提高，具有一定的社会和经济意义。

上一页  [1] [2]