From 57c0ea70d9ca649da52af8ff6e756356dd1d8c0e Mon Sep 17 00:00:00 2001 From: Petr Baudis Date: Sat, 15 Sep 2012 14:47:00 +0200 Subject: [PATCH] Conversion gambas2 -> gambas3 --- .icon.png | Bin 6785 -> 3754 bytes .project | 15 +- .settings | 8 +- .src/FMain.class | 1825 +++++++++++++++++++++++++++++++++ FMain.form => .src/FMain.form | 359 ++++--- .src/Form1.class | 46 + Form1.form => .src/Form1.form | 22 +- .startup | 10 + FMain.class | 1758 ------------------------------- Form1.class | 46 - 10 files changed, 2075 insertions(+), 2014 deletions(-) create mode 100644 .src/FMain.class rename FMain.form => .src/FMain.form (74%) create mode 100644 .src/Form1.class rename Form1.form => .src/Form1.form (57%) create mode 100644 .startup delete mode 100644 FMain.class delete mode 100644 Form1.class diff --git a/.icon.png b/.icon.png index f66c374b92a4481211129149447c40632bb815cb..8748600ba47d0a4a6ca32a923a53fa6a66dfa7fd 100644 GIT binary patch delta 3734 zcmV;H4r%d$HL4wuBn<>}LP=Bz2nYy#2xN$nAs2rROi4sRRCt`-n`dyH)tSeCr`&sW z)nyf{+megq-oQX8c5EESriBEDKuFjmyIF6N-LM3*$qvlGFd4GDiFapq$>a+dSO^Jr zvXlu)Y;4maY-0(z7g@d7>ejV%`+LrQP`{Rqi;%JZGiT<$?VR)c->04DJy&prA$#3+ ztTBIJEa6ktbnjSyN&U%jn%9IN=iVIvq$IeRQILd;%e>@1^(FT(0m#392gV4L5PW-W z9zR-FMBT{%D<1OU%34aKZ8rc}cl`;3#yAoDM_$5T^_x%Z`!h{I;WysHSg;0eyFQc0 zzg~o+J-ko}MQI77#A`x@YlyV%CVSmBtYd%4OmPzkC?Yw_;7TQ6%7gD>g~A$GSe(S; z_Z2a{Fo`#hz`NBDjl!-PxOR31TRKa~S+^CX6yLkMkRRMVh41|Q09#s)pVwHQDFTZB zZWq=#SPMC+9)5gJA#0aru)Pjmeg^`f;d?_7!>O>un~}$gh3P!`;51HjMp*viqtt)Y z_JZ`B*O;Ff0;YX;C)Pr8f}6izoy*^@&Y`jcp8gQJ`XK5I-+QvTlbR#7yBEPC4Iy>YmKX^Lz$? z>FalakVpYvy)l!A?#SnqRs4ECH1>b=tNS2Mb^AHGzm902mq))`z(W2^qz6j=u^el` zTFbIIsr=;2`J|+J*wO$;Iv`?(?+pf`96r!YOZ`dK-JHdb?w(0mwPwu*=Q2I~1LAtO8W*5ZslP~2l zzc_*STj1jZ5FYWy9S5q8wsZVQ6Y~nPe0UHm2 zKiV(QAX=JEv$wK|c^a!)>tqugeT(@=PSlK z`LCNh?5ymIBLMmdJl-z27%loVU<~1~!|NOF%lK;SwX%*h+0hbb2 zB>@q~`bHib<5(SWgx{;xD1pV8>Cu%B8B+iZMT}o7DFaH%gmc|^wLrxlOBv8gDZf%G z=EB5HYC;jC*-9C|mi-zq>Vg#G7XgeDrM~(@dg>3eaMgD)P85HsE>j&wj%Gkg8PG1N zf;vV6#5fUPjKl7-7qBx*nO=GWt@V|3v>ajnO14_maFb+9@ zF%J87Z$gyLAyRdK9+^gOW-@VJg%YvWI5Ds>-d$-YptVqbb%xPjdK%nZTfyl`iHK+z z+gL|Kp+m3+2~J$zZGoU@t8WM#Di)o~p-HSP0hQ zx@9drEyuZTl8d^j*Q12uc==ltFIYuFO4cQfbwLoL2~f%jYN=#E#W)9hkp%49wvm&^ z%W*737cV6xDHRh56F(_~V08tD_cV}Mcn!PW_$9R+M=5_=`~{?(xTHhGn1EC=pp_JX zSPQTh;R0U!_pkATZ{5cIzuw5!-~EQ4{eB1GsU@hm1TtOFE28Y&^*XwFAFhII64JbA zB_}lG#wK`5ih$Ni29z3o#ay5Z@cTM==~qwkSY9r#JortvzW4%#(@J^h+1EJf^W#s? zB7VV2GOvG&ADD?m9Xo_u>j_P|Vzo^x8PHO2h6Y>+9Dh3;{R7+n=3%xjTEwiL9ukFQ z;hYi{u3blYR}^I(OgPxjtPq4cnkh=o!W*ABp#;RrDFp$kl?q5H7}dntn{}decQ(_~ zR!hyn?aZFk%(N9NNCpzJvS@B?FxYOy2%OG7y=1t3HUuO_w;hE<*^R?T*NZhgqs5sV0%f3cJ26TKPPTy&S z(u7(Y$PGp*S$qTPGORd95@0PtY1yV-%C;*hM@9%?Vw}a6cYez~s~7R+QAKya!H6(k zVUZXDktik_Ma@{ke?RdkuAHfeX$$b=6k&gY0m3`~MAFPf2rNmhE!?zbJ@PUwH%Dr^ zwFnocT}z`|r8ZIu28)2gjF{i;+sbI{@e`Mki%v+QyW$;EW-oum*V)cj3O(!!CQ@7WHd!mz;Xmy|zPp*iaDbyo z?z&?=lM72Po6sZS(yC1e;Q$z8d3a@9t_ILj1cVe`=#K!75QIX0ypeW{DW)?eAJKJ) zP~G2>}@RE}$dO&yHBqwi3Q6eg=CsRA z*J(&_E2enEXay-5xy--z*2^a7*&roi(7)SJ1Sk<4WJVZ-k^<#&la!T*D><3oJv#}7 z{RkoO4Si0zTp<=Mf5rX$pl= zQgAvsfz0?0PSjM8H*N9dk#-CyIqcvq_+fwmEeSA!0c9X5C7DBqd{lou_dlrQY`U9H zKs1b&uzcxi-mg2tJPjw}Q;6FBR8t9ywU)+H0a9}dsXVrqs8CETo{LnMrwTL@QXz(t zAv?kZq!PiwlBu2mGGM(4G?1Fx_N)fjM=QwlCtJ{rfWYR zRMnDx!y1e`o|>9^gg23%hU0kpdP$hE0IVG#Lf}#og+pasD~DeB3sbYR@we9zF@{;C z3n%Ek4?{^I2CH9kzz6hefFwA~5~!F~P+ZEIxr=c}yyT^%BICT6NSKtidT#bAZolbg2gj_u>~ zYwrDYB|Qs-v_rv2Gb#$;7iQ>f$k^)XNVwe|?pk>#&;5QQuG!ZS^_?Qq?I98gBZMG1 zHJ#6sMXvgVBH?8HF~$tI=s!$916>zH}?bXYtB z5C}ylMICc~Tdl7!XeC2lkM06Ua@$|5ohdhH0Ao#GAfm9=3V+a1#u~1=9Wnx>u*wQ4 zgb+5tW%^*i1bVu!C+WfYq=U35JG<_2kVLVXw%bms=EJdf6I93{l@p) ziIb)|c5t)Q)kgq;5;hX_t2+k_{b8>gH~}07nt;%VH6V(9p*{3#faEN@$*(|I`bh{6v;Yug zjPHNoSBt=(gdqnvE&>(8Yzu-`n5A9AwyW??tQzj6^&-gyRI+^xU^u_wo)hGA{kk)mJ_KA5O!B3REXv8UO$Q07*qoM6N<$f)Sw% AQUCw| literal 6785 zcmV-{8h+)8P)rY13w&bMMW~P3~}}z286X zO`EhyOAD`$&*xpA&&fIWoU`{nzu($xtv##={)b7$@)r#y<@HEaV#oLYeqim*ZEvSO za)zQi>nwLM;2lt_S1%bOiT*u6*1^l%EUfK_?3$Hc7;&~-JAD#W)%H?a8 z>AJq`(^pO9vscy18}Hd+Ki{?Q44?pr9jUENP`2?_)}FPi3LM{7Y9)1SU<2Pf8q_{momqKqJ)c?@=Tf|QUS@PW{aP@WFDXGqPDCp@8$ zdf|z)o$eRbaD+(kFC}2!7q?%pr21A#zFBqqm6cp^Y9aLzcw`r(+$^9G>FOBbjcpx- zG>?0(oyM7SiulP|_{-L@@A-m$P{JoL!b+)#;So?$fixZAFPV|U_|6b;-p~3B<+&eI zlIxX}b<*<&y-e!y{;f~0X#Ufe6BCu2|E290pu~MaQ#}`fdgz39h@Kj89!u&Xe2VnqR?i`tZ6_4wMx7>5FB`!HpWOmZzjEP^N>PKMgQ} zaY`No0T=u-Vkqg|pp^PrLBObb_q-4bD@6tflbcsUXACR{ z)Hs%$cA%u#Pk+p;RLa_;yE5cSh4B2AFvBO19ScmToTC!3^ufrxmEykqfH7nF!XQ^K z2of^0l+LX6ankHORy-RyVT(HP#f7)O@>P4N|1tmM8Kns0CZ+g~vu73IDHlwkQicLw4qok>DxtWERjfTav8a&`&b$ zB0a_YssNu^R>Eo1gX~Gb{sh<_I9~RBM?!N~hF4zi!?i3ve`z`IS}=(xcfj+zA#G>D zTe-9CfNf{PqExvVIJwEVrCffe1ez_FZDs%g;7dp zaMO-Os{6Dod(Tqq@Ax9uvi~lm(TgL1Oz8`AVv&^6>CX z7ekYJc>a91`=1^Mx3r;(Bd_iupC0kGUdfRnwJBOFW^&B3xw3?YQAw0xz! zLFwiEK%jI!Sx0zu0))^XtSvT|{P5Cz3jNuJQ-C{O$zzlqEg4?i8f9`&@S_h_GPf$g zU-!U{?riLrBLH(CRj!*K=mbXq4-o5dD9rcKmvRb}=O&a?ii3_Yl!J1Z93WunuX^hc z;sakkFYf^O3`ZD39fPdfG0djjac){t#PZYfSl0O5kJIMcxi`_ z&yQ3ozf=U2r_#y^S|U_92M7a^@rr6A7gBn405giRe({Kt=wp!HxW~&o2f6nHWn8f^ zkKb;GEuC3EA`h|i(LG?~_ej^5Fg^(ih}$TsNIM#nLI$7}D5X%g-$L_+jf#tAGJ(TC zK!9?s1b}rkLqA5@+&Ij6vqGF&kC0+|tr(aaOI5hy}gFqri`N_EF$R zdwV%1_)j1Xs6jhhJ{J-_VPfc-K9)RV;{T? z$=DDbvRPOaq%$$L%a3R4it(MHlH>3ofw%=SHy+5LzRaqy6B0btK@UG3I^?gXuzw!vP{O8CH(J6ExSDa`{qkpnfxl_;+LJLy-z0w8wQ_JO9=tdCZ=yp*Z@W z=V;PD=&@<<5O=<-h+!87Glzp80n8X86e^Ly?T(O1#BkDsxNZ{ZSh!9a>Dfp(d#z*^ z%g7np@T*PujA{4-ClQUC0VPBLFO<{*Q_ce(;E+88BhgZym{fPl$+w&t;<6dWI|6>w zz6?)o9N?Vk0WO{!WL@W28y+{bE0C5)x-HIdB!Zn9z_o{Qoiv`E#B(xuZU)ayBV8M% zJUpuxC)JA{D97+m206q~?`DKqjwo%RB)ov=z>LCqH6eFLN6DGOKe<#{(J=(*UF&}5 z)Lwq;bO-a)i)WaJec(|Kb#QVL8B#p-Vw|n}lH77$AvZ0V#Ks=j8_TZlcrrT~^1Oq; zT`zlBgErAU5t7k9tW*rw8ajB`!#H*l&q*RZ8&C)o6_p<4Rpl5AV(Ljs%k!zIosOMs zV|btqUBs9_t;2WAhi3+!-kkC)J@keb+q``=_XdD79D8tUXW&zjbdZwZvAaL1V9lEu z{wt!SpDtkG6FVnuL?I>D%2)dN_uY8N_u`xS0g5oy4_MS*?2x zx=5gl1fC2qsVJX{sV5K!UG7{KX2~>@T@i=o{tQ;y z!L?mHSAx>eG(VaMg7Tx3$Z{bS{f+%O@Ch6%fi={O@S;dp$8`;qQV5}_o>odp#XMZs zM%PVzfe^Z3f)JoWSvEyB3iv|>c#chBSvB=*|4i|;5L)1b3xLU^3D9$ARdexYd|gT7 zvJWoI65w&51TVQwsDxVs!i^?AP>9@_1zg_8HJ~tNHc&m0=SwF+m%>}I8JX1 z4EH0H#MSbsEm!QTZ(%UfMk=-)Q|_f|YCcnHt0r(RfoLb%s0K*rUPa$LI8!c&fcrSQ*W6$ z*=N=k=}1ORLk~H&b$HzSLXy~!$6XhMIHv~MY)A(3(EI`L`B9pQ5(ZK;P?`^EhESnm zM7R>{B-%hTVKGQWX^{MYg(f?wsVk>)S{=dsFuLKx7Yq?D3L{hkP17i?EY8Jv9U;hS zo~$jYoMEYv-%26?p=*Tlizu(1MWpFZeB+4C+SCCr>=6F+B_2PSM`p!eih2G^>98RSL@jBvLMBQ7ulejHaf&bT!tK zi1p#QcCJN%K%kpGe1Q;#>C4qAb8RW4^sucAL-9CPCWUL;4D?0VzIivh-)O^1r;(nE zQi_r(HB2e@2Yhume2CoSXbb_HzIysL=~$aqZA*@E5F@gu&t>_1Khujf+5k(4F{8QB z^Ouof^JoCu^p>bzDAGz(T%sS-)q*UzPwwdRCcMmT<`AfEMeFZB$g!J4o zOo{`41-g-SiYSGW634b^+SSCijr-_n@5jod=x%GrN~Ou99J)IP$fQyX^ha=Qhq~!S z2;og3H#s^~(bCH#fAZ`u|LHfMU4W_Q3?(NSN8!^CE|iQJ%8t_b$bI2?xSENlG?WL) zc!Xuwe4NW}xQ#?qfP|M)-rQ`otjhDwz)nxBtC4?*R}rFPb5-y z|1-N%XotKoIZr2=I%K+hDEI^S6;jiXLOU>6y6A>4aNS)$V0cg?(i^3>br-L{`XXL# z2UICZd&4HA=jC)R4rqRimXt(#E>cRQ=b;G?q>JY&tc;>^YBjSK)M1(m$F}KcYR9#0 zBE4~}bVe*X_woXAx;>15w!eKZ<5{VnKe2Tf7(0oc5*BnN)xp>~y8Dmn|JlwfkV<5S zxBxjJ|c1Ux*~WhkCRH+*M~)Hv?ONG8(uV3QI2(yPsu|ExOy0sf~< z(s;SiCNP?S(Y8MhA(HGKKvfwG4=DON2k2>UA{OnTuzVV2Q|Hj%z9&2TGyR;f_!3NC z03pQ0b8?Yw#AoU(I&nHDO)n>$=jYd}UPDKc7CvHjhT_s-5pp7nh2nme3b|jP+Dy)R0 zt2IJTdlQLRKhkvxKe6b3TKDcJ)>m4+Wp|f2ZSE8` z;ntXwi2h{b{=l{SqhY2`Hb??fiv>OdwspJI)flAJ#AYCK;KO+eJL%E7w}amHW>Tpk zkP4BD@dZU?%sTBNG@)e&IGQ%0?T={xv{~gWU08!A1euIQQ&Sh)8Wa3(ouGF>4!Au} z|Dv_&;Xjo4zw)^$)4Xeg`Gtn2=>+_WXgrB8SQvV3XQv6+6Rv!1`|gs>o}FI%_@+Sw z*<>4C!0a*~+q!JBLz0POzf=(PDTez~G;G~X`~KaeQbSo-nm}kenr@&OK1?%^vwb~l z`$8KBykb(GkE_p_#igg#;WKq2kvQ9TwD6l3;@tbU4BcHV>oeQGa--e!@B@p_dEZXY z;qP`T{!KfRRG_G+4&x8_2!sN{%`G<_X>(LM!vps|watIw&F2?U6w*im3#xS1?@sfn zGecu0^<%;!3gvmU@9U7JEl(bwspNzP@|=$IdRB|M`oG83gvl6<_#$AFHk}BVr1Yxs6N9&7PA)r*Vf`*V~N` z{74Qry$19$&U(&!Zu-t0!NQ7rgk~}j8KSbfy!AI-K*^vWXggC+uyQj*Eow6^xJr6JBwpB|vAfA}!1PXwZ%ApB=n%C8Ac1~064kU&nrzf%NB&lWE>KMNz%y_1>peG=T5`2 zB#tX_-RxQBCPtnoC@T=0IK?18V2~g5Q4sQz7cdF>4FWzR>p-Q<9SSKGu~>qZwtjxQ zCd$*BhH&13)xqr#${WrpW>TKU;<^Ce ztnVWr3ke2&lvendG`R@dfnh7VRxq-kZ#mh+b>W<;a9-V5{VSDS*Uy5Lc%D2kr*~bO zwzgh2Y>%?ysR-@8gHgBpnH5gUqfY{j96{@&W%=c2q`$LoZ-ZtSCkY{xu4yliJbO#~ zA3J_@&L7ihYx@Jw_hA4hPcaCZf|nZ86d4D@pQlDe1bJ|+zd8&zEr#>!j^=bk4m`wS z33lvi=ZC90`SP!OXlvfJ#@cqr^-jy9KLg%;tKb0^ROSXKyu0 z%Ci$acdp)I{QcwS6jNL3WAXG5Ya7#?JTpiaSjRbV+UV+u!F9) zU29TXZ@=DdS@}y~C&vjMz!wbql|q?@{_xco&OLDdSkmOA6>YiWrJcT|8}=skvrfn( zWD3?dB&n*+qtnV_*9Dwj3A4xDi5p*B*Q2W|#w%~e`1Z;Ux_aYLt7Y~5nf;HxEv=6h zO*5tl)Rthtcxm+gV_gFmvp>7xSF@@o-}uxWC-B2H1GGkM?tXtcuSa2$0gH+t?-*zu z8p_bt8E3^)ojkEFf;+Hh&F~vP__0j3ZwC4qn_hHOS@n@1xM6R}y@jL%~{|%3he*aiAMOCtG(_M|?-1k4cHd1uS{4k$UgXe*uFv1oe#llQ0h{`Q!){=nm}PVMQ5Ts!qP%=Hu6TYI5)w=!Avd6UvJmbbSpDQRVz5m&}=X3L;U0i)yn2(Ebot}m1vh5iykXN7r&pYO(g{U8^G1RvK0WoQg``v@lNRf?5AgNJ zT4?KvMU#!I?oaOe^>NwypI&Mx*tlueHY;OKm!5;`+Spc_Xk>uq)&vJ5FK)xYb7!Oh=Y;U?OS%hmx}+xx1OQspQYD>Fni5~HOxMqkuM6B_4UID^HDXA|%n z7>4-eq2S?dWQ(^y{-IZ=UH`%_?_b^epQlVK;;H%p=2w*;_MTFTblT+~+hY9h$6M*@ ziF7A+K6c;muHQcmH1Re(ykk3tKxtMcNkc;?t?h$&xde~d^J-bLWGkPJ zj<=I8uTstH?{3pBy3$pmYFCHJ=PxNIFe(+v^A!C98NTzUc2;lb_cFb2J{Mj8wfntP z-!`&oYi}zdsUSbNufIQ1KQxp)yQOVtOd5S@`DC=*x}v6u-(7dI`<=+|@J8aMIy#+u}fWKxEqwrGqCU}5P zfAH+IA=Hi1mHTr0qB&7$xivc>M8B!)D<-PrZRbLD{^^>(d)Dw1cG_m;%Tc6+zPQb; z4>$9LN1D8rU9bMB`!65AKJn)7ehoD64h(8W%ROJZreQe6mA*hBp~9(z%jQyAdp52| z0tC7yRuoP0Px$Y(@5FzM$aKes|0VRL=kIJY%D=n1lT{lc#QJ+%Vy{1Re`4no&j2le zb(DIJTWYIo_O|r)wHv;|8h?Hn(uu!XTBN=q1P=s!#(nQSr*^`!hwgqIm!w+%IUJ}y zZ>MGkmTYStwBpULuI~Knf8L$xu3rOm^3J3iPbiz$uTrxXf1=X}PQKXh4{b74&sAmN zWKsyW-g39p=wXv8l8*ZNGDeI3vzS3Rs*jh?T jO1b8e1xGLZ|FisG!y41Gp-NLv00000NkvXXu0mjf 0 Then SerialPort1.Close + SysLogWrite("Konec_Systemu") + Form1.Close + FMain.Close + Else + SysLogWrite("Navrat_Do_Aplikace") + Endif +End + +Public Sub TimerSystime_Timer() + Wait + PosliInfo() + TxtInfoCyklus.Text = Str(tmp_cyklus) + TxtSysTime.Text = Format$(Now, "dd.mm.yy") & " " & Format$(Now, "hh:nn:ss") + Wait + ' [GB2:BCOL] IF SerialPort1.Status = 0 THEN TxtCommPort.BackColor = Color.Red + If SerialPort1.Status = 0 Then TxtCommPort.Background = Color.Red + Wait + ' [GB2:BCOL] IF SerialPort1.Status = 1 THEN TxtCommPort.BackColor = Color.Green + If SerialPort1.Status = 1 Then TxtCommPort.Background = Color.Green + Wait + VypisStavSlotu() + ' [GB2:BCOL] IF TxtWDT.BackColor = Color.Red THEN + If TxtWDT.Background = Color.Red Then + ' [GB2:BCOL] TxtWDT.BackColor = Color.Green + TxtWDT.Background = Color.Green + Else + ' [GB2:BCOL] TxtWDT.BackColor = Color.Red + TxtWDT.Background = Color.Red + Endif + Finally + If Error Then + ErrLogWrite("NESYNCHRONI_UKONCENI_TimerSystime_Timer() - " & Error.Text) + Endif +End + +Public Sub SysLogWrite(Udalost As String) +Dim SysLogFile As File + SysLogFile = Open "/ratbox/log/system.log" For Append + TxtSysLog.Text = Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost & Chr(13) & TxtSysLog.Text + Wait + Print #SysLogFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost + Wait + SysLogFile.Close +End + +Public Sub ErrLogWrite(Udalost As String) +Dim SysLogFile As File + SysLogFile = Open "/ratbox/log/err.log" For Append + Print #SysLogFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost + SysLogFile.Close +End + +Public Sub ExpLogWrite(Udalost As String) +Dim SysLogFile As File + If Exist("/ratbox/log/" & ExpLogName) = True Then + SysLogFile = Open "/ratbox/log/" & ExpLogName For Append + Print #SysLogFile, Str(tmp_mils * 10) & ";" & udalost + Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost) + SysLogFile.Close + Endif +End + +Public Sub PreLogWrite(Udalost As String) +Dim SysLogFile As File + If Exist("/ratbox/log/" & PreLogName) = True Then + SysLogFile = Open "/ratbox/log/" & PreLogName For Append + Print #SysLogFile, Str(tmp_mils * 10) & ";" & udalost + Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost) + SysLogFile.Close + Endif +End + +Public Sub PreStatWrite() +Dim zakazane As Integer +Dim opakovani As Integer +Dim aktivity As Integer +Dim i As Integer +Dim SysLogFile As File + If Exist("/ratbox/log/" & PreLogName) = True Then + Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & "GENERUJI_ZAPISUJI_STATISTIKU") + SysLogFile = Open "/ratbox/log/" & PreLogName For Append + Print #SysLogFile, "----------------------------------------------------------------------------" + + Print #SysLogFile, "CELKOVY_POCET_CYKLU: " & pre_stat_ciklus + Print #SysLogFile, "CELKOVY_POCET_USPESNYCH_CYKLU (PITI): " & pre_stat_ciklus_real + Print #SysLogFile, "CELKOVY_POCET_TIMEOUTU: " & pre_stat_timeout + For i = 1 To 6 + aktivity = aktivity + pre_stat_aktivita[i] + Next + For i = 1 To 6 + opakovani = opakovani + pre_stat_opakovani[i] + Next + For i = 1 To 6 + zakazane = zakazane + pre_stat_zakazano[i] + Next + Print #SysLogFile, "CELKOVY_POCET_AKTIVIT: " & aktivity + Print #SysLogFile, "CELKOVY_POCET_OPAKOVANI: " & opakovani + Print #SysLogFile, "CELKOVY_POCET_ZAKAZANI: " & zakazane + Print #SysLogFile, "CELKOVY_POCET_AKTIVIT_PODROBNE: " & pre_stat_aktivita[1] & ";" & pre_stat_aktivita[2] & ";" & pre_stat_aktivita[3] & ";" & pre_stat_aktivita[4] & ";" & pre_stat_aktivita[5] & ";" & pre_stat_aktivita[6] + Print #SysLogFile, "CELKOVY_POCET_OPAKOVANI_PODROBNE: " & pre_stat_opakovani[1] & ";" & pre_stat_opakovani[2] & ";" & pre_stat_opakovani[3] & ";" & pre_stat_opakovani[4] & ";" & pre_stat_opakovani[5] & ";" & pre_stat_opakovani[6] + Print #SysLogFile, "CELKOVY_POCET_ZAKAZANI_PODROBNE: " & pre_stat_zakazano[1] & ";" & pre_stat_zakazano[2] & ";" & pre_stat_zakazano[3] & ";" & pre_stat_zakazano[4] & ";" & pre_stat_zakazano[5] & ";" & pre_stat_zakazano[6] + + SysLogFile.Close + + PreStatInit() + + Endif +End + +Public Sub ExpStatWrite() +Dim zakazane As Integer +Dim opakovani As Integer +Dim aktivity As Integer +Dim i, x As Integer +Dim SysLogFile As File + If Exist("/ratbox/log/" & ExpLogName) = True Then + Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & "GENERUJI_ZAPISUJI_STATISTIKU") + SysLogFile = Open "/ratbox/log/" & ExpLogName For Append + Print #SysLogFile, "----------------------------------------------------------------------------" + + Print #SysLogFile, "CELKOVY_POCET_CYKLU: " & exp_stat_ciklus + Print #SysLogFile, "CELKOVY_POCET_USPESNYCH_CYKLU (PITI): " & exp_stat_ciklus_real + Print #SysLogFile, "CELKOVY_POCET_TIMEOUTU: " & exp_stat_timeout + For i = 1 To 6 + aktivity = aktivity + exp_stat_aktivita[i] + Next + For i = 1 To 6 + opakovani = opakovani + exp_stat_opakovani[i] + Next + For i = 1 To 6 + zakazane = zakazane + exp_stat_zakazano[i] + Next + Print #SysLogFile, "CELKOVY_POCET_AKTIVIT: " & aktivity + Print #SysLogFile, "CELKOVY_POCET_OPAKOVANI: " & opakovani + Print #SysLogFile, "CELKOVY_POCET_ZAKAZANI: " & zakazane + Print #SysLogFile, "CELKOVY_POCET_AKTIVIT_PODROBNE: " & exp_stat_aktivita[1] & ";" & exp_stat_aktivita[2] & ";" & exp_stat_aktivita[3] & ";" & exp_stat_aktivita[4] & ";" & exp_stat_aktivita[5] & ";" & exp_stat_aktivita[6] + Print #SysLogFile, "CELKOVY_POCET_OPAKOVANI_PODROBNE: " & exp_stat_opakovani[1] & ";" & exp_stat_opakovani[2] & ";" & exp_stat_opakovani[3] & ";" & exp_stat_opakovani[4] & ";" & exp_stat_opakovani[5] & ";" & exp_stat_opakovani[6] + Print #SysLogFile, "CELKOVY_POCET_ZAKAZANI_PODROBNE: " & exp_stat_zakazano[1] & ";" & exp_stat_zakazano[2] & ";" & exp_stat_zakazano[3] & ";" & exp_stat_zakazano[4] & ";" & exp_stat_zakazano[5] & ";" & exp_stat_zakazano[6] + + Print #SysLogFile, "---------------------------------------------------------------" + Print #SysLogFile, "" + Print #SysLogFile, "Souhrnna tabulka odpovedi:" + Print #SysLogFile, "" + + Print #SysLogFile, "STIMUL: 1;2;3;4;5;6" + + Print #SysLogFile, "SLOT1: " & exp_stat_souhrn[1, 1] & ";" & exp_stat_souhrn[2, 1] & ";" & exp_stat_souhrn[3, 1] & ";" & exp_stat_souhrn[4, 1] & ";" & exp_stat_souhrn[5, 1] & ";" & exp_stat_souhrn[6, 1] + Print #SysLogFile, "SLOT2: " & exp_stat_souhrn[1, 2] & ";" & exp_stat_souhrn[2, 2] & ";" & exp_stat_souhrn[3, 2] & ";" & exp_stat_souhrn[4, 2] & ";" & exp_stat_souhrn[5, 2] & ";" & exp_stat_souhrn[6, 2] + Print #SysLogFile, "SLOT3: " & exp_stat_souhrn[1, 3] & ";" & exp_stat_souhrn[2, 3] & ";" & exp_stat_souhrn[3, 3] & ";" & exp_stat_souhrn[4, 3] & ";" & exp_stat_souhrn[5, 3] & ";" & exp_stat_souhrn[6, 3] + Print #SysLogFile, "SLOT4: " & exp_stat_souhrn[1, 4] & ";" & exp_stat_souhrn[2, 4] & ";" & exp_stat_souhrn[3, 4] & ";" & exp_stat_souhrn[4, 4] & ";" & exp_stat_souhrn[5, 4] & ";" & exp_stat_souhrn[6, 4] + Print #SysLogFile, "SLOT5: " & exp_stat_souhrn[1, 5] & ";" & exp_stat_souhrn[2, 5] & ";" & exp_stat_souhrn[3, 5] & ";" & exp_stat_souhrn[4, 5] & ";" & exp_stat_souhrn[5, 5] & ";" & exp_stat_souhrn[6, 5] + Print #SysLogFile, "SLOT6: " & exp_stat_souhrn[1, 6] & ";" & exp_stat_souhrn[2, 6] & ";" & exp_stat_souhrn[3, 6] & ";" & exp_stat_souhrn[4, 6] & ";" & exp_stat_souhrn[5, 6] & ";" & exp_stat_souhrn[6, 6] + +' ExpStatInit() + + SysLogFile.Close + + ExpStatReset() + + Endif +End + + + +Public Sub ExpStatReset() +Dim i, x As Integer + exp_stat_ciklus = 0 + exp_stat_ciklus_real = 0 + exp_stat_timeout = 0 + For i = 1 To 6 + exp_stat_aktivita[i] = 0 + Next + For i = 1 To 6 + exp_stat_opakovani[i] = 0 + Next + For i = 1 To 6 + exp_stat_zakazano[i] = 0 + Next + For x = 1 To 6 + For i = 1 To 6 + exp_stat_souhrn[x, i] = 0 + Next + Next +End + + + + + +Public Sub ExpLogInit() +Dim StatTMP As String + Dim SysLogFile As File + ExpLogName = Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh_nn_ss") & "E" & TxtExperimentID.Text & "S" & TxtSessionID.Text & "O" & TxtOjectID.Text & ".log" + SysLogWrite("GENERUJI_LOG_EXPERIMENTU") + If Exist("/ratbox/log/" & ExpLogName) = True Then + Shell ("mv /ratbox/log/" & ExpLogName & " /ratbox/log/last_experiment.log.backup") + Shell ("touch /ratbox/log/" & ExpLogName) + Else + Shell ("touch /ratbox/log/" & ExpLogName) + Endif + SysLogWrite("ZAPISUJI_HLAVICKU_LOGU_EXPERIMENTU") + SysLogFile = Open "/ratbox/log/" & ExpLogName For Append + Print #SysLogFile, "ZACATEK_DAT;28" + Print #SysLogFile, "" + Print #SysLogFile, "DATUM_EXPERIMENTU" & ";" & Format$(Now, "yyyy_mm_dd") & ";" & "CAS_EXPERIMENTU" & ";" & Format$(Now, "hh:nn:ss") + Print #SysLogFile, "EXPERIMENT_ID" & ";" & TxtExperimentID.Text & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "SESSION_ID" & ";" & TxtSessionID.Text & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "OBJECT_ID" & ";" & TxtOjectID.Text & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "" + Print #SysLogFile, "NASTAVENI_POCET_CYKLU" & ";" & konfigurace_pocet_cyklu & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "NASTAVENI_TIMEOUT_REAKCE" & ";" & konfigurace_timeout & ";" & "NULL" & ";" & "NULL" + + If konfigurace_timeout_status = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_TIMEOUT_REAKCE_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_nahoda = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_NAHODA_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_neopakovat = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_NEOPAKOVAT_REAKCE_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + Print #SysLogFile, "NASTAVENI_CAS_ZOBRAZENI_STIMULU" & ";" & konfigurace_experiment_cas_zobrazeni_stimulu & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_vypni_stimul = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_VYPNI_STIMUL_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "NASTAVENI_CAS_BEZ_STIMULU" & ";" & konfigurace_experiment_cas_zhasnuteho_stimulu & ";" & "NULL" & ";" & "NULL" + + + If konfigurace_experiment_vypni_stimul_pauza_enable = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_CAS_BEZ_STIMULU_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + + If konfigurace_experiment_vypni_stimul_prereset = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_VYPNI_STIMUL_PRERESET" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_vypni_stimul_poakci = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_VYPNI_STIMUL_POAKCI" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + Print #SysLogFile, "NASTAVENI_CAS_PITI" & ";" & konfigurace_experiment_cas_piti & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "NASTAVENI_PAUZA_MEZI_ZOBRAZENIMI" & ";" & konfigurace_experiment_cas_dalsi_ciklus & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_casovani = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_SEPARATANI_CASOVANI_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_slot_enable_1 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_CASOVANI_S1" & ";" & konfigurace_experiment_casovani_s1 & ";" & "SLOT_1_ENABLED" & ";" & StatTMP + + If konfigurace_experiment_slot_enable_2 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_CASOVANI_S2" & ";" & konfigurace_experiment_casovani_s2 & ";" & "SLOT_2_ENABLED" & ";" & StatTMP + + If konfigurace_experiment_slot_enable_3 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_CASOVANI_S3" & ";" & konfigurace_experiment_casovani_s3 & ";" & "SLOT_3_ENABLED" & ";" & StatTMP + + If konfigurace_experiment_slot_enable_4 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_CASOVANI_S4" & ";" & konfigurace_experiment_casovani_s4 & ";" & "SLOT_4_ENABLED" & ";" & StatTMP + + If konfigurace_experiment_slot_enable_5 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_CASOVANI_S5" & ";" & konfigurace_experiment_casovani_s5 & ";" & "SLOT_5_ENABLED" & ";" & StatTMP + + + If konfigurace_experiment_slot_enable_6 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_CASOVANI_S6" & ";" & konfigurace_experiment_casovani_s6 & ";" & "SLOT_6_ENABLED" & ";" & StatTMP + + Print #SysLogFile, "" + + Print #SysLogFile, "casova_osa(ms);parametr1;HODNOTA;parametr2;HODNOTA" + + Print #SysLogFile, "" + + + SysLogFile.Close +End + +Public Sub PreLogInit() +Dim StatTMP As String + Dim SysLogFile As File + PreLogName = Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh_nn_ss") & "_PreLearning_" & "E" & TxtExperimentID.Text & "S" & TxtSessionID.Text & "O" & TxtOjectID.Text & ".log" + SysLogWrite("GENERUJI_LOG_PreLearningu") + If Exist("/ratbox/log/" & PreLogName) = True Then + Shell ("mv /ratbox/log/" & PreLogName & " /ratbox/log/last_prelearning.log.backup") + Shell ("touch /ratbox/log/" & PreLogName) + Else + Shell ("touch /ratbox/log/" & PreLogName) + Endif + SysLogWrite("ZAPISUJI_HLAVICKU_LOGU_PreLearningu") + SysLogFile = Open "/ratbox/log/" & PreLogName For Append + Print #SysLogFile, "ZACATEK_DAT;28" + Print #SysLogFile, "" + Print #SysLogFile, "DATUM_PreLearningu" & ";" & Format$(Now, "yyyy_mm_dd") & ";" & "CAS_PreLearningu" & ";" & Format$(Now, "hh:nn:ss") + Print #SysLogFile, "PreLearning_ID" & ";" & TxtExperimentID.Text & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "SESSION_ID" & ";" & TxtSessionID.Text & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "OBJECT_ID" & ";" & TxtOjectID.Text & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "" + Print #SysLogFile, "NASTAVENI_POCET_CYKLU" & ";" & konfigurace_pocet_cyklu & ";" & "NULL" & ";" & "NULL" + Print #SysLogFile, "NASTAVENI_TIMEOUT_REAKCE" & ";" & konfigurace_timeout & ";" & "NULL" & ";" & "NULL" + + If konfigurace_timeout = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_TIMEOUT_REAKCE_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_prelearning_neopakovat = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "NASTAVENI_NEOPAKOVAT_REAKCE_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + Print #SysLogFile, "NASTAVENI_CAS_DALSI_CYKLUS" & ";" & konfigurace_prelearning_cas_dalsi_ciklus & ";" & "NULL" & ";" & "NULL" + + Print #SysLogFile, "NASTAVENI_CAS_PITI" & ";" & konfigurace_prelearning_cas_piti & ";" & "NULL" & ";" & "NULL" + + + If konfigurace_experiment_slot_enable_1 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "SLOT_1_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_slot_enable_2 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "SLOT_2_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_slot_enable_3 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "SLOT_3_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_slot_enable_4 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "SLOT_4_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + If konfigurace_experiment_slot_enable_5 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "SLOT_5_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + + If konfigurace_experiment_slot_enable_6 = True Then + StatTMP = "TRUE" + Else + StatTMP = "FALSE" + Endif + Print #SysLogFile, "SLOT_6_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" + + Print #SysLogFile, "" + + Print #SysLogFile, "casova_osa(ms);parametr1;HODNOTA;parametr2;HODNOTA" + + Print #SysLogFile, "" + + + SysLogFile.Close +End + + +Public Sub BtnPripoj_Click() + SysLogWrite("PRIPOJOVANI_BOXU_PORT: " & TxtCommPort.Text) + If SerialPort1.status = 0 Then + SerialPort1.PortName = TxtCommPort.Text + SerialPort1.Speed = 9600 + SerialPort1.DataBits = 8 + SerialPort1.StopBits = 1 + SerialPort1.FlowControl = False + SerialPort1.Open + Finally + If Error Then + ErrLogWrite("PRIPOJOVANI_CHYBA_PORTU_" & TxtCommPort.Text & " - " & Error.Text) + SysLogWrite("CHYBA_PORTU/BOXU") + Message("CHYBA BOXU / PORTU") + Endif + Else + SerialPort1.Close + Endif +End + +Public Sub SerialPort1_Read() +Dim InByte As Byte + Read #SerialPort1, InByte + Wait + If (simulace_zacenichani = False) And (InputBlock = False) Then + If InByte > 0 Then + If InByte = 1 Then stav_sloty = 1 + If InByte = 2 Then stav_sloty = 2 + If InByte = 4 Then stav_sloty = 3 + If InByte = 8 Then stav_sloty = 4 + If InByte = 16 Then stav_sloty = 5 + If InByte = 32 Then stav_sloty = 6 + If InByte = 0 Then stav_sloty = 0 + InputBlock = True + Endif + Else + InputBuffer_TMP = InByte + Endif + Wait +End + + +Public Sub Pauza(cas As Integer) + If status_casovac = False Then + status_casovac = True + buffer_casovac = 0 + TmrCasovac.Enabled = True + While cas > buffer_casovac + Wait + Wend + buffer_casovac = 0 + TmrCasovac.Enabled = False + TxtInfoCasovac.text = Str(buffer_casovac) + status_casovac = False + Endif + Finally + If Error Then + ErrLogWrite("NESYNCHRONI_UKONCENI - Pauza() - " & Error.Text) + Endif +End + +Public Sub PauzaMilis(cas As Integer) + If status_casovac_milis = False Then + status_casovac_milis = True + buffer_casovac_milis = 0 + TimerMilis.Enabled = True + While (cas / 10) > buffer_casovac_milis + Wait + Wend + buffer_casovac_milis = 0 + TimerMilis.Enabled = False + TxtInfoCasovacMilis.text = Str(buffer_casovac) * 10 + status_casovac_milis = False + Endif + Finally + If Error Then + ErrLogWrite("NESYNCHRONI_UKONCENI - PauzaMilis() - " & Error.Text) + Endif +End + +Public Sub AparaturaNastavPitko(n As Integer) + SysLogWrite("APARATURA_NASTAVENI_PITKA: " & Str(n)) + If SerialPort1.status = 1 Then + If n = 1 Then Write #SerialPort1, "s1" + If n = 1 Then Write #SerialPort1, "S0" + If n = 2 Then Write #SerialPort1, "s2" + If n = 2 Then Write #SerialPort1, "S0" + If n = 3 Then Write #SerialPort1, "s3" + If n = 3 Then Write #SerialPort1, "S0" + If n = 4 Then Write #SerialPort1, "S1" + If n = 4 Then Write #SerialPort1, "s0" + If n = 5 Then Write #SerialPort1, "S2" + If n = 5 Then Write #SerialPort1, "s0" + If n = 6 Then Write #SerialPort1, "S3" + If n = 6 Then Write #SerialPort1, "s0" + If n = 0 Then Write #SerialPort1, "s0" + If n = 0 Then Write #SerialPort1, "S0" + SysLogWrite("APARATURA_NASTAVENI_PITKA_OK") + Else + SysLogWrite("APARATURA_NASTAVENI_PITKA_CHYBA") + Endif +End + +Public Sub AparaturaReset() + SysLogWrite("APARATURA_RESET") + If SerialPort1.status = 1 Then + Write #SerialPort1, "S0" + Write #SerialPort1, "s0" + Write #SerialPort1, "d" + SysLogWrite("APARATURA_RESET_OK") + Else + SysLogWrite("APARATURA_RESET_CHYBA") + Endif +End + +Public Sub AparaturaOtevriDvere() + SysLogWrite("APARATURA_OTEVRENI_DVERI") + If SerialPort1.status = 1 Then + Write #SerialPort1, "D" + SysLogWrite("APARATURA_OTEVRENI_DVERI_OK") + Else + SysLogWrite("APARATURA_OTEVRENI_DVERI_CHYBA") + Endif +End + +Public Sub AparaturaZavriDvere() + SysLogWrite("APARATURA_ZAVRENI_DVERI") + If SerialPort1.status = 1 Then + Write #SerialPort1, "d" + SysLogWrite("APARATURA_ZAVRENI_DVERI_OK") + Else + SysLogWrite("APARATURA_ZAVRENI_DVERI_CHYBA") + Endif +End + + +Public Sub VypisStavSlotu() + If stav_sloty = 0 Then + ' [GB2:BCOL] CheckBox2.BackColor = Color.Red + CheckBox2.Background = Color.Red + ' [GB2:BCOL] CheckBox3.BackColor = Color.Red + CheckBox3.Background = Color.Red + ' [GB2:BCOL] CheckBox4.BackColor = Color.Red + CheckBox4.Background = Color.Red + ' [GB2:BCOL] CheckBox5.BackColor = Color.Red + CheckBox5.Background = Color.Red + ' [GB2:BCOL] CheckBox6.BackColor = Color.Red + CheckBox6.Background = Color.Red + ' [GB2:BCOL] CheckBox7.BackColor = Color.Red + CheckBox7.Background = Color.Red + Endif + Wait + ' [GB2:BCOL] IF stav_sloty = 1 THEN CheckBox2.BackColor = Color.Green + If stav_sloty = 1 Then CheckBox2.Background = Color.Green + ' [GB2:BCOL] IF stav_sloty = 2 THEN CheckBox3.BackColor = Color.Green + If stav_sloty = 2 Then CheckBox3.Background = Color.Green + ' [GB2:BCOL] IF stav_sloty = 3 THEN CheckBox4.BackColor = Color.Green + If stav_sloty = 3 Then CheckBox4.Background = Color.Green + ' [GB2:BCOL] IF stav_sloty = 4 THEN CheckBox5.BackColor = Color.Green + If stav_sloty = 4 Then CheckBox5.Background = Color.Green + ' [GB2:BCOL] IF stav_sloty = 5 THEN CheckBox6.BackColor = Color.Green + If stav_sloty = 5 Then CheckBox6.Background = Color.Green + ' [GB2:BCOL] IF stav_sloty = 6 THEN CheckBox7.BackColor = Color.Green + If stav_sloty = 6 Then CheckBox7.Background = Color.Green + Wait +End + + + + + +Public Sub BtnSZ1_MouseDown() + SysLogWrite("SIMULACE_ZACENICHANI_1") + simulace_zacenichani = True + stav_sloty = 1 +End +Public Sub BtnSZ1_MouseUp() + simulace_zacenichani = False + stav_sloty = 0 +End + +Public Sub BtnSZ2_MouseDown() + SysLogWrite("SIMULACE_ZACENICHANI_2") + simulace_zacenichani = True + stav_sloty = 2 +End +Public Sub BtnSZ2_MouseUp() + simulace_zacenichani = False + stav_sloty = 0 +End + +Public Sub BtnSZ3_MouseDown() + SysLogWrite("SIMULACE_ZACENICHANI_3") + simulace_zacenichani = True + stav_sloty = 3 +End +Public Sub BtnSZ3_MouseUp() + simulace_zacenichani = False + stav_sloty = 0 +End + +Public Sub BtnSZ4_MouseDown() + SysLogWrite("SIMULACE_ZACENICHANI_4") + simulace_zacenichani = True + stav_sloty = 4 +End +Public Sub BtnSZ4_MouseUp() + simulace_zacenichani = False + stav_sloty = 0 +End + +Public Sub BtnSZ5_MouseDown() + SysLogWrite("SIMULACE_ZACENICHANI_5") + simulace_zacenichani = True + stav_sloty = 5 +End +Public Sub BtnSZ5_MouseUp() + simulace_zacenichani = False + stav_sloty = 0 +End + +Public Sub BtnSZ6_MouseDown() + SysLogWrite("SIMULACE_ZACENICHANI_6") + simulace_zacenichani = True + stav_sloty = 6 +End +Public Sub BtnSZ6_MouseUp() + simulace_zacenichani = False + stav_sloty = 0 +End + +Public Sub BtnMod_Click() + mod_idx = mod_idx + 1 + If mod_idx > 1 Then mod_idx = 0 + If mod_idx = 1 Then BtnMod.Text = "Experiment" + If mod_idx = 0 Then BtnMod.Text = "PreLearning" + If mod_idx = 1 Then SysLogWrite("PREPNUTI_MODU: Experiment") + If mod_idx = 0 Then SysLogWrite("PREPNUTI_MODU: PreLearning") +End + +Public Sub BtnReset_Click() + + AparaturaReset() + +End + +Public Sub BtnOpenDor_Click() + + AparaturaOtevriDvere() + +End + +Public Sub BtnCloseDor_Click() + + AparaturaZavriDvere() + +End + +Public Sub BtnPitS_Click() + + AparaturaNastavPitko(1) + +End + +Public Sub BtnPitS2_Click() + + AparaturaNastavPitko(2) + +End + +Public Sub BtnPitS3_Click() + + AparaturaNastavPitko(3) + +End + +Public Sub BtnPitS4_Click() + + AparaturaNastavPitko(4) + +End + +Public Sub BtnPitS5_Click() + + AparaturaNastavPitko(5) + +End + +Public Sub BtnPitS6_Click() + + AparaturaNastavPitko(6) + +End + +Public Sub ChkTimeout_Click() + konfigurace_timeout_status = ChkTimeout.Value + If konfigurace_timeout_status = True Then SysLogWrite("KONFIGURACE_TIMEOUT: ZAPNUTO") + If konfigurace_timeout_status = False Then SysLogWrite("KONFIGURACE_TIMEOUT: VYPNUTO") +End + +Public Sub ChkPreNeopakovat_Click() + konfigurace_prelearning_neopakovat = ChkPreNeopakovat.Value + If konfigurace_prelearning_neopakovat = True Then SysLogWrite("KONFIGURACE_PreLearning_NEOPAKOVAT: ZAPNUTO") + If konfigurace_prelearning_neopakovat = False Then SysLogWrite("KONFIGURACE_Prelearning_NEOPAKOVAT: VYPNUTO") +End + +Public Sub ChkPrePauza_Click() + konfigurace_prelearning_pauza = ChkPrePauza.Value + If konfigurace_prelearning_pauza = True Then SysLogWrite("KONFIGURACE_PreLearning_PAUZA: ZAPNUTO") + If konfigurace_prelearning_pauza = False Then SysLogWrite("KONFIGURACE_Prelearning_PAUZA: VYPNUTO") +End + +Public Sub BtnNastav_Click() + SysLogWrite("UPLATNUJI_PARAMETRY") + If TestNastaveniExpCasu() = True Then + UplatniParametry() + VypisParametry() + SysLogWrite("PARAMETRY_UPLATNENY") + SysLogWrite("UKLADAM_ZAKLADNI_KONFIGURACI") + UlozDefoult() + SysLogWrite("ZAKLADNI_KONFIGURACE_ULOZENA") + Else + Message("! CHYBA ZADANEHO CASU: v rozliseni (ms) je minimalni hodnota 10") + Endif +End + +Public Sub VypisParametry() + If mod_idx = 0 Then SysLogWrite("MOD_PRELEARNING") + If mod_idx = 1 Then SysLogWrite("MOD_EXPERIMENT") + If konfigurace_timeout_status = True Then SysLogWrite("KONFIGURACE_TIMEOUT: ZAPNUTO") + If konfigurace_timeout_status = False Then SysLogWrite("KONFIGURACE_TIMEOUT: VYPNUTO") + If konfigurace_prelearning_neopakovat = True Then SysLogWrite("KONFIGURACE_PRELEARNING_NEOPAKOVAT: ZAPNUTO") + If konfigurace_prelearning_neopakovat = False Then SysLogWrite("KONFIGURACE_PRELEARNING_NEOPAKOVAT: VYPNUTO") + If konfigurace_prelearning_pauza = True Then SysLogWrite("KONFIGURACE_PRELEARNING_PAUZA: ZAPNUTO") + If konfigurace_prelearning_pauza = False Then SysLogWrite("KONFIGURACE_PRELEARNING_PAUZA: VYPNUTO") + SysLogWrite("KONFIGURACE_PRELEARNING_PAUZA: " & konfigurace_prelearning_cas_dalsi_ciklus) + SysLogWrite("KONFIGURACE_PRELEARNING_CAS_PITI: " & konfigurace_prelearning_cas_piti) + SysLogWrite("KONFIGURACE_POCET_CYKLU: " & konfigurace_pocet_cyklu) + SysLogWrite("KONFIGURACE_CAS_NA_REAKCI: " & konfigurace_timeout) + If konfigurace_experiment_casovani = True Then SysLogWrite("KONFIGURACE_CASOVANI: ZAPNUTO") + If konfigurace_experiment_casovani = False Then SysLogWrite("KONFIGURACE_CASOVANI: VYPNUTO") + If konfigurace_experiment_nahoda = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_NAHODA: ZAPNUTO") + If konfigurace_experiment_nahoda = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_NAHODA: VYPNUTO") + If konfigurace_experiment_neopakovat = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_NEOPAKOVAT: ZAPNUTO") + If konfigurace_experiment_neopakovat = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_NEOPAKOVAT: VYPNUTO") + If konfigurace_experiment_vypni_stimul = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_ZHASNUTI_STIMULU: ZAPNUTO") + If konfigurace_experiment_vypni_stimul = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_ZHASNUTI_STIMULU: VYPNUTO") + If konfigurace_experiment_vypni_stimul_pauza_enable = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_PAUZA_ZHASLY_STIMUL: ZAPNUTO") + If konfigurace_experiment_vypni_stimul_pauza_enable = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_PAUZA_ZHASLY_STIMUL: VYPNUTO") + + If konfigurace_experiment_vypni_stimul_prereset = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_VYPNI_STIMUL_PRERESET: ZAPNUTO") + If konfigurace_experiment_vypni_stimul_prereset = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_VYPNI_STIMUL_PRERESET: VYPNUTO") + + If konfigurace_experiment_vypni_stimul_poakci = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_VYPNI_STIMUL_POAKCI: ZAPNUTO") + If konfigurace_experiment_vypni_stimul_poakci = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_VYPNI_STIMUL_POAKCI: VYPNUTO") + + SysLogWrite("KONFIGURACE_EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_cas_zobrazeni_stimulu) + SysLogWrite("KONFIGURACE_EXPERIMENT_CAS_PITI " & konfigurace_experiment_cas_piti) + SysLogWrite("KONFIGURACE_EXPERIMENT_CAS_ZHASLY_STIMUL: " & konfigurace_experiment_cas_zhasnuteho_stimulu) + SysLogWrite("KONFIGURACE_EXPERIMENT_CAS_CYKLUS: " & konfigurace_experiment_cas_dalsi_ciklus) + If konfigurace_experiment_slot_enable_1 = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_1: ZAPNUTO") + If konfigurace_experiment_slot_enable_1 = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_1: VYPNUTO") + If konfigurace_experiment_slot_enable_2 = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_2: ZAPNUTO") + If konfigurace_experiment_slot_enable_2 = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_2: VYPNUTO") + If konfigurace_experiment_slot_enable_3 = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_3: ZAPNUTO") + If konfigurace_experiment_slot_enable_3 = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_3: VYPNUTO") + If konfigurace_experiment_slot_enable_4 = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_4: ZAPNUTO") + If konfigurace_experiment_slot_enable_4 = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_4: VYPNUTO") + If konfigurace_experiment_slot_enable_5 = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_5: ZAPNUTO") + If konfigurace_experiment_slot_enable_5 = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_5: VYPNUTO") + If konfigurace_experiment_slot_enable_6 = True Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_6: ZAPNUTO") + If konfigurace_experiment_slot_enable_6 = False Then SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_6: VYPNUTO") + SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_1: " & Str(konfigurace_experiment_casovani_s1)) + SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_2: " & Str(konfigurace_experiment_casovani_s2)) + SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_3: " & Str(konfigurace_experiment_casovani_s3)) + SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_4: " & Str(konfigurace_experiment_casovani_s4)) + SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_5: " & Str(konfigurace_experiment_casovani_s5)) + SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_6: " & Str(konfigurace_experiment_casovani_s6)) +End + +Public Sub UplatniParametry() + If TestNastaveniExpCasu() = True Then + konfigurace_pocet_cyklu = Val(TxtPocetCiklu.Text) + konfigurace_timeout = Val(TxtTimeout.Text) + konfigurace_timeout_status = ChkTimeout.Value + konfigurace_prelearning_cas_piti = Val(TxtPreCasPiti.Text) + konfigurace_prelearning_cas_dalsi_ciklus = Val(TxtPrePauza.Text) + konfigurace_prelearning_pauza = ChkPrePauza.Value + konfigurace_prelearning_neopakovat = ChkPreNeopakovat.Value + konfigurace_experiment_nahoda = ChkExpNahoda.Value + konfigurace_experiment_neopakovat = ChkExpNeopakovat.Value + konfigurace_experiment_cas_zobrazeni_stimulu = Val(ExperimentTxtTime0.Text) + konfigurace_experiment_cas_piti = Val(ExperimentTxtTime3.Text) + konfigurace_experiment_cas_zhasnuteho_stimulu = Val(ExperimentTxtTime1.Text) + konfigurace_experiment_cas_dalsi_ciklus = Val(ExperimentTxtTime2.Text) + konfigurace_experiment_vypni_stimul = ChkZhasniStimul.Value + + konfigurace_experiment_vypni_stimul_prereset = ChkZhasniStimulPreReset.Value + konfigurace_experiment_vypni_stimul_poakci = ChkZhasniStimulPoAkci.Value + + konfigurace_experiment_vypni_stimul_pauza_enable = ChkVypStimulPauza.Value + konfigurace_experiment_casovani = ExpChkEnableTiming.Value + konfigurace_experiment_slot_enable_1 = ExpChkSTime.Value + konfigurace_experiment_slot_enable_2 = ExpChkSTime2.Value + konfigurace_experiment_slot_enable_3 = ExpChkSTime3.Value + konfigurace_experiment_slot_enable_4 = ExpChkSTime4.Value + konfigurace_experiment_slot_enable_5 = ExpChkSTime5.Value + konfigurace_experiment_slot_enable_6 = ExpChkSTime6.Value + konfigurace_experiment_casovani_s1 = Val(ExpTxtS1Time.Text) + konfigurace_experiment_casovani_s2 = Val(ExpTxtS2Time.Text) + konfigurace_experiment_casovani_s3 = Val(ExpTxtS3Time.Text) + konfigurace_experiment_casovani_s4 = Val(ExpTxtS4Time.Text) + konfigurace_experiment_casovani_s5 = Val(ExpTxtS5Time.Text) + konfigurace_experiment_casovani_s6 = Val(ExpTxtS6Time.Text) + TimeoutOpakReset = ChkTimeoutOpakReset.Value + Else + Message("! CHYBA ZADANEHO CASU: v rozliseni (ms) je minimalni hodnota 10") + Endif +End + +Sub UlozDefoult() + Dim DefKonfFile As File + DefKonfFile = Open "/ratbox/system/defconf.rbconf" For Write + Wait + Print #DefKonfFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") + Print #DefKonfFile, TxtCommPort.Text + Print #DefKonfFile, Str(konfigurace_pocet_cyklu) + Print #DefKonfFile, Str(konfigurace_timeout) + Print #DefKonfFile, konfigurace_timeout_status + Print #DefKonfFile, Str(konfigurace_prelearning_cas_piti) + Print #DefKonfFile, Str(konfigurace_prelearning_cas_dalsi_ciklus) + Print #DefKonfFile, konfigurace_prelearning_pauza + Print #DefKonfFile, konfigurace_prelearning_neopakovat + Print #DefKonfFile, konfigurace_experiment_nahoda + Print #DefKonfFile, konfigurace_experiment_neopakovat + Print #DefKonfFile, Str(konfigurace_experiment_cas_zobrazeni_stimulu) + Print #DefKonfFile, Str(konfigurace_experiment_cas_piti) + Print #DefKonfFile, Str(konfigurace_experiment_cas_zhasnuteho_stimulu) + Print #DefKonfFile, Str(konfigurace_experiment_cas_dalsi_ciklus) + Print #DefKonfFile, konfigurace_experiment_vypni_stimul + Print #DefKonfFile, konfigurace_experiment_vypni_stimul_pauza_enable + Print #DefKonfFile, konfigurace_experiment_casovani + Print #DefKonfFile, konfigurace_experiment_slot_enable_1 + Print #DefKonfFile, konfigurace_experiment_slot_enable_2 + Print #DefKonfFile, konfigurace_experiment_slot_enable_3 + Print #DefKonfFile, konfigurace_experiment_slot_enable_4 + Print #DefKonfFile, konfigurace_experiment_slot_enable_5 + Print #DefKonfFile, konfigurace_experiment_slot_enable_6 + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s1) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s2) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s3) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s4) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s5) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s6) + Print #DefKonfFile, Str(mod_idx) + Print #DefKonfFile, TimeoutOpakReset + Print #DefKonfFile, konfigurace_experiment_vypni_stimul_prereset + Print #DefKonfFile, konfigurace_experiment_vypni_stimul_poakci + + Wait + DefKonfFile.Close +End + +Sub UlozUserCfg(CfgName As String) + Dim DefKonfFile As File + + UplatniParametry() + + If Exist("/ratbox/konfigurace/" & CfgName & ".rbconf") = False Then + Message("Profil: " & CfgName & " neexistuje a bude vytvoren......") + Shell ("touch /ratbox/konfigurace/" & CfgName & ".rbconf") + Message("Profil: " & CfgName & " Vytvoren....") + CfgList() + Else + If Message.Warning("Profil: " & CfgName & " jiz existuje, chcete ho prepsat ?", "NE", "ANO") = 2 Then + Goto cfgwrite + Else + Goto cfgwritekonec + Endif + Endif + + cfgwrite: + + DefKonfFile = Open "/ratbox/konfigurace/" & CfgName & ".rbconf" For Write + + Finally + If Error Then + ErrLogWrite("CHYBA_PRI_ZAPISU_KONFIGURACE: " & Error.Text) + Message("CHYBA_PRI_ZAPISU_KONFIGURACE") + Endif + + Wait + Print #DefKonfFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") + Print #DefKonfFile, TxtCommPort.Text + Print #DefKonfFile, Str(konfigurace_pocet_cyklu) + Print #DefKonfFile, Str(konfigurace_timeout) + Print #DefKonfFile, konfigurace_timeout_status + Print #DefKonfFile, Str(konfigurace_prelearning_cas_piti) + Print #DefKonfFile, Str(konfigurace_prelearning_cas_dalsi_ciklus) + Print #DefKonfFile, konfigurace_prelearning_pauza + Print #DefKonfFile, konfigurace_prelearning_neopakovat + Print #DefKonfFile, konfigurace_experiment_nahoda + Print #DefKonfFile, konfigurace_experiment_neopakovat + Print #DefKonfFile, Str(konfigurace_experiment_cas_zobrazeni_stimulu) + Print #DefKonfFile, Str(konfigurace_experiment_cas_piti) + Print #DefKonfFile, Str(konfigurace_experiment_cas_zhasnuteho_stimulu) + Print #DefKonfFile, Str(konfigurace_experiment_cas_dalsi_ciklus) + Print #DefKonfFile, konfigurace_experiment_vypni_stimul + Print #DefKonfFile, konfigurace_experiment_vypni_stimul_pauza_enable + Print #DefKonfFile, konfigurace_experiment_casovani + Print #DefKonfFile, konfigurace_experiment_slot_enable_1 + Print #DefKonfFile, konfigurace_experiment_slot_enable_2 + Print #DefKonfFile, konfigurace_experiment_slot_enable_3 + Print #DefKonfFile, konfigurace_experiment_slot_enable_4 + Print #DefKonfFile, konfigurace_experiment_slot_enable_5 + Print #DefKonfFile, konfigurace_experiment_slot_enable_6 + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s1) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s2) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s3) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s4) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s5) + Print #DefKonfFile, Str(konfigurace_experiment_casovani_s6) + Print #DefKonfFile, Str(mod_idx) + Print #DefKonfFile, TimeoutOpakReset + Print #DefKonfFile, konfigurace_experiment_vypni_stimul_prereset + Print #DefKonfFile, konfigurace_experiment_vypni_stimul_poakci + + Wait + DefKonfFile.Close + + cfgwritekonec: + +End + + + +Sub DefKonfLoad() +Dim linc As Integer +Dim lin As String +Dim arr_strings As String[] + SysLogWrite("OBNOVENI_PARAMETRU") + arr_strings = Split(File.LOAD("/ratbox/system/defconf.rbconf"), "\n") + For Each lin In arr_strings + lin = arr_strings[linc] + If linc = 1 Then TxtCommPort.text = lin + If linc = 2 Then TxtPocetCiklu.Text = lin + If linc = 3 Then TxtTimeout.Text = lin + If (linc = 4) And (lin = "True") Then ChkTimeout.Value = True + If (linc = 4) And (lin = "False") Then ChkTimeout.Value = False + If linc = 5 Then TxtPreCasPiti.Text = lin + If linc = 6 Then TxtPrePauza.Text = lin + If (linc = 7) And (lin = "True") Then ChkPrePauza.Value = True + If (linc = 7) And (lin = "False") Then ChkPrePauza.Value = False + If (linc = 8) And (lin = "True") Then ChkPreNeopakovat.Value = True + If (linc = 8) And (lin = "False") Then ChkPreNeopakovat.Value = False + If (linc = 9) And (lin = "True") Then ChkExpNahoda.Value = True + If (linc = 9) And (lin = "False") Then ChkExpNahoda.Value = False + If (linc = 10) And (lin = "True") Then ChkExpNeopakovat.Value = True + If (linc = 10) And (lin = "False") Then ChkExpNeopakovat.Value = False + If linc = 11 Then ExperimentTxtTime0.Text = lin + If linc = 12 Then ExperimentTxtTime3.Text = lin + If linc = 13 Then ExperimentTxtTime1.Text = lin + If linc = 14 Then ExperimentTxtTime2.Text = lin + If (linc = 15) And (lin = "True") Then ChkZhasniStimul.Value = True + If (linc = 15) And (lin = "False") Then ChkZhasniStimul.Value = False + If (linc = 16) And (lin = "True") Then ChkVypStimulPauza.Value = True + If (linc = 16) And (lin = "False") Then ChkVypStimulPauza.Value = False + If (linc = 17) And (lin = "True") Then ExpChkEnableTiming.Value = True + If (linc = 17) And (lin = "False") Then ExpChkEnableTiming.Value = False + If (linc = 18) And (lin = "True") Then ExpChkSTime.Value = True + If (linc = 18) And (lin = "False") Then ExpChkSTime.Value = False + If (linc = 19) And (lin = "True") Then ExpChkSTime2.Value = True + If (linc = 19) And (lin = "False") Then ExpChkSTime2.Value = False + If (linc = 20) And (lin = "True") Then ExpChkSTime3.Value = True + If (linc = 20) And (lin = "False") Then ExpChkSTime3.Value = False + If (linc = 21) And (lin = "True") Then ExpChkSTime4.Value = True + If (linc = 21) And (lin = "False") Then ExpChkSTime4.Value = False + If (linc = 22) And (lin = "True") Then ExpChkSTime5.Value = True + If (linc = 22) And (lin = "False") Then ExpChkSTime5.Value = False + If (linc = 23) And (lin = "True") Then ExpChkSTime6.Value = True + If (linc = 23) And (lin = "False") Then ExpChkSTime6.Value = False + If linc = 24 Then ExpTxtS1Time.Text = lin + If linc = 25 Then ExpTxtS2Time.Text = lin + If linc = 26 Then ExpTxtS3Time.Text = lin + If linc = 27 Then ExpTxtS4Time.Text = lin + If linc = 28 Then ExpTxtS5Time.Text = lin + If linc = 29 Then ExpTxtS6Time.Text = lin + If linc = 30 Then mod_idx = Val(lin) + If (linc = 30) And (lin = "0") Then BtnMod.Text = "PreLearning" + If (linc = 30) And (lin = "1") Then BtnMod.Text = "Experiment" + If (linc = 31) And (lin = "True") Then ChkTimeoutOpakReset.Value = True + If (linc = 31) And (lin = "False") Then ChkTimeoutOpakReset.Value = False + If (linc = 32) And (lin = "True") Then ChkZhasniStimulPreReset.Value = True + If (linc = 32) And (lin = "False") Then ChkZhasniStimulPreReset.Value = False + If (linc = 33) And (lin = "True") Then ChkZhasniStimulPoAkci.Value = True + If (linc = 33) And (lin = "False") Then ChkZhasniStimulPoAkci.Value = False + linc = linc + 1 + Next + SysLogWrite("PARAMETRY_OBNOVENY") +End + +Public Sub TmrCasovac_Timer() + buffer_casovac = buffer_casovac + 1 + TxtInfoCasovac.text = Str(buffer_casovac) + PosliInfo() + Wait +End + +Public Sub BtnPreStart_Click() +Dim exp_souhrn_stimul As Integer +Dim exp_souhrn_odpoved As Integer + + SysLogWrite("UPLATNUJI_PARAMETRY") + UplatniParametry() + VypisParametry() + SysLogWrite("PARAMETRY_UPLATNENY") + STOP_State = False + tmp_cyklus = 0 + Pauza(5) + If mod_idx = 0 Then + PreLogInit() + TimerExperimentMils.Enabled = True + PreStatInit() + SysLogWrite("PRELEARNING_START") + PreLogWrite("START" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + While (tmp_cyklus < konfigurace_pocet_cyklu) And (STOP_State = False) + PreLogWrite("CYKLUS" & ";" & tmp_cyklus & ";" & "NULL" & ";" & "NaN") + ' PRELEARNING - KROK 1 - OTEVRENI DVERI START + PreLogWrite("OTEVRENI_DVERI" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] LabelPre.BackColor = Color.Green + LabelPre.Background = Color.Green + AparaturaOtevriDvere() + Pauza(3) + ' [GB2:BCOL] LabelPre.BackColor = Color.Background + LabelPre.Background = Color.Background + PreLogWrite("DVERE_OTEVRENY" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + ' PRELEARNING - KROK 1 - OTEVRENI DVERI STOP + + Wait + + ' PRELEARNING - KROK 2 - CEKANI, ANALYZA POTKANI AKCE START + cekani_potkan_akce: + + TimeoutCountingStart() + ' [GB2:BCOL] LabelPre2.BackColor = Color.Green + LabelPre2.Background = Color.Green + stav_sloty = 0 + InputBlock = False + While (stav_sloty = 0) And (konfigurace_timeout > buffer_timeout) + Wait + Wend + TimeoutCountingStop() + ' [GB2:BCOL] LabelPre2.BackColor = Color.Background + LabelPre2.Background = Color.Background + buffer_sloty_aktual_state = stav_sloty + stav_sloty = 0 + + SysLogWrite("PRELEARNING_POTKAN_AKTIVITA_" & Str(buffer_sloty_aktual_state)) + pre_stat_aktivita[buffer_sloty_aktual_state] = pre_stat_aktivita[buffer_sloty_aktual_state] + 1 + + If buffer_sloty_aktual_state = 0 Then + SysLogWrite("PRELEARNING_TIMEOUT") + PreLogWrite("TIMEOUT" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + If TimeoutOpakReset = True Then buffer_sloty_last_state = 0 + pre_stat_timeout = pre_stat_timeout + 1 + Goto prelearning_reset + Endif + + If (buffer_sloty_last_state = buffer_sloty_aktual_state) And (konfigurace_prelearning_neopakovat = True) Then + SysLogWrite("PRELEARNING_POTKAN_OPAKOVANI") + PreLogWrite("OPAKOVANI" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + pre_stat_opakovani[buffer_sloty_last_state] = pre_stat_opakovani[buffer_sloty_last_state] + 1 + ' [GB2:BCOL] LabelPre2.BackColor = Color.Red + LabelPre2.Background = Color.Red + Pauza(1) + ' [GB2:BCOL] LabelPre2.BackColor = Color.Background + LabelPre2.Background = Color.Background + buffer_sloty_aktual_state = 0 + Goto cekani_potkan_akce + Else + PreLogWrite("AKTIVITA" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + Endif + + If (buffer_sloty_aktual_state = 1) And (konfigurace_experiment_slot_enable_1 = False) Then + SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) + PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + pre_stat_zakazano[1] = pre_stat_zakazano[1] + 1 + Goto cekani_potkan_akce + Endif + If (buffer_sloty_aktual_state = 2) And (konfigurace_experiment_slot_enable_2 = False) Then + SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) + PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + pre_stat_zakazano[2] = pre_stat_zakazano[2] + 1 + Goto cekani_potkan_akce + Endif + If (buffer_sloty_aktual_state = 3) And (konfigurace_experiment_slot_enable_3 = False) Then + SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) + PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + pre_stat_zakazano[3] = pre_stat_zakazano[3] + 1 + Goto cekani_potkan_akce + Endif + If (buffer_sloty_aktual_state = 4) And (konfigurace_experiment_slot_enable_4 = False) Then + SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) + PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + pre_stat_zakazano[4] = pre_stat_zakazano[4] + 1 + Goto cekani_potkan_akce + Endif + If (buffer_sloty_aktual_state = 5) And (konfigurace_experiment_slot_enable_5 = False) Then + SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) + PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + pre_stat_zakazano[5] = pre_stat_zakazano[5] + 1 + Goto cekani_potkan_akce + Endif + If (buffer_sloty_aktual_state = 6) And (konfigurace_experiment_slot_enable_6 = False) Then + SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) + PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + pre_stat_zakazano[6] = pre_stat_zakazano[6] + 1 + Goto cekani_potkan_akce + Endif + + buffer_sloty_last_state = buffer_sloty_aktual_state + ' [GB2:BCOL] LabelPre2.BackColor = Color.Background + LabelPre2.Background = Color.Background + ' PRELEARNING - KROK 2 - CEKANI, ANALYZA POTKANI AKCE STOP + + ' [GB2:BCOL] LabelPre3.BackColor = Color.Green + LabelPre3.Background = Color.Green + AparaturaNastavPitko(buffer_sloty_aktual_state) + Pauza(3) + ' [GB2:BCOL] LabelPre3.BackColor = Color.Background + LabelPre3.Background = Color.Background + PreLogWrite("NASTAVUJI_PITKO" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") + + ' [GB2:BCOL] Label1.BackColor = Color.Green + Label1.Background = Color.Green + Pauza(konfigurace_prelearning_cas_piti) + pre_stat_ciklus_real = pre_stat_ciklus_real + 1 + ' [GB2:BCOL] Label1.BackColor = Color.Background + Label1.Background = Color.Background + + prelearning_reset: + ' [GB2:BCOL] LabelPre5.BackColor = Color.Green + LabelPre5.Background = Color.Green + AparaturaReset() + Pauza(3) + ' [GB2:BCOL] LabelPre5.BackColor = Color.Background + LabelPre5.Background = Color.Background + + If konfigurace_prelearning_pauza = True Then + ' [GB2:BCOL] ChkPrePauza.BackColor = Color.Green + ChkPrePauza.Background = Color.Green + Pauza(konfigurace_prelearning_cas_dalsi_ciklus) + ' [GB2:BCOL] ChkPrePauza.BackColor = Color.Background + ChkPrePauza.Background = Color.Background + Endif + tmp_cyklus = tmp_cyklus + 1 + pre_stat_ciklus = pre_stat_ciklus + 1 + Wend + + tmp_cyklus = 0 + stav_sloty = 0 + + PreLogWrite("KONEC" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + PreStatWrite() + SysLogWrite("PRELEARNING_KONEC") + TimerExperimentMils.Enabled = False + + Else If mod_idx = 1 Then + tmp_cyklus = 0 + stav_sloty = 0 + tmp_stimul_idx = 0 + STOP_State = False + tmp_mils = 0 + + ExpLogInit() + Pauza(5) + ExpStatInit() + ExpLogWrite("START" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + SysLogWrite("EXPERIMENT_START") + + While (tmp_cyklus < konfigurace_pocet_cyklu) And (STOP_State = False) + TimerExperimentMils.Enabled = True + exp_genstim: + ExpLogWrite("CYKLUS" & ";" & tmp_cyklus & ";" & "NULL" & ";" & "NaN") + If konfigurace_experiment_nahoda = True Then + tmp_stimul_idx = Rnd(1, 7) + 'ExpLogWrite("NAHODNY_STIMUL" & ";" & tmp_stimul_idx & ";" & "NULL" & ";" & "NaN") + Else + If tmp_stimul_idx = 6 Then tmp_stimul_idx = 0 + tmp_stimul_idx = tmp_stimul_idx + 1 + ExpLogWrite("LINEARNI_STIMUL" & ";" & tmp_stimul_idx & ";" & "NULL" & ";" & "NaN") + Endif + If (tmp_stimul_last = tmp_stimul_idx) And (konfigurace_experiment_neopakovat = True) Then +' ExpLogWrite("EXPERIMENT_OPAKOVANI_STIMULU: " & tmp_stimul_idx & " GENERUJI_NOVY") + Goto exp_genstim + Endif + tmp_stimul_last = tmp_stimul_idx + If (konfigurace_experiment_slot_enable_1 = False) And (tmp_stimul_idx = 1) Then +' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") + Goto exp_genstim + Endif + If (konfigurace_experiment_slot_enable_2 = False) And (tmp_stimul_idx = 2) Then +' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") + Goto exp_genstim + Endif + If (konfigurace_experiment_slot_enable_3 = False) And (tmp_stimul_idx = 3) Then +' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") + Goto exp_genstim + Endif + If (konfigurace_experiment_slot_enable_4 = False) And (tmp_stimul_idx = 4) Then +' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") + Goto exp_genstim + Endif + If (konfigurace_experiment_slot_enable_5 = False) And (tmp_stimul_idx = 5) Then +' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") + Goto exp_genstim + Endif + If (konfigurace_experiment_slot_enable_6 = False) And (tmp_stimul_idx = 6) Then +' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") + Goto exp_genstim + Endif + + Label23.Text = tmp_stimul_idx + exp_souhrn_stimul = tmp_stimul_idx + + ExpLogWrite("ZOBRAZENI_STIMULU" & ";" & tmp_stimul_idx & ";" & "NULL" & ";" & "NaN") + ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/" & tmp_stimul_idx & ".bmp") + Form1.stimul("/ratbox/stimuls/" & tmp_stimul_idx & ".bmp") + Wait + + If konfigurace_experiment_casovani = True Then + If tmp_stimul_idx = 1 Then + ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s1) & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label26.BackColor = Color.Green + Label26.Background = Color.Green + PauzaMilis(konfigurace_experiment_casovani_s1) + ' [GB2:BCOL] Label26.BackColor = Color.Background + Label26.Background = Color.Background + Endif + If tmp_stimul_idx = 2 Then + ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s2) & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label27.BackColor = Color.Green + Label27.Background = Color.Green + PauzaMilis(konfigurace_experiment_casovani_s2) + ' [GB2:BCOL] Label27.BackColor = Color.Background + Label27.Background = Color.Background + Endif + If tmp_stimul_idx = 3 Then + ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s3) & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label28.BackColor = Color.Green + Label28.Background = Color.Green + PauzaMilis(konfigurace_experiment_casovani_s3) + ' [GB2:BCOL] Label28.BackColor = Color.Background + Label28.Background = Color.Background + Endif + If tmp_stimul_idx = 4 Then + ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s4) & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label29.BackColor = Color.Green + Label29.Background = Color.Green + PauzaMilis(konfigurace_experiment_casovani_s4) + ' [GB2:BCOL] Label29.BackColor = Color.Background + Label29.Background = Color.Background + Endif + If tmp_stimul_idx = 5 Then + ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s5) & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label30.BackColor = Color.Green + Label30.Background = Color.Green + PauzaMilis(konfigurace_experiment_casovani_s5) + ' [GB2:BCOL] Label30.BackColor = Color.Background + Label30.Background = Color.Background + Endif + If tmp_stimul_idx = 6 Then + ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s6) & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label31.BackColor = Color.Green + Label31.Background = Color.Green + PauzaMilis(konfigurace_experiment_casovani_s6) + ' [GB2:BCOL] Label31.BackColor = Color.Background + Label31.Background = Color.Background + Endif + Else + ' [GB2:BCOL] Label12.BackColor = Color.Green + Label12.Background = Color.Green + ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_cas_zobrazeni_stimulu) & ";" & "NULL" & ";" & "NaN") + PauzaMilis(konfigurace_experiment_cas_zobrazeni_stimulu) + ' [GB2:BCOL] Label12.BackColor = Color.Background + Label12.Background = Color.Background + Endif + + If konfigurace_experiment_vypni_stimul = True Then + ' [GB2:BCOL] ChkZhasniStimul.BackColor = Color.Green + ChkZhasniStimul.Background = Color.Green + ExpLogWrite("ZHASNUTI_STIMULU" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + Form1.stimul("/ratbox/stimuls/clear.bmp") + ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/clear.bmp") + ' [GB2:BCOL] ChkZhasniStimul.BackColor = Color.Background + ChkZhasniStimul.Background = Color.Background + Endif + + If konfigurace_experiment_vypni_stimul_pauza_enable = True Then + ' [GB2:BCOL] Label13.BackColor = Color.Green + Label13.Background = Color.Green + ExpLogWrite("CAS_ZHASLEHO_STIMULU" & ";" & (konfigurace_experiment_cas_zhasnuteho_stimulu) & ";" & "NULL" & ";" & "NaN") + PauzaMilis(konfigurace_experiment_cas_zhasnuteho_stimulu) + ' [GB2:BCOL] Label13.BackColor = Color.Background + Label13.Background = Color.Background + Endif + + ExpLogWrite("OTEVRENI_DVERI" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] LabelPre6.BackColor = Color.Green + LabelPre6.Background = Color.Green + AparaturaOtevriDvere() + Pauza(3) + ExpLogWrite("DVERE_OTEVRENY" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] LabelPre6.BackColor = Color.Background + LabelPre6.Background = Color.Background + + ' [GB2:BCOL] LabelPre7.BackColor = Color.Green + LabelPre7.Background = Color.Green + stav_sloty = 0 + InputBlock = False + ExpLogWrite("CEKANI_REAKCE" & ";" & "NaN" & ";" & "TIMEOUT" & ";" & (konfigurace_timeout * 1000)) + TimeoutCountingStart() + While (stav_sloty = 0) And (konfigurace_timeout > buffer_timeout) + Wait + Wend + TimeoutCountingStop() + ' [GB2:BCOL] LabelPre7.BackColor = Color.Background + LabelPre7.Background = Color.Background + buffer_sloty_aktual_state = stav_sloty + stav_sloty = 0 + + If konfigurace_experiment_vypni_stimul_poakci = True Then + ' [GB2:BCOL] ChkZhasniStimulPoAkci.BackColor = Color.Green + ChkZhasniStimulPoAkci.Background = Color.Green + ExpLogWrite("ZHASNUTI_STIMULU" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + Form1.stimul("/ratbox/stimuls/clear.bmp") + ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/clear.bmp") + ' [GB2:BCOL] ChkZhasniStimulPoAkci.BackColor = Color.Background + ChkZhasniStimulPoAkci.Background = Color.Background + Endif + + If buffer_sloty_aktual_state > 0 Then + exp_souhrn_odpoved = buffer_sloty_aktual_state + exp_stat_souhrn[exp_souhrn_stimul, exp_souhrn_odpoved] = exp_stat_souhrn[exp_souhrn_stimul, exp_souhrn_odpoved] + 1 + exp_stat_aktivita[buffer_sloty_aktual_state] = exp_stat_aktivita[buffer_sloty_aktual_state] + 1 + Endif + + If buffer_sloty_aktual_state = 0 Then + ExpLogWrite("TIMEOUT" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + exp_stat_timeout = exp_stat_timeout + 1 + Goto exp_reset + Endif + + ExpLogWrite("REAKCE" & ";" & buffer_sloty_aktual_state & ";" & "OCEKAVANO" & ";" & tmp_stimul_idx) + 'exp_stat_aktivita[buffer_sloty_aktual_state] = exp_stat_aktivita[buffer_sloty_aktual_state] + 1 + + If buffer_sloty_aktual_state <> tmp_stimul_idx Then +' ExpLogWrite("EXPERIMENT_POKTKAN_SPATNA_VOLBA: " & buffer_sloty_aktual_state & " ,OCEKAVANO: " & tmp_stimul_idx) + Goto exp_reset + Endif + If buffer_sloty_aktual_state = tmp_stimul_idx Then +' ExpLogWrite("EXPERIMENT_POTKAN_SPRAVNA_VOLBA: " & buffer_sloty_aktual_state) + ExpLogWrite("PITKO" & ";" & tmp_stimul_idx & ";" & "NULL" & ";" & "NaN") + exp_stat_ciklus_real = exp_stat_ciklus_real + 1 + ' [GB2:BCOL] LabelPre8.BackColor = Color.Green + LabelPre8.Background = Color.Green + AparaturaNastavPitko(tmp_stimul_idx) + Pauza(3) + ' [GB2:BCOL] LabelPre8.BackColor = Color.Background + LabelPre8.Background = Color.Background + ExpLogWrite("CAS_PITI" & ";" & (konfigurace_experiment_cas_piti) & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label36.BackColor = Color.Green + Label36.Background = Color.Green + PauzaMilis(konfigurace_experiment_cas_piti) + ' [GB2:BCOL] Label36.BackColor = Color.Background + Label36.Background = Color.Background + Endif + exp_reset: + ExpLogWrite("RESET" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label20.BackColor = Color.Green + Label20.Background = Color.Green + + If konfigurace_experiment_vypni_stimul_prereset = True Then + ' [GB2:BCOL] ChkZhasniStimulPreReset.BackColor = Color.Green + ChkZhasniStimulPreReset.Background = Color.Green + ExpLogWrite("ZHASNUTI_STIMULU" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + Form1.stimul("/ratbox/stimuls/clear.bmp") + ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/clear.bmp") + ' [GB2:BCOL] ChkZhasniStimulPreReset.BackColor = Color.Background + ChkZhasniStimulPreReset.Background = Color.Background + Endif + +' RESET APARATURY + + AparaturaReset() + Pauza(3) + ' [GB2:BCOL] Label20.BackColor = Color.Background + Label20.Background = Color.Background + If konfigurace_experiment_cas_dalsi_ciklus > 0 Then + ExpLogWrite("CAS_DALSI_CYKLUS" & ";" & (konfigurace_experiment_cas_dalsi_ciklus) & ";" & "NULL" & ";" & "NaN") + ' [GB2:BCOL] Label25.BackColor = Color.Green + Label25.Background = Color.Green + PauzaMilis(konfigurace_experiment_cas_dalsi_ciklus) + ' [GB2:BCOL] Label25.BackColor = Color.Background + Label25.Background = Color.Background + Endif +' ExpLogWrite("EXPERIMENT_KONEC_CYKLU: " & tmp_cyklus) + exp_stat_ciklus = exp_stat_ciklus + 1 + tmp_cyklus = tmp_cyklus + 1 + Wend + Form1.stimul("/ratbox/stimuls/clear.bmp") + ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/clear.bmp") + ExpLogWrite("KONEC" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") + SysLogWrite("EXPERIMENT_KONEC") + ExpStatWrite() + TimerExperimentMils.Enabled = False + Endif + +End + +Public Sub TimeoutCountingStop() + TmrTimeout.Enabled = False + buffer_timeout = 0 +End + +Public Sub TimeoutCountingStart() + buffer_timeout = 0 + TmrTimeout.Enabled = True +End + +Public Sub TmrTimeout_Timer() + If (buffer_timeout + 1) > konfigurace_timeout Then TmrTimeout.Enabled = False + buffer_timeout = buffer_timeout + 1 + TxtInfoTimeout.Text = Str(buffer_timeout) + PosliInfo() + Wait +End + +Public Sub BtnPreStop_Click() + STOP_State = True + SysLogWrite("UZIVATELSKE_UKONCENI_CYKLU") +End + +Public Sub BtnExpFull_Click() + If mod_idx = 0 Then BtnMod_Click() + FMain.Visible = False + Form1.FullScreen = True + Form1.Visible = True + Form1.stimul("/ratbox/stimuls/clear.bmp") +End + +Public Sub BtnKonfUloz_Click() +Dim i As Integer +Dim kontrola As Boolean + kontrola = False + If Len(TxtKonfigNazev.Text) = 0 Then + ErrLogWrite("Ukladani_profilu_nulova_velikost_nazvu") + Message("Zadejte nazev profilu 1 - 16 znaku, pouze cisla a pismena....") + Goto Konec + Endif + If Len(TxtKonfigNazev.Text) > 16 Then + ErrLogWrite("Ukladani_profilu_moc_dlouhy_nazev") + ErrLogWrite("Ukladani_profilu_nazev: " & TxtKonfigNazev.Text) + ErrLogWrite("Ukladani_profilu_nazev_delka: " & Str(Len(TxtKonfigNazev.Text))) + Message("Moc dlouhy nazev profilu. Pouze 1 - 16 znaku, pouze cisla a pismena....") + TxtKonfigNazev.text = "" + Goto Konec + Endif + kontrola = True + For i = 0 To Len(TxtKonfigNazev.Text) - 1 + If ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 58) And (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 47)) Or ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 91) And (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 64)) Or ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 123) And (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 96)) Then + Else + kontrola = False + Endif + Next + If kontrola = False Then + ErrLogWrite("Ukladani_profilu_nepovoleny_znak_nazev_: " & TxtKonfigNazev.Text) + For i = 0 To Len(TxtKonfigNazev.Text) - 1 + If ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 58) And (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 47)) Or ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 91) And (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 64)) Or ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 123) And (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 96)) Then + Else + ErrLogWrite("Znak-KO ASCII CODE: " & Mid(TxtKonfigNazev.Text, i + 1, 1) & " " & Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) & " POZICE: " & i + 1) + Endif + Next + Message("Nazev_profilu_obsahuje_nepovoleny_znak.Pouze 1 - 16 znaku, pouze cisla a pismena....") + Goto Konec + Endif + SysLogWrite("Ukladani_uzivatelskeho_profilu: " & TxtKonfigNazev.Text) + UlozUserCfg(TxtKonfigNazev.Text) + CfgList() + Konec: + CfgList() + TxtKonfigNazev.Text = "" +End + +Sub CfgList() +Dim File As String + ListBox1.Clear + SysLogWrite("Obnoveni_seznamu_profilu...") + For Each File In Dir("/ratbox/konfigurace/", "*.rbconf") + ListBox1.Add(Mid(File, 1, Len(File) - 7)) + Next +End + +Public Sub Button1_Click() + CfgList() +End + +Public Sub ListBox1_Select() + TxtKonfigNazev.Text = ListBox1.Text +End + +Public Sub BtnSmazKonfiguraci_Click() +Dim CfgName As String + CfgName = TxtKonfigNazev.Text + SysLogWrite("Smazani_uzivatelskeho_profilu: " & CfgName) + If Exist("/ratbox/konfigurace/" & CfgName & ".rbconf") = False Then + Message("Profil: " & CfgName & " neexistuje a proto nemuze byt smazan....") + ErrLogWrite("SMAZANI_PROFILU: CHYBA - PROFIL NEEXISTUJE") + CfgList() + Else + If Message.Warning("Profil: " & CfgName & " bude nenavratne smazan. Opravdu SMAZAT ?", "NE", "ANO") = 2 Then + Shell ("rm /ratbox/konfigurace/" & CfgName & ".rbconf") + Finally + If Error Then + ErrLogWrite("Chyba pri mazani profilu: " & "/ratbox/konfigurace/" & CfgName & ".rbconf " & Error.Text) + Message("Chyba pri mazani profilu: " & CfgName) + Endif + CfgList() + Message("Profil: " & CfgName & " byl uspesne smazan....") + SysLogWrite("Profil: " & CfgName & "smazan...") + Else + SysLogWrite("Smazani_profilu: " & CfgName & " stornovano..") + Endif + Endif + CfgList() + TxtKonfigNazev.text = "" +End + +Public Sub BtnNahrajKonfiguraci_Click() + If Len(TxtKonfigNazev.text) = 0 Then + Message("Vyberte profil - klikem v seznamu vedle") + Goto nahrajkonec + Endif + If Exist("/ratbox/konfigurace/" & TxtKonfigNazev.Text & ".rbconf") = False Then + Message("Soubor profilu: " & TxtKonfigNazev.Text & " nenalezen") + TxtKonfigNazev.Text = "" + Goto nahrajkonec + Else + UserCfgLoad(TxtKonfigNazev.Text) + Endif + nahrajkonec: + CfgList() + TxtKonfigNazev.Text = "" +End + +Sub UserCfgLoad(CfgProfil As String) +Dim linc As Integer +Dim lin As String +Dim arr_strings As String[] + SysLogWrite("OBNOVENI_PARAMETRU_Z_PROFILU: " & CfgProfil) + If Exist("/ratbox/konfigurace/" & CfgProfil & ".rbconf") = False Then + Message("Soubor profilu: " & "/ratbox/konfigurace/" & CfgProfil & ".rbconf" & " je neplatny !!") + Endif + arr_strings = Split(File.LOAD("/ratbox/konfigurace/" & CfgProfil & ".rbconf"), "\n") + Finally + If Error Then + ErrLogWrite("Chyba pri nahravani profilu: " & "/ratbox/konfigurace/" & CfgProfil & ".rbconf " & Error.Text) + Message("Chyba pri nahravani profilu: " & "/ratbox/konfigurace/" & CfgProfil & ".rbconf") + Endif + For Each lin In arr_strings + lin = arr_strings[linc] + If linc = 1 Then TxtCommPort.text = lin + If linc = 2 Then TxtPocetCiklu.Text = lin + If linc = 3 Then TxtTimeout.Text = lin + If (linc = 4) And (lin = "True") Then ChkTimeout.Value = True + If (linc = 4) And (lin = "False") Then ChkTimeout.Value = False + If linc = 5 Then TxtPreCasPiti.Text = lin + If linc = 6 Then TxtPrePauza.Text = lin + If (linc = 7) And (lin = "True") Then ChkPrePauza.Value = True + If (linc = 7) And (lin = "False") Then ChkPrePauza.Value = False + If (linc = 8) And (lin = "True") Then ChkPreNeopakovat.Value = True + If (linc = 8) And (lin = "False") Then ChkPreNeopakovat.Value = False + If (linc = 9) And (lin = "True") Then ChkExpNahoda.Value = True + If (linc = 9) And (lin = "False") Then ChkExpNahoda.Value = False + If (linc = 10) And (lin = "True") Then ChkExpNeopakovat.Value = True + If (linc = 10) And (lin = "False") Then ChkExpNeopakovat.Value = False + If linc = 11 Then ExperimentTxtTime0.Text = lin + If linc = 12 Then ExperimentTxtTime3.Text = lin + If linc = 13 Then ExperimentTxtTime1.Text = lin + If linc = 14 Then ExperimentTxtTime2.Text = lin + If (linc = 15) And (lin = "True") Then ChkZhasniStimul.Value = True + If (linc = 15) And (lin = "False") Then ChkZhasniStimul.Value = False + If (linc = 16) And (lin = "True") Then ChkVypStimulPauza.Value = True + If (linc = 16) And (lin = "False") Then ChkVypStimulPauza.Value = False + If (linc = 17) And (lin = "True") Then ExpChkEnableTiming.Value = True + If (linc = 17) And (lin = "False") Then ExpChkEnableTiming.Value = False + If (linc = 18) And (lin = "True") Then ExpChkSTime.Value = True + If (linc = 18) And (lin = "False") Then ExpChkSTime.Value = False + If (linc = 19) And (lin = "True") Then ExpChkSTime2.Value = True + If (linc = 19) And (lin = "False") Then ExpChkSTime2.Value = False + If (linc = 20) And (lin = "True") Then ExpChkSTime3.Value = True + If (linc = 20) And (lin = "False") Then ExpChkSTime3.Value = False + If (linc = 21) And (lin = "True") Then ExpChkSTime4.Value = True + If (linc = 21) And (lin = "False") Then ExpChkSTime4.Value = False + If (linc = 22) And (lin = "True") Then ExpChkSTime5.Value = True + If (linc = 22) And (lin = "False") Then ExpChkSTime5.Value = False + If (linc = 23) And (lin = "True") Then ExpChkSTime6.Value = True + If (linc = 23) And (lin = "False") Then ExpChkSTime6.Value = False + If linc = 24 Then ExpTxtS1Time.Text = lin + If linc = 25 Then ExpTxtS2Time.Text = lin + If linc = 26 Then ExpTxtS3Time.Text = lin + If linc = 27 Then ExpTxtS4Time.Text = lin + If linc = 28 Then ExpTxtS5Time.Text = lin + If linc = 29 Then ExpTxtS6Time.Text = lin + If linc = 30 Then mod_idx = Val(lin) + If (linc = 30) And (lin = "0") Then BtnMod.Text = "PreLearning" + If (linc = 30) And (lin = "1") Then BtnMod.Text = "Experiment" + If (linc = 31) And (lin = "True") Then ChkTimeoutOpakReset.Value = True + If (linc = 31) And (lin = "False") Then ChkTimeoutOpakReset.Value = False + If (linc = 32) And (lin = "True") Then ChkZhasniStimulPreReset.Value = True + If (linc = 32) And (lin = "False") Then ChkZhasniStimulPreReset.Value = False + If (linc = 33) And (lin = "True") Then ChkZhasniStimulPoAkci.Value = True + If (linc = 33) And (lin = "False") Then ChkZhasniStimulPoAkci.Value = False + linc = linc + 1 + Next + SysLogWrite("PARAMETRY_PROFILU_NASTAVENY") +End + +Public Sub PosliInfo() + Form1.cyklusinfo("Cyklus:" & Str(tmp_cyklus + 1) & "/" & Str(konfigurace_pocet_cyklu) & " PauzaTMR:" & Str(buffer_casovac) & " TimeoutTMR:" & Str(buffer_timeout)) +End + + +Public Sub remstart() + BtnPreStart_Click() +End + +Public Sub TimerExperimentMils_Timer() + tmp_mils = tmp_mils + 1 +End + +Public Function TestNastaveniExpCasu() As Boolean + Dim test As Boolean + test = True + If Val(ExpTxtS1Time.Text) < 10 Then test = False + If Val(ExpTxtS2Time.Text) < 10 Then test = False + If Val(ExpTxtS3Time.Text) < 10 Then test = False + If Val(ExpTxtS4Time.Text) < 10 Then test = False + If Val(ExpTxtS5Time.Text) < 10 Then test = False + If Val(ExpTxtS6Time.Text) < 10 Then test = False + If Val(ExperimentTxtTime0.Text) < 10 Then test = False + If Val(ExperimentTxtTime1.Text) < 10 Then test = False + If Val(ExperimentTxtTime2.Text) < 10 Then test = False + If Val(ExperimentTxtTime3.Text) < 10 Then test = False + If test = True Then + Return True + Else + Return False + Endif +End + +Public Sub ExperimentTxtTime2_KeyPress() +End + +Public Sub TimerMilis_Timer() + buffer_casovac_milis = buffer_casovac_milis + 1 + TxtInfoCasovacMilis.text = Str(buffer_casovac_milis) * 10 + PosliInfo() + Wait +End diff --git a/FMain.form b/.src/FMain.form similarity index 74% rename from FMain.form rename to .src/FMain.form index 208ed27..0e23688 100644 --- a/FMain.form +++ b/.src/FMain.form @@ -1,763 +1,752 @@ -# Gambas Form File 2.0 - -{ Form Form +# Gambas Form File 3.0 +{ Form Form Move(0,0,1400,798) - #(Scaled) = False - Text = ("") - Border = Window.None + #Scaled = False + Border = False FullScreen = True - { BtnKonec Button + { BtnKonec Button Move(1162,7,70,21) Text = ("KONEC") } - { TxtSysTime TextBox + { TxtSysTime TextBox Move(1015,7,140,21) - Text = ("") Alignment = Align.Center } - { TimerSystime #Timer - #X = 644 - #Y = 315 + { TimerSystime #Timer + #MoveScaled(0,0) Enabled = True Delay = 250 } - { TxtSysLog TextArea + { TxtSysLog TextArea Move(14,49,679,112) - Text = ("") ReadOnly = True Wrap = True ScrollBar = Scroll.Vertical } - { TxtWDT TextBox + { TxtWDT TextBox Move(959,7,49,21) Enabled = False Text = ("WDT") Alignment = Align.Center } - { LabelPre Label + { LabelPre Label Move(35,182,77,35) ToolTip = ("Otevreni dvirek") Text = ("OTEVRENI\nDVERI") Alignment = Align.Center } - { LabelPre2 Label + { LabelPre2 Label Move(196,175,63,63) ToolTip = ("Ceka se az potkan zacumakuje") Text = ("CEKANI\nAKCE\nPOTKAN") Alignment = Align.Center } - { LabelPreFrm2 Label + { LabelPreFrm2 Label Move(266,196,70,14) Text = ("------------>") Alignment = Align.Center } - { LabelPre3 Label + { LabelPre3 Label Move(343,175,84,63) ToolTip = ("Pitko se nastavi do pozice zacumakovani") Text = ("NASTAVENI\nPITKA") Alignment = Align.Center } - { LabelPreFrm3 Label + { LabelPreFrm3 Label Move(602,231,28,63) Text = (" |\n |\n |\n") Alignment = Align.Center } - { TxtPreCasPiti TextBox + { TxtPreCasPiti TextBox Move(574,189,70,28) Text = ("10") Alignment = Align.Center } - { Label1 Label + { Label1 Label Move(511,189,56,28) Text = ("Cas piti") } - { Label2 Label + { Label2 Label Move(658,189,28,28) Text = ("sec") } - { LabelPreFrm5 Label + { LabelPreFrm5 Label Move(441,301,189,14) Text = ("<-----------------------------------------\n") Alignment = Align.Center } - { LabelPreFrm1 Label + { LabelPreFrm1 Label Move(119,196,70,14) Text = ("------------>") Alignment = Align.Center } - { LabelPreFrm7 Label + { LabelPreFrm7 Label Move(434,196,70,14) Text = ("------------>") Alignment = Align.Center } - { LabelPre5 Label + { LabelPre5 Label Move(371,294,63,35) ToolTip = ("Nastaveni pitek do vychozich pozic") Text = ("RESET") Alignment = Align.Center } - { LabelPreFrm6 Label + { LabelPreFrm6 Label Move(63,224,28,42) Text = ("|\n|\n") Alignment = Align.Center } - { ChkPreNeopakovat CheckBox + { ChkPreNeopakovat CheckBox Move(168,238,119,28) ToolTip = ("Zakaze opakovani stejnych pitek 2x po sobe") Text = ("NEOPAKOVAT") } - { BtnPreStart Button + { BtnPreStart Button Move(910,315,70,21) Text = ("START") } - { BtnPreStop Button + { BtnPreStop Button Move(994,315,70,21) Text = ("STOP") } - { BtnSZ1 Button + { BtnSZ1 Button Move(812,154,28,21) ToolTip = ("Simuluje zacumakovani potkana") Text = ("S1") } - { BtnSZ2 Button + { BtnSZ2 Button Move(812,182,28,21) ToolTip = ("Simuluje zacumakovani potkana") Text = ("S2") } - { BtnSZ3 Button + { BtnSZ3 Button Move(812,210,28,21) ToolTip = ("Simuluje zacumakovani potkana") Text = ("S3") } - { BtnSZ4 Button + { BtnSZ4 Button Move(847,154,28,21) ToolTip = ("Simuluje zacumakovani potkana") Text = ("S4") } - { BtnSZ5 Button + { BtnSZ5 Button Move(847,182,28,21) ToolTip = ("Simuluje zacumakovani potkana") Text = ("S5") } - { BtnSZ6 Button + { BtnSZ6 Button Move(847,210,28,21) ToolTip = ("Simuluje zacumakovani potkana") Text = ("S6") } - { TxtPocetCiklu TextBox + { TxtPocetCiklu TextBox Move(714,287,84,21) Text = ("10") Alignment = Align.Center } - { Label5 Label + { Label5 Label Move(714,245,84,21) Text = ("Pocet cyklu:") Alignment = Align.Center } - { TxtInfoCasovac TextBox + { TxtInfoCasovac TextBox Move(385,7,70,21) Text = ("0") Alignment = Align.Center ReadOnly = True } - { Label6 Label + { Label6 Label Move(315,7,63,21) Text = ("Casovac") Alignment = Align.Center } - { TxtPrePauza TextBox + { TxtPrePauza TextBox Move(35,301,84,21) Text = ("10") Alignment = Align.Center } - { ChkPrePauza CheckBox + { ChkPrePauza CheckBox Move(35,273,105,21) ToolTip = ("Zapne pauzu mezi visualni stimulaci\na experimentem.\nZa jakou dobu se zacne smicka\nod zobrazeni stimulacniho obrazce") Text = ("Pauza:") } - { Label7 Label + { Label7 Label Move(126,301,28,21) Text = ("sec") } - { ExperimentPicture PictureBox + { ExperimentPicture PictureBox Move(14,434,161,126) Background = &H0000FF& Stretch = True Alignment = Align.Center } - { ExperimentTxtTime0 TextBox + { ExperimentTxtTime0 TextBox Move(217,448,63,21) Text = ("10000") Alignment = Align.Center } - { Label8 Label + { Label8 Label Move(182,441,35,28) Text = ("--->") Alignment = Align.Center } - { ChkZhasniStimul CheckBox + { ChkZhasniStimul CheckBox Move(357,434,70,42) Text = ("Vypni\nstimul") } - { Label9 Label + { Label9 Label Move(315,448,35,14) Text = ("--->") Alignment = Align.Center } - { ExperimentTxtTime1 TextBox + { ExperimentTxtTime1 TextBox Move(476,448,63,21) Text = ("10000") Alignment = Align.Center } - { Label10 Label + { Label10 Label Move(434,441,28,28) Text = ("--->") } - { ChkVypStimulPauza CheckBox + { ChkVypStimulPauza CheckBox Move(469,427,98,14) Text = ("ZAPNUTO") } - { Label12 Label + { Label12 Label Move(210,483,112,56) Text = ("CAS\nZOBRAZENI\nSTIMULU") Alignment = Align.Center } - { Label13 Label + { Label13 Label Move(476,483,84,56) Text = ("CAS\nBEZ\nSTIMULU") Alignment = Align.Center } - { LabelPre6 Label + { LabelPre6 Label Move(602,441,77,35) ToolTip = ("Otevreni dvirek") Text = ("OTEVRENI\nDVERI") Alignment = Align.Center } - { Label11 Label + { Label11 Label Move(574,448,28,28) Text = ("--->") } - { TxtTimeout TextBox + { TxtTimeout TextBox Move(819,287,77,21) Text = ("30") Alignment = Align.Center } - { Label14 Label + { Label14 Label Move(798,245,112,21) Text = ("Cas na reakci:") Alignment = Align.Center } - { LabelPre7 Label + { LabelPre7 Label Move(714,427,63,63) ToolTip = ("Ceka se az potkan zacumakuje") Text = ("CEKANI\nAKCE\nPOTKAN") Alignment = Align.Center } - { Label15 Label + { Label15 Label Move(679,448,28,28) Text = ("--->") } - { Label16 Label + { Label16 Label Move(882,448,133,21) Text = ("-----------------------------------------------") } - { LabelPreFrm11 Label + { LabelPreFrm11 Label Move(994,469,28,21) Text = (" |\n") Alignment = Align.Center } - { LabelPreFrm12 Label + { LabelPreFrm12 Label Move(875,469,28,21) Text = (" |\n") Alignment = Align.Center } - { LabelPreFrm13 Label + { LabelPreFrm13 Label Move(938,469,28,21) Text = (" |\n") Alignment = Align.Center } - { Label17 Label + { Label17 Label Move(868,497,42,21) Text = ("OK") Alignment = Align.Center } - { Label18 Label + { Label18 Label Move(938,497,35,21) Text = ("KO") Alignment = Align.Center } - { Label19 Label + { Label19 Label Move(973,497,70,21) Text = ("TIMEOUT") Alignment = Align.Center } - { Label20 Label + { Label20 Label Move(511,651,70,21) Text = ("RESET") Alignment = Align.Center } - { LabelPreFrm14 Label + { LabelPreFrm14 Label Move(994,525,28,140) Text = ("|\n|\n|\n|\n|\n|\n|\n|\n") Alignment = Align.Center } - { Label21 Label + { Label21 Label Move(749,651,259,14) Text = ("-------------------------------------------------------------------------------------------------") Alignment = Align.Center } - { LabelPreFrm15 Label + { LabelPreFrm15 Label Move(945,518,28,140) Text = ("|\n|\n|\n|\n|\n|\n|") Alignment = Align.Center } - { Label22 Label + { Label22 Label Move(161,651,336,21) Text = ("----------------------------------------------------------------------------------------------------------") Alignment = Align.Center } - { ExperimentTxtTime2 TextBox + { ExperimentTxtTime2 TextBox Move(42,602,84,21) Text = ("10000") Alignment = Align.Center } - { LabelPre8 Label + { LabelPre8 Label Move(847,553,84,35) ToolTip = ("Pitko se nastavi do pozice zacumakovani") Text = ("NASTAVENI\nPITKA") Alignment = Align.Center } - { LabelPreFrm17 Label + { LabelPreFrm17 Label Move(875,525,28,21) Text = (" |\n") Alignment = Align.Center } - { ExperimentTxtTime3 TextBox + { ExperimentTxtTime3 TextBox Move(840,595,70,21) Text = ("10000") Alignment = Align.Center } - { Label23 Label + { Label23 Label Move(126,378,63,49) Font = Font["Bold,+2"] Text = ("0") Alignment = Align.Center } - { TmrCasovac #Timer - #X = 602 - #Y = 315 + { TmrCasovac #Timer + #MoveScaled(1,1) } - { TxtInfoTimeout TextBox + { TxtInfoTimeout TextBox Move(532,7,70,21) Text = ("0") Alignment = Align.Center } - { Label24 Label + { Label24 Label Move(469,7,56,21) Text = ("Timeout") } - { TxtCommPort TextBox + { TxtCommPort TextBox Move(14,7,140,21) Text = ("/dev/ttyUSB0") } - { BtnPripoj Button + { BtnPripoj Button Move(161,7,147,21) Text = ("Pripoj / Odpoj") } - { SerialPort1 #SerialPort - #X = 518 - #Y = 315 + { SerialPort1 #SerialPort + #MoveScaled(2,2) } - { Separator1 Separator + { Separator1 Separator Move(14,35,1218,7) Foreground = &H000000& } - { Separator2 Separator + { Separator2 Separator Move(7,357,1218,21) } - { Separator3 Separator + { Separator3 Separator Move(700,49,7,301) } - { CheckBox2 CheckBox + { CheckBox2 CheckBox Move(770,7,21,21) Text = ("CheckBox2") } - { CheckBox3 CheckBox + { CheckBox3 CheckBox Move(798,7,21,21) Text = ("CheckBox3") } - { CheckBox4 CheckBox + { CheckBox4 CheckBox Move(826,7,21,21) Text = ("CheckBox4") } - { CheckBox5 CheckBox + { CheckBox5 CheckBox Move(854,7,21,21) Text = ("CheckBox5") } - { CheckBox6 CheckBox + { CheckBox6 CheckBox Move(882,7,21,21) Text = ("CheckBox6") } - { CheckBox7 CheckBox + { CheckBox7 CheckBox Move(910,7,21,21) Text = ("CheckBox7") } - { Label25 Label + { Label25 Label Move(42,630,105,56) Text = ("PAUZA\nMEZI\nZOBRAZENIMI") Alignment = Align.Center } - { Label26 Label + { Label26 Label Move(1043,462,35,21) Text = ("1") Alignment = Align.Center } - { Label27 Label + { Label27 Label Move(1043,497,35,21) Text = ("2") Alignment = Align.Center } - { Label28 Label + { Label28 Label Move(1043,532,35,21) Text = ("3") Alignment = Align.Center } - { Label29 Label + { Label29 Label Move(1043,567,35,21) Text = ("4") Alignment = Align.Center } - { Label30 Label + { Label30 Label Move(1043,602,35,21) Text = ("5") Alignment = Align.Center } - { Label31 Label + { Label31 Label Move(1043,637,35,21) Text = ("6") Alignment = Align.Center } - { ExpTxtS1Time TextBox + { ExpTxtS1Time TextBox Move(1078,462,70,21) Text = ("10000") Alignment = Align.Center } - { ExpTxtS2Time TextBox + { ExpTxtS2Time TextBox Move(1078,497,70,21) Text = ("10000") Alignment = Align.Center } - { ExpTxtS3Time TextBox + { ExpTxtS3Time TextBox Move(1078,532,70,21) Text = ("10000") Alignment = Align.Center } - { ExpTxtS4Time TextBox + { ExpTxtS4Time TextBox Move(1078,567,70,21) Text = ("10000") Alignment = Align.Center } - { ExpTxtS5Time TextBox + { ExpTxtS5Time TextBox Move(1078,602,70,21) Text = ("10000") Alignment = Align.Center } - { ExpTxtS6Time TextBox + { ExpTxtS6Time TextBox Move(1078,637,70,21) Text = ("10000") Alignment = Align.Center } - { ExpChkSTime CheckBox + { ExpChkSTime CheckBox Move(1190,462,56,28) Text = ("ZAP") Value = CheckBox.True } - { ExpChkEnableTiming CheckBox + { ExpChkEnableTiming CheckBox Move(1085,427,147,21) Text = ("Zapnout Casovani") } - { ExpChkSTime2 CheckBox + { ExpChkSTime2 CheckBox Move(1190,497,56,28) Text = ("ZAP") Value = CheckBox.True } - { ExpChkSTime3 CheckBox + { ExpChkSTime3 CheckBox Move(1190,532,56,28) Text = ("ZAP") Value = CheckBox.True } - { ExpChkSTime4 CheckBox + { ExpChkSTime4 CheckBox Move(1190,567,56,28) Text = ("ZAP") Value = CheckBox.True } - { ExpChkSTime5 CheckBox + { ExpChkSTime5 CheckBox Move(1190,602,56,28) Text = ("ZAP") Value = CheckBox.True } - { ExpChkSTime6 CheckBox + { ExpChkSTime6 CheckBox Move(1190,637,56,28) Text = ("ZAP") Value = CheckBox.True } - { ChkExpNahoda CheckBox + { ChkExpNahoda CheckBox Move(14,406,98,21) Text = ("NAHODNE") } - { ChkExpNeopakovat CheckBox + { ChkExpNeopakovat CheckBox Move(14,378,119,21) Text = ("NEOPAKOVAT") } - { BtnOpenDor Button + { BtnOpenDor Button Move(714,98,35,21) Text = ("OD") } - { BtnCloseDor Button + { BtnCloseDor Button Move(763,98,35,21) Text = ("CD") } - { BtnReset Button + { BtnReset Button Move(714,210,84,21) Text = ("RESET") } - { BtnPitS Button + { BtnPitS Button Move(714,126,35,21) Text = ("S1") } - { BtnPitS2 Button + { BtnPitS2 Button Move(714,154,35,21) Text = ("S2") } - { BtnPitS3 Button + { BtnPitS3 Button Move(714,182,35,21) Text = ("S3") } - { BtnPitS4 Button + { BtnPitS4 Button Move(763,126,35,21) Text = ("S4") } - { BtnPitS5 Button + { BtnPitS5 Button Move(763,154,35,21) Text = ("S5") } - { BtnPitS6 Button + { BtnPitS6 Button Move(763,182,35,21) Text = ("S6") } - { Label32 Label + { Label32 Label Move(728,49,140,42) Text = ("Manu\xC3\xA1ln\xC3\xAD ovl\xC3\xA1d\xC3\xA1n\xC3\xAD\naparatury") Alignment = Align.Center } - { Separator4 Separator + { Separator4 Separator Move(707,238,189,7) } - { BtnExpFull Button + { BtnExpFull Button Move(14,567,161,21) Text = ("FULLSCREEN") } - { LabelPreFrm4 Label + { LabelPreFrm4 Label Move(168,301,189,14) Text = ("<-----------------------------------------\n") Alignment = Align.Center } - { Separator5 Separator + { Separator5 Separator Move(805,98,7,140) } - { Label3 Label + { Label3 Label Move(812,98,70,14) Text = ("SIMULACE") Alignment = Align.Center } - { Label4 Label + { Label4 Label Move(812,112,70,14) Text = ("AKCE") Alignment = Align.Center } - { Label35 Label + { Label35 Label Move(812,126,70,21) Text = ("POTKANA") Alignment = Align.Center } - { ChkTimeout CheckBox + { ChkTimeout CheckBox Move(812,266,91,14) Text = ("ZAPNUTO") Value = CheckBox.True } - { TxtInfoCyklus TextBox + { TxtInfoCyklus TextBox Move(672,7,70,21) Text = ("0") Alignment = Align.Center } - { Label33 Label + { Label33 Label Move(609,7,56,21) Text = ("Cyklus") Alignment = Align.Center } - { BtnMod Button + { BtnMod Button Move(910,287,154,21) Text = ("PreLearning") } - { BtnKonfUloz Button + { BtnKonfUloz Button Move(896,105,175,21) Text = ("ULOZ PARAMETRY") } - { TxtKonfigNazev TextBox + { TxtKonfigNazev TextBox Move(896,77,175,21) - Text = ("") } - { Label34 Label + { Label34 Label Move(896,49,175,21) Text = ("N\xC3\xA1zev konfigurace:") Alignment = Align.Center } - { BtnNahrajKonfiguraci Button + { BtnNahrajKonfiguraci Button Move(896,133,175,21) Text = ("NAHRAJ PARAMETRY") } - { BtnNastav Button + { BtnNastav Button Move(714,315,182,21) Text = ("UPLATNI PARAMETRY") } - { TxtSessionID TextBox + { TxtSessionID TextBox Move(616,385,126,21) Text = ("SessionID") } - { TxtExperimentID TextBox + { TxtExperimentID TextBox Move(392,385,112,21) Text = ("ExperimentID") } - { TmrTimeout #Timer - #X = 644 - #Y = 273 + { TmrTimeout #Timer + #MoveScaled(3,3) } - { ListBox1 ListBox + { ListBox1 ListBox Move(1085,49,147,259) } - { Button1 Button + { Button1 Button Move(1085,315,147,21) Text = ("OBNOV SEZNAM") } - { BtnSmazKonfiguraci Button + { BtnSmazKonfiguraci Button Move(896,161,175,21) Text = ("SMAZAT KONFIGURACI") } - { Label36 Label + { Label36 Label Move(833,623,105,21) Text = ("PAUZA NA PITI") Alignment = Align.Center } - { TimerExperimentMils #Timer - #X = 644 - #Y = 231 + { TimerExperimentMils #Timer + #MoveScaled(4,4) Delay = 10 } - { PictureLogo1 PictureBox + { PictureLogo1 PictureBox Move(903,196,161,35) Stretch = True } - { Label38 Label + { Label38 Label Move(910,238,161,42) Text = ("Tom\xC3\xA1\xC5\xA1 Suchan 2011\ntomsuch@tomsuch.net") Alignment = Align.Center } - { Label39 Label + { Label39 Label Move(518,385,91,21) Text = ("SESSION ID:") Alignment = Align.Center } - { Label40 Label + { Label40 Label Move(259,385,126,21) Text = ("EXPERIMENT ID:") Alignment = Align.Center } - { Label37 Label + { Label37 Label Move(749,385,91,21) Text = ("OBJECT ID:") Alignment = Align.Center } - { TxtOjectID TextBox + { TxtOjectID TextBox Move(847,385,126,21) Text = ("ObjectID") } - { TimerMilis #Timer - #X = 560 - #Y = 315 + { TimerMilis #Timer + #MoveScaled(5,5) Delay = 10 } - { Label41 Label + { Label41 Label Move(287,455,28,14) Text = ("ms") } - { Label42 Label + { Label42 Label Move(546,455,28,14) Text = ("ms") } - { Label43 Label + { Label43 Label Move(1155,574,28,14) Text = ("ms") } - { Label44 Label + { Label44 Label Move(1155,609,28,14) Text = ("ms") } - { Label45 Label + { Label45 Label Move(1155,539,28,14) Text = ("ms") } - { Label46 Label + { Label46 Label Move(1155,504,28,14) Text = ("ms") } - { Label47 Label + { Label47 Label Move(1155,469,28,14) Text = ("ms") } - { Label48 Label + { Label48 Label Move(1155,644,28,14) Text = ("ms") } - { Label49 Label + { Label49 Label Move(917,602,28,14) Text = ("ms") } - { Label50 Label + { Label50 Label Move(133,609,35,14) Text = ("ms") } - { TxtInfoCasovacMilis TextBox + { TxtInfoCasovacMilis TextBox Move(1106,385,84,21) Text = ("0") Alignment = Align.Center } - { Label51 Label + { Label51 Label Move(1197,392,28,14) Text = ("ms") } - { Label52 Label + { Label52 Label Move(1015,392,84,14) Text = ("Casovac(ms):") } - { ChkTimeoutOpakReset CheckBox + { ChkTimeoutOpakReset CheckBox Move(168,273,217,14) Text = ("TIMEOUT = RESET OPAKOVANI") } - { ChkZhasniStimulPreReset CheckBox + { ChkZhasniStimulPreReset CheckBox Move(672,637,70,42) Text = ("Vypni\nstimul") } - { Label53 Label + { Label53 Label Move(588,651,63,14) Text = ("-------------------------------------------------------------------------------------------------") Alignment = Align.Center } - { ChkZhasniStimulPoAkci CheckBox + { ChkZhasniStimulPoAkci CheckBox Move(805,441,70,42) Text = ("Vypni\nstimul") } - { Label54 Label + { Label54 Label Move(770,448,28,28) Text = ("--->") } -} +} \ No newline at end of file diff --git a/.src/Form1.class b/.src/Form1.class new file mode 100644 index 0000000..3a64f24 --- /dev/null +++ b/.src/Form1.class @@ -0,0 +1,46 @@ +' Gambas class file + + +Public Sub Form_Open() +Wait + PictureBox1.Width = Form1.Width + PictureBox1.Height = Form1.Height +Wait +End + +Public Sub stimul(xxx As String) + Wait + PictureBox1.Picture = Picture.Load(xxx) + Wait +End + +Public Sub loginfo(aaa As String) + Label1.Text = aaa +End +Public Sub cyklusinfo(bbb As String) + label2.Text = bbb +End + +Public Sub PictureBox1_DblClick() + Form1.FullScreen = False + Form1.Visible = False + FMain.Visible = True + Form1.Close +Wait +End + +Public Sub Form_Resize() + PictureBox1.Width = Form1.Width + PictureBox1.Height = Form1.Height +End + +Public Sub Form_Show() + Wait + PictureBox1.Width = Form1.Width + PictureBox1.Height = Form1.Height + Wait +End + +Public Sub PictureBox1_Menu() + FMain.remstart() +End diff --git a/Form1.form b/.src/Form1.form similarity index 57% rename from Form1.form rename to .src/Form1.form index 4b3c414..84bc4a9 100644 --- a/Form1.form +++ b/.src/Form1.form @@ -1,28 +1,24 @@ -# Gambas Form File 2.0 - -{ Form Form +# Gambas Form File 3.0 +{ Form Form MoveScaled(0,0,149,64) Background = &H000000& Mouse = Mouse.Blank - Text = ("") - Border = Window.None + Border = False FullScreen = True - { PictureBox1 PictureBox + { PictureBox1 PictureBox MoveScaled(2,2,34,31) Mouse = Mouse.Blank Stretch = True Alignment = Align.Center } - { Label1 Label - MoveScaled(1,1,60,2) + { Label1 Label + MoveScaled(1,1,60,3) Font = Font["-1"] Foreground = &HE0E0E0& - Text = ("") } - { Label2 Label - MoveScaled(62,1,45,2) + { Label2 Label + MoveScaled(62,1,45,3) Font = Font["-1"] Foreground = &HE0E0E0& - Text = ("") } -} +} \ No newline at end of file diff --git a/.startup b/.startup new file mode 100644 index 0000000..a841527 --- /dev/null +++ b/.startup @@ -0,0 +1,10 @@ +FMain +RatBox +0 +0 +0.0.9 + +gb.gui +gb.form +gb.net + diff --git a/FMain.class b/FMain.class deleted file mode 100644 index e924c18..0000000 --- a/FMain.class +++ /dev/null @@ -1,1758 +0,0 @@ -' Gambas class file -PUBLIC konfigurace_timeout_status AS Boolean -PUBLIC konfigurace_timeout AS Integer -PUBLIC konfigurace_pocet_cyklu AS Integer - -PUBLIC konfigurace_prelearning_cas_piti AS Integer -PUBLIC konfigurace_prelearning_cas_dalsi_ciklus AS Integer -PUBLIC konfigurace_prelearning_neopakovat AS Boolean -PUBLIC konfigurace_prelearning_pauza AS Boolean - -PUBLIC konfigurace_experiment_cas_zobrazeni_stimulu AS Integer -PUBLIC konfigurace_experiment_cas_zhasnuteho_stimulu AS Integer -PUBLIC konfigurace_experiment_cas_piti AS Integer -PUBLIC konfigurace_experiment_cas_dalsi_ciklus AS Integer -PUBLIC konfigurace_experiment_nahoda AS Boolean -PUBLIC konfigurace_experiment_neopakovat AS Boolean -PUBLIC konfigurace_experiment_vypni_stimul AS Boolean -PUBLIC konfigurace_experiment_vypni_stimul_pauza_enable AS Boolean -PUBLIC konfigurace_experiment_casovani AS Boolean -PUBLIC konfigurace_experiment_vypni_stimul_prereset AS Boolean -PUBLIC konfigurace_experiment_vypni_stimul_poakci AS Boolean - -PUBLIC konfigurace_experiment_slot_enable_1 AS Boolean -PUBLIC konfigurace_experiment_slot_enable_2 AS Boolean -PUBLIC konfigurace_experiment_slot_enable_3 AS Boolean -PUBLIC konfigurace_experiment_slot_enable_4 AS Boolean -PUBLIC konfigurace_experiment_slot_enable_5 AS Boolean -PUBLIC konfigurace_experiment_slot_enable_6 AS Boolean - -PUBLIC konfigurace_experiment_casovani_s1 AS Integer -PUBLIC konfigurace_experiment_casovani_s2 AS Integer -PUBLIC konfigurace_experiment_casovani_s3 AS Integer -PUBLIC konfigurace_experiment_casovani_s4 AS Integer -PUBLIC konfigurace_experiment_casovani_s5 AS Integer -PUBLIC konfigurace_experiment_casovani_s6 AS Integer - -PUBLIC pre_stat_ciklus AS Integer -PUBLIC pre_stat_ciklus_real AS Integer -PUBLIC pre_stat_timeout AS Integer -PUBLIC pre_stat_opakovani AS NEW Integer[7] -PUBLIC pre_stat_zakazano AS NEW Integer[7] -PUBLIC pre_stat_aktivita AS NEW Integer[7] - -PUBLIC exp_stat_ciklus AS Integer -PUBLIC exp_stat_ciklus_real AS Integer -PUBLIC exp_stat_timeout AS Integer -PUBLIC exp_stat_opakovani AS NEW Integer[7] -PUBLIC exp_stat_zakazano AS NEW Integer[7] -PUBLIC exp_stat_aktivita AS NEW Integer[7] -PUBLIC exp_stat_souhrn AS NEW Integer[7, 7] - -PUBLIC stav_sloty AS Integer -PUBLIC simulace_zacenichani AS Boolean -PUBLIC mod_idx AS Integer -PUBLIC buffer_casovac AS Integer -PUBLIC status_casovac AS Boolean -PUBLIC buffer_casovac_milis AS Integer -PUBLIC status_casovac_milis AS Boolean -PUBLIC buffer_timeout AS Integer -PUBLIC buffer_sloty_aktual_state AS Integer -PUBLIC buffer_sloty_last_state AS Integer -PUBLIC InputBuffer_TMP AS Integer -PUBLIC InputBlock AS Boolean -PUBLIC STOP_State AS Boolean -PUBLIC tmp_cyklus AS Integer -PUBLIC tmp_stimul_idx AS Integer -PUBLIC tmp_stimul_last AS Integer -PUBLIC tmp_mils AS Long -PUBLIC ExpLogName AS String -PUBLIC PreLogName AS String - -PUBLIC TimeoutOpakReset AS Boolean - -PUBLIC SUB PreStatInit() -DIM i AS Integer - pre_stat_ciklus = 0 - pre_stat_ciklus_real = 0 - pre_stat_timeout = 0 - FOR i = 0 TO 6 - pre_stat_opakovani[i] = 0 - pre_stat_zakazano[i] = 0 - pre_stat_aktivita[i] = 0 - NEXT -END - -PUBLIC SUB ExpStatInit() -DIM i, x AS Integer - pre_stat_ciklus = 0 - pre_stat_ciklus_real = 0 - pre_stat_timeout = 0 - FOR i = 0 TO 6 - pre_stat_opakovani[i] = 0 - pre_stat_zakazano[i] = 0 - pre_stat_aktivita[i] = 0 - NEXT - FOR i = 0 TO 6 - FOR x = 0 TO 6 - exp_stat_souhrn[x, i] = 0 - NEXT - NEXT -END - - -PUBLIC SUB Form_Open() - - IF Exist("/ratbox/system/logo.png") = TRUE THEN - PictureLogo1.Picture = Picture.Load("/ratbox/system/logo.png") - ENDIF - - FMain.Visible = TRUE - FMain.FullScreen = TRUE - SysLogWrite("Startuji_System.........") - SysLogWrite("NAHRANI_PARAMETRU") - DefKonfLoad() - SysLogWrite("UPLATNENI_PARAMETRU") - UplatniParametry() - VypisParametry() - SysLogWrite("System_nastartovan") - CfgList() -END - -PUBLIC SUB BtnKonec_Click() - SysLogWrite("Dotaz_Ukonceni_Aplikace") - IF Message.Warning("Opravdu chcete ukoncit aplikaci ?", "NE", "ANO") = 2 THEN - SysLogWrite("Ukoncovani_Behu_Aplikace") - TimerSystime.Enabled = FALSE - Form1.Close - FINALLY - IF SerialPort1.Status <> 0 THEN SerialPort1.Close - SysLogWrite("Konec_Systemu") - Form1.Close - FMain.Close - ELSE - SysLogWrite("Navrat_Do_Aplikace") - ENDIF -END - -PUBLIC SUB TimerSystime_Timer() - WAIT - PosliInfo() - TxtInfoCyklus.Text = Str(tmp_cyklus) - TxtSysTime.Text = Format$(Now, "dd.mm.yy") & " " & Format$(Now, "hh:nn:ss") - WAIT - IF SerialPort1.Status = 0 THEN TxtCommPort.BackColor = Color.Red - WAIT - IF SerialPort1.Status = 1 THEN TxtCommPort.BackColor = Color.Green - WAIT - VypisStavSlotu() - IF TxtWDT.BackColor = Color.Red THEN - TxtWDT.BackColor = Color.Green - ELSE - TxtWDT.BackColor = Color.Red - ENDIF - FINALLY - IF ERROR THEN - ErrLogWrite("NESYNCHRONI_UKONCENI_TimerSystime_Timer() - " & Error.Text) - ENDIF -END - -PUBLIC SUB SysLogWrite(Udalost AS String) -DIM SysLogFile AS File - SysLogFile = OPEN "/ratbox/log/system.log" FOR APPEND - TxtSysLog.Text = Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost & Chr(13) & TxtSysLog.Text - WAIT - PRINT #SysLogFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost - WAIT - SysLogFile.Close -END - -PUBLIC SUB ErrLogWrite(Udalost AS String) -DIM SysLogFile AS File - SysLogFile = OPEN "/ratbox/log/err.log" FOR APPEND - PRINT #SysLogFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost - SysLogFile.Close -END - -PUBLIC SUB ExpLogWrite(Udalost AS String) -DIM SysLogFile AS File - IF Exist("/ratbox/log/" & ExpLogName) = TRUE THEN - SysLogFile = OPEN "/ratbox/log/" & ExpLogName FOR APPEND - PRINT #SysLogFile, Str(tmp_mils * 10) & ";" & udalost - Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost) - SysLogFile.Close - ENDIF -END - -PUBLIC SUB PreLogWrite(Udalost AS String) -DIM SysLogFile AS File - IF Exist("/ratbox/log/" & PreLogName) = TRUE THEN - SysLogFile = OPEN "/ratbox/log/" & PreLogName FOR APPEND - PRINT #SysLogFile, Str(tmp_mils * 10) & ";" & udalost - Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost) - SysLogFile.Close - ENDIF -END - -PUBLIC SUB PreStatWrite() -DIM zakazane AS Integer -DIM opakovani AS Integer -DIM aktivity AS Integer -DIM i AS Integer -DIM SysLogFile AS File - IF Exist("/ratbox/log/" & PreLogName) = TRUE THEN - Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & "GENERUJI_ZAPISUJI_STATISTIKU") - SysLogFile = OPEN "/ratbox/log/" & PreLogName FOR APPEND - PRINT #SysLogFile, "----------------------------------------------------------------------------" - - PRINT #SysLogFile, "CELKOVY_POCET_CYKLU: " & pre_stat_ciklus - PRINT #SysLogFile, "CELKOVY_POCET_USPESNYCH_CYKLU (PITI): " & pre_stat_ciklus_real - PRINT #SysLogFile, "CELKOVY_POCET_TIMEOUTU: " & pre_stat_timeout - FOR i = 1 TO 6 - aktivity = aktivity + pre_stat_aktivita[i] - NEXT - FOR i = 1 TO 6 - opakovani = opakovani + pre_stat_opakovani[i] - NEXT - FOR i = 1 TO 6 - zakazane = zakazane + pre_stat_zakazano[i] - NEXT - PRINT #SysLogFile, "CELKOVY_POCET_AKTIVIT: " & aktivity - PRINT #SysLogFile, "CELKOVY_POCET_OPAKOVANI: " & opakovani - PRINT #SysLogFile, "CELKOVY_POCET_ZAKAZANI: " & zakazane - PRINT #SysLogFile, "CELKOVY_POCET_AKTIVIT_PODROBNE: " & pre_stat_aktivita[1] & ";" & pre_stat_aktivita[2] & ";" & pre_stat_aktivita[3] & ";" & pre_stat_aktivita[4] & ";" & pre_stat_aktivita[5] & ";" & pre_stat_aktivita[6] - PRINT #SysLogFile, "CELKOVY_POCET_OPAKOVANI_PODROBNE: " & pre_stat_opakovani[1] & ";" & pre_stat_opakovani[2] & ";" & pre_stat_opakovani[3] & ";" & pre_stat_opakovani[4] & ";" & pre_stat_opakovani[5] & ";" & pre_stat_opakovani[6] - PRINT #SysLogFile, "CELKOVY_POCET_ZAKAZANI_PODROBNE: " & pre_stat_zakazano[1] & ";" & pre_stat_zakazano[2] & ";" & pre_stat_zakazano[3] & ";" & pre_stat_zakazano[4] & ";" & pre_stat_zakazano[5] & ";" & pre_stat_zakazano[6] - - SysLogFile.Close - - PreStatInit() - - ENDIF -END - -PUBLIC SUB ExpStatWrite() -DIM zakazane AS Integer -DIM opakovani AS Integer -DIM aktivity AS Integer -DIM i, x AS Integer -DIM SysLogFile AS File - IF Exist("/ratbox/log/" & ExpLogName) = TRUE THEN - Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & "GENERUJI_ZAPISUJI_STATISTIKU") - SysLogFile = OPEN "/ratbox/log/" & ExpLogName FOR APPEND - PRINT #SysLogFile, "----------------------------------------------------------------------------" - - PRINT #SysLogFile, "CELKOVY_POCET_CYKLU: " & exp_stat_ciklus - PRINT #SysLogFile, "CELKOVY_POCET_USPESNYCH_CYKLU (PITI): " & exp_stat_ciklus_real - PRINT #SysLogFile, "CELKOVY_POCET_TIMEOUTU: " & exp_stat_timeout - FOR i = 1 TO 6 - aktivity = aktivity + exp_stat_aktivita[i] - NEXT - FOR i = 1 TO 6 - opakovani = opakovani + exp_stat_opakovani[i] - NEXT - FOR i = 1 TO 6 - zakazane = zakazane + exp_stat_zakazano[i] - NEXT - PRINT #SysLogFile, "CELKOVY_POCET_AKTIVIT: " & aktivity - PRINT #SysLogFile, "CELKOVY_POCET_OPAKOVANI: " & opakovani - PRINT #SysLogFile, "CELKOVY_POCET_ZAKAZANI: " & zakazane - PRINT #SysLogFile, "CELKOVY_POCET_AKTIVIT_PODROBNE: " & exp_stat_aktivita[1] & ";" & exp_stat_aktivita[2] & ";" & exp_stat_aktivita[3] & ";" & exp_stat_aktivita[4] & ";" & exp_stat_aktivita[5] & ";" & exp_stat_aktivita[6] - PRINT #SysLogFile, "CELKOVY_POCET_OPAKOVANI_PODROBNE: " & exp_stat_opakovani[1] & ";" & exp_stat_opakovani[2] & ";" & exp_stat_opakovani[3] & ";" & exp_stat_opakovani[4] & ";" & exp_stat_opakovani[5] & ";" & exp_stat_opakovani[6] - PRINT #SysLogFile, "CELKOVY_POCET_ZAKAZANI_PODROBNE: " & exp_stat_zakazano[1] & ";" & exp_stat_zakazano[2] & ";" & exp_stat_zakazano[3] & ";" & exp_stat_zakazano[4] & ";" & exp_stat_zakazano[5] & ";" & exp_stat_zakazano[6] - - PRINT #SysLogFile, "---------------------------------------------------------------" - PRINT #SysLogFile, "" - PRINT #SysLogFile, "Souhrnna tabulka odpovedi:" - PRINT #SysLogFile, "" - - PRINT #SysLogFile, "STIMUL: 1;2;3;4;5;6" - - PRINT #SysLogFile, "SLOT1: " & exp_stat_souhrn[1, 1] & ";" & exp_stat_souhrn[2, 1] & ";" & exp_stat_souhrn[3, 1] & ";" & exp_stat_souhrn[4, 1] & ";" & exp_stat_souhrn[5, 1] & ";" & exp_stat_souhrn[6, 1] - PRINT #SysLogFile, "SLOT2: " & exp_stat_souhrn[1, 2] & ";" & exp_stat_souhrn[2, 2] & ";" & exp_stat_souhrn[3, 2] & ";" & exp_stat_souhrn[4, 2] & ";" & exp_stat_souhrn[5, 2] & ";" & exp_stat_souhrn[6, 2] - PRINT #SysLogFile, "SLOT3: " & exp_stat_souhrn[1, 3] & ";" & exp_stat_souhrn[2, 3] & ";" & exp_stat_souhrn[3, 3] & ";" & exp_stat_souhrn[4, 3] & ";" & exp_stat_souhrn[5, 3] & ";" & exp_stat_souhrn[6, 3] - PRINT #SysLogFile, "SLOT4: " & exp_stat_souhrn[1, 4] & ";" & exp_stat_souhrn[2, 4] & ";" & exp_stat_souhrn[3, 4] & ";" & exp_stat_souhrn[4, 4] & ";" & exp_stat_souhrn[5, 4] & ";" & exp_stat_souhrn[6, 4] - PRINT #SysLogFile, "SLOT5: " & exp_stat_souhrn[1, 5] & ";" & exp_stat_souhrn[2, 5] & ";" & exp_stat_souhrn[3, 5] & ";" & exp_stat_souhrn[4, 5] & ";" & exp_stat_souhrn[5, 5] & ";" & exp_stat_souhrn[6, 5] - PRINT #SysLogFile, "SLOT6: " & exp_stat_souhrn[1, 6] & ";" & exp_stat_souhrn[2, 6] & ";" & exp_stat_souhrn[3, 6] & ";" & exp_stat_souhrn[4, 6] & ";" & exp_stat_souhrn[5, 6] & ";" & exp_stat_souhrn[6, 6] - -' ExpStatInit() - - SysLogFile.Close - - ExpStatReset() - - ENDIF -END - - - -PUBLIC SUB ExpStatReset() -DIM i, x AS Integer - exp_stat_ciklus = 0 - exp_stat_ciklus_real = 0 - exp_stat_timeout = 0 - FOR i = 1 TO 6 - exp_stat_aktivita[i] = 0 - NEXT - FOR i = 1 TO 6 - exp_stat_opakovani[i] = 0 - NEXT - FOR i = 1 TO 6 - exp_stat_zakazano[i] = 0 - NEXT - FOR x = 1 TO 6 - FOR i = 1 TO 6 - exp_stat_souhrn[x, i] = 0 - NEXT - NEXT -END - - - - - -PUBLIC SUB ExpLogInit() -DIM StatTMP AS String - DIM SysLogFile AS File - ExpLogName = Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh_nn_ss") & "E" & TxtExperimentID.Text & "S" & TxtSessionID.Text & "O" & TxtOjectID.Text & ".log" - SysLogWrite("GENERUJI_LOG_EXPERIMENTU") - IF Exist("/ratbox/log/" & ExpLogName) = TRUE THEN - SHELL ("mv /ratbox/log/" & ExpLogName & " /ratbox/log/last_experiment.log.backup") - SHELL ("touch /ratbox/log/" & ExpLogName) - ELSE - SHELL ("touch /ratbox/log/" & ExpLogName) - ENDIF - SysLogWrite("ZAPISUJI_HLAVICKU_LOGU_EXPERIMENTU") - SysLogFile = OPEN "/ratbox/log/" & ExpLogName FOR APPEND - PRINT #SysLogFile, "ZACATEK_DAT;28" - PRINT #SysLogFile, "" - PRINT #SysLogFile, "DATUM_EXPERIMENTU" & ";" & Format$(Now, "yyyy_mm_dd") & ";" & "CAS_EXPERIMENTU" & ";" & Format$(Now, "hh:nn:ss") - PRINT #SysLogFile, "EXPERIMENT_ID" & ";" & TxtExperimentID.Text & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "SESSION_ID" & ";" & TxtSessionID.Text & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "OBJECT_ID" & ";" & TxtOjectID.Text & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "" - PRINT #SysLogFile, "NASTAVENI_POCET_CYKLU" & ";" & konfigurace_pocet_cyklu & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "NASTAVENI_TIMEOUT_REAKCE" & ";" & konfigurace_timeout & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_timeout_status = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_TIMEOUT_REAKCE_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_nahoda = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_NAHODA_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_neopakovat = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_NEOPAKOVAT_REAKCE_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - PRINT #SysLogFile, "NASTAVENI_CAS_ZOBRAZENI_STIMULU" & ";" & konfigurace_experiment_cas_zobrazeni_stimulu & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_vypni_stimul = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_VYPNI_STIMUL_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "NASTAVENI_CAS_BEZ_STIMULU" & ";" & konfigurace_experiment_cas_zhasnuteho_stimulu & ";" & "NULL" & ";" & "NULL" - - - IF konfigurace_experiment_vypni_stimul_pauza_enable = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_CAS_BEZ_STIMULU_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - - IF konfigurace_experiment_vypni_stimul_prereset = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_VYPNI_STIMUL_PRERESET" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_vypni_stimul_poakci = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_VYPNI_STIMUL_POAKCI" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - PRINT #SysLogFile, "NASTAVENI_CAS_PITI" & ";" & konfigurace_experiment_cas_piti & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "NASTAVENI_PAUZA_MEZI_ZOBRAZENIMI" & ";" & konfigurace_experiment_cas_dalsi_ciklus & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_casovani = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_SEPARATANI_CASOVANI_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_slot_enable_1 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_CASOVANI_S1" & ";" & konfigurace_experiment_casovani_s1 & ";" & "SLOT_1_ENABLED" & ";" & StatTMP - - IF konfigurace_experiment_slot_enable_2 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_CASOVANI_S2" & ";" & konfigurace_experiment_casovani_s2 & ";" & "SLOT_2_ENABLED" & ";" & StatTMP - - IF konfigurace_experiment_slot_enable_3 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_CASOVANI_S3" & ";" & konfigurace_experiment_casovani_s3 & ";" & "SLOT_3_ENABLED" & ";" & StatTMP - - IF konfigurace_experiment_slot_enable_4 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_CASOVANI_S4" & ";" & konfigurace_experiment_casovani_s4 & ";" & "SLOT_4_ENABLED" & ";" & StatTMP - - IF konfigurace_experiment_slot_enable_5 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_CASOVANI_S5" & ";" & konfigurace_experiment_casovani_s5 & ";" & "SLOT_5_ENABLED" & ";" & StatTMP - - - IF konfigurace_experiment_slot_enable_6 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_CASOVANI_S6" & ";" & konfigurace_experiment_casovani_s6 & ";" & "SLOT_6_ENABLED" & ";" & StatTMP - - PRINT #SysLogFile, "" - - PRINT #SysLogFile, "casova_osa(ms);parametr1;HODNOTA;parametr2;HODNOTA" - - PRINT #SysLogFile, "" - - - SysLogFile.Close -END - -PUBLIC SUB PreLogInit() -DIM StatTMP AS String - DIM SysLogFile AS File - PreLogName = Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh_nn_ss") & "_PreLearning_" & "E" & TxtExperimentID.Text & "S" & TxtSessionID.Text & "O" & TxtOjectID.Text & ".log" - SysLogWrite("GENERUJI_LOG_PreLearningu") - IF Exist("/ratbox/log/" & PreLogName) = TRUE THEN - SHELL ("mv /ratbox/log/" & PreLogName & " /ratbox/log/last_prelearning.log.backup") - SHELL ("touch /ratbox/log/" & PreLogName) - ELSE - SHELL ("touch /ratbox/log/" & PreLogName) - ENDIF - SysLogWrite("ZAPISUJI_HLAVICKU_LOGU_PreLearningu") - SysLogFile = OPEN "/ratbox/log/" & PreLogName FOR APPEND - PRINT #SysLogFile, "ZACATEK_DAT;28" - PRINT #SysLogFile, "" - PRINT #SysLogFile, "DATUM_PreLearningu" & ";" & Format$(Now, "yyyy_mm_dd") & ";" & "CAS_PreLearningu" & ";" & Format$(Now, "hh:nn:ss") - PRINT #SysLogFile, "PreLearning_ID" & ";" & TxtExperimentID.Text & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "SESSION_ID" & ";" & TxtSessionID.Text & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "OBJECT_ID" & ";" & TxtOjectID.Text & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "" - PRINT #SysLogFile, "NASTAVENI_POCET_CYKLU" & ";" & konfigurace_pocet_cyklu & ";" & "NULL" & ";" & "NULL" - PRINT #SysLogFile, "NASTAVENI_TIMEOUT_REAKCE" & ";" & konfigurace_timeout & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_timeout = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_TIMEOUT_REAKCE_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_prelearning_neopakovat = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "NASTAVENI_NEOPAKOVAT_REAKCE_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - PRINT #SysLogFile, "NASTAVENI_CAS_DALSI_CYKLUS" & ";" & konfigurace_prelearning_cas_dalsi_ciklus & ";" & "NULL" & ";" & "NULL" - - PRINT #SysLogFile, "NASTAVENI_CAS_PITI" & ";" & konfigurace_prelearning_cas_piti & ";" & "NULL" & ";" & "NULL" - - - IF konfigurace_experiment_slot_enable_1 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "SLOT_1_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_slot_enable_2 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "SLOT_2_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_slot_enable_3 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "SLOT_3_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_slot_enable_4 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "SLOT_4_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - IF konfigurace_experiment_slot_enable_5 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "SLOT_5_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - - IF konfigurace_experiment_slot_enable_6 = TRUE THEN - StatTMP = "TRUE" - ELSE - StatTMP = "FALSE" - ENDIF - PRINT #SysLogFile, "SLOT_6_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL" - - PRINT #SysLogFile, "" - - PRINT #SysLogFile, "casova_osa(ms);parametr1;HODNOTA;parametr2;HODNOTA" - - PRINT #SysLogFile, "" - - - SysLogFile.Close -END - - -PUBLIC SUB BtnPripoj_Click() - SysLogWrite("PRIPOJOVANI_BOXU_PORT: " & TxtCommPort.Text) - IF SerialPort1.status = 0 THEN - SerialPort1.PortName = TxtCommPort.Text - SerialPort1.Speed = 9600 - SerialPort1.DataBits = 8 - SerialPort1.StopBits = 1 - SerialPort1.FlowControl = FALSE - SerialPort1.Open - FINALLY - IF ERROR THEN - ErrLogWrite("PRIPOJOVANI_CHYBA_PORTU_" & TxtCommPort.Text & " - " & Error.Text) - SysLogWrite("CHYBA_PORTU/BOXU") - Message("CHYBA BOXU / PORTU") - ENDIF - ELSE - SerialPort1.Close - ENDIF -END - -PUBLIC SUB SerialPort1_Read() -DIM InByte AS Byte - READ #SerialPort1, InByte - WAIT - IF (simulace_zacenichani = FALSE) AND (InputBlock = FALSE) THEN - IF InByte > 0 THEN - IF InByte = 1 THEN stav_sloty = 1 - IF InByte = 2 THEN stav_sloty = 2 - IF InByte = 4 THEN stav_sloty = 3 - IF InByte = 8 THEN stav_sloty = 4 - IF InByte = 16 THEN stav_sloty = 5 - IF InByte = 32 THEN stav_sloty = 6 - IF InByte = 0 THEN stav_sloty = 0 - InputBlock = TRUE - ENDIF - ELSE - InputBuffer_TMP = InByte - ENDIF - WAIT -END - - -PUBLIC SUB Pauza(cas AS Integer) - IF status_casovac = FALSE THEN - status_casovac = TRUE - buffer_casovac = 0 - TmrCasovac.Enabled = TRUE - WHILE cas > buffer_casovac - WAIT - WEND - buffer_casovac = 0 - TmrCasovac.Enabled = FALSE - TxtInfoCasovac.text = Str(buffer_casovac) - status_casovac = FALSE - ENDIF - FINALLY - IF ERROR THEN - ErrLogWrite("NESYNCHRONI_UKONCENI - Pauza() - " & Error.Text) - ENDIF -END - -PUBLIC SUB PauzaMilis(cas AS Integer) - IF status_casovac_milis = FALSE THEN - status_casovac_milis = TRUE - buffer_casovac_milis = 0 - TimerMilis.Enabled = TRUE - WHILE (cas / 10) > buffer_casovac_milis - WAIT - WEND - buffer_casovac_milis = 0 - TimerMilis.Enabled = FALSE - TxtInfoCasovacMilis.text = Str(buffer_casovac) * 10 - status_casovac_milis = FALSE - ENDIF - FINALLY - IF ERROR THEN - ErrLogWrite("NESYNCHRONI_UKONCENI - PauzaMilis() - " & Error.Text) - ENDIF -END - -PUBLIC SUB AparaturaNastavPitko(n AS Integer) - SysLogWrite("APARATURA_NASTAVENI_PITKA: " & Str(n)) - IF SerialPort1.status = 1 THEN - IF n = 1 THEN WRITE #SerialPort1, "s1" - IF n = 1 THEN WRITE #SerialPort1, "S0" - IF n = 2 THEN WRITE #SerialPort1, "s2" - IF n = 2 THEN WRITE #SerialPort1, "S0" - IF n = 3 THEN WRITE #SerialPort1, "s3" - IF n = 3 THEN WRITE #SerialPort1, "S0" - IF n = 4 THEN WRITE #SerialPort1, "S1" - IF n = 4 THEN WRITE #SerialPort1, "s0" - IF n = 5 THEN WRITE #SerialPort1, "S2" - IF n = 5 THEN WRITE #SerialPort1, "s0" - IF n = 6 THEN WRITE #SerialPort1, "S3" - IF n = 6 THEN WRITE #SerialPort1, "s0" - IF n = 0 THEN WRITE #SerialPort1, "s0" - IF n = 0 THEN WRITE #SerialPort1, "S0" - SysLogWrite("APARATURA_NASTAVENI_PITKA_OK") - ELSE - SysLogWrite("APARATURA_NASTAVENI_PITKA_CHYBA") - ENDIF -END - -PUBLIC SUB AparaturaReset() - SysLogWrite("APARATURA_RESET") - IF SerialPort1.status = 1 THEN - WRITE #SerialPort1, "S0" - WRITE #SerialPort1, "s0" - WRITE #SerialPort1, "d" - SysLogWrite("APARATURA_RESET_OK") - ELSE - SysLogWrite("APARATURA_RESET_CHYBA") - ENDIF -END - -PUBLIC SUB AparaturaOtevriDvere() - SysLogWrite("APARATURA_OTEVRENI_DVERI") - IF SerialPort1.status = 1 THEN - WRITE #SerialPort1, "D" - SysLogWrite("APARATURA_OTEVRENI_DVERI_OK") - ELSE - SysLogWrite("APARATURA_OTEVRENI_DVERI_CHYBA") - ENDIF -END - -PUBLIC SUB AparaturaZavriDvere() - SysLogWrite("APARATURA_ZAVRENI_DVERI") - IF SerialPort1.status = 1 THEN - WRITE #SerialPort1, "d" - SysLogWrite("APARATURA_ZAVRENI_DVERI_OK") - ELSE - SysLogWrite("APARATURA_ZAVRENI_DVERI_CHYBA") - ENDIF -END - - -PUBLIC SUB VypisStavSlotu() - IF stav_sloty = 0 THEN - CheckBox2.BackColor = Color.Red - CheckBox3.BackColor = Color.Red - CheckBox4.BackColor = Color.Red - CheckBox5.BackColor = Color.Red - CheckBox6.BackColor = Color.Red - CheckBox7.BackColor = Color.Red - ENDIF - WAIT - IF stav_sloty = 1 THEN CheckBox2.BackColor = Color.Green - IF stav_sloty = 2 THEN CheckBox3.BackColor = Color.Green - IF stav_sloty = 3 THEN CheckBox4.BackColor = Color.Green - IF stav_sloty = 4 THEN CheckBox5.BackColor = Color.Green - IF stav_sloty = 5 THEN CheckBox6.BackColor = Color.Green - IF stav_sloty = 6 THEN CheckBox7.BackColor = Color.Green - WAIT -END - - - - - -PUBLIC SUB BtnSZ1_MouseDown() - SysLogWrite("SIMULACE_ZACENICHANI_1") - simulace_zacenichani = TRUE - stav_sloty = 1 -END -PUBLIC SUB BtnSZ1_MouseUp() - simulace_zacenichani = FALSE - stav_sloty = 0 -END - -PUBLIC SUB BtnSZ2_MouseDown() - SysLogWrite("SIMULACE_ZACENICHANI_2") - simulace_zacenichani = TRUE - stav_sloty = 2 -END -PUBLIC SUB BtnSZ2_MouseUp() - simulace_zacenichani = FALSE - stav_sloty = 0 -END - -PUBLIC SUB BtnSZ3_MouseDown() - SysLogWrite("SIMULACE_ZACENICHANI_3") - simulace_zacenichani = TRUE - stav_sloty = 3 -END -PUBLIC SUB BtnSZ3_MouseUp() - simulace_zacenichani = FALSE - stav_sloty = 0 -END - -PUBLIC SUB BtnSZ4_MouseDown() - SysLogWrite("SIMULACE_ZACENICHANI_4") - simulace_zacenichani = TRUE - stav_sloty = 4 -END -PUBLIC SUB BtnSZ4_MouseUp() - simulace_zacenichani = FALSE - stav_sloty = 0 -END - -PUBLIC SUB BtnSZ5_MouseDown() - SysLogWrite("SIMULACE_ZACENICHANI_5") - simulace_zacenichani = TRUE - stav_sloty = 5 -END -PUBLIC SUB BtnSZ5_MouseUp() - simulace_zacenichani = FALSE - stav_sloty = 0 -END - -PUBLIC SUB BtnSZ6_MouseDown() - SysLogWrite("SIMULACE_ZACENICHANI_6") - simulace_zacenichani = TRUE - stav_sloty = 6 -END -PUBLIC SUB BtnSZ6_MouseUp() - simulace_zacenichani = FALSE - stav_sloty = 0 -END - -PUBLIC SUB BtnMod_Click() - mod_idx = mod_idx + 1 - IF mod_idx > 1 THEN mod_idx = 0 - IF mod_idx = 1 THEN BtnMod.Text = "Experiment" - IF mod_idx = 0 THEN BtnMod.Text = "PreLearning" - IF mod_idx = 1 THEN SysLogWrite("PREPNUTI_MODU: Experiment") - IF mod_idx = 0 THEN SysLogWrite("PREPNUTI_MODU: PreLearning") -END - -PUBLIC SUB BtnReset_Click() - - AparaturaReset() - -END - -PUBLIC SUB BtnOpenDor_Click() - - AparaturaOtevriDvere() - -END - -PUBLIC SUB BtnCloseDor_Click() - - AparaturaZavriDvere() - -END - -PUBLIC SUB BtnPitS_Click() - - AparaturaNastavPitko(1) - -END - -PUBLIC SUB BtnPitS2_Click() - - AparaturaNastavPitko(2) - -END - -PUBLIC SUB BtnPitS3_Click() - - AparaturaNastavPitko(3) - -END - -PUBLIC SUB BtnPitS4_Click() - - AparaturaNastavPitko(4) - -END - -PUBLIC SUB BtnPitS5_Click() - - AparaturaNastavPitko(5) - -END - -PUBLIC SUB BtnPitS6_Click() - - AparaturaNastavPitko(6) - -END - -PUBLIC SUB ChkTimeout_Click() - konfigurace_timeout_status = ChkTimeout.Value - IF konfigurace_timeout_status = TRUE THEN SysLogWrite("KONFIGURACE_TIMEOUT: ZAPNUTO") - IF konfigurace_timeout_status = FALSE THEN SysLogWrite("KONFIGURACE_TIMEOUT: VYPNUTO") -END - -PUBLIC SUB ChkPreNeopakovat_Click() - konfigurace_prelearning_neopakovat = ChkPreNeopakovat.Value - IF konfigurace_prelearning_neopakovat = TRUE THEN SysLogWrite("KONFIGURACE_PreLearning_NEOPAKOVAT: ZAPNUTO") - IF konfigurace_prelearning_neopakovat = FALSE THEN SysLogWrite("KONFIGURACE_Prelearning_NEOPAKOVAT: VYPNUTO") -END - -PUBLIC SUB ChkPrePauza_Click() - konfigurace_prelearning_pauza = ChkPrePauza.Value - IF konfigurace_prelearning_pauza = TRUE THEN SysLogWrite("KONFIGURACE_PreLearning_PAUZA: ZAPNUTO") - IF konfigurace_prelearning_pauza = FALSE THEN SysLogWrite("KONFIGURACE_Prelearning_PAUZA: VYPNUTO") -END - -PUBLIC SUB BtnNastav_Click() - SysLogWrite("UPLATNUJI_PARAMETRY") - IF TestNastaveniExpCasu() = TRUE THEN - UplatniParametry() - VypisParametry() - SysLogWrite("PARAMETRY_UPLATNENY") - SysLogWrite("UKLADAM_ZAKLADNI_KONFIGURACI") - UlozDefoult() - SysLogWrite("ZAKLADNI_KONFIGURACE_ULOZENA") - ELSE - Message("! CHYBA ZADANEHO CASU: v rozliseni (ms) je minimalni hodnota 10") - ENDIF -END - -PUBLIC SUB VypisParametry() - IF mod_idx = 0 THEN SysLogWrite("MOD_PRELEARNING") - IF mod_idx = 1 THEN SysLogWrite("MOD_EXPERIMENT") - IF konfigurace_timeout_status = TRUE THEN SysLogWrite("KONFIGURACE_TIMEOUT: ZAPNUTO") - IF konfigurace_timeout_status = FALSE THEN SysLogWrite("KONFIGURACE_TIMEOUT: VYPNUTO") - IF konfigurace_prelearning_neopakovat = TRUE THEN SysLogWrite("KONFIGURACE_PRELEARNING_NEOPAKOVAT: ZAPNUTO") - IF konfigurace_prelearning_neopakovat = FALSE THEN SysLogWrite("KONFIGURACE_PRELEARNING_NEOPAKOVAT: VYPNUTO") - IF konfigurace_prelearning_pauza = TRUE THEN SysLogWrite("KONFIGURACE_PRELEARNING_PAUZA: ZAPNUTO") - IF konfigurace_prelearning_pauza = FALSE THEN SysLogWrite("KONFIGURACE_PRELEARNING_PAUZA: VYPNUTO") - SysLogWrite("KONFIGURACE_PRELEARNING_PAUZA: " & konfigurace_prelearning_cas_dalsi_ciklus) - SysLogWrite("KONFIGURACE_PRELEARNING_CAS_PITI: " & konfigurace_prelearning_cas_piti) - SysLogWrite("KONFIGURACE_POCET_CYKLU: " & konfigurace_pocet_cyklu) - SysLogWrite("KONFIGURACE_CAS_NA_REAKCI: " & konfigurace_timeout) - IF konfigurace_experiment_casovani = TRUE THEN SysLogWrite("KONFIGURACE_CASOVANI: ZAPNUTO") - IF konfigurace_experiment_casovani = FALSE THEN SysLogWrite("KONFIGURACE_CASOVANI: VYPNUTO") - IF konfigurace_experiment_nahoda = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_NAHODA: ZAPNUTO") - IF konfigurace_experiment_nahoda = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_NAHODA: VYPNUTO") - IF konfigurace_experiment_neopakovat = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_NEOPAKOVAT: ZAPNUTO") - IF konfigurace_experiment_neopakovat = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_NEOPAKOVAT: VYPNUTO") - IF konfigurace_experiment_vypni_stimul = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_ZHASNUTI_STIMULU: ZAPNUTO") - IF konfigurace_experiment_vypni_stimul = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_ZHASNUTI_STIMULU: VYPNUTO") - IF konfigurace_experiment_vypni_stimul_pauza_enable = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_PAUZA_ZHASLY_STIMUL: ZAPNUTO") - IF konfigurace_experiment_vypni_stimul_pauza_enable = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_PAUZA_ZHASLY_STIMUL: VYPNUTO") - - IF konfigurace_experiment_vypni_stimul_prereset = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_VYPNI_STIMUL_PRERESET: ZAPNUTO") - IF konfigurace_experiment_vypni_stimul_prereset = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_VYPNI_STIMUL_PRERESET: VYPNUTO") - - IF konfigurace_experiment_vypni_stimul_poakci = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_VYPNI_STIMUL_POAKCI: ZAPNUTO") - IF konfigurace_experiment_vypni_stimul_poakci = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_VYPNI_STIMUL_POAKCI: VYPNUTO") - - SysLogWrite("KONFIGURACE_EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_cas_zobrazeni_stimulu) - SysLogWrite("KONFIGURACE_EXPERIMENT_CAS_PITI " & konfigurace_experiment_cas_piti) - SysLogWrite("KONFIGURACE_EXPERIMENT_CAS_ZHASLY_STIMUL: " & konfigurace_experiment_cas_zhasnuteho_stimulu) - SysLogWrite("KONFIGURACE_EXPERIMENT_CAS_CYKLUS: " & konfigurace_experiment_cas_dalsi_ciklus) - IF konfigurace_experiment_slot_enable_1 = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_1: ZAPNUTO") - IF konfigurace_experiment_slot_enable_1 = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_1: VYPNUTO") - IF konfigurace_experiment_slot_enable_2 = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_2: ZAPNUTO") - IF konfigurace_experiment_slot_enable_2 = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_2: VYPNUTO") - IF konfigurace_experiment_slot_enable_3 = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_3: ZAPNUTO") - IF konfigurace_experiment_slot_enable_3 = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_3: VYPNUTO") - IF konfigurace_experiment_slot_enable_4 = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_4: ZAPNUTO") - IF konfigurace_experiment_slot_enable_4 = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_4: VYPNUTO") - IF konfigurace_experiment_slot_enable_5 = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_5: ZAPNUTO") - IF konfigurace_experiment_slot_enable_5 = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_5: VYPNUTO") - IF konfigurace_experiment_slot_enable_6 = TRUE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_6: ZAPNUTO") - IF konfigurace_experiment_slot_enable_6 = FALSE THEN SysLogWrite("KONFIGURACE_EXPERIMENT_SLOT_6: VYPNUTO") - SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_1: " & Str(konfigurace_experiment_casovani_s1)) - SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_2: " & Str(konfigurace_experiment_casovani_s2)) - SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_3: " & Str(konfigurace_experiment_casovani_s3)) - SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_4: " & Str(konfigurace_experiment_casovani_s4)) - SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_5: " & Str(konfigurace_experiment_casovani_s5)) - SysLogWrite("KONFIGURACE_EXPERIMENT_CASOVANI_SLOT_6: " & Str(konfigurace_experiment_casovani_s6)) -END - -PUBLIC SUB UplatniParametry() - IF TestNastaveniExpCasu() = TRUE THEN - konfigurace_pocet_cyklu = Val(TxtPocetCiklu.Text) - konfigurace_timeout = Val(TxtTimeout.Text) - konfigurace_timeout_status = ChkTimeout.Value - konfigurace_prelearning_cas_piti = Val(TxtPreCasPiti.Text) - konfigurace_prelearning_cas_dalsi_ciklus = Val(TxtPrePauza.Text) - konfigurace_prelearning_pauza = ChkPrePauza.Value - konfigurace_prelearning_neopakovat = ChkPreNeopakovat.Value - konfigurace_experiment_nahoda = ChkExpNahoda.Value - konfigurace_experiment_neopakovat = ChkExpNeopakovat.Value - konfigurace_experiment_cas_zobrazeni_stimulu = Val(ExperimentTxtTime0.Text) - konfigurace_experiment_cas_piti = Val(ExperimentTxtTime3.Text) - konfigurace_experiment_cas_zhasnuteho_stimulu = Val(ExperimentTxtTime1.Text) - konfigurace_experiment_cas_dalsi_ciklus = Val(ExperimentTxtTime2.Text) - konfigurace_experiment_vypni_stimul = ChkZhasniStimul.Value - - konfigurace_experiment_vypni_stimul_prereset = ChkZhasniStimulPreReset.Value - konfigurace_experiment_vypni_stimul_poakci = ChkZhasniStimulPoAkci.Value - - konfigurace_experiment_vypni_stimul_pauza_enable = ChkVypStimulPauza.Value - konfigurace_experiment_casovani = ExpChkEnableTiming.Value - konfigurace_experiment_slot_enable_1 = ExpChkSTime.Value - konfigurace_experiment_slot_enable_2 = ExpChkSTime2.Value - konfigurace_experiment_slot_enable_3 = ExpChkSTime3.Value - konfigurace_experiment_slot_enable_4 = ExpChkSTime4.Value - konfigurace_experiment_slot_enable_5 = ExpChkSTime5.Value - konfigurace_experiment_slot_enable_6 = ExpChkSTime6.Value - konfigurace_experiment_casovani_s1 = Val(ExpTxtS1Time.Text) - konfigurace_experiment_casovani_s2 = Val(ExpTxtS2Time.Text) - konfigurace_experiment_casovani_s3 = Val(ExpTxtS3Time.Text) - konfigurace_experiment_casovani_s4 = Val(ExpTxtS4Time.Text) - konfigurace_experiment_casovani_s5 = Val(ExpTxtS5Time.Text) - konfigurace_experiment_casovani_s6 = Val(ExpTxtS6Time.Text) - TimeoutOpakReset = ChkTimeoutOpakReset.Value - ELSE - Message("! CHYBA ZADANEHO CASU: v rozliseni (ms) je minimalni hodnota 10") - ENDIF -END - -SUB UlozDefoult() - DIM DefKonfFile AS File - DefKonfFile = OPEN "/ratbox/system/defconf.rbconf" FOR WRITE - WAIT - PRINT #DefKonfFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") - PRINT #DefKonfFile, TxtCommPort.Text - PRINT #DefKonfFile, Str(konfigurace_pocet_cyklu) - PRINT #DefKonfFile, Str(konfigurace_timeout) - PRINT #DefKonfFile, konfigurace_timeout_status - PRINT #DefKonfFile, Str(konfigurace_prelearning_cas_piti) - PRINT #DefKonfFile, Str(konfigurace_prelearning_cas_dalsi_ciklus) - PRINT #DefKonfFile, konfigurace_prelearning_pauza - PRINT #DefKonfFile, konfigurace_prelearning_neopakovat - PRINT #DefKonfFile, konfigurace_experiment_nahoda - PRINT #DefKonfFile, konfigurace_experiment_neopakovat - PRINT #DefKonfFile, Str(konfigurace_experiment_cas_zobrazeni_stimulu) - PRINT #DefKonfFile, Str(konfigurace_experiment_cas_piti) - PRINT #DefKonfFile, Str(konfigurace_experiment_cas_zhasnuteho_stimulu) - PRINT #DefKonfFile, Str(konfigurace_experiment_cas_dalsi_ciklus) - PRINT #DefKonfFile, konfigurace_experiment_vypni_stimul - PRINT #DefKonfFile, konfigurace_experiment_vypni_stimul_pauza_enable - PRINT #DefKonfFile, konfigurace_experiment_casovani - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_1 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_2 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_3 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_4 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_5 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_6 - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s1) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s2) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s3) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s4) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s5) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s6) - PRINT #DefKonfFile, Str(mod_idx) - PRINT #DefKonfFile, TimeoutOpakReset - PRINT #DefKonfFile, konfigurace_experiment_vypni_stimul_prereset - PRINT #DefKonfFile, konfigurace_experiment_vypni_stimul_poakci - - WAIT - DefKonfFile.Close -END - -SUB UlozUserCfg(CfgName AS String) - DIM DefKonfFile AS File - - UplatniParametry() - - IF Exist("/ratbox/konfigurace/" & CfgName & ".rbconf") = FALSE THEN - Message("Profil: " & CfgName & " neexistuje a bude vytvoren......") - SHELL ("touch /ratbox/konfigurace/" & CfgName & ".rbconf") - Message("Profil: " & CfgName & " Vytvoren....") - CfgList() - ELSE - IF Message.Warning("Profil: " & CfgName & " jiz existuje, chcete ho prepsat ?", "NE", "ANO") = 2 THEN - GOTO cfgwrite - ELSE - GOTO cfgwritekonec - ENDIF - ENDIF - - cfgwrite: - - DefKonfFile = OPEN "/ratbox/konfigurace/" & CfgName & ".rbconf" FOR WRITE - - FINALLY - IF ERROR THEN - ErrLogWrite("CHYBA_PRI_ZAPISU_KONFIGURACE: " & Error.Text) - Message("CHYBA_PRI_ZAPISU_KONFIGURACE") - ENDIF - - WAIT - PRINT #DefKonfFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") - PRINT #DefKonfFile, TxtCommPort.Text - PRINT #DefKonfFile, Str(konfigurace_pocet_cyklu) - PRINT #DefKonfFile, Str(konfigurace_timeout) - PRINT #DefKonfFile, konfigurace_timeout_status - PRINT #DefKonfFile, Str(konfigurace_prelearning_cas_piti) - PRINT #DefKonfFile, Str(konfigurace_prelearning_cas_dalsi_ciklus) - PRINT #DefKonfFile, konfigurace_prelearning_pauza - PRINT #DefKonfFile, konfigurace_prelearning_neopakovat - PRINT #DefKonfFile, konfigurace_experiment_nahoda - PRINT #DefKonfFile, konfigurace_experiment_neopakovat - PRINT #DefKonfFile, Str(konfigurace_experiment_cas_zobrazeni_stimulu) - PRINT #DefKonfFile, Str(konfigurace_experiment_cas_piti) - PRINT #DefKonfFile, Str(konfigurace_experiment_cas_zhasnuteho_stimulu) - PRINT #DefKonfFile, Str(konfigurace_experiment_cas_dalsi_ciklus) - PRINT #DefKonfFile, konfigurace_experiment_vypni_stimul - PRINT #DefKonfFile, konfigurace_experiment_vypni_stimul_pauza_enable - PRINT #DefKonfFile, konfigurace_experiment_casovani - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_1 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_2 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_3 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_4 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_5 - PRINT #DefKonfFile, konfigurace_experiment_slot_enable_6 - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s1) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s2) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s3) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s4) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s5) - PRINT #DefKonfFile, Str(konfigurace_experiment_casovani_s6) - PRINT #DefKonfFile, Str(mod_idx) - PRINT #DefKonfFile, TimeoutOpakReset - PRINT #DefKonfFile, konfigurace_experiment_vypni_stimul_prereset - PRINT #DefKonfFile, konfigurace_experiment_vypni_stimul_poakci - - WAIT - DefKonfFile.Close - - cfgwritekonec: - -END - - - -SUB DefKonfLoad() -DIM linc AS Integer -DIM lin AS String -DIM arr_strings AS String[] - SysLogWrite("OBNOVENI_PARAMETRU") - arr_strings = Split(File.LOAD("/ratbox/system/defconf.rbconf"), "\n") - FOR EACH lin IN arr_strings - lin = arr_strings[linc] - IF linc = 1 THEN TxtCommPort.text = lin - IF linc = 2 THEN TxtPocetCiklu.Text = lin - IF linc = 3 THEN TxtTimeout.Text = lin - IF (linc = 4) AND (lin = "True") THEN ChkTimeout.Value = TRUE - IF (linc = 4) AND (lin = "False") THEN ChkTimeout.Value = FALSE - IF linc = 5 THEN TxtPreCasPiti.Text = lin - IF linc = 6 THEN TxtPrePauza.Text = lin - IF (linc = 7) AND (lin = "True") THEN ChkPrePauza.Value = TRUE - IF (linc = 7) AND (lin = "False") THEN ChkPrePauza.Value = FALSE - IF (linc = 8) AND (lin = "True") THEN ChkPreNeopakovat.Value = TRUE - IF (linc = 8) AND (lin = "False") THEN ChkPreNeopakovat.Value = FALSE - IF (linc = 9) AND (lin = "True") THEN ChkExpNahoda.Value = TRUE - IF (linc = 9) AND (lin = "False") THEN ChkExpNahoda.Value = FALSE - IF (linc = 10) AND (lin = "True") THEN ChkExpNeopakovat.Value = TRUE - IF (linc = 10) AND (lin = "False") THEN ChkExpNeopakovat.Value = FALSE - IF linc = 11 THEN ExperimentTxtTime0.Text = lin - IF linc = 12 THEN ExperimentTxtTime3.Text = lin - IF linc = 13 THEN ExperimentTxtTime1.Text = lin - IF linc = 14 THEN ExperimentTxtTime2.Text = lin - IF (linc = 15) AND (lin = "True") THEN ChkZhasniStimul.Value = TRUE - IF (linc = 15) AND (lin = "False") THEN ChkZhasniStimul.Value = FALSE - IF (linc = 16) AND (lin = "True") THEN ChkVypStimulPauza.Value = TRUE - IF (linc = 16) AND (lin = "False") THEN ChkVypStimulPauza.Value = FALSE - IF (linc = 17) AND (lin = "True") THEN ExpChkEnableTiming.Value = TRUE - IF (linc = 17) AND (lin = "False") THEN ExpChkEnableTiming.Value = FALSE - IF (linc = 18) AND (lin = "True") THEN ExpChkSTime.Value = TRUE - IF (linc = 18) AND (lin = "False") THEN ExpChkSTime.Value = FALSE - IF (linc = 19) AND (lin = "True") THEN ExpChkSTime2.Value = TRUE - IF (linc = 19) AND (lin = "False") THEN ExpChkSTime2.Value = FALSE - IF (linc = 20) AND (lin = "True") THEN ExpChkSTime3.Value = TRUE - IF (linc = 20) AND (lin = "False") THEN ExpChkSTime3.Value = FALSE - IF (linc = 21) AND (lin = "True") THEN ExpChkSTime4.Value = TRUE - IF (linc = 21) AND (lin = "False") THEN ExpChkSTime4.Value = FALSE - IF (linc = 22) AND (lin = "True") THEN ExpChkSTime5.Value = TRUE - IF (linc = 22) AND (lin = "False") THEN ExpChkSTime5.Value = FALSE - IF (linc = 23) AND (lin = "True") THEN ExpChkSTime6.Value = TRUE - IF (linc = 23) AND (lin = "False") THEN ExpChkSTime6.Value = FALSE - IF linc = 24 THEN ExpTxtS1Time.Text = lin - IF linc = 25 THEN ExpTxtS2Time.Text = lin - IF linc = 26 THEN ExpTxtS3Time.Text = lin - IF linc = 27 THEN ExpTxtS4Time.Text = lin - IF linc = 28 THEN ExpTxtS5Time.Text = lin - IF linc = 29 THEN ExpTxtS6Time.Text = lin - IF linc = 30 THEN mod_idx = Val(lin) - IF (linc = 30) AND (lin = "0") THEN BtnMod.Text = "PreLearning" - IF (linc = 30) AND (lin = "1") THEN BtnMod.Text = "Experiment" - IF (linc = 31) AND (lin = "True") THEN ChkTimeoutOpakReset.Value = TRUE - IF (linc = 31) AND (lin = "False") THEN ChkTimeoutOpakReset.Value = FALSE - IF (linc = 32) AND (lin = "True") THEN ChkZhasniStimulPreReset.Value = TRUE - IF (linc = 32) AND (lin = "False") THEN ChkZhasniStimulPreReset.Value = FALSE - IF (linc = 33) AND (lin = "True") THEN ChkZhasniStimulPoAkci.Value = TRUE - IF (linc = 33) AND (lin = "False") THEN ChkZhasniStimulPoAkci.Value = FALSE - linc = linc + 1 - NEXT - SysLogWrite("PARAMETRY_OBNOVENY") -END - -PUBLIC SUB TmrCasovac_Timer() - buffer_casovac = buffer_casovac + 1 - TxtInfoCasovac.text = Str(buffer_casovac) - PosliInfo() - WAIT -END - -PUBLIC SUB BtnPreStart_Click() -DIM exp_souhrn_stimul AS Integer -DIM exp_souhrn_odpoved AS Integer - - SysLogWrite("UPLATNUJI_PARAMETRY") - UplatniParametry() - VypisParametry() - SysLogWrite("PARAMETRY_UPLATNENY") - STOP_State = FALSE - tmp_cyklus = 0 - Pauza(5) - IF mod_idx = 0 THEN - PreLogInit() - TimerExperimentMils.Enabled = TRUE - PreStatInit() - SysLogWrite("PRELEARNING_START") - PreLogWrite("START" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - WHILE (tmp_cyklus < konfigurace_pocet_cyklu) AND (STOP_State = FALSE) - PreLogWrite("CYKLUS" & ";" & tmp_cyklus & ";" & "NULL" & ";" & "NaN") - ' PRELEARNING - KROK 1 - OTEVRENI DVERI START - PreLogWrite("OTEVRENI_DVERI" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - LabelPre.BackColor = Color.Green - AparaturaOtevriDvere() - Pauza(3) - LabelPre.BackColor = Color.Background - PreLogWrite("DVERE_OTEVRENY" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - ' PRELEARNING - KROK 1 - OTEVRENI DVERI STOP - - WAIT - - ' PRELEARNING - KROK 2 - CEKANI, ANALYZA POTKANI AKCE START - cekani_potkan_akce: - - TimeoutCountingStart() - LabelPre2.BackColor = Color.Green - stav_sloty = 0 - InputBlock = FALSE - WHILE (stav_sloty = 0) AND (konfigurace_timeout > buffer_timeout) - WAIT - WEND - TimeoutCountingStop() - LabelPre2.BackColor = Color.Background - buffer_sloty_aktual_state = stav_sloty - stav_sloty = 0 - - SysLogWrite("PRELEARNING_POTKAN_AKTIVITA_" & Str(buffer_sloty_aktual_state)) - pre_stat_aktivita[buffer_sloty_aktual_state] = pre_stat_aktivita[buffer_sloty_aktual_state] + 1 - - IF buffer_sloty_aktual_state = 0 THEN - SysLogWrite("PRELEARNING_TIMEOUT") - PreLogWrite("TIMEOUT" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - IF TimeoutOpakReset = TRUE THEN buffer_sloty_last_state = 0 - pre_stat_timeout = pre_stat_timeout + 1 - GOTO prelearning_reset - ENDIF - - IF (buffer_sloty_last_state = buffer_sloty_aktual_state) AND (konfigurace_prelearning_neopakovat = TRUE) THEN - SysLogWrite("PRELEARNING_POTKAN_OPAKOVANI") - PreLogWrite("OPAKOVANI" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - pre_stat_opakovani[buffer_sloty_last_state] = pre_stat_opakovani[buffer_sloty_last_state] + 1 - LabelPre2.BackColor = Color.Red - Pauza(1) - LabelPre2.BackColor = Color.Background - buffer_sloty_aktual_state = 0 - GOTO cekani_potkan_akce - ELSE - PreLogWrite("AKTIVITA" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - ENDIF - - IF (buffer_sloty_aktual_state = 1) AND (konfigurace_experiment_slot_enable_1 = FALSE) THEN - SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) - PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - pre_stat_zakazano[1] = pre_stat_zakazano[1] + 1 - GOTO cekani_potkan_akce - ENDIF - IF (buffer_sloty_aktual_state = 2) AND (konfigurace_experiment_slot_enable_2 = FALSE) THEN - SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) - PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - pre_stat_zakazano[2] = pre_stat_zakazano[2] + 1 - GOTO cekani_potkan_akce - ENDIF - IF (buffer_sloty_aktual_state = 3) AND (konfigurace_experiment_slot_enable_3 = FALSE) THEN - SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) - PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - pre_stat_zakazano[3] = pre_stat_zakazano[3] + 1 - GOTO cekani_potkan_akce - ENDIF - IF (buffer_sloty_aktual_state = 4) AND (konfigurace_experiment_slot_enable_4 = FALSE) THEN - SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) - PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - pre_stat_zakazano[4] = pre_stat_zakazano[4] + 1 - GOTO cekani_potkan_akce - ENDIF - IF (buffer_sloty_aktual_state = 5) AND (konfigurace_experiment_slot_enable_5 = FALSE) THEN - SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) - PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - pre_stat_zakazano[5] = pre_stat_zakazano[5] + 1 - GOTO cekani_potkan_akce - ENDIF - IF (buffer_sloty_aktual_state = 6) AND (konfigurace_experiment_slot_enable_6 = FALSE) THEN - SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state)) - PreLogWrite("NEPOVOLENY_SLOT" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - pre_stat_zakazano[6] = pre_stat_zakazano[6] + 1 - GOTO cekani_potkan_akce - ENDIF - - buffer_sloty_last_state = buffer_sloty_aktual_state - LabelPre2.BackColor = Color.Background - ' PRELEARNING - KROK 2 - CEKANI, ANALYZA POTKANI AKCE STOP - - LabelPre3.BackColor = Color.Green - AparaturaNastavPitko(buffer_sloty_aktual_state) - Pauza(3) - LabelPre3.BackColor = Color.Background - PreLogWrite("NASTAVUJI_PITKO" & ";" & Str(buffer_sloty_aktual_state) & ";" & "NULL" & ";" & "NaN") - - Label1.BackColor = Color.Green - Pauza(konfigurace_prelearning_cas_piti) - pre_stat_ciklus_real = pre_stat_ciklus_real + 1 - Label1.BackColor = Color.Background - - prelearning_reset: - LabelPre5.BackColor = Color.Green - AparaturaReset() - Pauza(3) - LabelPre5.BackColor = Color.Background - - IF konfigurace_prelearning_pauza = TRUE THEN - ChkPrePauza.BackColor = Color.Green - Pauza(konfigurace_prelearning_cas_dalsi_ciklus) - ChkPrePauza.BackColor = Color.Background - ENDIF - tmp_cyklus = tmp_cyklus + 1 - pre_stat_ciklus = pre_stat_ciklus + 1 - WEND - - tmp_cyklus = 0 - stav_sloty = 0 - - PreLogWrite("KONEC" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - PreStatWrite() - SysLogWrite("PRELEARNING_KONEC") - TimerExperimentMils.Enabled = FALSE - - ELSE IF mod_idx = 1 THEN - tmp_cyklus = 0 - stav_sloty = 0 - tmp_stimul_idx = 0 - STOP_State = FALSE - tmp_mils = 0 - - ExpLogInit() - Pauza(5) - ExpStatInit() - ExpLogWrite("START" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - SysLogWrite("EXPERIMENT_START") - - WHILE (tmp_cyklus < konfigurace_pocet_cyklu) AND (STOP_State = FALSE) - TimerExperimentMils.Enabled = TRUE - exp_genstim: - ExpLogWrite("CYKLUS" & ";" & tmp_cyklus & ";" & "NULL" & ";" & "NaN") - IF konfigurace_experiment_nahoda = TRUE THEN - tmp_stimul_idx = Rnd(1, 7) - 'ExpLogWrite("NAHODNY_STIMUL" & ";" & tmp_stimul_idx & ";" & "NULL" & ";" & "NaN") - ELSE - IF tmp_stimul_idx = 6 THEN tmp_stimul_idx = 0 - tmp_stimul_idx = tmp_stimul_idx + 1 - ExpLogWrite("LINEARNI_STIMUL" & ";" & tmp_stimul_idx & ";" & "NULL" & ";" & "NaN") - ENDIF - IF (tmp_stimul_last = tmp_stimul_idx) AND (konfigurace_experiment_neopakovat = TRUE) THEN -' ExpLogWrite("EXPERIMENT_OPAKOVANI_STIMULU: " & tmp_stimul_idx & " GENERUJI_NOVY") - GOTO exp_genstim - ENDIF - tmp_stimul_last = tmp_stimul_idx - IF (konfigurace_experiment_slot_enable_1 = FALSE) AND (tmp_stimul_idx = 1) THEN -' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") - GOTO exp_genstim - ENDIF - IF (konfigurace_experiment_slot_enable_2 = FALSE) AND (tmp_stimul_idx = 2) THEN -' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") - GOTO exp_genstim - ENDIF - IF (konfigurace_experiment_slot_enable_3 = FALSE) AND (tmp_stimul_idx = 3) THEN -' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") - GOTO exp_genstim - ENDIF - IF (konfigurace_experiment_slot_enable_4 = FALSE) AND (tmp_stimul_idx = 4) THEN -' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") - GOTO exp_genstim - ENDIF - IF (konfigurace_experiment_slot_enable_5 = FALSE) AND (tmp_stimul_idx = 5) THEN -' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") - GOTO exp_genstim - ENDIF - IF (konfigurace_experiment_slot_enable_6 = FALSE) AND (tmp_stimul_idx = 6) THEN -' ExpLogWrite("EXPERIMENT_STIMUL: " & tmp_stimul_idx & " ZAKAZAN, GENERUJI_NOVY") - GOTO exp_genstim - ENDIF - - Label23.Text = tmp_stimul_idx - exp_souhrn_stimul = tmp_stimul_idx - - ExpLogWrite("ZOBRAZENI_STIMULU" & ";" & tmp_stimul_idx & ";" & "NULL" & ";" & "NaN") - ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/" & tmp_stimul_idx & ".bmp") - Form1.stimul("/ratbox/stimuls/" & tmp_stimul_idx & ".bmp") - WAIT - - IF konfigurace_experiment_casovani = TRUE THEN - IF tmp_stimul_idx = 1 THEN - ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s1) & ";" & "NULL" & ";" & "NaN") - Label26.BackColor = Color.Green - PauzaMilis(konfigurace_experiment_casovani_s1) - Label26.BackColor = Color.Background - ENDIF - IF tmp_stimul_idx = 2 THEN - ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s2) & ";" & "NULL" & ";" & "NaN") - Label27.BackColor = Color.Green - PauzaMilis(konfigurace_experiment_casovani_s2) - Label27.BackColor = Color.Background - ENDIF - IF tmp_stimul_idx = 3 THEN - ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s3) & ";" & "NULL" & ";" & "NaN") - Label28.BackColor = Color.Green - PauzaMilis(konfigurace_experiment_casovani_s3) - Label28.BackColor = Color.Background - ENDIF - IF tmp_stimul_idx = 4 THEN - ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s4) & ";" & "NULL" & ";" & "NaN") - Label29.BackColor = Color.Green - PauzaMilis(konfigurace_experiment_casovani_s4) - Label29.BackColor = Color.Background - ENDIF - IF tmp_stimul_idx = 5 THEN - ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s5) & ";" & "NULL" & ";" & "NaN") - Label30.BackColor = Color.Green - PauzaMilis(konfigurace_experiment_casovani_s5) - Label30.BackColor = Color.Background - ENDIF - IF tmp_stimul_idx = 6 THEN - ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_casovani_s6) & ";" & "NULL" & ";" & "NaN") - Label31.BackColor = Color.Green - PauzaMilis(konfigurace_experiment_casovani_s6) - Label31.BackColor = Color.Background - ENDIF - ELSE - Label12.BackColor = Color.Green - ExpLogWrite("CAS_ZOBRAZENI_STIMULU" & ";" & (konfigurace_experiment_cas_zobrazeni_stimulu) & ";" & "NULL" & ";" & "NaN") - PauzaMilis(konfigurace_experiment_cas_zobrazeni_stimulu) - Label12.BackColor = Color.Background - ENDIF - - IF konfigurace_experiment_vypni_stimul = TRUE THEN - ChkZhasniStimul.BackColor = Color.Green - ExpLogWrite("ZHASNUTI_STIMULU" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - Form1.stimul("/ratbox/stimuls/clear.bmp") - ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/clear.bmp") - ChkZhasniStimul.BackColor = Color.Background - ENDIF - - IF konfigurace_experiment_vypni_stimul_pauza_enable = TRUE THEN - Label13.BackColor = Color.Green - ExpLogWrite("CAS_ZHASLEHO_STIMULU" & ";" & (konfigurace_experiment_cas_zhasnuteho_stimulu) & ";" & "NULL" & ";" & "NaN") - PauzaMilis(konfigurace_experiment_cas_zhasnuteho_stimulu) - Label13.BackColor = Color.Background - ENDIF - - ExpLogWrite("OTEVRENI_DVERI" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - LabelPre6.BackColor = Color.Green - AparaturaOtevriDvere() - Pauza(3) - ExpLogWrite("DVERE_OTEVRENY" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - LabelPre6.BackColor = Color.Background - - LabelPre7.BackColor = Color.Green - stav_sloty = 0 - InputBlock = FALSE - ExpLogWrite("CEKANI_REAKCE" & ";" & "NaN" & ";" & "TIMEOUT" & ";" & (konfigurace_timeout * 1000)) - TimeoutCountingStart() - WHILE (stav_sloty = 0) AND (konfigurace_timeout > buffer_timeout) - WAIT - WEND - TimeoutCountingStop() - LabelPre7.BackColor = Color.Background - buffer_sloty_aktual_state = stav_sloty - stav_sloty = 0 - - IF konfigurace_experiment_vypni_stimul_poakci = TRUE THEN - ChkZhasniStimulPoAkci.BackColor = Color.Green - ExpLogWrite("ZHASNUTI_STIMULU" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - Form1.stimul("/ratbox/stimuls/clear.bmp") - ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/clear.bmp") - ChkZhasniStimulPoAkci.BackColor = Color.Background - ENDIF - - IF buffer_sloty_aktual_state > 0 THEN - exp_souhrn_odpoved = buffer_sloty_aktual_state - exp_stat_souhrn[exp_souhrn_stimul, exp_souhrn_odpoved] = exp_stat_souhrn[exp_souhrn_stimul, exp_souhrn_odpoved] + 1 - exp_stat_aktivita[buffer_sloty_aktual_state] = exp_stat_aktivita[buffer_sloty_aktual_state] + 1 - ENDIF - - IF buffer_sloty_aktual_state = 0 THEN - ExpLogWrite("TIMEOUT" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - exp_stat_timeout = exp_stat_timeout + 1 - GOTO exp_reset - ENDIF - - ExpLogWrite("REAKCE" & ";" & buffer_sloty_aktual_state & ";" & "OCEKAVANO" & ";" & tmp_stimul_idx) - 'exp_stat_aktivita[buffer_sloty_aktual_state] = exp_stat_aktivita[buffer_sloty_aktual_state] + 1 - - IF buffer_sloty_aktual_state <> tmp_stimul_idx THEN -' ExpLogWrite("EXPERIMENT_POKTKAN_SPATNA_VOLBA: " & buffer_sloty_aktual_state & " ,OCEKAVANO: " & tmp_stimul_idx) - GOTO exp_reset - ENDIF - IF buffer_sloty_aktual_state = tmp_stimul_idx THEN -' ExpLogWrite("EXPERIMENT_POTKAN_SPRAVNA_VOLBA: " & buffer_sloty_aktual_state) - ExpLogWrite("PITKO" & ";" & tmp_stimul_idx & ";" & "NULL" & ";" & "NaN") - exp_stat_ciklus_real = exp_stat_ciklus_real + 1 - LabelPre8.BackColor = Color.Green - AparaturaNastavPitko(tmp_stimul_idx) - Pauza(3) - LabelPre8.BackColor = Color.Background - ExpLogWrite("CAS_PITI" & ";" & (konfigurace_experiment_cas_piti) & ";" & "NULL" & ";" & "NaN") - Label36.BackColor = Color.Green - PauzaMilis(konfigurace_experiment_cas_piti) - Label36.BackColor = Color.Background - ENDIF - exp_reset: - ExpLogWrite("RESET" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - Label20.BackColor = Color.Green - - IF konfigurace_experiment_vypni_stimul_prereset = TRUE THEN - ChkZhasniStimulPreReset.BackColor = Color.Green - ExpLogWrite("ZHASNUTI_STIMULU" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - Form1.stimul("/ratbox/stimuls/clear.bmp") - ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/clear.bmp") - ChkZhasniStimulPreReset.BackColor = Color.Background - ENDIF - -' RESET APARATURY - - AparaturaReset() - Pauza(3) - Label20.BackColor = Color.Background - IF konfigurace_experiment_cas_dalsi_ciklus > 0 THEN - ExpLogWrite("CAS_DALSI_CYKLUS" & ";" & (konfigurace_experiment_cas_dalsi_ciklus) & ";" & "NULL" & ";" & "NaN") - Label25.BackColor = Color.Green - PauzaMilis(konfigurace_experiment_cas_dalsi_ciklus) - Label25.BackColor = Color.Background - ENDIF -' ExpLogWrite("EXPERIMENT_KONEC_CYKLU: " & tmp_cyklus) - exp_stat_ciklus = exp_stat_ciklus + 1 - tmp_cyklus = tmp_cyklus + 1 - WEND - Form1.stimul("/ratbox/stimuls/clear.bmp") - ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls/clear.bmp") - ExpLogWrite("KONEC" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN") - SysLogWrite("EXPERIMENT_KONEC") - ExpStatWrite() - TimerExperimentMils.Enabled = FALSE - ENDIF - -END - -PUBLIC SUB TimeoutCountingStop() - TmrTimeout.Enabled = FALSE - buffer_timeout = 0 -END - -PUBLIC SUB TimeoutCountingStart() - buffer_timeout = 0 - TmrTimeout.Enabled = TRUE -END - -PUBLIC SUB TmrTimeout_Timer() - IF (buffer_timeout + 1) > konfigurace_timeout THEN TmrTimeout.Enabled = FALSE - buffer_timeout = buffer_timeout + 1 - TxtInfoTimeout.Text = Str(buffer_timeout) - PosliInfo() - WAIT -END - -PUBLIC SUB BtnPreStop_Click() - STOP_State = TRUE - SysLogWrite("UZIVATELSKE_UKONCENI_CYKLU") -END - -PUBLIC SUB BtnExpFull_Click() - IF mod_idx = 0 THEN BtnMod_Click() - FMain.Visible = FALSE - Form1.FullScreen = TRUE - Form1.Visible = TRUE - Form1.stimul("/ratbox/stimuls/clear.bmp") -END - -PUBLIC SUB BtnKonfUloz_Click() -DIM i AS Integer -DIM kontrola AS Boolean - kontrola = FALSE - IF Len(TxtKonfigNazev.Text) = 0 THEN - ErrLogWrite("Ukladani_profilu_nulova_velikost_nazvu") - Message("Zadejte nazev profilu 1 - 16 znaku, pouze cisla a pismena....") - GOTO Konec - ENDIF - IF Len(TxtKonfigNazev.Text) > 16 THEN - ErrLogWrite("Ukladani_profilu_moc_dlouhy_nazev") - ErrLogWrite("Ukladani_profilu_nazev: " & TxtKonfigNazev.Text) - ErrLogWrite("Ukladani_profilu_nazev_delka: " & Str(Len(TxtKonfigNazev.Text))) - Message("Moc dlouhy nazev profilu. Pouze 1 - 16 znaku, pouze cisla a pismena....") - TxtKonfigNazev.text = "" - GOTO Konec - ENDIF - kontrola = TRUE - FOR i = 0 TO Len(TxtKonfigNazev.Text) - 1 - IF ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 58) AND (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 47)) OR ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 91) AND (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 64)) OR ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 123) AND (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 96)) THEN - ELSE - kontrola = FALSE - ENDIF - NEXT - IF kontrola = FALSE THEN - ErrLogWrite("Ukladani_profilu_nepovoleny_znak_nazev_: " & TxtKonfigNazev.Text) - FOR i = 0 TO Len(TxtKonfigNazev.Text) - 1 - IF ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 58) AND (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 47)) OR ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 91) AND (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 64)) OR ((Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) < 123) AND (Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) > 96)) THEN - ELSE - ErrLogWrite("Znak-KO ASCII CODE: " & Mid(TxtKonfigNazev.Text, i + 1, 1) & " " & Asc(Mid(TxtKonfigNazev.Text, i + 1, 1)) & " POZICE: " & i + 1) - ENDIF - NEXT - Message("Nazev_profilu_obsahuje_nepovoleny_znak.Pouze 1 - 16 znaku, pouze cisla a pismena....") - GOTO Konec - ENDIF - SysLogWrite("Ukladani_uzivatelskeho_profilu: " & TxtKonfigNazev.Text) - UlozUserCfg(TxtKonfigNazev.Text) - CfgList() - Konec: - CfgList() - TxtKonfigNazev.Text = "" -END - -SUB CfgList() -DIM File AS String - ListBox1.Clear - SysLogWrite("Obnoveni_seznamu_profilu...") - FOR EACH File IN Dir("/ratbox/konfigurace/", "*.rbconf") - ListBox1.Add(Mid(File, 1, Len(File) - 7)) - NEXT -END - -PUBLIC SUB Button1_Click() - CfgList() -END - -PUBLIC SUB ListBox1_Select() - TxtKonfigNazev.Text = ListBox1.Text -END - -PUBLIC SUB BtnSmazKonfiguraci_Click() -DIM CfgName AS String - CfgName = TxtKonfigNazev.Text - SysLogWrite("Smazani_uzivatelskeho_profilu: " & CfgName) - IF Exist("/ratbox/konfigurace/" & CfgName & ".rbconf") = FALSE THEN - Message("Profil: " & CfgName & " neexistuje a proto nemuze byt smazan....") - ErrLogWrite("SMAZANI_PROFILU: CHYBA - PROFIL NEEXISTUJE") - CfgList() - ELSE - IF Message.Warning("Profil: " & CfgName & " bude nenavratne smazan. Opravdu SMAZAT ?", "NE", "ANO") = 2 THEN - SHELL ("rm /ratbox/konfigurace/" & CfgName & ".rbconf") - FINALLY - IF ERROR THEN - ErrLogWrite("Chyba pri mazani profilu: " & "/ratbox/konfigurace/" & CfgName & ".rbconf " & Error.Text) - Message("Chyba pri mazani profilu: " & CfgName) - ENDIF - CfgList() - Message("Profil: " & CfgName & " byl uspesne smazan....") - SysLogWrite("Profil: " & CfgName & "smazan...") - ELSE - SysLogWrite("Smazani_profilu: " & CfgName & " stornovano..") - ENDIF - ENDIF - CfgList() - TxtKonfigNazev.text = "" -END - -PUBLIC SUB BtnNahrajKonfiguraci_Click() - IF Len(TxtKonfigNazev.text) = 0 THEN - Message("Vyberte profil - klikem v seznamu vedle") - GOTO nahrajkonec - ENDIF - IF Exist("/ratbox/konfigurace/" & TxtKonfigNazev.Text & ".rbconf") = FALSE THEN - Message("Soubor profilu: " & TxtKonfigNazev.Text & " nenalezen") - TxtKonfigNazev.Text = "" - GOTO nahrajkonec - ELSE - UserCfgLoad(TxtKonfigNazev.Text) - ENDIF - nahrajkonec: - CfgList() - TxtKonfigNazev.Text = "" -END - -SUB UserCfgLoad(CfgProfil AS String) -DIM linc AS Integer -DIM lin AS String -DIM arr_strings AS String[] - SysLogWrite("OBNOVENI_PARAMETRU_Z_PROFILU: " & CfgProfil) - IF Exist("/ratbox/konfigurace/" & CfgProfil & ".rbconf") = FALSE THEN - Message("Soubor profilu: " & "/ratbox/konfigurace/" & CfgProfil & ".rbconf" & " je neplatny !!") - ENDIF - arr_strings = Split(File.LOAD("/ratbox/konfigurace/" & CfgProfil & ".rbconf"), "\n") - FINALLY - IF ERROR THEN - ErrLogWrite("Chyba pri nahravani profilu: " & "/ratbox/konfigurace/" & CfgProfil & ".rbconf " & Error.Text) - Message("Chyba pri nahravani profilu: " & "/ratbox/konfigurace/" & CfgProfil & ".rbconf") - ENDIF - FOR EACH lin IN arr_strings - lin = arr_strings[linc] - IF linc = 1 THEN TxtCommPort.text = lin - IF linc = 2 THEN TxtPocetCiklu.Text = lin - IF linc = 3 THEN TxtTimeout.Text = lin - IF (linc = 4) AND (lin = "True") THEN ChkTimeout.Value = TRUE - IF (linc = 4) AND (lin = "False") THEN ChkTimeout.Value = FALSE - IF linc = 5 THEN TxtPreCasPiti.Text = lin - IF linc = 6 THEN TxtPrePauza.Text = lin - IF (linc = 7) AND (lin = "True") THEN ChkPrePauza.Value = TRUE - IF (linc = 7) AND (lin = "False") THEN ChkPrePauza.Value = FALSE - IF (linc = 8) AND (lin = "True") THEN ChkPreNeopakovat.Value = TRUE - IF (linc = 8) AND (lin = "False") THEN ChkPreNeopakovat.Value = FALSE - IF (linc = 9) AND (lin = "True") THEN ChkExpNahoda.Value = TRUE - IF (linc = 9) AND (lin = "False") THEN ChkExpNahoda.Value = FALSE - IF (linc = 10) AND (lin = "True") THEN ChkExpNeopakovat.Value = TRUE - IF (linc = 10) AND (lin = "False") THEN ChkExpNeopakovat.Value = FALSE - IF linc = 11 THEN ExperimentTxtTime0.Text = lin - IF linc = 12 THEN ExperimentTxtTime3.Text = lin - IF linc = 13 THEN ExperimentTxtTime1.Text = lin - IF linc = 14 THEN ExperimentTxtTime2.Text = lin - IF (linc = 15) AND (lin = "True") THEN ChkZhasniStimul.Value = TRUE - IF (linc = 15) AND (lin = "False") THEN ChkZhasniStimul.Value = FALSE - IF (linc = 16) AND (lin = "True") THEN ChkVypStimulPauza.Value = TRUE - IF (linc = 16) AND (lin = "False") THEN ChkVypStimulPauza.Value = FALSE - IF (linc = 17) AND (lin = "True") THEN ExpChkEnableTiming.Value = TRUE - IF (linc = 17) AND (lin = "False") THEN ExpChkEnableTiming.Value = FALSE - IF (linc = 18) AND (lin = "True") THEN ExpChkSTime.Value = TRUE - IF (linc = 18) AND (lin = "False") THEN ExpChkSTime.Value = FALSE - IF (linc = 19) AND (lin = "True") THEN ExpChkSTime2.Value = TRUE - IF (linc = 19) AND (lin = "False") THEN ExpChkSTime2.Value = FALSE - IF (linc = 20) AND (lin = "True") THEN ExpChkSTime3.Value = TRUE - IF (linc = 20) AND (lin = "False") THEN ExpChkSTime3.Value = FALSE - IF (linc = 21) AND (lin = "True") THEN ExpChkSTime4.Value = TRUE - IF (linc = 21) AND (lin = "False") THEN ExpChkSTime4.Value = FALSE - IF (linc = 22) AND (lin = "True") THEN ExpChkSTime5.Value = TRUE - IF (linc = 22) AND (lin = "False") THEN ExpChkSTime5.Value = FALSE - IF (linc = 23) AND (lin = "True") THEN ExpChkSTime6.Value = TRUE - IF (linc = 23) AND (lin = "False") THEN ExpChkSTime6.Value = FALSE - IF linc = 24 THEN ExpTxtS1Time.Text = lin - IF linc = 25 THEN ExpTxtS2Time.Text = lin - IF linc = 26 THEN ExpTxtS3Time.Text = lin - IF linc = 27 THEN ExpTxtS4Time.Text = lin - IF linc = 28 THEN ExpTxtS5Time.Text = lin - IF linc = 29 THEN ExpTxtS6Time.Text = lin - IF linc = 30 THEN mod_idx = Val(lin) - IF (linc = 30) AND (lin = "0") THEN BtnMod.Text = "PreLearning" - IF (linc = 30) AND (lin = "1") THEN BtnMod.Text = "Experiment" - IF (linc = 31) AND (lin = "True") THEN ChkTimeoutOpakReset.Value = TRUE - IF (linc = 31) AND (lin = "False") THEN ChkTimeoutOpakReset.Value = FALSE - IF (linc = 32) AND (lin = "True") THEN ChkZhasniStimulPreReset.Value = TRUE - IF (linc = 32) AND (lin = "False") THEN ChkZhasniStimulPreReset.Value = FALSE - IF (linc = 33) AND (lin = "True") THEN ChkZhasniStimulPoAkci.Value = TRUE - IF (linc = 33) AND (lin = "False") THEN ChkZhasniStimulPoAkci.Value = FALSE - linc = linc + 1 - NEXT - SysLogWrite("PARAMETRY_PROFILU_NASTAVENY") -END - -PUBLIC SUB PosliInfo() - Form1.cyklusinfo("Cyklus:" & Str(tmp_cyklus + 1) & "/" & Str(konfigurace_pocet_cyklu) & " PauzaTMR:" & Str(buffer_casovac) & " TimeoutTMR:" & Str(buffer_timeout)) -END - - -PUBLIC SUB remstart() - BtnPreStart_Click() -END - -PUBLIC SUB TimerExperimentMils_Timer() - tmp_mils = tmp_mils + 1 -END - -PUBLIC FUNCTION TestNastaveniExpCasu() AS Boolean - DIM test AS Boolean - test = TRUE - IF Val(ExpTxtS1Time.Text) < 10 THEN test = FALSE - IF Val(ExpTxtS2Time.Text) < 10 THEN test = FALSE - IF Val(ExpTxtS3Time.Text) < 10 THEN test = FALSE - IF Val(ExpTxtS4Time.Text) < 10 THEN test = FALSE - IF Val(ExpTxtS5Time.Text) < 10 THEN test = FALSE - IF Val(ExpTxtS6Time.Text) < 10 THEN test = FALSE - IF Val(ExperimentTxtTime0.Text) < 10 THEN test = FALSE - IF Val(ExperimentTxtTime1.Text) < 10 THEN test = FALSE - IF Val(ExperimentTxtTime2.Text) < 10 THEN test = FALSE - IF Val(ExperimentTxtTime3.Text) < 10 THEN test = FALSE - IF test = TRUE THEN - RETURN TRUE - ELSE - RETURN FALSE - ENDIF -END - -PUBLIC SUB ExperimentTxtTime2_KeyPress() -END - -PUBLIC SUB TimerMilis_Timer() - buffer_casovac_milis = buffer_casovac_milis + 1 - TxtInfoCasovacMilis.text = Str(buffer_casovac_milis) * 10 - PosliInfo() - WAIT -END diff --git a/Form1.class b/Form1.class deleted file mode 100644 index 259dade..0000000 --- a/Form1.class +++ /dev/null @@ -1,46 +0,0 @@ -' Gambas class file - - -PUBLIC SUB Form_Open() -WAIT - PictureBox1.Width = Form1.Width - PictureBox1.Height = Form1.Height -WAIT -END - -PUBLIC SUB stimul(xxx AS String) - WAIT - PictureBox1.Picture = Picture.Load(xxx) - WAIT -END - -PUBLIC SUB loginfo(aaa AS String) - Label1.Text = aaa -END -PUBLIC SUB cyklusinfo(bbb AS String) - label2.Text = bbb -END - -PUBLIC SUB PictureBox1_DblClick() - Form1.FullScreen = FALSE - Form1.Visible = FALSE - FMain.Visible = TRUE - Form1.Close -WAIT -END - -PUBLIC SUB Form_Resize() - PictureBox1.Width = Form1.Width - PictureBox1.Height = Form1.Height -END - -PUBLIC SUB Form_Show() - WAIT - PictureBox1.Width = Form1.Width - PictureBox1.Height = Form1.Height - WAIT -END - -PUBLIC SUB PictureBox1_Menu() - FMain.remstart() -END