Other Software > Developer's Corner

[FBSL] FARR's Calc tool updated!

(1/1)

Gerome:
Hello,

I've improved my FARR's calculator!

Here's the link : http://gedd123.free.fr/Fbsl/DC/FBSLCalc_16-09.zip

How to install Fbslcalc.fbs into FARR ?
-1- Copy FBSLCalc.exe into \FindAndRunRobot\Scripts\
-2- Open FARR and edit Option, select the 'calc'item,and replace its regex config with this one :
calc $$1 | Scripts/FBSLCalc.exe "$$1"
-3- Save

That'all folks!
Now you can play with the newest calc :)

Usage : FBSLCalc.exe expression

Examples :
basic sample :
Calc 2+2
It'll return '4'

graphical sample :
calc /code=FBSL_Control("Button", Me, "Hello", 1000, 10, 10, 75, 23, 0, 0):show(me):begin events:If CBMsg = WM_COMMAND And CBCTL =1000 then msgbox(0, "Button clicked!", "yoo", 0):end events
it'll afx a form with a button, then just click onto the button... :)

sample sample :
calc /code=ExecLine(FileLoad("./PMem.fbs"))

Enjoy!

Here is the source of the newest FARR's calc :

--- Code: Text ---#Option Explicit'#AppType Console If Not STANDALONE Then    Fbsl2Exe( Command(1) ): ExitProgram(0)End If '// -----------------------------------------------------------------'// GEG 26 September 2006'// FBSLCALC.EXE 2.5/56*PI'// FBSLCALC.EXE /code=msgbox(Null,"Hello","Test",MB_ICONINFORMATION)'// -----------------------------------------------------------------Static $code, $resulttext, $result, $cmd = Command(-1), ch34 = Chr(34), ch92 = Chr(92)If cmd = "" Then    MsgBox(NULL, "You need to specify an expression to evaluate, like 2+2." & crlf & _                "If you encounter any problems, tell'em there : " & crlf & _                "http://www.fbsl.net/phpbb2/index.php", _                "Freestyle Basic Script Langage (FBSL) Calculator:", MB_OK +MB_ICONINFORMATION)    ExitProgram(1)End If cmd = Replace(cmd, ch34 & ch34, "")If Left(cmd, 1) = ch34 AndAlso Right(cmd, 1) = ch34 Then    cmd = Mid(cmd, 2, StrLen(cmd) - 2)End If If Instr(cmd,"/code=") Then    cmd = Remove(Trim(cmd), "/code=")    code = "result = " & cmd & " : Return result"    resulttext = cmd & " = " & ExecLine(code)Else    cmd = Replace(Trim(cmd), ",", ".")    code = "result = " & cmd & " : Return result"    ExecLine(code)    result = Replace(result, ".", GetLocalSeparator())    resulttext = cmd & " = " & resultEnd If If StrLen(cmd) = 0 Then ExitProgram(-1) ClipboardSetText(result)'resulttext)MsgBox(NULL, resulttext, "Freestyle Basic Script Langage (FBSL) Calculator / Executor:", _       MB_OK+MB_ICONINFORMATION) Function GetLocalSeparator()    Dim $Buffer * 4    ApiCall( "GetNumberFormat", "kernel32", 0, 0, "1.1", 0, @Buffer, Len(Buffer) )    Return Mid(Buffer,2,1)End Function

jgpaiva:
And here's the regex i use: (notice that it only works for the calculator itself)


--- ---(.*\+.*|.*\-.*|.*\*.*|.*\/.*)this expression will match anything that includes a *, +, / or -, which means you are able to do maths only by typing it in farr instead of having to prepend "calc".

(i know, it's not a very good expression since it uses the . aka dot)

Navigation

[0] Message Index