【正文】 [1][M].重慶： 重慶大學出版社，2007.[2][M].北京：人民郵電出版社，2009.[3]李建興主編. 可編程序控制器應用技術[M]. 北京：機械工業(yè)出版社，2004.[4][M].北京：人民郵電出版社，2009.[5] [M].廈門:廈門大學出版社,2006.[6]組態(tài)王使用手冊[S].北京亞控公司,2001.[7]蘇云,潘豐. 基于組態(tài)王與plc的遠程控制系統(tǒng)[J],2004.[8][M].北京：北京郵電大學出版社，2009.[9][M].北京：機械工業(yè)出版社，2007.[10]MITSUBISHI melsoft MX Component Ver 3 Programming Manual[EB/OL], 2003.[11]MITSUBISHI ELECTRIC CORPORATION. FX3u編程手冊[EB/OL]，2000.[12]韓煉，[EB/OL]， 2010年11期，[13] GSM模塊使用手冊[Z], 華為通信.[14] GSM模塊AT命令手冊[Z], 華為通信. [15] GSM模塊的實際開發(fā)與應用[Z], 創(chuàng)思通信. [16]劉宇峰，孫鵬，秦建敏. 組態(tài)王與GSM技術在河道水情監(jiān)控系統(tǒng)中的應用 [J],2003.[17]組態(tài)王命令語言函數(shù)手冊[S].北京亞控公司,2001.[18]趙峰，鄭爭兵. 基于GSM的遠程心率監(jiān)控系統(tǒng)技術 [J],2003.[19]基于PLC與GSM網(wǎng)絡的水位測報系統(tǒng) [Z].有道工控,2009.[20] MITSUBISHI FXseries Communication user manual[S],2003.[21]百度百科附錄A PLC IO分布表附錄B 組態(tài)王變量組附錄C VB代碼窗口FORM1:Public buf, text, smshs As StringPublic i, t As Integer Dim xlApp As Object Dim xlBook As Object Dim xlSheet As ObjectPrivate Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)Sub dmhf() If = True Then = at+cmgs= amp。 Chr$(34) amp。 amp。 Chr$(34) amp。 vbCr Sleep (100) = + + amp。 Chr$(26) Sleep (100) = + + // + + / + + / + + // + Format(Now) + vbCrLf = Else MsgBox (請先打開串口) End IfEnd SubSub MSCportsetting() Dim i As Integer For i = 1 To 16 COM amp。 Trim$(Str$(i)) Next i 300 600 1200 2400 4800 9600 19200 38400 43000 56000 57600 115200 39。 載入奇偶檢驗設置 None Even Odd 39。 載入數(shù)據(jù)位設置 6 7 8 39。 載入停止位設置 1 2End SubPrivate Sub Command1_Click() = 1End SubPrivate Sub Commandatexit_Click() = False = False = False = TrueEnd SubPrivate Sub CommandATOPEN_Click() = True = True = True Dim readtext As String Open amp。 \ For Input As 1 While Not EOF(1) Line Input 1, readtext = amp。 readtext amp。 vbCrLf Wend = FalseEnd SubPrivate Sub Commandexit_Click() If ( = True) Then = False EndEnd SubPrivate Sub Commandform2_Click()If = False Then = True ElseMsgBox 代碼數(shù)據(jù)庫已打開End IfEnd SubPrivate Sub Commandnumber_Click() If IsNumeric() And Len() = 11 Then (控制號碼) = Else MsgBox 請輸入正確的手機號碼 End If = 請在此輸入要添加的手機號碼End SubPrivate Sub CommandOpenMSC_Click() If = 打開串口 Then = 關閉串口 = amp。H8000amp。 = amp。H8000amp。 = False = False = False = False = False = Right(, 1) = Trim$() amp。 , amp。 Left$(, 1) amp。 , amp。 Trim$() amp。 , amp。 Trim$() = 0 If = True Then MsgBox 串口已打開 Else = True End If = True Else = 打開串口 = amp。HFFamp。 = amp。HFFamp。 = True = True = True = True = True = False End IfEnd SubPrivate Sub CommandMSCClera_Click() = = End SubPrivate Sub CommandMSCSend_Click() If = True Then = Trim() + vbCr + vbLf Else MsgBox (請先打開串口) End IfEnd SubPrivate Sub Commandpdu_Click()If = True Then = AT+CMGF=0 + vbCr + vbLf Else MsgBox (請先打開串口) End IfEnd SubPrivate Sub Commandsendsms_Click() 39。發(fā)短信 If = True Then = at+cmgs= amp。 Chr$(34) amp。 amp。 Chr$(34) amp。 vbCr Sleep (100) = amp。 Chr$(26) Sleep (100) = + + // + + // + Format(Now) + vbCrLf Else MsgBox (請先打開串口) End IfEnd SubPrivate Sub Commandsmsclear_Click() = End SubPrivate Sub Commandsmsset_Click()If = True Then = AT+CNMI=1,1,2 + vbCr + vbLf Else MsgBox (請先打開串口) End IfEnd SubPrivate Sub Commandsmstxt_Click() If = True Then = AT+CMGF=1 + vbCr + vbLf Else MsgBox (請先打開串口) End IfEnd SubPrivate Sub DataCombo1_Click(Area As Integer)End SubPrivate Sub Form_Load() = 101For t = 0 To 9 0 amp。 Trim(Str$(t)) 0 amp。 Trim(Str$(t)) 0 amp。 Trim(Str$(t)) Next tFor t = 10 To 23 Trim(Str$(t))Next tFor t = 10 To 59 Trim(Str$(t)) Trim(Str$(t)) Next t = Provider=。Data Source= + + \。Persist Security Info=False = adCmdTable = 控制號碼庫 = Provider=。Data Source= + + \。Persist Security Info=False = adCmdTable = 串口 = Provider=。Data Source= + + \。Persist Security Info=False = adCmdTable = 上位機控制 Call MSCportsetting = view|tagname = = vbLinkNone = vbLinkAutomatic = view|tagname = = vbLinkNone = vbLinkAutomatic = view|tagname = = vbLinkNone = vbLinkAutomaticEnd SubPrivate Sub Form_Unload(Cancel As Integer) If ( = True) Then = False EndEnd SubPrivate Sub Textnumber_GotFocus() = End SubPrivate Sub Timer_Timer() = Format(Now)If Time = amp。 : amp。 amp。 : amp。 And And And Then Call dmhf End IfEnd SubPrivate Sub Timerdde_Timer()If = 000 And And And Then Call dmhf End If = False End SubPrivate Sub TimerMSCReceive_Timer() If 0 Then Sleep (50) text = = + text 39。 = + buf = text = Len() If InStr(buf, +CMTI:) 0 Then 39。判斷是否有新短信進來 = AT+CMGR= + Trim(Mid$(buf, 15, 2)) + vbCr + vbLf 39。讀新短信 smshs = Trim(Mid$(buf, 15, 2)) = True End If If Len(buf) 20 Then buf = Trim(Right$(buf, Len(buf) 20)) End If 39。數(shù)據(jù)采集進access表 (串口數(shù)據(jù)) = buf If