电子产品世界

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

关键词： 信息