Giáo trình VB6 - Chương 9: Debug

ìm được mách nước nào không. Nghề programming của chúng ta sẽ gặp Errors như ăn cơm bữa, nên bạn phải tập bình tĩnh đối diện với chúng.
Dùng Comment (Chú thích)
Lúc viết code nhớ thêm Comment đầy đủ để bất cứ khi nào trở lại đọc đoạn code ấy trong tương lai bạn không cần phải dựa vào tài liệu nào khác mà có thể hiểu ngay lập tức mục đích của một Sub/Function hay đoạn code.Như thế không nhất thiết bạn phải viết rất nhiều Comment nhưng hễ có điểm nào khác thường, bí hiểm thì bạn cần thông báo và giải thích tại sao bạn làm cách ấy. Có thể sau nầy ta khám phá ra đoạn code có bugs; lúc đọc lại có thể ta sẽ thấy dầu rằng ý định và thiết kế đúng nhưng cách lập trình có phần thiếu soát chẳng hạn.Tính ra trung bình một programmer chỉ làm việc 18 tháng ở mỗi chỗ. Tức là, gần như chắc chắn code bạn viết sẽ được người khác đọc và bảo trì ( debug và thêm bớt). Do đó, code phải càng đơn giản, dễ hiểu càng tốt. Đừng lo ngại là chương trình sẽ chạy chậm hay chiếm nhiều bộ nhớ, vì ngày nay computer chạy rất nhanh và bộ nhớ rất rẻ. Khi nào ta thật sự cần phải quan tâm về vận tốc và bộ nhớ thì điều đó cần được thiết kế cẩn thận chớ không phải dựa vào những tiểu xảo về lập trình.
Đặt tên các variables có ý nghĩa
Khổ nhất là làm việc với các variables có tên vắn tắt như K, L, AA, XY. Ta không có một chút ý niệm chúng là ai, hiện hữu để làm gì. Thay vào đó, nếu ta đặt các tên variables như NumberOfItems, PricePerUnit, Discount .v.v.. thì sẽ dễ hiểu hơn.Một trong những bugs khó thấy nhất là ta dùng cùng một tên cho local variable (variable declared trong Sub/Function) và global variable (variable declared trong Form hay Basic Module). Local variable sẽ che đậy global variable cùng tên, nên nếu bạn muốn nói đến global variable trong hoàn cảnh ấy bạn sẽ dùng lầm local variable.
Dùng Option Explicit
Bạn nên trung tín dùng Option Explicit ở đầu mỗi Form, Class hay Module. Nếu có variable nào đánh vần trật VB6 IDE sẽ cho bạn biết ngay. Nếu bạn không dùng Option Explicit, một variable đánh vần trật được xem như một variable mới với giá trị 0 hay "" (empty string).Nói chung bạn nên thận trọng khi assign một data type cho một variable với data type khác. Bạn phải biết rõ bạn đang làm gì để khỏi bị phản ứng phụ (side effect).
Desk Check
Kiểm lại code trước khi compile. Khi ta compile code, nếu không có error chỉ có nghĩa là Syntax của code đúng, không có nghĩa là logic đúng. Do đó ta cần phải biết chắc là code ta viết sẽ làm đúng điều ta muốn bằng cách đọc lại code trước khi compile nó lần đầu tiên. Công việc nầy gọi là Desk Check (Kiểm trên bàn). Một chương trình được Desk Checked kỹ sẽ cần ít debug và chứa ít bugs không ngờ trước. Lý do là mọi scenarios đã được tiên liệu chu đáo.
Soạn một Test Plan
Test Plan liệt kê tất cả những gì ta muốn thử và cách thử chúng. Khi thử theo Test Plan ta sẽ khám phá ra những bug và tìm cách loại chúng ra. Hồ sơ ghi lại lịch sử của Test Plan (trục trặc gì xẩy ra, bạn đã dùng biện pháp nào để giải quyết) sẽ bổ ích trên nhiều phương diện. Ta sẽ học được từ kinh nghiệm Debug và biết rõ những thứ gì trong dự án đã được thử theo cách nào.
Xử lý Error lúc Run time
Khi EXE của một chương trình viết bằng VB6 đang chạy, nếu gặp Error, nó sẽ hiển thị một Error Dialog cho biết lý do vắn tắc. Sau khi bạn click OK, chương trình sẽ ngưng. Nếu bạn chạy chương trình trong VB6 IDE, bạn có dịp bảo program ngừng ở trong source code chỗ có Error bằng cách bấm button Debug trong Error Dialog. Tiếp theo đó bạn có thể tìm hiểu trị số các variables để đoán nguyên do của Error. Do đó, nếu bạn bắt đầu cho dùng một program bạn viết trong sở, nếu tiện thì trong vài tuần đầu, thay gì chạy EXE của chương trình, bạn chạy source code trong VB6 IDE. Nếu có bug nào xẩy ra, bạn có thể cho program ngừng trong source code để debug.Khi bạn dùng statement:    On Error Resume Nextthì từ chỗ đó trở đi, nếu chương trình gặp Error, nó sẽ bỏ qua (ignore) hoàn toàn. Điểm nầy tiện ở chỗ giúp chương trình EXE của ta tránh bị té cái ạch rồi biến mất, rất là "quê" với khách hàng. Nhưng nó cũng bất lợi là khi khách hàng cho hay họ gặp những trường hợp lạ, không giải thích được (vì Error bị ignored mà không ai để ý), thì ta cũng bí luôn, có thể không biết bắt đầu từ đâu để debug. Do đó, dĩ nhiên trong lúc debug ta không nên dùng nó, nhưng trước khi giao cho khách hàng bạn nên cân nhắc kỹ trước khi dùng.
Dùng Breakpoints
Cách hay nhất để theo dõi execution của program là dùng Breakpoint để làm cho program ngừng lại ở một chỗ ta muốn ở trong code, rồi sau đó ta cho program bước từng bước. Trong dịp nầy ta sẽ xem xét trị số của những variables để coi chúng có đúng như dự định không.Bạn đoán trước execution sẽ đi qua chỗ nào trong code, chọn một chỗ thích hợp rồi click bên trái của hàng code, chỗ dấu chấm tròn đỏ như trong hình dưới đây:
Nếu bạn click lên dấu chấm tròn đỏ một lần nữa thì là hủy bỏ nó. Một cách khác để đặt một breakpoint là để editor cursor lên hàng code rồi bấm F9. Nếu bạn bấm F9 lần nữa khi cursor nằm trên hàng đó thì là hủy bỏ break point.Lúc program đang dừng lại, bạn có thể xem trị số của một variable bằng cách để cursor lên trên variable ấy, tooltip sẽ hiên ra như trong hình dưới đây:
Có một số chuyện khác bạn có thể làm trong lúc nầy. Bạn có thể nắm dấu chấm tròn đỏ kéo (drag) nó ngược lên một hay nhiều hàng code để nó sẽ execute trở lại vài hàng code. Bạn cho program execute từng hàng code bằng cách bấm F8. Menu command tương đương với nó là Debug | Step Into. Sẽ có lúc bạn không muốn program bước vào bên trong một Sub/Function mà muốn việc execute một Sub/Function như một bước đơn giản. Trong trường hợp đó, bạn dùng Menu command Debug | Step Over hay Shift-F8.
Nhớ là để cho program chạy lại bạn bấm F5, tương đương với Menu command Run | Continue.Có khi bạn muốn program ngừng ở giữa một For Loop khi Iterator value có một trị số khá lớn. Nếu ta để sẵn một breakpoint ở đó rồi cứ bấm F5 nhiều lần thì hơi bất tiện. Có một mánh lới là dùng một IF statement để thử khi Iterator value có trị số ấy thì ta ngừng ở breakpoint tại statement Beep (thay gì statement Print ICounter) như trong hình dưới đây:
Muốn hủy bỏ mọi breakpoints bạn dùng Menu command Debug | Clear All Breakpoints.Để tiện việc debug, bạn có thể dùng Debug Toolbar bằng cách hiển thị nó với Menu command View | Toolbars | Debug 
VB6 IDE sẽ hiển thị Debug Toolbar như sau:
Dùng Immediate Window
Immediate Window cho phép ta execute những VB statement strong khi program đang dừng lại. Ta có thể dùng một Print statement để hiển thị trị số của một variable hay kết quả của một Function, gọi một Sub hay thay đổi trị số một variable trước khi tiếp tục cho chương trình chạy lại.Để hiển thị Immediate Window, dùng Menu command View | Immediate Window. 
Thay vì đánh "Print ICounter" bạn cũng có thể đánh "? ICounter". Nhớ là mỗi VB Statement bạn đánh trong Immediate Window sẽ được executed ngay khi bạn bấm Enter. Bạn có thể dùng lại bất cứ VB statement nào trong Immediate Window, chỉ cần bấm Enter ở cuối hàng ấy.
Theo dấu chân chương trình (Tracing)
Đôi khi không tiện để ngừng program nhưng bạn vẫn muốn biết program đang làm gì trong một Sub. Bạn có thể để giữa code của một Sub/Function một statement giống như dưới đây:Debug.Print Format ( Now,"hh:mm:ss ") & "(Sub ProcessInput) Current Status:" & Status để program hiển thị trong Immediate Window value của Status khi nó execute bên trong Sub ProcessInput lúc mấy giờ.Có một cách khác là thay vì cho hiển thị trong Immediate Window bạn cho viết xuống (Log) vào trong một text file. Dưới đây là một Sub điển hình bạn có thể dùng để Log một Event message:
Sub LogEvent(ByVal GivenFileName, ByVal Msg As String, HasFolder As Boolean, IncludeTimeDate As Integer) 
 ' Append event message Msg to a text Logfile GivenFileName
 ' If GivenFileName is fullPathName then HasFolder is true
 ' IncludeTimeDate = 0 : No Time or Date
 ' = 1 : Prefix with Time
 ' = 2 : Prefix with Time and Date
 Dim FileNo, LogFileName, theFolder 
 If HasFolder Then 
 LogFileName = GivenFileName 
 Else 
 If Right(App.Path, 1) "\" Then 
 theFolder = App.Path & "\" 
 Else 
 theFolder = App.Path 
 End If 
 LogFileName = theFolder & GivenFileName 
 End If 
 FileNo = FreeFile 
 If Dir(LogFileName) "" Then 
 Open LogFileName For Append As FileNo 
 Else 
 Open LogFileName For Output As FileNo 
 End If 
 Select Case IncludeTimeDate 
 Case 0 ' No Time or Date
 Print #FileNo, Msg 
 Case 1 ' Time only
 Print #FileNo, Format(Now, "hh:nn:ss ") & Msg 
 Case 2 ' Date & Time
 Print #FileNo, Format(Now, "dd/mm/yyyy hh:nn:ss ") & Msg 
 End Select 
 Close FileNo 
