105 lines
4.2 KiB
Plaintext
105 lines
4.2 KiB
Plaintext
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();}
|