Search found 1305 matches

by Dinosaur
Oct 13, 2019 16:49
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7299

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: 150
Views: 7299

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...
by Dinosaur
Oct 13, 2019 0:59
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7299

Re: TP-Link HS110

Hi All Surprise when I bought the us version of the HS110. The get_sysinfo command produces the output in a completely different order. The Australian HS110 .Cmnd = get_sysinfo .SubCmnd = sw_ver=1.5.5 Build 181225 Rel.102720 .HwVer = 2.0 .Type = IOT.SMARTPLUGSWITCH .Model = HS110(AU) .MAC = B0:BE:76...
by Dinosaur
Oct 11, 2019 1:33
Forum: General
Topic: With End With confusion.
Replies: 2
Views: 190

Re: With End With confusion.

Hi All

Thanks fxm, I got what I asked for , a simple solution

regards
by Dinosaur
Oct 10, 2019 17:58
Forum: General
Topic: With End With confusion.
Replies: 2
Views: 190

With End With confusion.

Hi All I am confused as to the behaviour and wrote a small test to show my point. Type MyUDTs Indexer as Long End Type Dim Shared MyUDT(5) as MyUDTs Type Controls DeviceNbr as Long End Type Dim Shared Control as Controls Sub RunDevice With MyUDT(Control.DeviceNbr) Print "RunDevice = ";Cont...
by Dinosaur
Oct 09, 2019 2:05
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7299

Re: TP-Link HS110

Hi All Looks good, will try it and report back. I need confirmation from your HS110 as to the network name when it has been reset to Factory default. Mine comes up as :"TP-LINK_Smart Plug_B83C" This works , but will be no good if every HS110 has a different name. Note the space in the name...
by Dinosaur
Oct 07, 2019 21:17
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7299

Re: TP-Link HS110

Hi All badidea , the computer on which this will run is a Beaglebone Black. I have made a cape to fit on it which has 8 inputs and 20 1 amp outputs (O/P) So perhaps that is where the O/P came from. The reason the Enter key does that is that the Quit command = 0 and pressing Enter basically means 0. ...
by Dinosaur
Oct 06, 2019 23:22
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7299

Re: TP-Link HS110

Hi All badidea I have uploaded an update. YFYI: You need to edit the Addresses.txt with your Network name ,IP & password on Line 1 and the device detail on whatever line number you want to use. For testing I copied mine onto line 20 as well. The command for getting the IP from MAC was still trou...
by Dinosaur
Oct 05, 2019 23:48
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7299

Re: TP-Link HS110

Hi All badidea the macscan is working yes. The parser is basically manually editing the json strings, but once all the strings for each command are done there won't be a need for any json library. Also the code contributed by srvaldez works beautifully for all commands. I am close to having done tha...
by Dinosaur
Oct 05, 2019 18:42
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7299

Re: TP-Link HS110

Hi All Sent a PM last night badidea , tell me when you have had enough of this project and I will stop sending info. Fixed Command 14. Case 14 'Get IP from MAC .cmdStr = "" Dim as String s , IPAddr = "", Chrs input "MAC Address in Lower Case :"; s .StartTime = Times.mSe...
by Dinosaur
Oct 05, 2019 18:31
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1283

Re: String Sort problem

Hi All

My partner in crime (badidea) has been looking into that.

Regards
by Dinosaur
Oct 05, 2019 17:22
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1283

Re: String Sort problem

Hi All My wife tells me that I have the patience of Jobe. (except with printers) Finally found the reason. In Command 14 Case 14 'Get IP from MAC Dim as Long PF = FreeFile Dim as String s , IPAddr = "", Chrs input "MAC Address in Lower Case :"; s Open pipe "./macscan.sh &quo...
by Dinosaur
Oct 05, 2019 15:46
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1283

Re: String Sort problem

Hi All

Thanks for the wakeup call grindstone.
No, I don't think so, BUT do we have the same restrictions within a Select Case ?

But I will now check for it.

Regards
by Dinosaur
Oct 05, 2019 1:05
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1283

Re: String Sort problem

Hi All I have replaced and tested by running the script in the terminal and directing the output into a file. Then Dim as Long pf = Freefile Dim s as String * 18 Open "max.txt" for Input as #pf Get #pf,, s Close #pf Print s Same fault in the same place, after it comes back from reading the...
by Dinosaur
Oct 05, 2019 0:17
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1283

Re: String Sort problem

Hi All Well it is not a Computer problem. I have tried it on another laptop (complete clean install of every thing) I have tried it on a BeagleBone Black. Even when the script is not run (due to permission error) the same fault on return from the shell. I HATE SHELL Programming, the only reason to d...

Go to advanced search