thinBASIC 1.9.16.X

[ReneMiner]

few of my older scripts and also my current project suffer from messgeboxes as these (see images)


The messages appear in counts of 5 to 6 after each other- the headline tells to report this in thinBasic-forum.
Ok, i did...

Just to add: always if these messages occur during script-execution 1 more message will appear when script-execution ends

I found a way to repeat the appearance of these bugs in my thinICE.

Uses "console"
 
Type tType
  Eros As String
  Petr As String
  Rene As String

' --------------------------------------------------------
  Function thinBasic(ByRef X As Long,       _
                     ByVal Y(Any) As DWord, _
            Optional ByVal Z As Quad        )
' --------------------------------------------------------
             
    Local a As tType
    Static b As Byte
    Dim c(123) As Word
    Local d As Double At 0
     
 
  End Function
   
End Type

' --------------------------------------------------------
Function TBMain()
' --------------------------------------------------------

  Local lName As tType
   
  
  PrintL
  PrintL "---Press a key to finish---"
  WaitKey
End Function

• save this script to your disk.
• get thinICE_20151123b.zip
• unzip and run thinICE.tBasic from thinAir
• click on "Explorer"-Tab there up left...
• navigate through the pathview to the location of the script above that you just saved before.
(use middle-mouse-button to expand or collapse nodes in tree)
• Load by clicking onto the filename in the filelist-box
(left,center on explorer-tab)
• if you see the script (as in large image below), click into line 23 and type

Function tType.Test()

[ErosOlmi]

René, please try 1.9.16.4 at: http://www.thinbasic.biz/projects/th...c_1.9.16.4.zip
If this will fix your error I will publish it.

Petr, all new date/time functions should be fixed.
I do not like them too much even if I developed. I would like to add a Date variable type sooner or later.
This is a tninBasic code equivalent to your PB example mentioned in previous posts:

Function TBMain () As Long 
  MsgBox 0, GetDatePart("Hello Eros, do you remember what happened on 11/08/2014. I do not :D")
  MsgBox 0, GetTimePart("Ciao, it is 20/11/2015 today, and I am writing this on 12:36:50")
 
End Function
 
Function GetDatePart(ByVal inputText As String) As String
  Local position, length As Long
  RegExpr$("([0-9]+)/([0-9]+)/([0-9]+)", inputText, 1, position, length)
  Function = Mid$(inputText, position, length)
End Function
 
Function GetTimePart(ByVal inputText As String) As String
  Local position, length As Long
  RegExpr$("([0-9]+):([0-9]+):([0-9]+)", inputText, 1, position, length)
  Function = Mid$(inputText, position, length)
End Function

---

This version didn't add any new feature, I was working on Tokenizer but not yet finished.
This version has latest TBGL from Pter Schreiber.

[ReneMiner]

yes, the bug seems gone

[Petr Schreiber]

Ciao Eros,

perfect! I like how you fine tuned the help file even further, I am soo happy now.
Now all unit tests passing...

If you would like to do some pair coding on DateTime datatype, let me know. Will be happy to help!


Petr

P.S. Forgot about RegExp$, I thought we have just that VBScript wrapper, nice!
P.P.S. One little issue: My examples for help file presumed incorporation of my regex proposal, so the following dob't work currently:
Long dayFromString = Day("Let's meet on 12/06/2015")

Long hourFromString = Hour("I woke up today around 11:50:25")

Long minuteFromString = Minute("It was around 11:50:25, or not?")

Long monthFromString = Month("I don't remember what is special about 12/06/2015, do you?")

Long secondFromString = Second("Current time is like 11:50:25, ... or maybe not")

Long yearFromString = Year("Thinking of 12/06/2015...")

and should be changed to this (unless regex is brought into it):

Long dayFromString = Day("12/06/2015")

Long hourFromString = Hour("11:50:25")

Long minuteFromString = Minute("11:50:25")

Long monthFromString = Month("12/06/2015")

Long secondFromString = Second("11:50:25")

Long yearFromString = Year("12/06/2015")

[Petr Schreiber]

Rene - as promised, the 1.9.16.4 has the TBGL_PushLogicOp / TBGL_PopLogicOp, so you can drop TBGL_DrawInverted from your thinICE and replace it with this one.

[Michael Hartlef]

Thank you for the ongoing development of thinBasic!!!

[Michael Hartlef]

I am testing the newest version and getting errors with some sample scripts.

#1: I am getting this error in Excel/Excel_Test_SingleWorkBook.tbasic

Error Code: 5030
Description: Class not intialized using NEw keyword
Line 50

#2: Similar in Excel/Excel_Test.tbasic

#3: General/Keywords/Keywords.tbasic crashes

#4: General/UDT/UDT_VarPtr.tbasic

Error Code: 18
Description: Unknown Keyword
Line 42

#5: Similar with others in the General/UDT folder

#5: Similar with others in the General/Functions folder

[Michael Hartlef]

In the Api/Dummy/AnimateWindow.tbasic script, the API call is commented out. Any reason for it? It seems to work fine.

[Michael Hartlef]

1# In the APi/Dummy/Memory.tbasic it shows only half of my memory available.

2# COM/xml.tbasic crashes with an execption.

Ok, that is all for now. More later when I find something.

[Petr Schreiber]

Hi Michael,

thanks for the list of issues, it is very important for us!
Nice to see you again!

Regarding APi/Dummy/Memory.tbasic and half memory - it is probably because the API used is 32 bit.
You can easily perform much more precise queries via WMI:

Uses "WMI", "OS", "Console"
  
String sBuffer = WMI_GetData(OS_GetComputerName, "", "", "", "Win32_ComputerSystem", "", "TotalPhysicalMemory" )
Print "Total memory: "
PrintL Grab$(sBuffer, "TotalPhysicalMemory=", $CRLF)+" bytes" In 10
                                          
PrintL
PrintL "Press any key to exit..." In 14
WaitKey

Petr