Exit Function

Err_ Pa~：

Send— Data— To— kehu = False

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

“ ：”+Error，vbExclamation，“錯誤提示”

Exit Function

End Function

4．2 Winsoek控件事件

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

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

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

在后臺處理中出現(xiàn)錯誤時發(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)絡運行出錯!代碼=”+CStr(Err)+“：”

+Error，vbCritical，“錯誤信息”

Exit Sub

End Sub

5 結束語

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