diff --git a/.icon.png b/.icon.png index f66c374..8748600 100644 Binary files a/.icon.png and b/.icon.png differ diff --git a/.project b/.project index 6703fa7..3f85f58 100644 --- a/.project +++ b/.project @@ -1,14 +1,13 @@ -# Gambas Project File 2.0 -# Compiled with Gambas 2.23.1 +# Gambas Project File 3.0 +# Compiled with Gambas 3.1.1 Title=RatBox Startup=FMain -Version=0.0.9 -Library=gb.gui -Library=gb.form -Library=gb.net +Version=0.0.10 +Component=gb.gui +Component=gb.form +Component=gb.net TabSize=2 -ExecPath=/home/tomsuch/Desktop/RatBox.gambas -SourcePath=/home/tomsuch/Desktop Maintainer=tomsuch Address=tomsuch@IceSpirit License=General Public Licence +Packager=1 diff --git a/.settings b/.settings index b404bed..38e4f5e 100644 --- a/.settings +++ b/.settings @@ -15,11 +15,11 @@ SearchComment=False SearchString=True [OpenFile] -File[1]="FMain.form" -File[2]="FMain.class:1393.12" +File[1]=".src/FMain.form" Active=2 -File[3]="Form1.form" -File[4]="Form1.class:0.2" +File[2]=".src/FMain.class:1381.71" +File[3]=".src/Form1.form" +File[4]=".src/Form1.class:14.3" Count=4 [Watches] diff --git a/.src/FMain.class b/.src/FMain.class new file mode 100644 index 0000000..6ab23ba --- /dev/null +++ b/.src/FMain.class @@ -0,0 +1,1825 @@ +' 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 + ' [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