B4R Question CAN bus for ESP32 by rCAN

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

Sub Process_Globals
    Public Serial1 As Serial
    Private can As CAN
    Private tim As Timer
    'Private pin As Pin
    Private JustStarted As Boolean = True
    #if Sender
    Public MyAddr As Int = 1
    #else
    Public MyAddr As Int = 2
    #End If
    Public Count As Long
    Public bc As ByteConverter
End Sub

Private Sub AppStart
    Serial1.Initialize(256000)
    Log(CRLF, "AppStart....wait for 3 sec")
    Delay(3000)
    Log(can.Initialize("can_DataAvailable", 17, 16, can.SPEED_100KBPS))
   
    #if Sender
    tim.Initialize("tim_Tick",1000)
    tim.Enabled=True
    #end if
End Sub

Sub can_DataAvailable(Data() As Byte)
    Log("I (", MyAddr, ") received from ID: ", can.MessageId, ": ", Data)
End Sub

Sub tim_Tick
    If JustStarted Then
        Dim m() As Byte = "Start"
        can.SendMessageExtended(MyAddr, m)
        JustStarted=False
    Else
        Dim d() As Byte = bc.StringToBytes(Count)
        Log("Sending from ", MyAddr, ": ", d)
        can.SendMessage(MyAddr, d)
        Count = Count + 1
    End If
End Sub