Автоматизация для тех, кому она не по зубам.

'************************************************************************************************************
'************************************************************************************************************
'Открываем порт
Sub OpenPort()
On Error GoTo ErrHandler  'Обработчик ошибки
  With frmMain.MSComm1
    .CommPort = frmMain.tboxCOMnumber.Text
    .DTREnable = False
    .RTSEnable = False
    .InputMode = comInputModeText
    .Handshaking = comNone
    .InBufferSize = 1024
    .InputLen = 0
    .NullDiscard = True
    .OutBufferSize = 512
    .ParityReplace = "?"
    .RThreshold = 41
    .Settings = "9600,n,8,1"
    .SThreshold = 0
    If (.PortOpen = False) Then: .PortOpen = True
  End With
  frmMain.TestPort
  'Запуск таймера, через который очистится буфер порта
  With frmMain.timerClearPort
      .Interval = 300
      .Enabled = True
  End With
Exit Sub        
ErrHandler: 
MsgBox "Порт не существует или занят"
End Sub

'Прерывание по таймеру - очистка буфера порта
Private Sub timerClearPort_Timer()
   timerClearPort.Enabled = False
   Dim a As String
   a = frmMain.MSComm1.Input
End Sub

'Закрытие порта
Sub ClosePort()
   If (frmMain.MSComm1.PortOpen = True) Then: frmMain.MSComm1.PortOpen = False
   frmMain.TestPort
End Sub

'Проверка состояния порта
Sub TestPort()
  With frmMain.MSComm1
    If .PortOpen = True Then
      frmMain.labPortState.Caption = "Порт открыт"
      frmMain.labPortState.ForeColor = &H8000&
      frmMain.btnClearPortBufer.Enabled = True
    Else
      frmMain.labPortState.Caption = "Порт закрыт"
      frmMain.labPortState.ForeColor = &HFF&
      frmMain.btnClearPortBufer.Enabled = False
    End If
  End With
End Sub