B4R Question Strange behavior of serial port 2

Gerardo Tenreiro said:

Hello again.
This time there is a problem that I expose:
I am using the second port of an ESP32, it seems to work correctly, I can send and receive data as normal.
When analyzing the times of the ESP32, I observe that this block of instructions take between 4 and 5 ms in each program cycle of the ESP32, which is not normal.




This piece of code is executed once at the start of the program.
Since I run this code, the program stops for about 4ms every time I activate port forwarding.
The electronic schematic is very simple.
Pin 17.TX
Pin 16.RX
Pin 18. Enable transmission
Interestingly every time I activate the transmit pin the ESP32 stops doing things for about 4ms
I am attaching the parser plot. It is as if it were waiting for characters to enter through the serial port.

View attachment 142649
Just by commenting on this instruction, the ESP32 times return to normal, but of course I do not receive the communications from the port.
attached image



View attachment 142650

It's like the serial port is started by software not hardware.
I clarify that the upper signals are oscillating once per cycle of the program
As always any help is welcome.
Thank you so much

Click to expand...

PS2.Initialize(SerialNative2, "VF_Newdata","VF_Error")

Click to expand...

#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 300
#End Region

Sub Process_Globals
Dim T1 As ULong = 0
Dim M_T1 As Byte = 0

Public Serial1 As Serial ' Puerto Serie 1
Public brate1 As ULong = 115200
Public SerialNative2 As Stream ' Puerto Serie 2
Public brate2 As ULong = 115200
Private PS2 As AsyncStreams ' Entrada de Datos del Puerto Seria
Public EN_TX1 As Pin ' Pin Habilita Transmision Puerto Serie 2
Private EN_TX2 As Pin ' Pin de Habilitacion Transmision del Encoder

End Sub

Private Sub AppStart

Serial1.Initialize(brate1)
Log("Arranque...")

' Inicializa el Pin de EN_TX2
EN_TX1.Initialize(18,EN_TX1.MODE_OUTPUT)
EN_TX1.DigitalWrite(False)
' Pin de Habilitacion de Transmision
EN_TX2.Initialize(27,EN_TX2.MODE_OUTPUT)
EN_TX2.DigitalWrite (False)

' Inicializa Puerto Serie 2
RunNative("SerialNative2", Null) ' Puerto Serie del VF
' Inicializa Puerto Serie 2
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'PS2.Initialize(SerialNative2, "VF_Newdata","VF_Error")
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Log("Lanza Tarea")
AddLooper("Tarea")

End Sub

Sub Tarea
Dim Va1 As ULong

If EN_TX2.DigitalRead = False Then
EN_TX2.DigitalWrite(True)
Else
EN_TX2.DigitalWrite(False)
End If

Va1 = Micros - T1

If M_T1 = 0 Then
If Va1 > 1100 Then
T1 = Micros
Va1 = 0
M_T1 = 1
EN_TX1.DigitalWrite(True)
End If
Else
If Va1 > 2100 Then
T1 = Micros
Va1 = 0
M_T1 = 0
EN_TX1.DigitalWrite(False)
End If
End If

End Sub

Private Sub VF_Newdata (Buffer() As Byte)

End Sub

public Sub VF_Error

End Sub

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' Configuracion puerto Serie 2
#if C
void SerialNative2(B4R::Object* unused)
{
::Serial2.begin(115200,SERIAL_8N1);
b4r_main::_serialnative2->wrappedStream = &::Serial2;
}
#End If

Click to expand...