Search found 1273 matches

by Dinosaur
Oct 22, 2019 3:06
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All The commands I use are as follows. pen pipe "nmcli dev wifi" For Input As #PF 'prints out all wifi's found Do Until Eof(PF) Line Input #PF, Chrs s += Chrs Loop Close #PF NetDevice(Control.Device).RxData = s If Control.PrintFlag > 0 Then Print s This produces the following response. ...
by Dinosaur
Oct 20, 2019 17:53
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All Andy looks like you are making progress. A couple of notes: 1: Change the Alias command by adding more spaces to the command to avoid over writing the Quotes and curly brackets. .cmdStr = !"{\"system\":{\"set_dev_alias\":{\"alias\":\"FreePlug \"}}}...
by Dinosaur
Oct 19, 2019 12:57
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All Andy I have no idea what you are doing with those commands. set cp="r:\data_papps\freebasic\lib" set sp="R:\Data\Test\hs110" set bp="R:\Data\Test\hs110" R:\data_papps\FreeBASIC\fbc -target win64 -v %sp%\tplink.bas fblogo.rc -x %bp%\tplink.exe It is as simple as e...
by Dinosaur
Oct 18, 2019 13:47
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All Andy you are welcome, the more the merrier. I bought mine at Bunnings in Hervey Bay and would be interested in the differences. If you run the .cmdStr = !"{\"system\":{\"get_sysinfo\":null}}" command and post the result that would show if there are significant di...
by Dinosaur
Oct 16, 2019 23:32
Forum: Community Discussion
Topic: FreeBASIC 1.08 Development
Replies: 93
Views: 2815

Re: FreeBASIC 1.08 Development

Hi All I appreciate the discussion on the issue I raised, even though I thought it a "Mundane" issue. Also I now understand the complexity involved with changing what I envisaged to be a fundamental issue. I don't normally get involved with development issues, BUT,reading all the submissio...
by Dinosaur
Oct 16, 2019 13:40
Forum: Community Discussion
Topic: FreeBASIC 1.08 Development
Replies: 93
Views: 2815

Re: FreeBASIC 1.08 Development

Hi All So, basically it is to complex to implement. I guess the closest way to do it with While:Wend requires 2 extra instructions. While MyUDT.Index < MyUdt.Limit MyUDT.Index += 1 'Do whatever Exit while wend But then again I have no idea as to the overhead of each method, so while :wend could actu...
by Dinosaur
Oct 16, 2019 2:12
Forum: Community Discussion
Topic: FreeBASIC 1.08 Development
Replies: 93
Views: 2815

Re: FreeBASIC 1.08 Development

Hi All This may seem to be a rather mundane request, BUT it is really annoying to me. Why is this not allowed ? For MyUDT.Index = 1 to MyUdt.Limit 'Do whatever Next I have to transfer the udt elements to & from a local or global variable. I have lost count how many times I wrote code as per abov...
by Dinosaur
Oct 15, 2019 23:34
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All Does it use the same protocol? And do you know the commands to send? No and No, but what are the chances that the On & off are the same ? Australian expression "Suck it and see" Will test and see the getJsonValue() functions and let you know. Don't expect much progress from me u...
by Dinosaur
Oct 15, 2019 16:36
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All Yet, the US version will go as low as 30 mSec to do a Tx/Rx which is still way faster then the AU version where the minimum I achieved with it is 80 mSec. I did change the sleep times. while connection->CanPut() <> 1 sleep 1 wend connection->PutData(StrPtr(Tx),Len(Tx)) while connection->CanGe...
by Dinosaur
Oct 15, 2019 1:11
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All I have been looking into the response time differences between the US & AU versions. Using this DataTxRx routine I have marked the times in it. Sub DataTxRx If Control.PrintFlag = 3 Then Print "DataTxRx" Times.TxRxTime = (Timer - Times.CalTime) * 1000 IP = NetDevice(Control.Devi...
by Dinosaur
Oct 13, 2019 21:25
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All

The US version has "longitude" and "latitude"
The AU version has "next_action" which reports FAIL_IS_OBJECT
The data is ,"next_action":{"type":-1},

Have you completely updated the snc.bi ?

Regards
by Dinosaur
Oct 13, 2019 21:03
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All I thought I checked case carefully, but 1 for sure is not a case problem.It is a stupid mis reading error. From .RxData ,"dev_name":"Smart Wi-Fi Plug With Energy Monitoring", I am checking for getJsonValue(NetDevice(Control.Device).RxData, "device_name") device_n...
by Dinosaur
Oct 13, 2019 19:21
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All If you try my getJsonValue() posted abvove, then the order data should not matter. Yep, that works well, thanks. A couple of items don't appear to fill in. {"system":{"get_sysinfo":{"sw_ver":"1.5.5 Build 181225 Rel.102720","hw_ver":"2.0&q...
by Dinosaur
Oct 13, 2019 16:49
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All badidea, that's a good find. I was already thinking about changing some of them for my own purpose and put a SSR in there. I have a lot of experience with them. The Australian HS110(EU) does have the correct socket, but the only other question is then, Is this the start of your Rxdata when yo...
by Dinosaur
Oct 13, 2019 13:47
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 120
Views: 3803

Re: TP-Link HS110

Hi All That display looks good, well done. And here I thought you lost interest. ;) TP-Link does state that different regions have different firmware ?? I nearly bought another AU unit from Amazon Australia, but the model was an EU, is that what you have ? My current one is an HS110(AU). Have update...

Go to advanced search