End Sub 
Dùng Watch Window
Đôi khi bạn muốn program ngừng không phải ở một chỗ nào nhất định, nhưng khi trị số của một variable hay của một expression là bao nhiêu, có thể là bạn không biết tại sao một variable tự nhiên có một trị số như vậy. Câu hỏi: Ai là thủ phạm? . Thí dụ bạn muốn program ngừng lại khi ICounter = 15. Bạn có thể dùng Menu command Debug | Add Watch. VB6 IDE sẽ hiển thị dialog dưới đây. Bạn đánh ICounter = 15 vào textbox Expression và click option box Break When Value Is True trong hộp Watch Type. Làm như vậy có nghĩa là ta muốn program ngừng khi ICounter bằng 15.
Dùng Phương Pháp Triệt Khai (Elimination Method)
Có một phương pháp rất thông dụng khi debug là Comment Out những hàng code nghi ngờ để xem bug có biến mất không. Nó được gọi là Elimination Method. Nếu bug biến mất thì những hàng code đã được comment out là thủ phạm. Bạn có thể Comment Out một số hàng cùng một lúc bằng cách highlight các hàng ấy rồi click Comment Block trên Edit ToolBar. 
Khi dùng Elimination Method bạn phải cân nhắc Logic của code bạn trong khi quyết định Comment Out những hàng nào, nếu không, đó là một phương pháp khá nguy hiểm.Ngoài ra, Menu Command View | Locals Window liệt kê cho bạn trị số của tất cả variables trong một Sub/Function và View | Call Stack liệt kê thứ bậc các Sub gọi lần lượt từ ngoài vào trong cho đến vị trí code đang ngừng hiện thời.