一種基于GSM網絡的通用短信息控制系統設計
加入技術交流群
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網絡的通用短信息控制系統能夠在提高經濟效益，減少工作人員勞動強度方面起到了較大的作用，能使需要該系統的工礦自動化水平提高，具有一定的社會和經濟意義。 本文引用地址：http://www.104case.com/article/156768.htm
評論