一種基于GSM網(wǎng)絡(luò)的通用短信息控制系統(tǒng)設(shè)計
Private Sub Send_Click()
Dim ret As Integer
ret = Smscom1.SendMsg(“13852035375”, “水位”) ’發(fā)送
If ret = 0 Then MsgBox “YK-2 GSM模塊正在發(fā)送信息,請等待!”
End Sub
Private Sub Close_Click()
Smscom1.CloseDevice ’關(guān)閉設(shè)備
MsgBox “YK-2 GSM模塊已經(jīng)被關(guān)閉!”
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 ’發(fā)送成功
MsgBox “信息發(fā)送成功!”
Case 2 ’發(fā)送失敗
MsgBox “信息發(fā)送失敗!”
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結(jié) 語
基于GSM網(wǎng)絡(luò)的通用短信息控制系統(tǒng)由于結(jié)構(gòu)簡單、價格低廉、通用性、實用性強,能夠直接或者在稍作改造后用于諸如:工廠、煤礦等需要遠程自動控制的場合。該基于GSM網(wǎng)絡(luò)的通用短信息控制系統(tǒng)能夠在提高經(jīng)濟效益,減少工作人員勞動強度方面起到了較大的作用,能使需要該系統(tǒng)的工礦自動化水平提高,具有一定的社會和經(jīng)濟意義。 本文引用地址:http://m.butianyuan.cn/article/156768.htm
評論