home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CyberMycha 2003 October
/
cmycha200310.iso
/
Szkola
/
Szkola_Koziolka.exe
/
dane
/
PRZYGODA
/
TEST
/
Testk.cnv
< prev
next >
Wrap
Text File
|
2003-05-30
|
4KB
|
108 lines
OBJECT=QSTMAN
QSTMAN:TYPE=TEST
QSTMAN:FONT=GFONT
QSTMAN:ONINIT={ THIS^SETPROPERTY("QSTVALIGN","BOTTOM"); THIS^SETPROPERTY("QSTHALIGN","LEFT"); THIS^SETPROPERTY("ANSSPACING","10"); THIS^LOAD( TESTFNAME ); CUR_TIME^SET( [QSTMAN^GETMAXPOINTS()*60] ); }
###
QSTMAN:ONTASK^ONEFROMMANY={ BEH_NEWQUESTION^RUN(); QSTMAN^SETPROPERTY("QSTRECT","10.72.500.200"); QSTMAN^SETPROPERTY("ANSRECT","71.0.500.0"); }
###
QSTMAN:ONTASK^TRUEFALSE={ BEH_NEWQUESTION^RUN(); QSTMAN^SETPROPERTY("QSTRECT","10.72.500.200"); QSTMAN^SETPROPERTY("ANSRECT","71.0.500.0"); }
###
QSTMAN:ONTASK^BLANKS={ BEH_NEWQUESTION^RUN(); QSTMAN^SETPROPERTY("QSTRECT","10.70.670.170"); QSTMAN^SETPROPERTY("ANSRECT","10.190.750.590"); }
###
QSTMAN:ONTASK^MARKINTEXT={ BEH_NEWQUESTION^RUN(); QSTMAN^SETPROPERTY("QSTRECT","10.70.670.170"); QSTMAN^SETPROPERTY("ANSRECT","10.190.750.590"); }
OBJECT=CUR_TIME
CUR_TIME:TYPE=INTEGER
CUR_TIME:ONCHANGED={ TIME_M^SETTEXT( [CUR_TIME @ 60 ] ); TIME_S^SETTEXT( [CUR_TIME % 60 ] ); }
OBJECT=TIME_M
TIME_M:TYPE=TEXT
TIME_M:RECT=0,584,30,600
TIME_M:TEXT=TEXSDR
TIME_M:FONT=GFONT
TIME_M:TOCANVAS=TRUE
TIME_M:VISIBLE=TRUE
TIME_M:HJUSTIFY=RIGHT
OBJECT=TIME_S
TIME_S:TYPE=TEXT
TIME_S:RECT=35,584,80,600
TIME_S:TEXT=TEXSDR
TIME_S:FONT=GFONT
TIME_S:TOCANVAS=TRUE
TIME_S:VISIBLE=TRUE
TIME_S:HJUSTIFY=LEFT
OBJECT=TIX
TIX:TYPE=TIMER
TIX:ELAPSE=1000
TIX:ONTICK={ CUR_TIME^DEC(); }
# przyciski poprzednie/nastepne pytanie
#
DEF NEXTQSTD(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=TRUE|FILENAME=NEXTQSTD.IMG)
DEF NEXTQOM(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=TRUE|FILENAME=NEXTQOM.IMG)
DEF NEXTQ(TYPE=BUTTON|GFXSTANDARD=NEXTQSTD|GFXONMOVE=NEXTQOM|ENABLE=TRUE|ONCLICKED={QSTMAN^NEXT();})
DEF PREVQSTD(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=TRUE|FILENAME=PREVQSTD.IMG)
DEF PREVQOM(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=TRUE|FILENAME=PREVQOM.IMG)
DEF PREVQ(TYPE=BUTTON|GFXSTANDARD=PREVQSTD|GFXONMOVE=PREVQOM|ENABLE=TRUE|ONCLICKED={QSTMAN^PREV();})
# kolejne pytanie (indexy
DEF ANS_A(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=ANSA.IMG)
DEF ANS_B(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=ANSB.IMG)
DEF ANS_C(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=ANSC.IMG)
DEF ANS_D(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=ANSD.IMG)
#zatwierdzenie odpowiedzi
DEF ACCEPTSTD(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=TRUE|FILENAME=ACCEPTSTD.IMG)
DEF ACCEPTOM(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=TRUE|FILENAME=ACCEPTOM.IMG)
DEF ACCEPT(TYPE=BUTTON|GFXSTANDARD=ACCEPTSTD|GFXONMOVE=ACCEPTOM|ENABLE=TRUE|ONCLICKED={QSTMAN^ACCEPT();})
#powrot do menu
DEF MENUSTD(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=TRUE|FILENAME=MENUSTD.IMG)
DEF MENUOM(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=TRUE|FILENAME=MENUOM.IMG)
DEF MENU(TYPE=BUTTON|GFXSTANDARD=MENUSTD|GFXONMOVE=MENUOM|ENABLE=TRUE|ONCLICKED={QSTMAN^FLUSH();B^EXIT();})
# belka - podkreslenie odpowiedzi
DEF BELKASTD(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=BELKASTD.IMG)
DEF BELKA(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=BELKA.IMG)
# SFX-es
DEF SFX1(TYPE=SOUND|FILENAME=BLIP1.WAV)
DEF SFX2(TYPE=SOUND|FILENAME=BLIP2.WAV)
# true/false/ns
DEF TRUESTD(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=FALSE|FILENAME=TRUESTD.IMG)
DEF TRUEOM(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=FALSE|FILENAME=TRUEOM.IMG)
DEF FALSESTD(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=FALSE|FILENAME=FALSESTD.IMG)
DEF FALSEOM(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=FALSE|FILENAME=FALSEOM.IMG)
DEF NSSTD(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=FALSE|FILENAME=NSSTD.IMG)
DEF NSOM(TYPE=IMAGE|VISIBLE=TRUE|TOCANVAS=FALSE|FILENAME=NSOM.IMG)
# zaznaczenie i akceptacja odpowiedzi
DEF CHECK(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=CHECK.IMG)
DEF CHECKACC(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=CHECKACC.IMG)
# kursor edit box'u
#
DEF CURSOR(TYPE=IMAGE|VISIBLE=FALSE|TOCANVAS=FALSE|FILENAME=CURSOR.IMG)
DEF __INIT__(TYPE=BEHAVIOUR|CODE={ QSTMAN^NEXT(); B_SAVE^RUN(); })
OBJECT=TIME_M
TIME_M:TYPE=TEXT
TIME_M:RECT=0,584,30,600
TIME_M:TEXT=TEXSDR
TIME_M:FONT=GFONT
TIME_M:TOCANVAS=TRUE
TIME_M:VISIBLE=TRUE
TIME_M:HJUSTIFY=RIGHT
# licznik pytan
#
DEF QSTNO(TYPE=TEXT|RECT=751,0,799,18|TEXT=1|FONT=GFONT|TOCANVAS=TRUE|VISIBLE=TRUE|HJUSTIFY=CENTER)
DEF BEH_NEWQUESTION(TYPE=BEHAVIOUR|CODE={ QSTNO^SETTEXT( QSTMAN^GETTASKNO()); } )