home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / pclvbw11 / pclvbw.bas < prev    next >
Encoding:
BASIC Source File  |  1996-11-20  |  5.3 KB  |  195 lines
  1. '
  2. ' PCLVBW.BAS
  3. '
  4.  Option Explicit
  5.  
  6.  DefInt A-Z
  7.  
  8. ' Windows 3.1 API functions
  9.  
  10.  Declare Function GlobalDosAlloc Lib "Kernel" (ByVal Bytes As Long) As Long
  11.  Declare Function GlobalDosFree Lib "Kernel" (ByVal Selector As Integer)
  12.  
  13. ' PCLVBW functions
  14.  
  15.  Declare Function SioBaud Lib "PCLVBW.DLL" (ByVal Port, ByVal BaudCode)
  16.  Declare Function SioBrkSig Lib "PCLVBW.DLL" (ByVal Port, ByVal Char)
  17.  Declare Function SioCTS Lib "PCLVBW.DLL" (ByVal Port)
  18.  Declare Function SioDCD Lib "PCLVBW.DLL" (ByVal Port)
  19.  Declare Function SioDSR Lib "PCLVBW.DLL" (ByVal Port)
  20.  Declare Function SioDTR Lib "PCLVBW.DLL" (ByVal Port, ByVal Char)
  21.  Declare Function SioDone Lib "PCLVBW.DLL" (ByVal Port)
  22.  Declare Function SioFIFO Lib "PCLVBW.DLL" (ByVal Port, ByVal Code)
  23.  Declare Function SioFlow Lib "PCLVBW.DLL" (ByVal Port, ByVal Code)
  24.  Declare Function SioGetc Lib "PCLVBW.DLL" (ByVal Port, ByVal Tics)
  25.  Declare Function SioGetDiv Lib "PCLVBW.DLL" (ByVal Port)
  26.  Declare Function SioInfo Lib "PCLVBW.DLL" (ByVal Char)
  27.  Declare Function SioIRQ Lib "PCLVBW.DLL" (ByVal Port, ByVal IRQ)
  28.  Declare Function SioLine Lib "PCLVBW.DLL" (ByVal Port)
  29.  Declare Function SioLoopBack Lib "PCLVBW.DLL" (ByVal Port)
  30.  Declare Function SioModem Lib "PCLVBW.DLL" (ByVal Port, ByVal Char)
  31.  Declare Function SioParms Lib "PCLVBW.DLL" (ByVal Port, ByVal Code1, ByVal Code2, ByVal Code3)
  32.  Declare Function SioPorts Lib "PCLVBW.DLL" (ByVal Port, ByVal Code1, ByVal Code2, ByVal Code3)
  33.  Declare Function SioPutc Lib "PCLVBW.DLL" (ByVal Port, ByVal Char)
  34.  Declare Function SioRead Lib "PCLVBW.DLL" (ByVal Port, ByVal Code)
  35.  Declare Function SioReset Lib "PCLVBW.DLL" (ByVal Port, ByVal BaudCode)
  36.  Declare Function SioRI Lib "PCLVBW.DLL" (ByVal Port)
  37.  Declare Function SioRTS Lib "PCLVBW.DLL" (ByVal Port, ByVal Char)
  38.  Declare Function SioRxBuf Lib "PCLVBW.DLL" (ByVal Port, ByVal PtrSeg, ByVal Size)
  39.  Declare Function SioRxClear Lib "PCLVBW.DLL" (ByVal Port)
  40.  Declare Function SioRxQue Lib "PCLVBW.DLL" (ByVal Port)
  41.  Declare Function SioTxBuf Lib "PCLVBW.DLL" (ByVal Port, ByVal PtrSeg, ByVal Size)
  42.  Declare Function SioTxClear Lib "PCLVBW.DLL" (ByVal Port)
  43.  Declare Function SioTxFlush Lib "PCLVBW.DLL" (ByVal Port)
  44.  Declare Function SioTxQue Lib "PCLVBW.DLL" (ByVal Port)
  45.  Declare Function SioUART Lib "PCLVBW.DLL" (ByVal Port, ByVal UART)
  46.  Declare Function SioUnGetc Lib "PCLVBW.DLL" (ByVal Port, ByVal Char)
  47.  
  48. Rem COM port codes
  49.  
  50.  Global Const COM1 = 0
  51.  Global Const COM2 = 1
  52.  Global Const COM3 = 2
  53.  Global Const COM4 = 3
  54.  Global Const COM5 = 4
  55.  Global Const COM6 = 5
  56.  Global Const COM7 = 6
  57.  Global Const COM8 = 7
  58.  Global Const COM9 = 8
  59.  Global Const COM10 = 9
  60.  Global Const COM11 = 10
  61.  Global Const COM12 = 11
  62.  Global Const COM13 = 12
  63.  Global Const COM14 = 13
  64.  Global Const COM15 = 14
  65.  Global Const COM16 = 15
  66.  Global Const COM17 = 16
  67.  Global Const COM18 = 17
  68.  Global Const COM19 = 18
  69.  Global Const COM20 = 19
  70.  
  71. Rem Baud codes
  72.  
  73.  
  74.  Global Const Baud300 = 0
  75.  Global Const Baud600 = 1
  76.  Global Const Baud1200 = 2
  77.  Global Const Baud2400 = 3
  78.  Global Const Baud4800 = 4
  79.  Global Const Baud9600 = 5
  80.  Global Const Baud19200 = 6
  81.  Global Const Baud38400 = 7
  82.  Global Const Baud57600 = 8
  83.  Global Const Baud115200 = 9
  84.  Global Const NORESET = -1
  85.  
  86. Rem Parity Codes
  87.  
  88. Global Const NoParity = 0
  89. Global Const OddParity = 1
  90. Global Const EvenParity = 3
  91. Global Const MarkParity = 5
  92. Global Const SpaceParity = 7
  93.  
  94. Rem Stop Bit Codes
  95.  
  96. Global Const OneStopBit = 0
  97. Global Const TwoStopBits = 1
  98.  
  99. Rem Word Length Codes
  100.  
  101. Global Const WordLength5 = 0
  102. Global Const WordLength6 = 1
  103. Global Const WordLength7 = 2
  104. Global Const WordLength8 = 3
  105.  
  106. Rem Buffer Size Codes
  107.  
  108. Global Const Size128 = 4
  109. Global Const Size256 = 5
  110. Global Const Size512 = 6
  111. Global Const Size1024 = 7
  112. Global Const Size2048 = 8
  113. Global Const Size4096 = 9
  114. Global Const Size8192 = 10
  115. Global Const Size16384 = 11
  116. Global Const Size32768 = 12
  117. Global Const Size1K = 7
  118. Global Const Size2K = 8
  119. Global Const Size4K = 9
  120. Global Const Size8K = 10
  121. Global Const Size16K = 11
  122. Global Const Size32K = 12
  123.  
  124. Rem Line Status Masks
  125.  
  126. Global Const TransBufferEmpty = 32
  127. Global Const BreakDetect = 16
  128. Global Const FramingError = 8
  129. Global Const ParityError = 4
  130. Global Const OverrunError = 2
  131. Global Const DataReady = 1
  132.  
  133. Rem Modem Status Masks
  134.  
  135. Global Const DCD = 128
  136. Global Const RI = 64
  137. Global Const DSR = 32
  138. Global Const CTS = 16
  139. Global Const DeltaDCD = 8
  140. Global Const DeltaRI = 4
  141. Global Const DeltaDSR = 2
  142. Global Const DeltaCTS = 1
  143.  
  144. Rem Break Signal Commands
  145.  
  146. Global Const ASSERT_BREAK = 65
  147. Global Const CANCEL_BREAK = 67
  148. Global Const DETECT_BREAK = 68
  149.  
  150. Rem SioDTR & SioRTS Commands
  151.  
  152. Global Const SET_LINE = 83
  153. Global Const CLEAR_LINE = 67
  154. Global Const READ_LINE = 82
  155.  
  156. Rem FIFO level codes
  157.  
  158. Global Const FIFO_OFF = -1
  159. Global Const LEVEL_1 = 0
  160. Global Const LEVEL_4 = 1
  161. Global Const LEVEL_8 = 2
  162. Global Const LEVEL_14 = 3
  163.  
  164. Rem IRQ codes
  165.  
  166. Global Const IRQ2 = 2
  167. Global Const IRQ3 = 3
  168. Global Const IRQ4 = 4
  169. Global Const IRQ5 = 5
  170. Global Const IRQ6 = 6
  171. Global Const IRQ7 = 7
  172. Global Const IRQ8 = 8
  173. Global Const IRQ9 = 9
  174. Global Const IRQ10 = 10
  175. Global Const IRQ11 = 11
  176. Global Const IRQ12 = 12
  177. Global Const IRQ13 = 13
  178. Global Const IRQ14 = 14
  179. Global Const IRQ15 = 15
  180.  
  181. Rem SioInfo Commands
  182.  
  183. Global Const VERSION = 86
  184.  
  185. Rem SioPort dumbcard types
  186.  
  187. Global Const PC_PORTS = 0
  188. Global Const DIGIBOARD = 1
  189. Global Const BOCABOARD = 2
  190.  
  191.  
  192.  
  193.  
  194.  
  195.