From a675a50cbaff14f76f4372a67cb5a559f42edcfe Mon Sep 17 00:00:00 2001 From: TomSuch Date: Sun, 25 Sep 2011 20:27:23 +0200 Subject: [PATCH] FirstCommit - some correction needed --- .directory | 2 + .icon.png | Bin 0 -> 6785 bytes .project | 9 + .settings | 27 ++ FMain.class | 733 ++++++++++++++++++++++++++++++++++++++++++++++++++++ FMain.form | 674 +++++++++++++++++++++++++++++++++++++++++++++++ Form1.class | 14 + 7 files changed, 1459 insertions(+) create mode 100644 .directory create mode 100644 .icon.png create mode 100644 .project create mode 100644 .settings create mode 100644 FMain.class create mode 100644 FMain.form create mode 100644 Form1.class diff --git a/.directory b/.directory new file mode 100644 index 0000000..06dab1c --- /dev/null +++ b/.directory @@ -0,0 +1,2 @@ +[Desktop Entry] +Icon=./.icon.png diff --git a/.icon.png b/.icon.png new file mode 100644 index 0000000000000000000000000000000000000000..f66c374b92a4481211129149447c40632bb815cb GIT binary patch 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 6) THEN GOTO EXPSTART + ExperimentPicture.Picture = Picture.Load("/home/tomsuch/" & Str(VisStimIdx) & ".bmp") + PictureBox1.Picture = Picture.Load("/home/tomsuch/" & Str(VisStimIdx) & ".bmp")) + Label23.Text = VisStimIdx + SysLogWrite("Experiment_PAUZA_1") + IF ExpChkEnableTiming.Value = FALSE THEN + ExperimentTxtTime0.BackColor = Color.Green + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < ExpTime0 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + ExperimentTxtTime0.BackColor = Color.White + ELSE + IF VisStimIdx = 1 THEN ExpTemp = Val(ExpTxtS1Time.Text) + IF VisStimIdx = 2 THEN ExpTemp = Val(ExpTxtS2Time.Text) + IF VisStimIdx = 3 THEN ExpTemp = Val(ExpTxtS3Time.Text) + IF VisStimIdx = 4 THEN ExpTemp = Val(ExpTxtS4Time.Text) + IF VisStimIdx = 5 THEN ExpTemp = Val(ExpTxtS5Time.Text) + IF VisStimIdx = 6 THEN ExpTemp = Val(ExpTxtS6Time.Text) + IF VisStimIdx = 1 THEN ExpTxtS1Time.BackColor = Color.Green + IF VisStimIdx = 2 THEN ExpTxtS2Time.BackColor = Color.Green + IF VisStimIdx = 3 THEN ExpTxtS3Time.BackColor = Color.Green + IF VisStimIdx = 4 THEN ExpTxtS4Time.BackColor = Color.Green + IF VisStimIdx = 5 THEN ExpTxtS5Time.BackColor = Color.Green + IF VisStimIdx = 6 THEN ExpTxtS6Time.BackColor = Color.Green + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < ExpTemp + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + IF VisStimIdx = 1 THEN ExpTxtS1Time.BackColor = Color.White + IF VisStimIdx = 2 THEN ExpTxtS2Time.BackColor = Color.White + IF VisStimIdx = 3 THEN ExpTxtS3Time.BackColor = Color.White + IF VisStimIdx = 4 THEN ExpTxtS4Time.BackColor = Color.White + IF VisStimIdx = 5 THEN ExpTxtS5Time.BackColor = Color.White + IF VisStimIdx = 6 THEN ExpTxtS6Time.BackColor = Color.White + ENDIF + TxtPreWDTTmr.Text = 0 + IF ExperimentCheckZhasniStimul.Value = TRUE THEN + SysLogWrite("Experiment_ZHAS_STIMUL") + ExperimentPicture.Picture = Picture.Load("/home/tomsuch/clear.bmp") + Form1.PictureBox1.Picture = Picture.Load("/home/tomsuch/clear.bmp") + WAIT + ENDIF + WAIT + IF CheckBox1.Value = TRUE THEN + ExperimentTxtTime1.BackColor = Color.Green + SysLogWrite("Experiment_PAUZA_2") + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < ExpTime1 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + ExperimentTxtTime1.BackColor = Color.White + ENDIF + LabelPre6.BackColor = Color.Green + SysLogWrite("Experiment_DVERE_OTEVIRANI") + IF SerialPort1.Status = 1 THEN + SysLogWrite("Experiment_SYSTEM_BOX_OK") + WRITE #SerialPort1, "D" + ELSE + SysLogWrite("Experiment_SYSTEM_BOX_CHYBA") + ENDIF + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < 3 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + SysLogWrite("Experiment_DVERE_OTEVRENY") + LabelPre6.BackColor = Color.Background + ExperimentTxtTimeout.BackColor = Color.Green + LabelPre7.BackColor = Color.Green + ExpZ = 0 + ExpTmrTimeout.Enabled = FALSE + ExpTimeoutBuff = 0 + ExpTmrTimeout.Enabled = TRUE + SysLogWrite("Experiment_START_TIMEOUT_COUNTER") + SysLogWrite("Experiment_POTKAN_CEKANI") + WHILE (ExpZ < 1) AND (ExpTimeoutBuff < ExpTimeout) + IF PotkanAkceBuff = 1 THEN ExpZ = 1 + IF PotkanAkceBuff = 2 THEN ExpZ = 2 + IF PotkanAkceBuff = 4 THEN ExpZ = 3 + IF PotkanAkceBuff = 8 THEN ExpZ = 4 + IF PotkanAkceBuff = 16 THEN ExpZ = 5 + IF PotkanAkceBuff = 32 THEN ExpZ = 6 + WAIT + WEND + IF ExpTimeoutBuff >= ExpTimeout THEN SysLogWrite("Experiment_POTKAN_TIMEOUT") + IF (expz > 0) AND (ExpZ < 7) THEN SysLogWrite("Experiment_POTKAN_AKCE") + ExpTmrTimeout.Enabled = FALSE + LabelPre7.BackColor = Color.Background + ExperimentTxtTimeout.BackColor = Color.White + IF VisStimIdx = ExpZ THEN + Label17.BackColor = Color.Green + LabelPre8.BackColor = Color.Green + SysLogWrite("Experiment_POTKAN_OK_" & VisStimIdx) + IF SerialPort1.Status = 1 THEN + SysLogWrite("Experiment_SYSTEM_BOX_OK") + IF VisStimIdx = 1 THEN WRITE #SerialPort1, "s1" + IF VisStimIdx = 2 THEN WRITE #SerialPort1, "s2" + IF VisStimIdx = 3 THEN WRITE #SerialPort1, "s3" + IF VisStimIdx = 4 THEN WRITE #SerialPort1, "S1" + IF VisStimIdx = 5 THEN WRITE #SerialPort1, "S2" + IF VisStimIdx = 6 THEN WRITE #SerialPort1, "S3" + ELSE + SysLogWrite("Experiment_SYSTEM_BOX_CHYBA") + ENDIF + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < 2 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + Label17.BackColor = Color.Background + LabelPre8.BackColor = Color.Background + ExperimentTxtTime3.BackColor = Color.Green + SysLogWrite("Experiment_PAUZA_3") + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < ExpTime3 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + ExperimentTxtTime3.BackColor = Color.White + ELSE + IF exptimeoutbuff < ExpTimeout THEN SysLogWrite("Experiment_POTKAN_KO_" & ExpZ) + ENDIF + Label20.BackColor = Color.Green + SysLogWrite("Experiment_RESET_APARATURY") + IF SerialPort1.status = 1 THEN + SysLogWrite("Experiment_SYSTEM_BOX_OK") + WRITE #SerialPort1, "S0" + WRITE #SerialPort1, "s0" + WRITE #SerialPort1, "d" + ELSE + SysLogWrite("Experiment_SYSTEM_BOX_CHYBA") + ENDIF + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < 3 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + Label20.BackColor = Color.Background + IF ExperimentChkPausa2.Value = TRUE THEN + ExperimentTxtTime2.BackColor = Color.Green + SysLogWrite("Experiment_PAUZA_4") + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < 3 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + ExperimentTxtTime2.BackColor = Color.White + ENDIF + + IF VisStimIdx > 6 THEN VisStimIdx = 1 + WAIT + PocetCiklu = PocetCiklu + 1 + WEND + SysLogWrite("Experiment_KONEC") + ExperimentPicture.Picture = Picture.Load("/home/tomsuch/clear.bmp") + +ELSE + + PrePocetCiklu = TxtPrePocetCiklu.Text + SysLogWrite("Pre_Pocet_Ciklu: " & PrePocetCiklu) + PreCasPiti = TxtPreTmrPiti.Text + SysLogWrite("Pre_Cas_Piti: " & PreCasPiti) + PreCasPauza = TxtPreTmrPauza.Text + SysLogWrite("Pre_Cas_Pauza: " & PreCasPauza) +BtnPreNastavNastaveniPitek_Click + + + SysLogWrite("Pre_START") + + + +WHILE ((PocetCiklu < PrePocetCiklu) AND (PreStop = FALSE)) + +PocetCiklu = PocetCiklu + 1 + + + + SysLogWrite("Pre_Ciklus:" & PocetCiklu) + SysLogWrite("Pre_Otevreni_Dvirek") + + LabelPre.Background = Color.Green + + PreCntTmp = 0 + PreCnt = TRUE + + WHILE PreCntTmp < 3 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + + + + LabelPre.Background = Color.Background + + SysLogWrite("Pre_CEKANI_POTKAN") + + LabelPre2.Background = Color.Green + + WHILE PreEaventPotkan = FALSE + WAIT + WEND + + + + PreEaventPotkan = FALSE + LabelPre2.Background = Color.Background + +PotkanAkceTMP = AkcePotkan() + +SysLogWrite("Pre_Potkan_Akce:" & PotkanAkceTMP) + +SysLogWrite("Pre_Nastavuji_Pitko:" & PotkanAkceTMP) + +LabelPre3.Background = Color.Green + + PreCntTmp = 0 + PreCnt = TRUE + + + WHILE PreCntTmp < 3 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + +LabelPre3.Background = Color.Background + +SysLogWrite("Pre_Piti") + +TxtPreTmrPiti.Background = Color.Green + + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < PreCasPiti + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + +TxtPreTmrPiti.Background = Color.White + +LabelPre5.Background = Color.Green + +SysLogWrite("Pre_Zavreni_Dveri") + + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < 3 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + +LabelPre5.Background = Color.Background + +LabelPre4.Background = Color.Green +SysLogWrite("Pre_Parkuji_Pitka") + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < 3 + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + +LabelPre4.Background = Color.Background + +SysLogWrite("Pre_Pauza") + +TxtPreTmrPauza.Background = Color.Green + + PreCntTmp = 0 + PreCnt = TRUE + WHILE PreCntTmp < PreCasPauza + WAIT + TxtPreWDTTmr.Text = PreCntTmp + WAIT + WEND + TxtPreWDTTmr.Text = 0 + +TxtPreTmrPauza.Background = Color.White + +WEND + +IF PreStop = TRUE THEN PreStop = FALSE + +SysLogWrite("Pre_KONEC") + + +ENDIF + +END + +FUNCTION AkcePotkan() AS Integer + IF PreEaventZ1 = TRUE THEN + RETURN 1 + PreEaventZ1 = FALSE + ENDIF + IF PreEaventZ2 = TRUE THEN + RETURN 2 + PreEaventZ2 = FALSE + ENDIF + IF PreEaventZ3 = TRUE THEN + RETURN 3 + PreEaventZ3 = FALSE + ENDIF + IF PreEaventZ4 = TRUE THEN + RETURN 4 + PreEaventZ4 = FALSE + ENDIF + IF PreEaventZ5 = TRUE THEN + RETURN 5 + PreEaventZ5 = FALSE + ENDIF + IF PreEaventZ6 = TRUE THEN + RETURN 6 + PreEaventZ6 = FALSE + ENDIF +END + +PUBLIC SUB BtnPreStop_Click() + PreStop = TRUE + SysLogWrite("Pre_Uzivatlske_Ukonceni") +END + +PUBLIC SUB BtnExperimentNastavTime0_Click() + ExpTime0 = Val(ExperimentTxtTime0.Text) + SysLogWrite("Exp_Cas_Krok_0: " & ExpTime0) +END + +PUBLIC SUB ExperimentBtnNastavTime1_Click() + ExpTime1 = Val(ExperimentTxtTime1.Text) + SysLogWrite("Exp_Cas_Krok_1: " & ExpTime1) +END + +PUBLIC SUB BtnSZ12_Click() + ExpZ = 1 +END + +PUBLIC SUB BtnSZ7_Click() + ExpZ = 2 +END + +PUBLIC SUB BtnSZ8_Click() + ExpZ = 3 +END + +PUBLIC SUB BtnSZ11_Click() + ExpZ = 4 +END + +PUBLIC SUB BtnSZ9_Click() + ExpZ = 5 +END + +PUBLIC SUB BtnSZ10_Click() + ExpZ = 6 +END + +PUBLIC SUB ExperimentBtnTime3_Click() + ExpTime3 = Val(ExperimentTxtTime3.Text) + SysLogWrite("Exp_Cas_Krok_OK: " & ExpTime3) +END + +PUBLIC SUB ExperimentNastavBtnTime2_Click() + ExpTime2 = Val(ExperimentTxtTime2.Text) + SysLogWrite("Exp_Cas_Krok_POSLEDNI: " & ExpTime2) +END + +PUBLIC SUB ExperimentBtnTimeout_Click() + ExpTimeout = Val(ExperimentTxtTimeout.Text) + SysLogWrite("Exp_Cas_Timeout: " & ExpTimeout) +END + +PUBLIC SUB ExpTmrTimeout_Timer() + WAIT + ExpTimeoutBuff = ExpTimeoutBuff + 1 +END + +PUBLIC SUB BtnPripoj_Click() + IF SerialPort1.status = 0 THEN + SerialPort1.PortName = TxtCommPort.Text + SerialPort1.Speed = 9600 + SerialPort1.DataBits = 8 + SerialPort1.StopBits = 1 + SerialPort1.FlowControl = FALSE + SerialPort1.Open + FINALLY + CATCH + Message("CHYBA BOXU / PORTU") + ELSE + SerialPort1.Close + ENDIF +END + +PUBLIC SUB SerialPort1_Read() +DIM InByte AS Byte +DIM i AS Integer +DIM x AS String +DIM s AS String + READ #SerialPort1, InByte + WAIT + PotkanAkceBuff = inByte + WAIT +END + +PUBLIC SUB Cekej(InTime AS Integer) + +END + +PUBLIC SUB FMain_KeyPress() +SELECT Key.Code +CASE Key.F1 +Message("TEST") +END SELECT +END + +PUBLIC SUB Button1_Click() + + Form1.Visible = TRUE + +END diff --git a/FMain.form b/FMain.form new file mode 100644 index 0000000..9ce43f1 --- /dev/null +++ b/FMain.form @@ -0,0 +1,674 @@ +# Gambas Form File 2.0 + +{ Form Form + Move(0,0,1246,770) + #(Scaled) = False + Text = ("") + Border = Window.None + FullScreen = True + { BtnKonec Button + Move(1162,7,70,21) + Text = ("KONEC") + } + { TxtSysTime TextBox + Move(1015,7,140,21) + Text = ("") + Alignment = Align.Center + } + { TimerSystime #Timer + #X = 973 + #Y = 7 + Enabled = True + Delay = 100 + } + { TxtSysLog TextArea + Move(714,49,518,301) + Text = ("") + ReadOnly = True + Wrap = True + ScrollBar = Scroll.Vertical + } + { TxtWDT TextBox + Move(630,7,49,21) + Enabled = False + Text = ("WDT") + Alignment = Align.Center + } + { LabelPre Label + Move(14,161,77,35) + ToolTip = ("Otevreni dvirek") + Text = ("OTEVRENI\nDVERI") + Alignment = Align.Center + } + { LabelPre2 Label + Move(175,154,63,63) + ToolTip = ("Ceka se az potkan zacumakuje") + Text = ("CEKANI\nAKCE\nPOTKAN") + Alignment = Align.Center + } + { LabelPreFrm2 Label + Move(245,175,70,14) + Text = ("------------>") + Alignment = Align.Center + } + { LabelPre3 Label + Move(322,154,84,63) + ToolTip = ("Pitko se nastavi do pozice zacumakovani") + Text = ("NASTAVENI\nPITKA") + Alignment = Align.Center + } + { LabelPreFrm3 Label + Move(574,238,28,21) + Text = (" |\n") + Alignment = Align.Center + } + { TxtPreTmrPiti TextBox + Move(553,168,70,28) + Text = ("10") + Alignment = Align.Center + } + { Label1 Label + Move(490,168,56,28) + Text = ("Cas piti") + } + { Label2 Label + Move(637,168,28,28) + Text = ("sec") + } + { BtnPreNastavCasPiti Button + Move(553,203,70,7) + Text = ("NASTAV") + } + { Label3 Label + Move(217,294,77,28) + Text = ("Cas pauzy") + } + { Label4 Label + Move(385,294,28,28) + Text = ("sec") + } + { TxtPreTmrPauza TextBox + Move(301,294,70,28) + Text = ("10") + Alignment = Align.Center + } + { BtnPreNastavCasPauza Button + Move(301,329,70,7) + Text = ("NASTAV") + } + { LabelPreFrm5 Label + Move(441,301,91,14) + Text = ("<--------------------\n") + Alignment = Align.Center + } + { CheckBoxPrePP CheckBox + Move(315,63,105,42) + ToolTip = ("Vypropaguje nastaveni pitek do ciklu") + Text = ("NASTAVENI\nPITEK") + } + { LabelPreFrm1 Label + Move(98,175,70,14) + Text = ("------------>") + Alignment = Align.Center + } + { LabelPreFrm7 Label + Move(413,175,70,14) + Text = ("------------>") + Alignment = Align.Center + } + { LabelPre4 Label + Move(560,273,63,35) + ToolTip = ("Zavreni dveri") + Text = ("ZAVRI\nDVERE") + Alignment = Align.Center + } + { LabelPre5 Label + Move(560,315,63,35) + ToolTip = ("Nastaveni pitek do vychozich pozic") + Text = ("NAVRAT\nPITEK") + Alignment = Align.Center + } + { LabelPreFrm4 Label + Move(133,301,70,14) + Text = ("<------------") + Alignment = Align.Center + } + { LabelPreFrm6 Label + Move(42,203,28,42) + Text = ("|\n|\n") + Alignment = Align.Center + } + { LabelPreFrm8 Label + Move(350,105,28,42) + Text = (" |\n |\n") + Alignment = Align.Center + } + { CheckBoxPrePE CheckBox + Move(21,56,42,21) + ToolTip = ("Povoli pouziti pitka") + Text = ("P1") + } + { CheckBoxPrePE2 CheckBox + Move(21,84,42,21) + ToolTip = ("Povoli pouziti pitka") + Text = ("P2") + } + { CheckBoxPrePE3 CheckBox + Move(21,112,42,21) + ToolTip = ("Povoli pouziti pitka") + Text = ("P3") + } + { CheckBoxPrePE4 CheckBox + Move(77,56,42,21) + ToolTip = ("Povoli pouziti pitka") + Text = ("P4") + } + { CheckBoxPrePE5 CheckBox + Move(77,84,42,21) + ToolTip = ("Povoli pouziti pitka") + Text = ("P5") + } + { CheckBoxPrePE6 CheckBox + Move(77,112,42,21) + ToolTip = ("Povoli pouziti pitka") + Text = ("P6") + } + { CheckBoxPrePP2 CheckBox + Move(154,63,119,28) + ToolTip = ("Zakaze opakovani stejnych pitek 2x po sobe") + Text = ("NEPOAKOVAT") + } + { LabelPreFrm9 Label + Move(119,70,35,14) + Text = ("---") + Alignment = Align.Center + } + { LabelPreFrm10 Label + Move(280,70,35,14) + Text = ("---") + Alignment = Align.Center + } + { BtnPreStart Button + Move(560,70,84,28) + Text = ("START") + } + { BtnPreStop Button + Move(560,105,84,28) + Text = ("STOP") + } + { BtnSZ Button + Move(147,224,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("Z1") + } + { BtnSZ2 Button + Move(189,224,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("Z2") + } + { BtnSZ3 Button + Move(231,224,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("Z3") + } + { BtnSZ4 Button + Move(147,252,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("Z4") + } + { BtnSZ5 Button + Move(189,252,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("Z5") + } + { BtnSZ6 Button + Move(231,252,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("Z6") + } + { TxtPrePocetCiklu TextBox + Move(462,84,84,21) + Text = ("10") + Alignment = Align.Center + } + { BtnPrePocetCikluNastav Button + Move(462,112,84,21) + Text = ("NASTAV") + } + { Label5 Label + Move(462,63,84,14) + Text = ("Pocet ciklu:") + Alignment = Align.Center + } + { BtnPreNastavNastaveniPitek Button + Move(133,105,210,21) + Text = ("NASTAV NASTAVENI PITEK") + } + { TxtPreWDTTmr TextBox + Move(399,7,70,21) + Text = ("0") + Alignment = Align.Center + ReadOnly = True + } + { Label6 Label + Move(322,14,70,14) + Text = ("Casovac") + Alignment = Align.Center + } + { CheckBoxExpVisEn CheckBox + Move(14,378,147,21) + ToolTip = ("Zapne zapojeni\nvisualni stimulace do\nexperimentu") + Text = ("VISUALNI STIMUL") + } + { TxtExpPauza TextBox + Move(28,280,84,21) + Text = ("10") + Alignment = Align.Center + } + { CheckBoxExpPauzaEn CheckBox + Move(14,252,105,21) + ToolTip = ("Zapne pauzu mezi visualni stimulaci\na experimentem.\nZa jakou dobu se zacne smicka\nod zobrazeni stimulacniho obrazce") + Text = ("Pauza:") + } + { BtnExpNastavPauzu Button + Move(28,308,84,21) + Text = ("NASTAV") + } + { Label7 Label + Move(119,280,35,21) + Text = ("sec") + } + { ExperimentPicture PictureBox + Move(14,434,161,126) + Background = &H0000FF& + Stretch = True + Alignment = Align.Center + } + { ExperimentTxtTime0 TextBox + Move(224,448,84,21) + Text = ("10") + Alignment = Align.Center + } + { BtnExperimentNastavTime0 Button + Move(224,476,84,21) + Text = ("NASTAV") + } + { Label8 Label + Move(182,441,35,28) + Text = ("--->") + Alignment = Align.Center + } + { ExperimentCheckZhasniStimul CheckBox + Move(357,434,70,42) + Text = ("Vypni\nstimul") + } + { Label9 Label + Move(315,448,35,14) + Text = ("--->") + Alignment = Align.Center + } + { ExperimentTxtTime1 TextBox + Move(476,448,84,21) + Text = ("10") + Alignment = Align.Center + } + { Label10 Label + Move(434,441,28,28) + Text = ("--->") + } + { ExperimentBtnNastavTime1 Button + Move(476,476,84,14) + Text = ("NASTAV") + } + { CheckBox1 CheckBox + Move(469,427,98,14) + Text = ("ZAPNUTO") + } + { Label12 Label + Move(203,504,112,56) + Text = ("CAS\nZOBRAZENI\nSTIMULU") + Alignment = Align.Center + } + { Label13 Label + Move(476,504,84,56) + Text = ("CAS\nBEZ\nSTIMULU") + Alignment = Align.Center + } + { LabelPre6 Label + Move(609,406,77,35) + ToolTip = ("Otevreni dvirek") + Text = ("OTEVRENI\nDVERI") + Alignment = Align.Center + } + { Label11 Label + Move(574,441,28,28) + Text = ("--->") + } + { ExperimentTxtTimeout TextBox + Move(609,448,77,21) + Text = ("30") + Alignment = Align.Center + } + { ExperimentBtnTimeout Button + Move(609,476,77,21) + Text = ("NASTAV") + } + { Label14 Label + Move(602,504,91,49) + Text = ("CAS\nNA\nREAKCI") + Alignment = Align.Center + } + { LabelPre7 Label + Move(742,427,63,63) + ToolTip = ("Ceka se az potkan zacumakuje") + Text = ("CEKANI\nAKCE\nPOTKAN") + Alignment = Align.Center + } + { Label15 Label + Move(700,441,28,28) + Text = ("--->") + } + { BtnSZ7 Button + Move(728,525,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("S2") + } + { BtnSZ8 Button + Move(728,553,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("S3") + } + { BtnSZ9 Button + Move(777,525,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("S5") + } + { BtnSZ10 Button + Move(777,553,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("S6") + } + { BtnSZ11 Button + Move(777,497,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("S4") + } + { BtnSZ12 Button + Move(728,497,35,21) + ToolTip = ("Simuluje zacumakovani potkana") + Text = ("S1") + } + { Label16 Label + Move(819,448,196,21) + Text = ("-----------------------------------------------") + } + { LabelPreFrm11 Label + Move(994,469,28,21) + Text = (" |\n") + Alignment = Align.Center + } + { LabelPreFrm12 Label + Move(875,469,28,21) + Text = (" |\n") + Alignment = Align.Center + } + { LabelPreFrm13 Label + Move(938,469,28,21) + Text = (" |\n") + Alignment = Align.Center + } + { Label17 Label + Move(868,497,42,21) + Text = ("OK") + Alignment = Align.Center + } + { Label18 Label + Move(938,497,35,21) + Text = ("KO") + Alignment = Align.Center + } + { Label19 Label + Move(973,497,70,21) + Text = ("TIMEOUT") + Alignment = Align.Center + } + { Label20 Label + Move(609,651,70,21) + Text = ("RESET") + Alignment = Align.Center + } + { LabelPreFrm14 Label + Move(994,525,28,140) + Text = ("|\n|\n|\n|\n|\n|\n|\n|\n") + Alignment = Align.Center + } + { Label21 Label + Move(679,651,329,14) + Text = ("--------------------------------------------------------------------------------") + Alignment = Align.Center + } + { LabelPreFrm15 Label + Move(945,518,28,140) + Text = ("|\n|\n|\n|\n|\n|\n|") + Alignment = Align.Center + } + { Label22 Label + Move(91,651,511,21) + Text = ("-----------------------------------------------------------------------------------------------------------------------------") + Alignment = Align.Center + } + { ExperimentChkPausa2 CheckBox + Move(49,567,98,14) + Text = ("ZAPNUTO") + } + { ExperimentTxtTime2 TextBox + Move(49,588,98,21) + Text = ("10") + Alignment = Align.Center + } + { LabelPreFrm16 Label + Move(98,644,14,21) + Text = (" |\n") + Alignment = Align.Center + } + { ExperimentNastavBtnTime2 Button + Move(49,616,98,14) + Text = ("NASTAV") + } + { LabelPre8 Label + Move(847,553,84,35) + ToolTip = ("Pitko se nastavi do pozice zacumakovani") + Text = ("NASTAVENI\nPITKA") + Alignment = Align.Center + } + { LabelPreFrm17 Label + Move(875,525,28,21) + Text = (" |\n") + Alignment = Align.Center + } + { ExperimentTxtTime3 TextBox + Move(840,595,91,21) + Text = ("10") + Alignment = Align.Center + } + { ExperimentBtnTime3 Button + Move(840,623,91,7) + Text = ("NASTAV") + } + { Label23 Label + Move(175,371,35,28) + Font = Font["Bold"] + Text = ("0") + Alignment = Align.Center + } + { ExpTmrTimeout #Timer + #X = 924 + #Y = 7 + } + { TxtTimeout TextBox + Move(553,7,70,21) + Text = ("0") + Alignment = Align.Center + } + { Label24 Label + Move(483,14,56,14) + Text = ("Timeout") + } + { TxtCommPort TextBox + Move(14,7,140,21) + Text = ("/dev/ttyUSB0") + } + { BtnPripoj Button + Move(161,7,140,21) + Text = ("Pripoj BOX") + } + { SerialPort1 #SerialPort + #X = 875 + #Y = 7 + } + { Separator1 Separator + Move(14,35,1218,7) + Foreground = &H000000& + } + { Separator2 Separator + Move(14,357,1218,21) + } + { Separator3 Separator + Move(700,49,7,301) + } + { CheckBox2 CheckBox + Move(700,7,21,21) + Text = ("CheckBox2") + } + { CheckBox3 CheckBox + Move(728,7,21,21) + Text = ("CheckBox3") + } + { CheckBox4 CheckBox + Move(756,7,21,21) + Text = ("CheckBox4") + } + { CheckBox5 CheckBox + Move(784,7,21,21) + Text = ("CheckBox5") + } + { CheckBox6 CheckBox + Move(812,7,21,21) + Text = ("CheckBox6") + } + { CheckBox7 CheckBox + Move(840,7,21,21) + Text = ("CheckBox7") + } + { Label25 Label + Move(161,588,105,56) + Text = ("PAUZA\nMEZI\nZOBRAZENIMI") + Alignment = Align.Center + } + { Label26 Label + Move(1057,434,35,35) + Text = ("1") + Alignment = Align.Center + } + { Label27 Label + Move(1057,476,35,35) + Text = ("3") + Alignment = Align.Center + } + { Label28 Label + Move(1057,518,35,35) + Text = ("3") + Alignment = Align.Center + } + { Label29 Label + Move(1057,560,35,35) + Text = ("4") + Alignment = Align.Center + } + { Label30 Label + Move(1057,602,35,35) + Text = ("5") + Alignment = Align.Center + } + { Label31 Label + Move(1057,644,35,35) + Text = ("6") + Alignment = Align.Center + } + { ExpTxtS1Time TextBox + Move(1099,434,70,28) + Text = ("10") + Alignment = Align.Center + } + { ExpTxtS2Time TextBox + Move(1099,476,70,28) + Text = ("10") + Alignment = Align.Center + } + { ExpTxtS3Time TextBox + Move(1099,518,70,28) + Text = ("10") + Alignment = Align.Center + } + { ExpTxtS4Time TextBox + Move(1099,560,70,28) + Text = ("10") + Alignment = Align.Center + } + { ExpTxtS5Time TextBox + Move(1099,602,70,28) + Text = ("10") + Alignment = Align.Center + } + { ExpTxtS6Time TextBox + Move(1099,644,70,28) + Text = ("10") + Alignment = Align.Center + } + { ExpChkSTime CheckBox + Move(1176,434,56,28) + Text = ("ZAP") + Value = CheckBox.True + } + { ExpChkEnableTiming CheckBox + Move(1064,399,154,28) + Text = ("Zapnout Casovani") + } + { ExpChkSTime2 CheckBox + Move(1176,476,56,28) + Text = ("ZAP") + Value = CheckBox.True + } + { ExpChkSTime3 CheckBox + Move(1176,518,56,28) + Text = ("ZAP") + Value = CheckBox.True + } + { ExpChkSTime4 CheckBox + Move(1176,560,56,28) + Text = ("ZAP") + Value = CheckBox.True + } + { ExpChkSTime5 CheckBox + Move(1176,602,56,28) + Text = ("ZAP") + Value = CheckBox.True + } + { ExpChkSTime6 CheckBox + Move(1176,644,56,28) + Text = ("ZAP") + Value = CheckBox.True + } + { ExpChkNahoda CheckBox + Move(14,406,98,21) + Text = ("NAHODA") + } + { ExpChkNeopakovat CheckBox + Move(119,406,119,21) + Text = ("NEOPAKOVAT") + } + { Button1 Button + Move(721,385,119,28) + Text = ("Button1") + } +} diff --git a/Form1.class b/Form1.class new file mode 100644 index 0000000..3a1d8b4 --- /dev/null +++ b/Form1.class @@ -0,0 +1,14 @@ +' Gambas class file + + +PUBLIC SUB PictureBox1_DblClick() + + + +END + +PUBLIC SUB PictureBox1_MouseDown() + + + +END