一種基于GSM網(wǎng)絡(luò)的通用短信息控制系統(tǒng)設(shè)計(jì)
加入技術(shù)交流群
Private Sub Send_Click()
Dim ret As Integer
ret = Smscom1.SendMsg(“13852035375”, “水位”) ’發(fā)送
If ret = 0 Then MsgBox “YK-2 GSM模塊正在發(fā)送信息，請(qǐng)等待！”
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 ’出錯(cuò)
MsgBox “信息出錯(cuò)！”
Case Else
MsgBox “”
End Select
End Sub
5結(jié) 語(yǔ)
基于GSM網(wǎng)絡(luò)的通用短信息控制系統(tǒng)由于結(jié)構(gòu)簡(jiǎn)單、價(jià)格低廉、通用性、實(shí)用性強(qiáng)，能夠直接或者在稍作改造后用于諸如：工廠、煤礦等需要遠(yuǎn)程自動(dòng)控制的場(chǎng)合。該基于GSM網(wǎng)絡(luò)的通用短信息控制系統(tǒng)能夠在提高經(jīng)濟(jì)效益，減少工作人員勞動(dòng)強(qiáng)度方面起到了較大的作用，能使需要該系統(tǒng)的工礦自動(dòng)化水平提高，具有一定的社會(huì)和經(jīng)濟(jì)意義。 本文引用地址：http://www.ex-cimer.com/article/156768.htm
評(píng)論