modmglob.bas

在VB中实现通讯的例子

' Global Variables
Option Explicit

Global ThePort As Integer
Global TheBaudCode As Integer
Global BaudRateTable(0 To 8) As String
Global TheDataBits As Integer
Global TheParity As Integer
Global TheStopBits As Integer
Global ParityText(0 To 4) As String
Global OnLineFlag As Integer
Global FatalFlag As Integer
Global DataFlag As Integer

'Global constants
Global Const COM_PORTS = 1
Global Const BAUD_RATE = 2
Global Const DATA_BITS = 3
Global Const STOP_BITS = 4
Global Const PARITY = 5