mio16.bas

在VB中实现通讯的例子

'
' MIO.BAS
'

Option Explicit

DefInt A-Z

Global Const MIO_SEND_TO = 1
Global Const MIO_WAIT_FOR = 2
Global Const MIO_QUIET = 3

Global Const MIO_IDLE = 0
Global Const MIO_RUNNING = -1

Declare Function mioSendTo Lib "MIO16.DLL" (ByVal Port, ByVal Pace As Long, ByVal Text As String) As Integer
Declare Function mioQuiet Lib "MIO16.DLL" (ByVal Port, ByVal Delay As Long) As Integer
Declare Function mioWaitFor Lib "MIO16.DLL" (ByVal Port, ByVal TimeOut As Long, ByVal Text As String) As Integer
Declare Function mioResult Lib "MIO16.DLL" (ByVal Port) As Integer
Declare Function mioDriver Lib "MIO16.DLL" (ByVal Port) As Integer
Declare Function mioBreak Lib "MIO16.DLL" (ByVal Port) As Integer