Exit Function

Err_ Pa~：

Send— Data— To— kehu = False

MsgBox“發(fā)送數(shù)據(jù)出錯(cuò)!錯(cuò)誤代碼=”+CStr(Er)+

“ ：”+Error，vbExclamation，“錯(cuò)誤提示”

Exit Function

End Function

4．2 Winsoek控件事件

Winsock控件事件分為以下2種。

① DataArrival事件：該事件是通信的核心部分。當(dāng)給客戶端發(fā)送完命令后，接收客戶端返回的命令執(zhí)行情況，實(shí)現(xiàn)對(duì)客戶機(jī)運(yùn)行狀態(tài)的監(jiān)察。如果是數(shù)據(jù)轉(zhuǎn)存命令時(shí)，還要完成接收客戶機(jī)上傳的采集數(shù)據(jù)和對(duì)數(shù)據(jù)的服務(wù)器存儲(chǔ)，進(jìn)一步提高系統(tǒng)的可靠性，其流程如圖3所示。接收到FTP頭數(shù)據(jù)包后， P傳輸數(shù)據(jù)的格式定義如圖4所示。

② Error事件：只要后臺(tái)處理中出現(xiàn)錯(cuò)誤(例如連接失敗、收發(fā)數(shù)據(jù)失敗)事件都會(huì)出現(xiàn)，方便我們對(duì)程序的監(jiān)控和調(diào)試。

在后臺(tái)處理中出現(xiàn)錯(cuò)誤時(shí)發(fā)生：

Private Sub W insock— Server_

Eror(ByVal Number As Inte．

ger，Description As String，ByVal Se ode As Long，ByValSource As String，ByVal HelpFile As String，ByVal Help—Context As Long，CancelDisplay As Boolean

MsgBox“網(wǎng)絡(luò)運(yùn)行出錯(cuò)!代碼=”+CStr(Err)+“：”

+Error，vbCritical，“錯(cuò)誤信息”

Exit Sub

End Sub

5 結(jié)束語(yǔ)

基于ARM的高速數(shù)據(jù)采集裝置的遠(yuǎn)程監(jiān)控的設(shè)計(jì)，從硬件和軟件兩方面看是可行的，實(shí)際制板調(diào)試結(jié)果很好地完成了遠(yuǎn)程通信任務(wù)。對(duì)工業(yè)現(xiàn)場(chǎng)的遠(yuǎn)程監(jiān)控提供了新的解決方案。隨著以太網(wǎng)的日益普及，該方案有著很強(qiáng)的實(shí)踐意義。