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

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...

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...

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...

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

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...

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...

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]<>...

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...

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...

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...

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 ...

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...

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...

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 ...