;***************************** ;* RoboTask Task file ;* Do not edit in text editor! ;***************************** [Root] ActionAfterRun=INTEGER|0 Actions=FOLDER Automat=INTEGER|-1 CatID=INTEGER|235983816 Comment=STRINGLIST ContinueOnError=INTEGER|0 DisableOnError=INTEGER|0 DoNotStopWhenShutdown=INTEGER|0 ExternalName=STRING|"Task1470" Hide=INTEGER|0 ID=INTEGER|797530940 LocalVariables=STRING|"PARAMETER_A,PARAMETER_B,PARAMETER_C" LogOnAsUser=INTEGER|0 Name=STRING|"[DEMO.BASIC] Quadratic Equation" OnErrorTaskID=INTEGER|-1 Priority=INTEGER|3 RunOnClose=INTEGER|0 RunOnStartup=INTEGER|0 ToLog=INTEGER|3 UnicodeFormat=INTEGER|1 WriteGeneralLog=INTEGER|0 [Actions] Action1=FOLDER Action2=FOLDER Action3=FOLDER Action4=FOLDER Action5=FOLDER [Actions\Action1] ActionID=STRING|"A_DIALOG_MESSAGE" Enabled=INTEGER|-1 Name=STRING|"Show ""This task helps you solve quadratic equation""" Params=FOLDER [Actions\Action1\Params] icon=STRING|"1" msg0=STRING|"This task helps you solve quadratic equation" msg1=STRING|"A(x^2)+Bx+C=0" msgcount=STRING|"2" playsound=STRING|"0" showmessage=STRING|"1" [Actions\Action2] ActionID=STRING|"A_DIALOG_INPUTBOX" Enabled=INTEGER|-1 Name=STRING|"Input Box" Params=FOLDER [Actions\Action2\Params] default=STRING|"0" prompt=STRING|"Enter coefficient A:" variable=STRING|"PARAMETER_A" [Actions\Action3] ActionID=STRING|"A_DIALOG_INPUTBOX" Enabled=INTEGER|-1 Name=STRING|"Input Box" Params=FOLDER [Actions\Action3\Params] default=STRING|"0" prompt=STRING|"Enter coefficient B:" variable=STRING|"PARAMETER_B" [Actions\Action4] ActionID=STRING|"A_DIALOG_INPUTBOX" Enabled=INTEGER|-1 Name=STRING|"Input Box" Params=FOLDER [Actions\Action4\Params] default=STRING|"0" prompt=STRING|"Enter coefficient C:" variable=STRING|"PARAMETER_C" [Actions\Action5] ActionID=STRING|"A_SCRIPT_VBSCRIPT" Enabled=INTEGER|-1 Name=STRING|"VB Script" Params=FOLDER [Actions\Action5\Params] expandvars=STRING|"0" line00000000=STRING|"sub ExecSoluton()" line00000001=STRING|" Dim a" line00000002=STRING|" Dim b" line00000003=STRING|" Dim c" line00000004=STRING|" Dim d" line00000005=STRING|" Dim x1" line00000006=STRING|" Dim x2" line00000007=STRING|" Dim s" line00000009=STRING|" a = cdbl(RoboTaskApp.ExpandText(""{Parameter_a}""))" line0000000A=STRING|" b = cdbl(RoboTaskApp.ExpandText(""{Parameter_b}""))" line0000000B=STRING|" c = cdbl(RoboTaskApp.ExpandText(""{Parameter_c}""))" line0000000D=STRING|" If a=0 Then" line0000000E=STRING|" MessageBox(""It is a linear equation!"")" line0000000F=STRING|" exit sub" line00000010=STRING|" End If" line00000012=STRING|" d = (b*b)-(4*a*c)" line00000014=STRING|" If d<0 Then" line00000015=STRING|" MsgBox(""Discriminant < 0! Equation haven't solutions"")" line00000016=STRING|" Exit sub" line00000017=STRING|" End If" line00000019=STRING|" x1 = (- b - Sqr(d))/(2*a)" line0000001A=STRING|" x2 = (- b + Sqr(d))/(2*a)" line0000001B=STRING|" s = ""Equation:""+Chr(10)+cStr(a)+""(x^2)""" line0000001D=STRING|" If b>=0 Then" line0000001E=STRING|" s = s + ""+"" + cStr(b) + ""x""" line0000001F=STRING|" Else" line00000020=STRING|" s = s + cStr(b) + ""x""" line00000021=STRING|" End If" line00000023=STRING|" If c>=0 Then" line00000024=STRING|" s = s + ""+"" + cStr(c) + ""=0""" line00000025=STRING|" Else" line00000026=STRING|" s = s + cStr(c) + ""=0""" line00000027=STRING|" End If" line00000029=STRING|" s = s+Chr(10)+""Solutions:""+Chr(10)+""X1=""+cStr(x1)+Chr(10)+""X2=""+cStr(x2)" line0000002A=STRING|" MessageBox(s)" line0000002B=STRING|"end sub" line0000002D=STRING|"ExecSoluton" linecount=STRING|"46" savescript=STRING|"0"