home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / pclvbw11 / sioerror.bas < prev   
Encoding:
BASIC Source File  |  1996-11-20  |  1.2 KB  |  29 lines
  1. ' SioError.bas
  2.  
  3. Option Explicit
  4.  
  5. Sub SioError (X As Form,ByVal Code As Integer)
  6. Select Case Code
  7.  Case 0:   X.Print "No error"
  8.  Case -1:  X.Print "Timeout waiting for I/O"
  9.  Case -2:  X.Print "Port not enabled. Call SioReset first"
  10.  Case -3:  X.Print "No buffer available. Call SioRxBuf & SioTxBuf first"
  11.  Case -4:  X.Print "No such port. Expect COM1 to COM20"
  12.  Case -5:  X.Print "Expect ASC(""S""), ASC(""C""), or ASC(""R"") as 2nd argument"
  13.  Case -6:  X.Print "Expect ASC(""A""), ASC(""C""), or ASC(""D"") as 2nd argument"
  14.  Case -7:  X.Print "Bad parity code specified. Expected 0 to 7"
  15.  Case -8:  X.Print "Bad stop bits code specified. Expected 0 or 1"
  16.  Case -9:  X.Print "Bad word length code specified. Expected 0 to 3"
  17.  Case -10: X.Print "Bad buffer size code specified. Expected 0 to 11"
  18.  Case -11: X.Print "Bad baud rate code. Expected 0 to 9"
  19.  Case -12: X.Print "Loopback test fails"
  20.  Case -13: X.Print "UART undefined"
  21.  Case -14: X.Print "Missing or bad UART"
  22.  Case -15: X.Print "Port already enabled"
  23.  Case -16: X.Print "ISR (interrupt service routine) already in use"
  24.  Case -17: X.Print "No such IRQ. Should be 2 to 15"
  25.  Case -18: X.Print "ISR limit (maximum of 4 PC IRQs) exceeded"
  26. End Select
  27. End Sub
  28.  
  29.