第11章程序調(diào)試和出錯處理(文件)
【正文】 ， 如果要在每個函數(shù)或過程中加上出錯處理 ， 將導(dǎo)致程序繁冗拖長 ， 大量重復(fù)的錯誤處理代碼將使得程序變得累贅 。 第 11章 程序調(diào)試和出錯處理 【 例 115】 下列程序?qū)崿F(xiàn)各種與文件或磁盤操作有關(guān)的錯誤處理 ， 整個程序作為一個公用模塊 (.bas)文件保存于磁盤 。 文件未找到 Public Const errBadFileMode＝ 54 39。 磁盤滿 第 11章 程序調(diào)試和出錯處理 Public errInputPastEndOfFile＝ 62 39。 設(shè)備未準備好 Public Const errDiskNotReady＝ 71 39。 第 11章 程序調(diào)試和出錯處理 出口參數(shù)可由用戶自行約定 ， 本例中出口參數(shù)的含義分別如下： 0 選擇 OK或 Retry按鈕 ， 表示上層程序?qū)⒂?Resume方法處理運行錯誤 。 MsgBox( )中按鈕類型 Dim Response As Integer 39。 以下語句根據(jù) errVal的值給出不同的提示 Select Case errVal Case errDeviceUnavailable 39。 Errors 64 amp。 Error 55 Msg = 文件己打開 第 11章 程序調(diào)試和出錯處理 Case errInputPastEndOfFile 39。 如果發(fā)生程序中約定的錯誤，用 MsgBox( )等待用戶選擇，根據(jù)選 39。 按 Ignore按鈕 FileErrors = 1 39。 其它情況返回 3， 用 Error Err方法 End Select End Function 第 11章 程序調(diào)試和出錯處理 以下代碼用于說明如何調(diào)用出錯函數(shù) FileErrors( )。 標記文件存在否 Dim Action As Integer 39。?[*]* Or NewFileName Like *]* Then 第 11章 程序調(diào)試和出錯處理 Error errBadFileName 39。 調(diào)用函數(shù)子過程 FreeFile，確定文件號 39。當錯誤代碼被省略時，返回運行錯誤對應(yīng)的字符串信息。 輸出出錯提示 Next ErrorNumber 當測試應(yīng)用程序，或想要處理等價于 Visual Basic運行時錯誤的具體條件時，對錯誤進行模擬是非常有用的。 argumentlist參數(shù)是命名的參數(shù)列表，這些參數(shù)可通過方法傳遞。 。 第 11章 程序調(diào)試和出錯處理 習 題 十 一 概述 Visual Basic程序調(diào)試中錯誤類型的分類。在代碼中可用 Raise方法捕捉錯誤。 For ErrorNumber = 61 To 64 39。 如果發(fā)生錯誤，調(diào)用文件錯誤處理函數(shù) FileErrors( )， Err將錯誤號 39。 以下 If語句判定文件存在否，用變量 FileExists標記文件是否存在 If Dir(NewFileName) = Then FileExists = False Else FileExists = True End If If Not FileExists Then ? 如果文件不存在，用 MsgBox( )讓用戶選擇是 否要建立新文件 Msg = 文件 + NewFileName + 不存在 Msg = Msg + 是否要建立？ 第 11章 程序調(diào)試和出錯處理 If MsgBox(Msg, 1, 建立文件？ ) = 2 Then 39。 設(shè)置錯誤陷阱 39。 Function FileOpener(NewFileName As String) As Integer Dim NewFileNum As Integer 39。 按 Cancel或 Abort按鈕 FileErrors = 2 39。 按 OK或 Retry按鈕 FileErrors = 0 39。 如果發(fā)生其它不可預(yù)知的錯誤， 39。 Error 76 Msg = 路徑不存在 Case errBadFileMode 39。 5為 Retry和 Cancel按鈕 Case errDiskNotReady 39。 MsgBox( )中的提示 39。 第 11章 程序調(diào)試和出錯處理 Function FileErrors(errVal As Integer) As Integer 39。 路徑不存在 在本模塊文件內(nèi)定義一個文件錯誤處理函數(shù) FileErrors( )，其形參 errVal代表出錯號 。 文件名有誤 Public Const errTooManyFiles＝ 67 39。 文件己打開 Public Const errDeviceIO =57 ? I/O錯 Public Const errFileAlreadyExists＝ 58 39。 Public Const errBadFileNameOrNumber=52 39。 當某個函數(shù)或過程在執(zhí)行中產(chǎn)生運行錯誤時 ， 立即調(diào)用公用錯誤處理程序 ， 公用錯誤處理程序在處理錯誤后 ， 再返回到上層調(diào)用程序繼續(xù)執(zhí)行 ， 這種處理方式稱為集中式錯誤處理 。 總在 Exit函數(shù)語句處繼續(xù)執(zhí)行 End Function 39。 Msg = Msg amp。 聲明常量，用于代表被零除、溢出和非法的過程調(diào)用三種錯誤號 Const mnErrDivByZero = 11 Const mnErrOverFlow = 6 Const mnErrBadCall = 5 On Error GoTo MathHandler Divide = number / denom 39。 第 11章 程序調(diào)試和出錯處理 【 例 114】 下列程序處理由 “ 被零除 ” 、 “ 溢出 ” 和 “ 非法的過程調(diào)用 ” 三種情況產(chǎn)生的錯誤 ， 以下 Function過程捕獲這些錯誤并返回 Null。 第六行語句企圖啟動一個不存在的對象，產(chǎn)生錯誤號為 440，當 If 440錯誤號后給出提示，然后用，使 0。 第二行語句打開文件 。 忽略 Kill testfile出錯行指令 ObjectRef = GetObject() 39。 Sub ResumeStatementDemo( ) On Error GoTo ErrorHandler
教學課件相關(guān)推薦
鄂ICP備17016276號-1