module1.bas

protocol for serial communication in rs485 network device

Attribute VB_Name = "Module1"
'Ver 4.0 Start
Public Sub ComPort_Close(MSComm1 As MSComm, Number_Port As Integer, Speed_Port As String)
On Error Resume Next
    MSComm1.InBufferCount = 1024
    BB = MSComm1.Input
    MSComm1.Break = True
    MSComm1.PortOpen = False
L1:
End Sub
'End

Public Sub Update_ComPort(MSComm1 As MSComm, Number_Port As Integer, Speed_Port As String)
On Error GoTo L1
Dim Number_Error As Integer
    Call ComPort_Close(MSComm1, Number_Port, Speed_Port)
    Conter_Input = 0
    Conter_Input2 = 0
    
    Number_Error = 1
      
    MSComm1.CommPort = Number_Port
    MSComm1.InBufferSize = 1000
    MSComm1.OutBufferSize = 1000
    
    Number_Error = 2
    MSComm1.PortOpen = True
    
    Number_Error = 3
    MSComm1.Settings = Speed_Port
    MSComm1.InputLen = 1
    MSComm1.RThreshold = 1
    MSComm1.SThreshold = 1
    MSComm1.InputMode = comInputModeText
    Port_Ok = True
    Exit Sub
L1:
    Port_Ok = False
End Sub