home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wsc4vb24 / wsc16.bas < prev    next >
Encoding:
BASIC Source File  |  1998-08-16  |  4.2 KB  |  118 lines
  1. '
  2. ' WSC16.BAS
  3. '
  4.  
  5.  Declare Function SioBaud Lib "WSC16.DLL" (ByVal Port As Integer, ByVal BaudCode As Integer) As Integer
  6.  Declare Function SioBrkSig Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Cmd As Integer) As Integer
  7.  Declare Function SioCTS Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  8.  Declare Function SioDCD Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  9.  Declare Function SioDSR Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  10.  Declare Function SioDTR Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Char As Integer) As Integer
  11.  Declare Function SioDone Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  12.  Declare Function SioFlow Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Code As Integer) As Integer
  13.  Declare Function SioInfo Lib "WSC16.DLL" (ByVal Cmd As Integer) As Integer
  14.  Declare Function SioGetc Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  15.  Declare Function SioGets Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Buffer As String, ByVal StringSize As Integer) As Integer
  16.  Declare Function SioParms Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Code1 As Integer, ByVal Code2 As Integer, ByVal Code3 As Integer) As Integer
  17.  Declare Function SioPutc Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Char As Integer) As Integer
  18.  Declare Function SioPuts Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Buffer As String, ByVal Size As Integer) As Integer
  19.  Declare Function SioRI Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  20.  Declare Function SioRead Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Reg As Integer) As Integer
  21.  Declare Function SioReset Lib "WSC16.DLL" (ByVal Port As Integer, ByVal RxQueSize As Integer, ByVal TxQueSize As Integer) As Integer
  22.  Declare Function SioRTS Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Char As Integer) As Integer
  23.  Declare Function SioRxClear Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  24.  Declare Function SioRxQue Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  25.  Declare Function SioStatus Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Mask As Integer) As Integer
  26.   Declare Function SioTimer Lib "WSC16.DLL" () As Long
  27.  Declare Function SioTxClear Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  28.  Declare Function SioTxQue Lib "WSC16.DLL" (ByVal Port As Integer) As Integer
  29.  Declare Function SioUnGetc Lib "WSC16.DLL" (ByVal Port As Integer, ByVal Char As Integer) As Integer
  30.  
  31. Rem COM port codes
  32.  
  33.  Global Const COM1 = 0
  34.  Global Const COM2 = 1
  35.  Global Const COM3 = 2
  36.  Global Const COM4 = 3
  37.  Global Const COM5 = 4
  38.  Global Const COM6 = 5
  39.  Global Const COM7 = 6
  40.  Global Const COM8 = 7
  41.  Global Const COM9 = 8
  42.  Global Const COM10 = 9
  43.  Global Const COM11 = 10
  44.  Global Const COM12 = 11
  45.  Global Const COM13 = 12
  46.  Global Const COM14 = 13
  47.  Global Const COM15 = 14
  48.  Global Const COM16 = 15
  49.  
  50. Rem Parity Codes
  51.  
  52. Global Const NoParity = 0
  53. Global Const OddParity = 1
  54. Global Const EvenParity = 2
  55. Global Const MarkParity = 3
  56. Global Const SpaceParity = 4
  57.  
  58. Rem Stop Bit Codes
  59.  
  60. Global Const OneStopBit  = 0
  61. Global Const One5StopBit = 1
  62. Global Const TwoStopBits = 2
  63.  
  64. Rem Word Length Codes
  65.  
  66. Global Const WordLength5 = 5
  67. Global Const WordLength6 = 6
  68. Global Const WordLength7 = 7
  69. Global Const WordLength8 = 8
  70.  
  71. Rem baud codes
  72.  
  73. Global Const Baud110 = 0
  74. Global Const Baud300 = 1
  75. Global Const Baud1200 = 2
  76. Global Const Baud2400 = 3
  77. Global Const Baud4800 = 4
  78. Global Const Baud9600 = 5
  79. Global Const Baud19200 = 6
  80. Global Const Baud38400 = 7
  81. Global Const Baud57600 = 8
  82. Global Const Baud115200 = 9
  83.  
  84. Rem SioGetError Masks
  85.  
  86. Global Const WSC_RXOVER = &H1
  87. Global Const WSC_OVERRUN = &H2
  88. Global Const WSC_PARITY = &H4
  89. Global Const WSC_FRAME = &H8
  90. Global Const WSC_BREAK = &H10
  91. Global Const WSC_TXFULL = &H100
  92.  
  93. Rem Command codes
  94.  
  95. Global Const ASSERT_BREAK = 65
  96. Global Const CANCEL_BREAK = 67
  97. Global Const DETECT_BREAK = 68
  98.  
  99. Global Const SET_LINE = 83
  100. Global Const CLEAR_LINE = 67
  101. Global Const READ_LINE = 82
  102.  
  103. Rem Return codes
  104.  
  105. Global Const IE_BADID = -1
  106. Global Const IE_OPEN = -2
  107. Global Const IE_NOPEN = -3
  108. Global Const IE_MEMORY = -4
  109. Global Const IE_DEFAULT = -5
  110. Global Const IE_HARDWARE = -10
  111. Global Const IE_BYTESIZE = -11
  112. Global Const IE_BAUDRATE = -12
  113. Global Const WSC_NO_DATA = -100
  114. Global Const WSC_RANGE = -101
  115. Global Const WSC_ABORTED = -102
  116. Global Const WSC_WIN32ERR = -103
  117.  
  118.