rs232autotester.bas

实现串口波特率、奇偶校验的自动测试

Attribute VB_Name = "Module1"

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Public sBaudRates() As String
Public sParitys() As String
Public sDataBits() As String
Public sStopBits() As String
Public sCommands(3) As String

Public nWaitTime As Integer

Public bRunning As Boolean

'Public bStart As Bool