A więc tak.
Mam wagę samochodową wraz z miernikiem Rinstrum R420 do niej podłączony konwerter "rs232 to wifi", miernik wykorzystuje tylko RX i TX
Na esp01 wgrany plik init.lua
[syntax=lua]uart.setup(0, 9600, 8, 0, 1, 1)
wifi.sleeptype(wifi.NONE_SLEEP)
wifi.setmode(wifi.STATION)
wifi.sta.config("Neo_Network","")
wifi.sta.connect()
port = 9876
uart.setup(0, 9600, 8, 0, 1, 1)
tmr.alarm(0,200,0,function()
srv=net.createServer(net.TCP, 3000)
srv:listen(port,function(conn)
uart.on("data", 0, function(data)
conn:send(data)
end, 0)
conn:on("receive",function(conn,payload)
uart.write(0, payload)
end)
conn:on("disconnection",function(c)
uart.on("data")
end)
end)
end)[/syntax]
Na androidzie:
[syntax=vb]Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim Sox As Socket
Dim SoxIO As AsyncStreams
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private EdIPServer As EditText
Private EdPort As EditText
Private btnOpen As Button
Private btnClose As Button
Private lbStatus As Label
Private edMsgSend As EditText
Private btnSend As Button
Private edMsgReceive As EditText
Private btnSave As Button
Dim timer1 As Timer
Dim test As String
Dim writer As TextWriter
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.LoadLayout("TCP_Test")
timer1.Initialize("Timer1", 500)
writer.Initialize(File.OpenOutput(File.DirRootExternal,"dane.txt",True))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Sox_Connected(Successful As Boolean)
ProgressDialogHide
If Successful Then
lbStatus.Text = "Polaczono"
SoxIO.Initialize(Sox.InputStream, Sox.OutputStream,"Sox")
Else
lbStatus.Text = "rozlaczono"
Sox.Close
Msgbox("Please Try Again","Error Connecting")
End If
End Sub
Sub Sox_Error()
ProgressDialogHide
SoxIO.Close
Sox.Close
Msgbox("Please Try Again","Error Connecting")
End Sub
Sub Sox_NewData(Buffer() As Byte)
Dim msg As String
ProgressDialogHide
msg = BytesToString(Buffer,0,Buffer.Length,"UTF8")
edMsgReceive.Text = ""
edMsgReceive.Text = edMsgReceive.Text & msg.Trim & CRLF
End Sub
Sub timer1_Tick
test = "20050026:;" & Chr(13) & Chr(10)
SoxIO.Write(test.GetBytes("UTF8"))
End Sub
Sub btnSend_Click
Dim tmps As String
If edMsgSend.Text.Trim = "" Then Return
tmps = edMsgSend.Text & Chr(13) & Chr(10)
SoxIO.Write(tmps.GetBytes("UTF8"))
End Sub
Sub btnOpen_Click
Sox.Initialize("Sox")
Sox.Connect(EdIPServer.Text,EdPort.Text,30000)
btnClose.Enabled = True
btnOpen.Enabled = False
btnSend.Enabled = True
edMsgSend.Enabled = True
edMsgReceive.Enabled = True
timer1.Enabled = True
End Sub
Sub btnClose_Click
btnClose.Enabled = False
btnOpen.Enabled = True
btnSend.Enabled = False
edMsgSend.Enabled = False
SoxIO.Close
Sox.Close
timer1.Enabled = False
End Sub
Sub btnSave_Click
writer.Write(edMsgReceive.Text)
writer.Close
End Sub[/syntax]
Aplikacja łączy się z serwerem TCP i wysyła komendy.
I tutaj mam problem do miernika wysyłam co 500ms komendę "20050026:;\r\n" i powinienem otrzymać odpowiedź
"81050026: 80 kg M\r\n"
"81050026: 100 kg M\r\n"
a otrzymuję coś takiego:
[syntax=vb]81050026: 0 kg G
81050026
: 0 kg G
81050026: 0 kg G
81050026: 0 kg G
8105
0026: 0 kg G
81050026: 0 kg G
81050026: 0 kg G
81050026:
0 kg G
81050026: 0 kg G
81050
026: 0 kg G
81050026: 20 k
g G
81050026: 20 kg G
81050026: 40 kg M
81050026: 60 kg M
81050026:
60 kg M
81
050026: 80 kg M
81050026: 80 kg M
81050026: 80 kg M
81050026: 100 kg M
81050026:
100 kg M
81050026: 100 kg M
81050026: 100 kg M
81050026: 100 kg M
81050026:
100 kg M
81050026: 100 kg M
81050026: 100 kg M
81050026: 80 kg M
81050026: 80 kg
M
81050026
: 60 kg G
81050026: 60 kg M
81050026: 40 kg M
81050026: 40
kg M
81050
026: 20 kg M
81050026: 20 kg M
81050026: 0 kg M
81050026: 0 kg M
81050026: 0
kg M
81050026: 0 kg M
81050026: 0 kg M
81050026: 0 kg M
81050026: 0 kg M
81050026: 20 kg M
81050026: 20 kg M
81050026: 40 kg M
81050026: 40 kg
M
81050026:
60 kg M
81050026: 60 kg M
81050026: 80 kg M
81050026: 80 kg M
8105
0026: 100 kg M
81050026: 100 kg M
81050026: 100 kg M
81050026: 100 kg M
81050026: 100 kg M
81050026: 100 kg M
81050026: 80 kg M
81050026: 80 kg M
81050026:
60 kg M
81050026: 60 kg M
81050026: 40 kg M
81050026: 40 kg M
81050026: 20 kg
M
81050026: 20 kg M
81050026: 20 kg M
81050026: 0 kg M
81050026: 0
kg M
8105
0026: 0 kg M
81050026: 0 kg M[/syntax]
Wykluczyłem już błędy w konwerterze, ponieważ uruchamiając USR-VCOM i podłączając oryginalne oprogramowanie pod wirtualny port wszystko działa poprawnie.
I tutaj proszę was o pomoc co robię nie tak.
------------------------ [ Dodano po: 8 paź 2016, o 22:05 ]
Halo żyje to forum, czy po porostu nikt nie zna odpowiedzi na mój problem?
Statystyki: Napisane przez neo_kris — 8 paź 2016, o 22:05
]]>