B4R Question WiFi Serial Transmission Module

[Mostez]

Hello, reference to this post
for a long time ago I was looking for WiFi serial module for simple Tx Rx data transmission, I've found this product, I already ordered one to try. If any one worked with this product before, sharing would be greatly appreciated.

Thanks

 

[embedded]

Hello, reference to this post
for a long time ago I was looking for WiFi serial module for simple Tx Rx data transmission, I've found this product, I already ordered one to try. If any one worked with this product before, sharing would be greatly appreciated.

Thanks

Means you need wifi serial bridge....

 

[Mostez]

yes, that's what i need

 

[tigrot]

Magic stuff. Isn't is?

 

[Mostez]

I tested it and it works very well, the good thing also about it, is the built it web configuration pages, no AT commands needed, but unfortunately there is no any I/O pins to use.

 

[embedded]

@Mostez Sorry for delay....here is my UDP Serial bridge code..

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

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public Serial1 As Serial
    Private usocket As WiFiUDP
    Private wifi As ESP8266WiFi
    Private ip() As Byte = Array As Byte(192, 168, 4, 2)
    Private port As UInt = 5000
    Private AStream As AsyncStreams
    Public msg As String
    Public data1(4) As Byte
End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
    Select wifi.StartAccessPoint2("MyESP","live1234")
        Case 1
            Log("Access Point Initialisation Successful")
            Log("SSID: ","MyESP")
            Log("ip: ", wifi.AccessPointIp)
            usocket.Initialize(5000, "usocket_PacketArrived")
            AStream.Initialize(Serial1.Stream, "Astream_NewData", "Astream_Error")
        Case 0
            Log("Something Went wrong!")
            wifi.Disconnect
    End Select
    
End Sub

Private Sub usocket_PacketArrived (data() As Byte, ip1() As Byte, port1 As UInt)
    Log(data)
    
End Sub

'Sub send_data
    'usocket.BeginPacket(ip,port)
    'usocket.Write("Msg Arrived".GetBytes)
    'usocket.SendPacket
'End Sub

Sub Astream_NewData (Buffer() As Byte)
    
    usocket.BeginPacket(ip,port)
    usocket.Write(Buffer)
    usocket.SendPacket
End Sub

Sub AStream_Error
    Log("error")
End Sub

 

[embedded]

https://play.google.com/store/apps/details?id=com.udp.fbdmyapp

My App on Play Store to send and receive data through UDP DATA...

 

[Mostez]

@embedded, thank you so much, what wifi module did you use?

 

[embedded]

@embedded, thank you so much, what wifi module did you use?

ESP12E Or ESP12F Or NodeMCU

 

[Mostez]

Thanks again