;***************************** ;* RoboTask Task file ;* Do not edit in text editor! ;***************************** [Root] ActionAfterRun=INTEGER|0 Actions=FOLDER Automat=INTEGER|-1 CatID=INTEGER|397884660 Comment=STRINGLIST ContinueOnError=INTEGER|0 ExternalName=STRING|"Task1118" Hide=INTEGER|0 ID=INTEGER|1606216354 LogOnAsUser=INTEGER|1 Name=STRING|"[DEMO] VB Evaluate demo" OnErrorTaskID=INTEGER|-1 Priority=INTEGER|3 RunOnClose=INTEGER|0 RunOnStartup=INTEGER|0 ToLog=INTEGER|3 WriteGeneralLog=INTEGER|0 [Actions] Action1=FOLDER Action2=FOLDER Action3=FOLDER [Actions\Action1] ActionID=STRING|"A_VARIABLES_SET" Enabled=INTEGER|-1 Name=STRING|"Set variable ""EXPRESSION"" with value ""factorial(6) + sum(5,6) + multi(5.7, 8.99)""" Params=FOLDER [Actions\Action1\Params] expand=STRING|"0" varname=STRING|"EXPRESSION" varvalue=STRING|"factorial(6) + sum(5,6) + multi(5.7, 8.99)" [Actions\Action2] ActionID=STRING|"A_SCRIPT_VBEVALUATE" Enabled=INTEGER|-1 Name=STRING|"VB Evaluate" Params=FOLDER [Actions\Action2\Params] expression=STRING|"{Expression}" line00000000=STRING|"function sum(a, b)" line00000001=STRING|" sum = a + b" line00000002=STRING|"end Function" line00000005=STRING|"function multi(a, b)" line00000006=STRING|" multi = a * b" line00000007=STRING|"end function" line00000009=STRING|"function factorial(a)" line0000000A=STRING|" if a > 30 then" line0000000B=STRING|" 'this is synthetic limitation" line0000000C=STRING|" err.raise 1, , ""Parameter more than 30""" line0000000D=STRING|" end if" line0000000F=STRING|" res = 1" line00000010=STRING|" for i = 1 to a" line00000011=STRING|" res = res * i" line00000012=STRING|" next" line00000014=STRING|" factorial = res" line00000015=STRING|"end function" line00000017=STRING|"'logmessage(factorial(31))" linecount=STRING|"24" loadfromfile=STRING|"1" variable=STRING|"result" [Actions\Action3] ActionID=STRING|"A_DIALOG_MESSAGE" Enabled=INTEGER|-1 Name=STRING|"Show ""Expression: {Expression}""" Params=FOLDER [Actions\Action3\Params] icon=STRING|"1" msg0=STRING|"Expression: {Expression}" msg1=STRING|"Result is: {result}" msgcount=STRING|"2" playsound=STRING|"0" showmessage=STRING|"1"