B4R Question Arduino Nano or MKR 1010 Bluetooth or WiFi Communication to B4A App or B4J App

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    '''
    Private usocket As UDPSocket
    Private bc As ByteConverter
    Private serz As B4RSerializator
    Private TextArea1 As B4XView

    Private IPcon As String = "222.111.7.10"
    Private portCon As Int = 55777
    Private Button2 As B4XView

    Private TextArea3 As B4XView
    Private Label1 As B4XView
    Private Label2 As B4XView

    Private Button3 As B4XView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
    usocket.Initialize2("UDP", portCon, 1024, True, False) 'reuse is set to true
    serz.Initialize
End Sub

Sub Button1_Click
'   Send Data To ESP32 Button
    TextArea3.SelectAll
    If TextArea3.SelectionLength = 0 Then
        TextArea3.Text = "Nothing To Send"
    Else
        build_Packet ' Build and Send the Packet over UDP
    End If
End Sub

Sub Button2_Click
'   Clear Recieve Data Button
    TextArea1.Text = ""
End Sub


Private Sub Button3_Click
'   Clear Sent Data Button
    TextArea3.Text = ""
End Sub

Sub build_Packet
'
    Dim mySTR() As String = Regex.Split(" ",TextArea3.Text)
    Dim send_data () As Object = mySTR
    UDP_SendPacket(serz.ConvertArrayToBytes(send_data))
    TextArea3.Text = ""
    TextArea3.Text = "Data Was Sent"
'
'   Old Code just sends a predefined array of data
'
'    Dim pktStart As Object = "<"
'    Dim x As Object = Rnd(0,255)
'    Dim y As Object = Rnd(0,255)
'    Dim some_string As Object = "string"
'    Dim pktEnd As Object = ">"
'    Dim send_data(5) As Object
'    send_data(0) = pktStart
'    send_data(1) = x
'    send_data(2) = y
'    send_data(3) = some_string
'    send_data(4) = pktEnd
'    UDP_SendPacket(serz.ConvertArrayToBytes(send_data))
'    TextArea3.Text = ""
'    TextArea3.Text = "Data Was Sent"
End Sub

Sub UDP_SendPacket (xmit_data() As Byte)
    Dim Packet As UDPPacket
    Packet.Initialize(xmit_data, IPcon, portCon)
    usocket.Send(Packet)
    Log("Packet Sent")
    Log($"IPcon: ${IPcon}"$)
    Log($"portCon: ${portCon}"$)
End Sub

Sub UDP_PacketArrived (Packet As UDPPacket)
    Log($"Packet.Length: ${Packet.Length}"$)
    Log($"Packet.Data.Length: ${Packet.Data.Length}"$)
    Log("Packet Arrived")
    Log($"Packet IP:  ${Packet.HostAddress}"$)
    Log($"Packet Port:  ${Packet.Port}"$)
    Dim data() As Byte = Packet.Data
    Log($"Packet.Data ${Packet.Data}"$)
    If Packet.Data.Length > Packet.Length Then
        Dim data(Packet.Length) As Byte
        bc.ArrayCopy(Packet.Data, 0, data, 0, Packet.Length)
    End If
    Dim rcvd_data() As Object = serz.ConvertBytesToArray(data)  '''     Private serz As B4RSerializator
    TextArea1.Text = ""
    For Each o As Object In rcvd_data
        Log($"${o}"$)
        TextArea1.Text = TextArea1.Text & o & CRLF
    Next
End Sub

#Region Project Attributes
    #AutoFlushLogs: True
    #CheckArrayBounds: True
    #StackBufferSize: 600
#End Region
'Ctrl+Click to open the C code folder: ide://run?File=%WINDIR%\System32\explorer.exe&Args=%PROJECT%\Objects\Src

Sub Process_Globals
    Public Serial1 As Serial
    Private esp As ESP32extras
    Private wifi As ESP8266WiFi
    Private udp As WiFiUDP
    Public bc As ByteConverter
    Public ser As B4RSerializator
    Private js_timer As Timer
    Private btn_timer As Timer
    Public cntr As Int = 0
