• Home
 · 
• Miscellaneous
 · 
• Communicate / Retreive data from the communication port

Communicate / Retreive data from the communication port

Communicate / Retreive data from the communication port

Rate Communicate / Retreive data from the communication port

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Send a command to the port to retrieve data
    MSComm1.Output = Chr$(5) & vbCrLf

End Sub

Private Sub Form_Load()

' Set the port number
    
    MSComm1.CommPort = 1

' Other settings

    MSComm1.Settings = "2400,e,7,1"
    MSComm1.InBufferSize = 1024
    MSComm1.OutBufferSize = 512
    MSComm1.RThreshold = 15
    MSComm1.SThreshold = 1
    MSComm1.InputLen = 15
    MSComm1.ParityReplace = "?"
    MSComm1.RTSEnable = True
    MSComm1.DTREnable = True
    MSComm1.NullDiscard = False
    MSComm1.Handshaking = comNone

' Open the port    

    MSComm1.PortOpen = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

' Close the port on form unload

    MSComm1.PortOpen = False

End Sub

Private Sub MSComm1_OnComm()

' variable to store fetched data

    Static strData As String

    With MSComm1
        Select Case .CommEvent
            Case comEventBreak
                MsgBox "Error", "1comEventBreak"
            Case comEventFrame
                MsgBox "Error", "1comEventFrame"
            Case comEventOverrun
                MsgBox "Error", "1comEventOverrun"
            Case comEventRxOver
                MsgBox "Error", "1comEventRxOver"
            Case comEventRxParity
                MsgBox "Error", "1comEventRxParity"
            Case comEventTxFull
                MsgBox "Error", "1comEventTxFull"
            Case comEventDCB
                MsgBox "Error", "1comEventDCB"
            Case comEvReceive

                ' store fetched data in the variable
                strData = strData & MSComm1.Input

                ' reinitialze strData for next fetch
                strData = ""
        End Select
    End With
    
End Sub