I Wemos D1r2 used;
I open AP mode with like Erel's sample (SP8266 - WiFi Remote Configuration) ( Ichanged some..)
After connect my pfone to wemos card.
Opened chrome and called my page "192.168.4.1/test"
web page result is ok. but I read same time logs, and it has problem, logs stopped on "Log("wen:",56)"
why logs stoppped?
Thak you for feedbacks...
I open AP mode with like Erel's sample (SP8266 - WiFi Remote Configuration) ( Ichanged some..)
After connect my pfone to wemos card.
Opened chrome and called my page "192.168.4.1/test"
web page result is ok. but I read same time logs, and it has problem, logs stopped on "Log("wen:",56)"
why logs stoppped?
Thak you for feedbacks...
B4X:
'-----------------WIFI Şİ------------------------------------
Else If bc.IndexOf(Buffer, "/info ") <> -1 Then
Astream.Write("HTTP/1.1 200").Write(CRLF).Write(CRLF)
Log(">>>>>>>>>1",Main.Sensor_Kapi)
Log(">>>>>>>>>2")
Astream.Write("<html><title>Kartek IoT System v.1.0.</title><body>").Write(CRLF)
Log(Main.Makine1,Main.Makine2)
'
Astream.Write("Makine No: ").Write(Main.Makine1).Write("<br/>").Write(CRLF)
Astream.Write("Makine Adı: ").Write(Main.Makine2).Write("<br/>").Write(CRLF)
Log("wen:",2)
Astream.Write("-----------------------------------------------").Write("<br/>").Write(CRLF)
Astream.Write("Merkez Wifi SSID: ").Write(Main.Merkez_wifi_SSID).Write("<br/>").Write(CRLF)
Astream.Write("Merkez Wifi Password: ").Write(Main.Merkez_wifi_Pass).Write("<br/>").Write(CRLF)
Log("wen:",3)
Delay(100)
Dim sx As String
If Main.WiFi.IsConnected Then sx="CONNECT" Else sx="DISCONNECT"
Log("wen:",4)
Astream.Write("Merkez Wifi Status: ").Write(sx).Write("<br/>").Write(CRLF)
Astream.Write("Merkez Wifi IP: ").Write(Main.WiFi.LocalIp).Write("<br/>").Write(CRLF)
Astream.Write("-----------------------------------------------").Write("<br/>").Write(CRLF)
Log("wen:",5)
Delay(100)
Log("wen:",51)
Astream.Write("Durum: ").Write("calisiyor").Write("<br/>").Write(CRLF)
Log("wen:",52)
Astream.Write("Sayac: ").Write("1453 adet").Write("<br/>").Write(CRLF)
Log("wen:",53)
Astream.Write("-----------------------------------------------").Write("<br/>").Write(CRLF)
Log("wen:",54)
Delay(100)
Astream.Write("Kapi sensoru: ").Write("True").Write("<br/>").Write(CRLF)
Log("wen:",55)
Delay(300)
Astream.Write("Motor sensoru: ").Write("False").Write("<br/>").Write(CRLF)
Log("wen:",56)
Delay(300)
Astream.Write("Sayac sensoru: ").Write("True").Write("<br/>").Write(CRLF)
Log("wen:",6)
Dim ff As String
ff=Rnd(10,99)
Astream.Write(ff).Write("<br/>").Write(CRLF)
Astream.Write("----------------Bitti-------------------------------").Write("<br/>").Write(CRLF)
Log("wen:",61)
Delay(300)
Log("wen:",8)
'---------------------------------------------