'''''''''''''''''''''''''''''''''''''''''
    Public myIP As String = "222.111.7.10"   
    Public myGateway As String = "222.111.7.10"   
    Public mySubnet As String = "255.255.255.0"   
    Private Switch, VRx, VRy As Pin
End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
'*****************************************
    esp.ConfigAP(myIP, myGateway, mySubnet)
    wifi.StartAccessPoint("esp32_Base")
    Log(wifi.AccessPointIp)
    Log(wifi.LocalIp)
'*********
    Switch.Initialize(33, Switch.MODE_INPUT_PULLUP) ' ESP32 Pin 33 (Joystick Button)
    VRx.Initialize(35, VRx.MODE_INPUT)                ' ESP32 Pin 35
    VRy.Initialize(34, VRy.MODE_INPUT)                ' ESP32 Pin 34
'
    js_timer.Initialize("ReadJoystick", 500)
    js_timer.Enabled = True 'don't forget to enable it
'
    btn_timer.Initialize("ReadButton", 500)
    btn_timer.Enabled = True 'don't forget to enable it   
'*********   
    Log("Socket Init and Listening")
    udp.Initialize(55777, "udp_PacketArrived")
End Sub

Sub ReadButton
    Dim B_State As Boolean
    B_State = Switch.DigitalRead
    If Not(B_State) Then            ' Button Pushed Down is Zero
    Dim xmit_Data() As Object = Array As Object (0,0,0)
    xmit_Data (0) = "ESP32"
    xmit_Data(1) =  "Test"
    xmit_Data(2) =  "Packet"
    Send_Packet(xmit_Data)   
    End If
End Sub

Sub ReadJoystick
    Dim X As Int = 0
    Dim Y As Int = 0
    Dim B_State As Boolean
    X = VRx.AnalogRead
    Y = VRy.AnalogRead
    B_State = Switch.DigitalRead
'    Log("X: ", X)
'    Log("Y: ", Y)
'    Log("B_State: ", B_State)
    Dim xmit_Data() As Object = Array As Object (0,0,0)
    xmit_Data(0) = B_State
    xmit_Data(1) = X
    xmit_Data(2) = Y
'**********************
'     Check X/Y Values High or Low to make sure Joystick has been moved
    If ((X < 1300) Or (X > 2400)) Then
        Send_Packet(xmit_Data)
    Else If ((Y < 1300) Or  (Y > 2400)) Then
        Send_Packet(xmit_Data)
    End If   
End Sub


Sub Udp_PacketArrived (Buffer() As Byte, Ip() As Byte, Port As UInt)
    Log("PacketArrived: ", Buffer.Length)
    Log("IP: ",Ip(0),".",Ip(1),".",Ip(2),".",Ip(3))
    Log("Port: ",Port)
    If Buffer.Length =  0 Then
        Log("Packet Length 0 ")
        Return 'invalid message
    End If
    If Buffer.Length > 50 Then
        Log("Packet Length > 50")
        Return 'invalid message
    End If
    '********************************************************************************
    Dim be(50) As Object 'used as a storage buffer. Can be a global variable
    Dim Data() As Object = ser.ConvertBytesToArray(Buffer, be)
    '********************************************************************************
    For Each o As Object In Data
    Log("Data: ", o)
    Next
    cntr = cntr + 1
    Log("Counter: ", cntr)
    Data(0) = cntr
End Sub

Sub Send_Packet(xmit_Data()As Object)
'**********************************************************************
'''' IP/Port of Client "222.111.7.100" --- "55777"'''''''''''''''''''''
'**********************************************************************
    Private ip() As Byte = Array As Byte(222,111,7,11)
    Private port As UInt = 55777
    udp.BeginPacket(ip, port)
    udp.Write(ser.ConvertArrayToBytes(xmit_Data))
    udp.SendPacket
    Log("SentPckt: ",xmit_Data(0)," ",xmit_Data(1)," ",xmit_Data(2))
End Sub