home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / WSC4VB10.ZIP / ERRORS.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-08-19  |  657 b   |  30 lines
  1. '
  2. ' SAYERROR.BAS
  3. '
  4.  Option Explicit
  5.  
  6.  DefInt A-Z
  7.  
  8. Sub SayError (X As Form, ByVal ErrorCode)
  9. Select Case ErrorCode
  10.   Case IE_BADID
  11.      X.Print "Invalid COM port name"
  12.   Case IE_OPEN
  13.      X.Print "COM port already open"
  14.   Case IE_NOPEN
  15.      X.Print "Cannot open COM port"
  16.   Case IE_MEMORY
  17.      X.Print "Unable to allocate memory"
  18.   Case IE_DEFAULT
  19.      X.Print "Error in default parameters"
  20.   Case IE_HARDWARE
  21.      X.Print "Hardware not present"
  22.   Case IE_BYTESIZE
  23.      X.Print "Unsupported byte size"
  24.   Case IE_BAUDRATE
  25.      X.Print "Unsupported baud rate"
  26.   Case Else
  27.      X.Print "Error code "; ErrorCode
  28.   End Select
  29. End Sub
  30.