Added files
This commit is contained in:
Patryk Gensch
103
dane/game/debug/mathtest/Casting_test.cnv
Normal file
103
dane/game/debug/mathtest/Casting_test.cnv
Normal file
@@ -0,0 +1,103 @@
|
||||
OBJECT=MOUSE
|
||||
MOUSE:TYPE=MOUSE
|
||||
MOUSE:RAW=0
|
||||
|
||||
OBJECT=CNVLOADER
|
||||
CNVLOADER:TYPE=CNVLOADER
|
||||
|
||||
OBJECT=CANVASOBSERVER
|
||||
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
|
||||
|
||||
OBJECT=KEYBOARD
|
||||
KEYBOARD:TYPE=KEYBOARD
|
||||
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("MATH_TEST");}
|
||||
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
|
||||
KEYBOARD:ONKEYDOWN^1={CURRENTLYCHANGING^SET("LEFTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
|
||||
KEYBOARD:ONKEYDOWN^2={CURRENTLYCHANGING^SET("RIGHTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
|
||||
KEYBOARD:ONKEYDOWN^UP={@IF("*CURRENTLYCHANGING^GET()", ">", "0", "{*CURRENTLYCHANGING^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
|
||||
KEYBOARD:ONKEYDOWN^DOWN={@IF("*CURRENTLYCHANGING^GET()", "<", "3", "{*CURRENTLYCHANGING^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
|
||||
KEYBOARD:ONKEYDOWN^Q={@IF("TESTSETNO", ">", "0", "{TESTSETNO^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
|
||||
KEYBOARD:ONKEYDOWN^E={@IF("TESTSETNO", "<", "1", "{TESTSETNO^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
|
||||
KEYBOARD:ONKEYDOWN^A={CURRENT_OPERATOR^SET("AND");UPDATE_TEST_SET_TEXT^RUN();}
|
||||
KEYBOARD:ONKEYDOWN^D={CURRENT_OPERATOR^SET("OR");UPDATE_TEST_SET_TEXT^RUN();}
|
||||
|
||||
OBJECT=ARIAL14
|
||||
ARIAL14:TYPE=FONT
|
||||
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
|
||||
|
||||
OBJECT=TXTMSG
|
||||
TXTMSG:TYPE=TEXT
|
||||
TXTMSG:VISIBLE=TRUE
|
||||
TXTMSG:HYPERTEXT=
|
||||
TXTMSG:FONT=ARIAL14
|
||||
TXTMSG:TOCANVAS=TRUE
|
||||
TXTMSG:RECT=0,0,800,250
|
||||
TXTMSG:PRIORITY=10000
|
||||
TXTMSG:HJUSTIFY=CENTER
|
||||
TXTMSG:VJUSTIFY=TOP
|
||||
TXTMSG:MONITORCOLLISION=FALSE
|
||||
TXTMSG:MONITORCOLLISIONALPHA=FALSE
|
||||
|
||||
OBJECT=TXTMSG2
|
||||
TXTMSG2:TYPE=TEXT
|
||||
TXTMSG2:VISIBLE=TRUE
|
||||
TXTMSG2:HYPERTEXT=
|
||||
TXTMSG2:FONT=ARIAL14
|
||||
TXTMSG2:TOCANVAS=TRUE
|
||||
TXTMSG2:RECT=0,0,800,250
|
||||
TXTMSG2:PRIORITY=10000
|
||||
TXTMSG2:HJUSTIFY=CENTER
|
||||
TXTMSG2:VJUSTIFY=BOTTOM
|
||||
TXTMSG2:MONITORCOLLISION=FALSE
|
||||
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
|
||||
|
||||
OBJECT=DANETESTOWE
|
||||
DANETESTOWE:TYPE=ARRAY
|
||||
|
||||
OBJECT=SLOWNIK
|
||||
SLOWNIK:TYPE=ARRAY
|
||||
|
||||
OBJECT=CURRENT_OPERATOR
|
||||
CURRENT_OPERATOR:TYPE=STRING
|
||||
CURRENT_OPERATOR:VALUE=AND
|
||||
|
||||
OBJECT=TESTSETNO
|
||||
TESTSETNO:TYPE=INTEGER
|
||||
TESTSETNO:VALUE=0
|
||||
|
||||
OBJECT=LEFTOPERAND
|
||||
LEFTOPERAND:TYPE=INTEGER
|
||||
LEFTOPERAND:VALUE=0
|
||||
|
||||
OBJECT=RIGHTOPERAND
|
||||
RIGHTOPERAND:TYPE=INTEGER
|
||||
RIGHTOPERAND:VALUE=0
|
||||
|
||||
OBJECT=LSTRING
|
||||
LSTRING:TYPE=STRING
|
||||
LSTRING:VALUE=LEFTOPERAND
|
||||
|
||||
OBJECT=RSTRING
|
||||
RSTRING:TYPE=STRING
|
||||
RSTRING:VALUE=RIGHTOPERAND
|
||||
|
||||
OBJECT=CURRENTLYCHANGING
|
||||
CURRENTLYCHANGING:TYPE=STRING
|
||||
CURRENTLYCHANGING:VALUE=LEFTOPERAND
|
||||
|
||||
OBJECT=UPDATE_TEST_SET_TEXT
|
||||
UPDATE_TEST_SET_TEXT:TYPE=BEHAVIOUR
|
||||
UPDATE_TEST_SET_TEXT:CODE={TXTMSG2^SETTEXT(["Zestaw_testowy__"+[TESTSETNO+1]+"|STRING__"+DANETESTOWE^GET([TESTSETNO*4])+"|INTEGER__"+DANETESTOWE^GET([TESTSETNO*4+3])+"|DOUBLE__"+DANETESTOWE^GET([TESTSETNO*4+2])+"|BOOL__"+DANETESTOWE^GET([TESTSETNO*4+1])+"||"+GENERATE_TEST_TEXT^RUN()]);}
|
||||
|
||||
OBJECT=GENERATE_TEST_TEXT
|
||||
GENERATE_TEST_TEXT:TYPE=BEHAVIOUR
|
||||
GENERATE_TEST_TEXT:CODE={@STRING("TEST_RESULT","");@IF("CURRENTLYCHANGING", "_", "LSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(LEFTOPERAND));TEST_RESULT^ADD("_____");@IF("CURRENTLYCHANGING", "_", "RSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(RIGHTOPERAND));TEST_RESULT^ADD(["|"+DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])]);@IF("CURRENT_OPERATOR", "_", "OR", "{TEST_RESULT^ADD("_OR_");}", "{TEST_RESULT^ADD("_AND_");}");TEST_RESULT^ADD([DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])]);TEST_RESULT^ADD(["__"+CHECK_VARS^RUN()]);@RETURN(TEST_RESULT);}
|
||||
|
||||
OBJECT=CHECK_VARS
|
||||
CHECK_VARS:TYPE=BEHAVIOUR
|
||||
CHECK_VARS:CODE={@BOOL("LOGIC_RESULT", FALSE);@IF("LEFTOPERAND>0&&RIGHTOPERAND>0", "{@IF("CURRENT_OPERATOR", "_", "OR", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"||"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"&&"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}");}", "");@RETURN(LOGIC_RESULT);}
|
||||
CHECK_VARS:DESCRIPTION=SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_LOGICZNYM__NA_TEN_MOMENT_NIE_DZIA<49>A__WYWALA_DO_PULPITU
|
||||
|
||||
OBJECT=__INIT__
|
||||
__INIT__:TYPE=BEHAVIOUR
|
||||
__INIT__:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");SLOWNIK^LOAD("SLOWNIK.ARR");TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_instrukcji_logicznych"]);TXTMSG^SHOW();TXTMSG2^SHOW();UPDATE_TEST_SET_TEXT^RUN();}
|
||||
104
dane/game/debug/mathtest/Logic_test.cnv
Normal file
104
dane/game/debug/mathtest/Logic_test.cnv
Normal file
@@ -0,0 +1,104 @@
|
||||
OBJECT=MOUSE
|
||||
MOUSE:TYPE=MOUSE
|
||||
MOUSE:RAW=0
|
||||
|
||||
OBJECT=CNVLOADER
|
||||
CNVLOADER:TYPE=CNVLOADER
|
||||
|
||||
OBJECT=CANVASOBSERVER
|
||||
CANVASOBSERVER:TYPE=CANVAS_OBSERVER
|
||||
|
||||
OBJECT=KEYBOARD
|
||||
KEYBOARD:TYPE=KEYBOARD
|
||||
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("MATH_TEST");}
|
||||
KEYBOARD:ONKEYDOWN^RIGHT={DEBUG_VALUE^INC();DEBUG^GOTO("ARRAY_TEST");}
|
||||
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
|
||||
KEYBOARD:ONKEYDOWN^1={CURRENTLYCHANGING^SET("LEFTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
|
||||
KEYBOARD:ONKEYDOWN^2={CURRENTLYCHANGING^SET("RIGHTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
|
||||
KEYBOARD:ONKEYDOWN^UP={@IF("*CURRENTLYCHANGING^GET()", ">", "0", "{*CURRENTLYCHANGING^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
|
||||
KEYBOARD:ONKEYDOWN^DOWN={@IF("*CURRENTLYCHANGING^GET()", "<", "3", "{*CURRENTLYCHANGING^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
|
||||
KEYBOARD:ONKEYDOWN^Q={@IF("TESTSETNO", ">", "0", "{TESTSETNO^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
|
||||
KEYBOARD:ONKEYDOWN^E={@IF("TESTSETNO", "<", "1", "{TESTSETNO^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
|
||||
KEYBOARD:ONKEYDOWN^A={CURRENT_OPERATOR^SET("AND");UPDATE_TEST_SET_TEXT^RUN();}
|
||||
KEYBOARD:ONKEYDOWN^D={CURRENT_OPERATOR^SET("OR");UPDATE_TEST_SET_TEXT^RUN();}
|
||||
|
||||
OBJECT=ARIAL14
|
||||
ARIAL14:TYPE=FONT
|
||||
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
|
||||
|
||||
OBJECT=TXTMSG
|
||||
TXTMSG:TYPE=TEXT
|
||||
TXTMSG:VISIBLE=TRUE
|
||||
TXTMSG:HYPERTEXT=
|
||||
TXTMSG:FONT=ARIAL14
|
||||
TXTMSG:TOCANVAS=TRUE
|
||||
TXTMSG:RECT=0,0,800,250
|
||||
TXTMSG:PRIORITY=10000
|
||||
TXTMSG:HJUSTIFY=CENTER
|
||||
TXTMSG:VJUSTIFY=TOP
|
||||
TXTMSG:MONITORCOLLISION=FALSE
|
||||
TXTMSG:MONITORCOLLISIONALPHA=FALSE
|
||||
|
||||
OBJECT=TXTMSG2
|
||||
TXTMSG2:TYPE=TEXT
|
||||
TXTMSG2:VISIBLE=TRUE
|
||||
TXTMSG2:HYPERTEXT=
|
||||
TXTMSG2:FONT=ARIAL14
|
||||
TXTMSG2:TOCANVAS=TRUE
|
||||
TXTMSG2:RECT=0,0,800,250
|
||||
TXTMSG2:PRIORITY=10000
|
||||
TXTMSG2:HJUSTIFY=CENTER
|
||||
TXTMSG2:VJUSTIFY=BOTTOM
|
||||
TXTMSG2:MONITORCOLLISION=FALSE
|
||||
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
|
||||
|
||||
OBJECT=DANETESTOWE
|
||||
DANETESTOWE:TYPE=ARRAY
|
||||
|
||||
OBJECT=SLOWNIK
|
||||
SLOWNIK:TYPE=ARRAY
|
||||
|
||||
OBJECT=CURRENT_OPERATOR
|
||||
CURRENT_OPERATOR:TYPE=STRING
|
||||
CURRENT_OPERATOR:VALUE=AND
|
||||
|
||||
OBJECT=TESTSETNO
|
||||
TESTSETNO:TYPE=INTEGER
|
||||
TESTSETNO:VALUE=0
|
||||
|
||||
OBJECT=LEFTOPERAND
|
||||
LEFTOPERAND:TYPE=INTEGER
|
||||
LEFTOPERAND:VALUE=0
|
||||
|
||||
OBJECT=RIGHTOPERAND
|
||||
RIGHTOPERAND:TYPE=INTEGER
|
||||
RIGHTOPERAND:VALUE=0
|
||||
|
||||
OBJECT=LSTRING
|
||||
LSTRING:TYPE=STRING
|
||||
LSTRING:VALUE=LEFTOPERAND
|
||||
|
||||
OBJECT=RSTRING
|
||||
RSTRING:TYPE=STRING
|
||||
RSTRING:VALUE=RIGHTOPERAND
|
||||
|
||||
OBJECT=CURRENTLYCHANGING
|
||||
CURRENTLYCHANGING:TYPE=STRING
|
||||
CURRENTLYCHANGING:VALUE=LEFTOPERAND
|
||||
|
||||
OBJECT=UPDATE_TEST_SET_TEXT
|
||||
UPDATE_TEST_SET_TEXT:TYPE=BEHAVIOUR
|
||||
UPDATE_TEST_SET_TEXT:CODE={TXTMSG2^SETTEXT(["Zestaw_testowy__"+[TESTSETNO+1]+"|STRING__"+DANETESTOWE^GET([TESTSETNO*4])+"|INTEGER__"+DANETESTOWE^GET([TESTSETNO*4+3])+"|DOUBLE__"+DANETESTOWE^GET([TESTSETNO*4+2])+"|BOOL__"+DANETESTOWE^GET([TESTSETNO*4+1])+"||"+GENERATE_TEST_TEXT^RUN()]);}
|
||||
|
||||
OBJECT=GENERATE_TEST_TEXT
|
||||
GENERATE_TEST_TEXT:TYPE=BEHAVIOUR
|
||||
GENERATE_TEST_TEXT:CODE={@STRING("TEST_RESULT","");@IF("CURRENTLYCHANGING", "_", "LSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(LEFTOPERAND));TEST_RESULT^ADD("_____");@IF("CURRENTLYCHANGING", "_", "RSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(RIGHTOPERAND));TEST_RESULT^ADD(["|"+DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])]);@IF("CURRENT_OPERATOR", "_", "OR", "{TEST_RESULT^ADD("_OR_");}", "{TEST_RESULT^ADD("_AND_");}");TEST_RESULT^ADD([DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])]);TEST_RESULT^ADD(["__"+CHECK_VARS^RUN()]);@RETURN(TEST_RESULT);}
|
||||
|
||||
OBJECT=CHECK_VARS
|
||||
CHECK_VARS:TYPE=BEHAVIOUR
|
||||
CHECK_VARS:CODE={@BOOL("LOGIC_RESULT", FALSE);@IF("LEFTOPERAND>0&&RIGHTOPERAND>0", "{@IF("CURRENT_OPERATOR", "_", "OR", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"||"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"&&"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}");}", "");@RETURN(LOGIC_RESULT);}
|
||||
CHECK_VARS:DESCRIPTION=SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_LOGICZNYM__NA_TEN_MOMENT_NIE_DZIA<49>A__WYWALA_DO_PULPITU
|
||||
|
||||
OBJECT=__INIT__
|
||||
__INIT__:TYPE=BEHAVIOUR
|
||||
__INIT__:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");SLOWNIK^LOAD("SLOWNIK.ARR");TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_instrukcji_logicznych"]);TXTMSG^SHOW();TXTMSG2^SHOW();UPDATE_TEST_SET_TEXT^RUN();}
|
||||
220
dane/game/debug/mathtest/Math_test.cnv
Normal file
220
dane/game/debug/mathtest/Math_test.cnv
Normal file
@@ -0,0 +1,220 @@
|
||||
OBJECT=ARIAL14
|
||||
ARIAL14:TYPE=FONT
|
||||
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT
|
||||
|
||||
OBJECT=BEHNO
|
||||
BEHNO:TYPE=INTEGER
|
||||
BEHNO:VALUE=1
|
||||
|
||||
OBJECT=TEST_SET
|
||||
TEST_SET:TYPE=INTEGER
|
||||
TEST_SET:VALUE=1
|
||||
|
||||
OBJECT=KEYBOARD
|
||||
KEYBOARD:TYPE=KEYBOARD
|
||||
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("STRUCT_TEST");}
|
||||
KEYBOARD:ONKEYDOWN^RIGHT={DEBUG_VALUE^INC();DEBUG^GOTO("LOGIC_TEST");}
|
||||
KEYBOARD:ONKEYDOWN^UP={@IF("BEHNO",">","1","{BEHNO^DEC();}","");@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
|
||||
KEYBOARD:ONKEYDOWN^DOWN={@IF("BEHNO","<","12","{BEHNO^INC();}","");@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
|
||||
KEYBOARD:ONKEYDOWN^1={TEST_SET^SET(1);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
|
||||
KEYBOARD:ONKEYDOWN^2={TEST_SET^SET(2);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
|
||||
KEYBOARD:ONKEYDOWN^3={TEST_SET^SET(3);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
|
||||
KEYBOARD:ONKEYDOWN^4={TEST_SET^SET(4);BEH_SWITCH_TEST_SETS^RUN();BEH_SWITCH_TEST_SETS2^RUN();@IF("BEHNO'4||BEHNO'5",{*[MATHTEST+BEHNO+"_"+TEST_SET]^RUN();},{*[MATHTEST+BEHNO]^RUN();});}
|
||||
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
|
||||
|
||||
OBJECT=TEST
|
||||
TEST:TYPE=STRING
|
||||
TEST:VALUE=Test
|
||||
|
||||
OBJECT=TEST2
|
||||
TEST2:TYPE=BOOL
|
||||
TEST2:VALUE=TRUE
|
||||
|
||||
OBJECT=TEST3
|
||||
TEST3:TYPE=DOUBLE
|
||||
TEST3:VALUE=1.5
|
||||
|
||||
OBJECT=TEST4
|
||||
TEST4:TYPE=INTEGER
|
||||
TEST4:VALUE=1
|
||||
|
||||
OBJECT=TEST_COMPARE
|
||||
TEST_COMPARE:TYPE=STRING
|
||||
TEST_COMPARE:VALUE=Test
|
||||
|
||||
OBJECT=TEST2_COMPARE
|
||||
TEST2_COMPARE:TYPE=BOOL
|
||||
TEST2_COMPARE:VALUE=TRUE
|
||||
|
||||
OBJECT=TEST3_COMPARE
|
||||
TEST3_COMPARE:TYPE=DOUBLE
|
||||
TEST3_COMPARE:VALUE=1.5
|
||||
|
||||
OBJECT=TEST4_COMPARE
|
||||
TEST4_COMPARE:TYPE=INTEGER
|
||||
TEST4_COMPARE:VALUE=1
|
||||
|
||||
OBJECT=TXTMSG
|
||||
TXTMSG:TYPE=TEXT
|
||||
TXTMSG:VISIBLE=TRUE
|
||||
TXTMSG:HYPERTEXT=
|
||||
TXTMSG:FONT=ARIAL14
|
||||
TXTMSG:TOCANVAS=TRUE
|
||||
TXTMSG:RECT=0,0,800,250
|
||||
TXTMSG:PRIORITY=10000
|
||||
TXTMSG:HJUSTIFY=FALSE
|
||||
TXTMSG:VJUSTIFY=TOP
|
||||
TXTMSG:MONITORCOLLISION=FALSE
|
||||
TXTMSG:MONITORCOLLISIONALPHA=FALSE
|
||||
|
||||
OBJECT=TXTMSG2
|
||||
TXTMSG2:TYPE=TEXT
|
||||
TXTMSG2:VISIBLE=TRUE
|
||||
TXTMSG2:HYPERTEXT=
|
||||
TXTMSG2:FONT=ARIAL14
|
||||
TXTMSG2:TOCANVAS=TRUE
|
||||
TXTMSG2:RECT=0,0,800,250
|
||||
TXTMSG2:PRIORITY=10000
|
||||
TXTMSG2:HJUSTIFY=LEFT
|
||||
TXTMSG2:VJUSTIFY=BOTTOM
|
||||
TXTMSG2:MONITORCOLLISION=FALSE
|
||||
TXTMSG2:MONITORCOLLISIONALPHA=FALSE
|
||||
|
||||
OBJECT=TXTMSG3
|
||||
TXTMSG3:TYPE=TEXT
|
||||
TXTMSG3:VISIBLE=TRUE
|
||||
TXTMSG3:HYPERTEXT=
|
||||
TXTMSG3:FONT=ARIAL14
|
||||
TXTMSG3:TOCANVAS=TRUE
|
||||
TXTMSG3:RECT=0,0,800,250
|
||||
TXTMSG3:PRIORITY=10000
|
||||
TXTMSG3:HJUSTIFY=RIGHT
|
||||
TXTMSG3:VJUSTIFY=BOTTOM
|
||||
TXTMSG3:MONITORCOLLISION=FALSE
|
||||
TXTMSG3:MONITORCOLLISIONALPHA=FALSE
|
||||
|
||||
OBJECT=TEMP_BOOL
|
||||
TEMP_BOOL:TYPE=BOOL
|
||||
TEMP_BOOL:VALUE=FALSE
|
||||
|
||||
OBJECT=DEBUG_TXT
|
||||
DEBUG_TXT:TYPE=STRING
|
||||
DEBUG_TXT:VALUE=""
|
||||
|
||||
OBJECT=DEBUG_TXT2
|
||||
DEBUG_TXT2:TYPE=STRING
|
||||
|
||||
OBJECT=BEH_APPEND_TEXT
|
||||
BEH_APPEND_TEXT:TYPE=BEHAVIOUR
|
||||
BEH_APPEND_TEXT:CODE={$1^SET([$1^GET(0, $1^LENGTH())+"|"+$2]);}
|
||||
|
||||
OBJECT=BEH_SET_TRUE
|
||||
BEH_SET_TRUE:TYPE=BEHAVIOUR
|
||||
BEH_SET_TRUE:CODE={TEMP_BOOL^SET(TRUE);}
|
||||
|
||||
OBJECT=BEH_SET_FALSE
|
||||
BEH_SET_FALSE:TYPE=BEHAVIOUR
|
||||
BEH_SET_FALSE:CODE={TEMP_BOOL^SET(FALSE);}
|
||||
|
||||
OBJECT=BEH_SWITCH_TEST_SETS
|
||||
BEH_SWITCH_TEST_SETS:TYPE=BEHAVIOUR
|
||||
BEH_SWITCH_TEST_SETS:CODE={@IF("TEST_SET", "_", "1", {TEST_COMPARE^SET("Test");TEST2_COMPARE^SET(TRUE);TEST3_COMPARE^SET(1.5);TEST4_COMPARE^SET(1);}, {@IF("TEST_SET", "_", "2", {TEST_COMPARE^SET("Test2");TEST2_COMPARE^SET(FALSE);TEST3_COMPARE^SET(2.5);TEST4_COMPARE^SET(3);}, {@IF("TEST_SET", "_", "3", {TEST_COMPARE^SET("3");TEST2_COMPARE^SET(2);TEST3_COMPARE^SET(-2.5);TEST4_COMPARE^SET(-3);}, {TEST_COMPARE^SET("TEST3");TEST2_COMPARE^SET(0);TEST3_COMPARE^SET(1.00001);TEST4_COMPARE^SET(-5);});});});}
|
||||
|
||||
OBJECT=BEH_SWITCH_TEST_SETS2
|
||||
BEH_SWITCH_TEST_SETS2:TYPE=BEHAVIOUR
|
||||
BEH_SWITCH_TEST_SETS2:CODE={@IF("TEST_SET", "_", "4", {TEST^SET("Zzz");TEST2^SET(FALSE);TEST3^SET(6.5);TEST4^SET(1);}, {TEST^SET("Test");TEST2^SET(TRUE);TEST3^SET(1.5);TEST4^SET(1);});}
|
||||
|
||||
|
||||
OBJECT=MATHTEST1
|
||||
MATHTEST1:TYPE=BEHAVIOUR
|
||||
MATHTEST1:CODE={TXTMSG2^SETTEXT([TEST_DODAWANIA+"|"+BOOL_Z_BOOLEM__+[TEST2+TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2+TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2+TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2+TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST+TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST+TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST+TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST+TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4+TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4+TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4+TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4+TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3+TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3+TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3+TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3+TEST2_COMPARE]]);}
|
||||
MATHTEST1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DODAWANIU
|
||||
|
||||
OBJECT=MATHTEST2
|
||||
MATHTEST2:TYPE=BEHAVIOUR
|
||||
MATHTEST2:CODE={TXTMSG2^SETTEXT([TEST_ODEJMOWANIA+"|"+BOOL_Z_BOOLEM__+[TEST2-TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2-TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2-TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2-TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST-TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST-TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST-TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST-TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4-TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4-TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4-TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4-TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3-TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3-TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3-TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3-TEST2_COMPARE]]);}
|
||||
MATHTEST2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_ODEJMOWANIU
|
||||
|
||||
OBJECT=MATHTEST3
|
||||
MATHTEST3:TYPE=BEHAVIOUR
|
||||
MATHTEST3:CODE={TXTMSG2^SETTEXT([TEST_MNOZENIA+"|"+BOOL_Z_BOOLEM__+[TEST2*TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2*TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2*TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2*TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST*TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST*TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST*TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST*TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4*TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4*TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4*TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4*TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3*TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3*TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3*TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3*TEST2_COMPARE]]);}
|
||||
MATHTEST3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MNOZENIU
|
||||
|
||||
OBJECT=MATHTEST4_1
|
||||
MATHTEST4_1:TYPE=BEHAVIOUR
|
||||
MATHTEST4_1:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[TEST2@TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST@TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4@TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3@TEST2_COMPARE]]);}
|
||||
MATHTEST4_1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
|
||||
|
||||
OBJECT=MATHTEST4_2
|
||||
MATHTEST4_2:TYPE=BEHAVIOUR
|
||||
MATHTEST4_2:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);}
|
||||
MATHTEST4_2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
|
||||
|
||||
OBJECT=MATHTEST4_3
|
||||
MATHTEST4_3:TYPE=BEHAVIOUR
|
||||
MATHTEST4_3:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[TEST2@TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2@TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST@TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST@TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4@TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4@TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3@TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3@TEST2_COMPARE]]);}
|
||||
MATHTEST4_3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
|
||||
|
||||
OBJECT=MATHTEST4_4
|
||||
MATHTEST4_4:TYPE=BEHAVIOUR
|
||||
MATHTEST4_4:CODE={TXTMSG2^SETTEXT([TEST_DZIELENIA+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2@TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2@TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST@TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST@TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4@TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4@TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3@TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3@TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);}
|
||||
MATHTEST4_4:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_DZIELENIU__PRZY_DZIELENIACH_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
|
||||
|
||||
OBJECT=MATHTEST5_1
|
||||
MATHTEST5_1:TYPE=BEHAVIOUR
|
||||
MATHTEST5_1:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[TEST2%TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST%TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4%TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3%TEST2_COMPARE]]);}
|
||||
MATHTEST5_1:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
|
||||
|
||||
OBJECT=MATHTEST5_2
|
||||
MATHTEST5_2:TYPE=BEHAVIOUR
|
||||
MATHTEST5_2:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);}
|
||||
MATHTEST5_2:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
|
||||
|
||||
OBJECT=MATHTEST5_3
|
||||
MATHTEST5_3:TYPE=BEHAVIOUR
|
||||
MATHTEST5_3:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[TEST2%TEST2_COMPARE]+"|"+BOOL_ZE_STRINGIEM__+[TEST2%TEST_COMPARE]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[TEST%TEST_COMPARE]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[TEST%TEST2_COMPARE]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[TEST4%TEST_COMPARE]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[TEST4%TEST2_COMPARE]+"|"+DOUBLE_ZE_STRINGIEM__+[TEST3%TEST_COMPARE]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[TEST3%TEST2_COMPARE]]);}
|
||||
MATHTEST5_3:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
|
||||
|
||||
OBJECT=MATHTEST5_4
|
||||
MATHTEST5_4:TYPE=BEHAVIOUR
|
||||
MATHTEST5_4:CODE={TXTMSG2^SETTEXT([TEST_MODULO+"|"+BOOL_Z_BOOLEM__+[NULL]+"|"+BOOL_ZE_STRINGIEM__+[NULL]+"|"+BOOL_Z_INTEGEREM__+[TEST2%TEST4_COMPARE]+"|"+BOOL_Z_DOUBLEM__+[TEST2%TEST3_COMPARE]+"|"+STRING_ZE_STRINGIEM__+[NULL]+"|"+STRING_Z_INTEGEREM__+[TEST%TEST4_COMPARE]+"|"+STRING_Z_DOUBLEM__+[TEST%TEST3_COMPARE]+"|"+STRING_Z_BOOLEM__+[NULL]]);TXTMSG3^SETTEXT([INTEGER_ZE_STRINGIEM__+[NULL]+"|"+INTEGER_Z_INTEGEREM__+[TEST4%TEST4_COMPARE]+"|"+INTEGER_Z_DOUBLEM__+[TEST4%TEST3_COMPARE]+"|"+INTEGER_Z_BOOLEM__+[NULL]+"|"+DOUBLE_ZE_STRINGIEM__+[NULL]+"|"+DOUBLE_Z_INTEGEREM__+[TEST3%TEST4_COMPARE]+"|"+DOUBLE_Z_DOUBLEM__+[TEST3%TEST3_COMPARE]+"|"+DOUBLE_Z_BOOLEM__+[NULL]]);}
|
||||
MATHTEST5_4:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_MODULO__PRZY_MODULO_PRZEZ_STRINGA_WSTAWIONO_NULL_Z_RACJI_CRASHOWANIA_SILNIKA
|
||||
|
||||
OBJECT=MATHTEST6
|
||||
MATHTEST6:TYPE=BEHAVIOUR
|
||||
MATHTEST6:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_JEST_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
|
||||
MATHTEST6:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_JEST_ROWNE
|
||||
|
||||
OBJECT=MATHTEST7
|
||||
MATHTEST7:TYPE=BEHAVIOUR
|
||||
MATHTEST7:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_NIE_JEST_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "!_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
|
||||
MATHTEST7:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_NIE_JEST_ROWNE
|
||||
|
||||
OBJECT=MATHTEST8
|
||||
MATHTEST8:TYPE=BEHAVIOUR
|
||||
MATHTEST8:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_MNIEJSZE_LUB_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "<_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
|
||||
MATHTEST8:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_MNIEJSZE_LUB_ROWNE
|
||||
|
||||
OBJECT=MATHTEST9
|
||||
MATHTEST9:TYPE=BEHAVIOUR
|
||||
MATHTEST9:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_MNIEJSZE_NIZ]);DEBUG_TXT2^SET("");@IF("TEST2", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", "<", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
|
||||
MATHTEST9:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_MNIEJSZE_NIZ
|
||||
|
||||
OBJECT=MATHTEST10
|
||||
MATHTEST10:TYPE=BEHAVIOUR
|
||||
MATHTEST10:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_WIEKSZE_LUB_ROWNE]);DEBUG_TXT2^SET("");@IF("TEST2", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", ">_", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
|
||||
MATHTEST10:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_LUB_ROWNE
|
||||
|
||||
OBJECT=MATHTEST11
|
||||
MATHTEST11:TYPE=BEHAVIOUR
|
||||
MATHTEST11:CODE={DEBUG_TXT^SET([TEST_POROWNANIA_WIEKSZE_NIZ]);DEBUG_TXT2^SET("");@IF("TEST2", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST2", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [BOOL_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT", [STRING_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST4", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [INTEGER_Z_BOOLEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_ZE_STRINGIEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST4_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_INTEGEREM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST3_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_DOUBLEM__+TEMP_BOOL]);@IF("TEST3", ">", "TEST2_COMPARE", "BEH_SET_TRUE", "BEH_SET_FALSE");BEH_APPEND_TEXT^RUN("DEBUG_TXT2", [DOUBLE_Z_BOOLEM__+TEMP_BOOL]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
|
||||
MATHTEST11:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_NIZ
|
||||
|
||||
OBJECT=MATHTEST12
|
||||
MATHTEST12:TYPE=BEHAVIOUR
|
||||
MATHTEST12:CODE={DEBUG_TXT^SET([TEST_WYSWIETLANIA_WARTOSCI]);DEBUG_TXT2^SET("");@DOUBLE("VALUE1", 0.25252525);@DOUBLE("VALUE2", 0.52525252);DEBUG_TXT2^ADD(VALUE1);DEBUG_TXT2^ADD(["|"+VALUE2]);TXTMSG2^SETTEXT(DEBUG_TXT);TXTMSG3^SETTEXT(DEBUG_TXT2);}
|
||||
MATHTEST12:DESCRIPTION=TEN_TEST_SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_WIEKSZE_NIZ
|
||||
|
||||
OBJECT=__INIT__
|
||||
__INIT__:TYPE=BEHAVIOUR
|
||||
__INIT__:CODE={TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_obliczen"]);TXTMSG^SHOW();TXTMSG2^SHOW();TXTMSG3^SHOW();MATHTEST1^RUN();}
|
||||
BIN
dane/game/debug/mathtest/slownik.arr
Normal file
BIN
dane/game/debug/mathtest/slownik.arr
Normal file
Binary file not shown.
BIN
dane/game/debug/mathtest/testowe_dane.arr
Normal file
BIN
dane/game/debug/mathtest/testowe_dane.arr
Normal file
Binary file not shown.
Reference in New Issue
Block a user