TX buffer

[micro]

Hi,
how can I know when the TX buffer is empty?
It is very important for synchronize serial reading in rs485 mode.

Thanks

 

[Erel]

Please try the following code:
obj is an Object from the Door library
serial1 is the SerialPort object.

Sub App_Start
    serial1.New1
    obj.New1(False)
    ... 'open port
   obj.FromLibrary("serial1","sp",B4PObject(2))
    Msgbox(GetTX)
End Sub

Sub GetTX
    Return obj.GetProperty("BytesToWrite")
End Sub

 

[micro]

Thanks :sign0188:

 

[micro]

Are you sure that the code work?
serial is serial2.dll object
objser is door.dll object

serial.RTSEnable = false
serial.Output(dato)
Do
    nbyte = objser.GetProperty("BytesToWrite")
    DoEvents
Loop While  nbyte > 0
serial.RTSEnable = true

nbyte is always 0

Thanks

 

[Erel]

According to Microsoft documentation it should return the number of bytes in the output buffer.
Is it possible that the data was already sent?
Maybe you should try to continuously send large data and see if the size is greater than zero.