基于調(diào)制解調(diào)器與vbplc遠程通訊系統(tǒng)設(shè)計

隨著計算機和通訊技術(shù)的發(fā)展，在工業(yè)測量和控制中廣泛需要通訊。遠端PLC等下位 網(wǎng)，使PLC等下位機利用調(diào)制解調(diào)器（MODEM）和計算機的調(diào)制解調(diào)器連接通訊，即可完成硬件上的連接。如圖1所示。在軟件方面，由許控制且編程相對簡單，所以本地站的編程軟件可以直接用高級語言。本文以一個實際的小水電站的瀉水程控工程為例，著重敘述PLC和PC做通檢測和開度控制，站的界面編程采用VB6.0編寫。該系統(tǒng)主要控制要求，通過FBs-10MA外接一個旋轉(zhuǎn)編檢測所在位置，然后跟據(jù)使上升或下降到指定的位置。FBs-CB25所擴展得到的通訊口2（RS485）用于w wwwPLCworld1機送到調(diào)制解調(diào)器的訊息都將由經(jīng)線傳送到其它設(shè)備上。用于控制調(diào)制解調(diào)器的特定指令集被稱為“AT指令集”，通過該指令集，從最基本的音量控VB經(jīng)過串行端口而對調(diào)制解調(diào)器下達控制指令。AT綴AT用以引起調(diào)制解調(diào)器的注意(Attention)檢測計算機串行通訊口發(fā)送信號的速率,識別字到載波NOCARRIER，如果檢測到載波信號調(diào)制解調(diào)器即送結(jié)果碼CONNECT+波特率,就進機狀態(tài),即可與遠方系統(tǒng)進行通訊。在該系統(tǒng)中，PC做為主站，必須控制調(diào)制解調(diào)器主動撥號，另外，在確認(rèn)調(diào)制解調(diào)器和調(diào)器撥號連接細節(jié)見下節(jié)，這里詳述PLC端對調(diào)制解調(diào)器的設(shè)置方法。。PLCPLCPLC初始化調(diào)制解調(diào)器的AT指令組合稱為“MODEM驅(qū)動程序”PLC通過Port1來控制調(diào)制解調(diào)器，并把這種軟件界面稱為調(diào)制解調(diào)器界面。如圖2設(shè)定或者設(shè)定特殊暫存器用“MODEM驅(qū)動程序”，此時，雖CPU仍然使用〝標(biāo)準(zhǔn)通訊驅(qū)動程序〞來管理Port1PLC作任何存取動作?！癕ODEM驅(qū)動程序”即將調(diào)制解調(diào)器設(shè)立即脫離接收模式，而進機狀態(tài)，Port1控制權(quán)交由〝標(biāo)準(zhǔn)通訊驅(qū)動程序〞管理。此時遠方調(diào)制解調(diào)器便可任意存取或控制此PLC主機了。。w wwwPLCworld圖2 過自帶的“MODEM驅(qū)動程序”把Port1設(shè)置為調(diào)制解調(diào)器界面。另外，通訊格式設(shè)置為4PC端程序設(shè)計PC端將以VB6.0所帶的通信控件 現(xiàn)對MODEM的控制。控制步驟如下：端端 m1.PortOpenThenEnd

Ln(n>=0)設(shè)置MODEM揚聲器音量；P/T設(shè)置MODEM脈沖/音頻撥號；程序如下：w DoWhileNot m1.CTSHolding:LoopTXD="ATS0=1E1Q0M1L2T"+Chr(13)m1.Output=Endm1.Output="ATD"&當(dāng)發(fā)送“ATD”++Chr(13)時，MODEM就開始撥號，撥號需要一定的時間，在撥號的過程中可以不斷MODEM的CD指示燈的狀態(tài)，當(dāng)撥通后CD指示燈會點亮。并返回“CONNECT波特率”MODEMPC的回應(yīng)字符串中含有"Connect"當(dāng)撥通后，MODEMAT指令，要使其回到命令狀態(tài)，則必須發(fā)送“+++”信息，使MODEM回到命令狀態(tài)，然后發(fā)送“ATH”+Chr(13)則可以掛斷，程序如下：m1.Output="ATH"3永CR0進行寫操作，R1進行讀操作；ww n為“46”，解釋為：連續(xù)多個緩存器之?dāng)?shù)據(jù)。R1的PC命令的ASCII碼寫法為：VBPLC緩存器數(shù)據(jù)寫入，查的該命令“STX01（站號）＋47（命令碼）＋01（連續(xù)數(shù)據(jù)個數(shù)）＋R00000（數(shù)據(jù)開始地址）＋XXXX（寫入的數(shù)據(jù)資料，16進制）＋LRC（偵誤值）＋ETX”PrivateSubTimer1_Timer()CV=Val("&H"+Mid( m1.Input,74數(shù)據(jù)處理，R0CVCV.Text=CVEnd寫入設(shè)定值PV=R0，程序如下IfLen(Hex(PV.Text))=4ThenPV=IfLen(Hex(PV.Text))=3ThenPV="0"+IfLen(Hex(PV.Text))=2ThenPV="00"+IfLen(Hex(PV.Text1ThenPV000Hex(PV.Text1016EndPrivateFunctionLrc(Dats)AsStringDimiSum=2Fori=1ToSum=Sum+Asc(Mid(Dats,i,1))NextiLrc=Right("0"+Hex(Su