软件的关键代码如下：
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]