Братцы, помогите не выполняется команда Output. Руками через прогу RS232Pro все фурычит, а так нет
Private Sub Command1_Click()
'Attribute VB_Name = "Module1"
Dim TimeStart
Port$ = "COM1"
With MSComm1
.InBufferCount = 0 ' Î÷èñòêà áóôåðà
.Output = "a"
TimeStart = Time
End With
End Sub
Private Sub Command2_Click()
Port$ = "COM1"
With MSComm1
.Output = "q"
End With
End Sub
Private Sub Form_Load()
Call InitCom
Print MSComm1.CommID
End Sub
Private Sub InitCom()
'Èíèöèàëèçàöèÿ ïîðòà
With MSComm1
'On Error GoTo ErrInit
.CommPort = 1 'Íîìåð ïîðòà
.Settings = "9600,N,8,1"
.InputLen = 1
.PortOpen = True
.DTREnable = True
.RThreshold = 1
.Handshaking = comRTS
.RTSEnable = True
'expBegin.Caption = .Settings
'expBegin.Caption = .CommID
Print .Settings
Debug.Print MSComm1.CommID
On Error GoTo 0
End With
End Sub
