Search found 1308 matches

by Dinosaur
Oct 05, 2019 15:46
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1336

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: 1336

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: 1336

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...
by Dinosaur
Oct 04, 2019 23:39
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1336

Re: String Sort problem

Hi All Currently using 1.06 , but just tried 1.05 with no difference. Have you recently updated libraries or installed new applications on your PC ? I have been preparing my laptop to hand it over to my successor here in the usa. But that has mainly involved removing things. However, I can try using...
by Dinosaur
Oct 04, 2019 23:03
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1336

Re: String Sort problem

Hi all

MrSwiss, tested both changes and , sorry Hero Title still open.
Even taking out the print statement, did nothing to solve the fault.

I am even thinking of taking the very radical step of going back a few versions of FB.
Never before have I had such a spate of these faults.

Regards
by Dinosaur
Oct 04, 2019 21:46
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1336

Re: String Sort problem

Hi All MrSwiss I thought it was that straight forward as well. In fact I could not find errors in my code and the way I did it. I kept getting Segmentation fault (core dumped) In fact I don't recall getting that fault for years. Now I seem to be getting it every day for some reason that nobody can p...
by Dinosaur
Oct 04, 2019 14:55
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7677

Re: TP-Link HS110

Hi All badidea we all have our distractions. Currently my wife is going through chemo therapy and that means I am away from work and have a lot of time whilst she rests. That is about to change next week though. With the help of srvaldez (which you probably saw) I have modified Step 4 in the DataTxR...
by Dinosaur
Oct 04, 2019 14:08
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1336

Re: String Sort problem

Hi All Many thanks for the responses, but dafhi the walk didn't help. srvaldez I have implemented your second example and modified it as per below,. dim as string d(30) dim as integer i=0, j, c, l=len(s), q,r while i<l c=s[i]=58 if c then j=i+1 if s[j]=34 then q=34 j+=1 else q=58 end if while s[j]<>...
by Dinosaur
Oct 03, 2019 23:52
Forum: General
Topic: String Sort problem
Replies: 24
Views: 1336

String Sort problem

Hi All Linux, FB 1.06 The typical String: {"system":{"get_sysinfo":{"sw_ver":"1.5.5 Build 181225 Rel.102720","hw_ver":"2.0","type":"IOT.SMARTPLUGSWITCH","model":"HS110(AU)","mac":"B0:BE...
by Dinosaur
Oct 02, 2019 16:40
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7677

Re: TP-Link HS110

Hi All With this routine I get a segmentation fault on Case 21. Other then the names and the value of X, the code for each case is identical. I put some print statements in to make sure no weird values. Also copied the Temp buffer into a file and used an Hex editor to confirm there are no control Ch...
by Dinosaur
Oct 02, 2019 14:38
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7677

Re: TP-Link HS110

Hi All badidea , some progress. Case 4 ''Decrypt data recvd and convert commas to LF''s for readability. If Control.PrintFlag > 0 Then Print "Step-4" decrypt(.RxData) Dim as String Temp = .Rxdata 'StripSpaces(Temp) StripChars(Temp) 'strip { } " With LFCnt .LF(1) = 1 Dim X as Integer F...
by Dinosaur
Oct 01, 2019 22:21
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7677

Re: TP-Link HS110

Hi All I am working on, Reading the string for 24 locations of LF and recording the location as LF(x). Then using the value x-1 as Start and x as the end I have the beginning and end of each field. Save that string(x) Then using the : as the start and the LF as the end Read the string and assign it ...
by Dinosaur
Oct 01, 2019 19:54
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7677

Re: TP-Link HS110

Hi All The HS110 does not have a single command to check if the Relay is On / Off. When using the command system:get_sysinfo it does have buried in the string a statement: relay_state:1 So after some searching on stripping the string of all the unwanted char's, I wrote 2 Subs. 1 Specifically to &quo...
by Dinosaur
Oct 01, 2019 0:24
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7677

Re: TP-Link HS110

Hi All badidea, it is a huge improvement. The code that I zipped to you takes between 150 to 230 mSec for Command 4 Get Info (if you do it repeatedly) with the old snc Your test program takes between 50 and 120 mSec (if you do it repeatedly) When the HS110 is asleep it takes longer to wake it. But I...
by Dinosaur
Sep 30, 2019 23:38
Forum: Hardware Interfaces / Communication
Topic: TP-Link HS110
Replies: 150
Views: 7677

Re: TP-Link HS110

Hi All This fixes it. Have tested. Case 11 ''Set Time zone Dim as String Year = Right(Date,4) Dim as String Month = Left(Date,2) Dim as String Day = Mid(Date,4,2) Dim as String Hour = Left(Time,2) If Val(Hour) = 0 Then Hour = " 0" Dim as String Min = Mid(Time,4,2) If Val(Min) = 0 Then Min ...

Go to advanced search