home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wsc4vb24 / errors16.bas < prev    next >
Encoding:
BASIC Source File  |  1999-05-31  |  1.0 KB  |  43 lines
  1. '
  2. ' ERRORS16.BAS
  3. '
  4.  
  5. Option Explicit
  6.  
  7. DefInt A-Z
  8.  
  9. Function GetErrorText(ByVal ErrorCode As Integer) As String
  10. Select Case ErrorCode
  11.   Case IE_BADID
  12.      GetErrorText = "Invalid COM port name"
  13.   Case IE_OPEN
  14.      GetErrorText = "COM port already open"
  15.   Case IE_NOPEN
  16.      GetErrorText = "Cannot open COM port"
  17.   Case IE_MEMORY
  18.      GetErrorText = "Unable to allocate memory"
  19.   Case IE_DEFAULT
  20.     GetErrorText = "Error in default parameters"
  21.   Case IE_HARDWARE
  22.      GetErrorText = "Hardware not present"
  23.   Case IE_BYTESIZE
  24.      GetErrorText = "Unsupported byte size"
  25.   Case IE_BAUDRATE
  26.      GetErrorText = "Unsupported baud rate"
  27.   Case WSC_NO_DATA
  28.      GetErrorText = "No data"
  29.   Case WSC_RANGE
  30.      GetErrorText = "Parameter out of range"
  31.   Case WSC_ABORTED
  32.      GetErrorText = "Shareware version corrupted"
  33.   Case Else
  34.      GetErrorText = "Error code " + Str$(ErrorCode)
  35.   End Select
  36. End Function
  37.  
  38. Sub SayError(F As Form, ByVal ErrorCode)
  39. F.Print GetErrorText(ErrorCode)
  40. End Sub
  41.  
  42.  
  43.