home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap05 / debug.bas next >
Encoding:
BASIC Source File  |  1995-07-12  |  755 b   |  28 lines
  1. Attribute VB_Name = "DebuggingLibrary"
  2. Option Explicit
  3.  
  4. #Const DebugMode = True
  5.  
  6. Public Function Assert(Condition As Boolean, Message As String) As Boolean
  7.     If Not Condition Then
  8. #If DebugMode Then
  9.         Dim style, Title
  10.         style = vbCritical Or vbOKOnly
  11.         Title = "ERROR MESSAGE"
  12.         MsgBox Message, style, Title
  13.         Stop
  14. #Else
  15.         Dim FileName As String, FileNum As Integer
  16.         Dim buf As String
  17.         buf = Date$ & Chr$(9) & Time$ & Chr$(9) & Message
  18.         FileName = App.Path & "\error.log"
  19.         FileNum = FreeFile
  20.         Open FileName For Append As #FileNum
  21.         Print #FileNum, Date$, Time$, Message
  22.         Close #FileNum
  23. #End If
  24.     End If
  25.     Assert = Condition
  26. End Function
  27.  
  28.