brmlab/ratbox
4
0
Fork 0
mirror of https://github.com/brmlab/ratbox.git synced 2025-06-07 17:34:07 +02:00
Code Issues Projects Releases Packages Wiki Activity
ratbox/FMain.class
Tomas Suchan ec9deb970d Uplne nova verze, vsechno jinak... 
Asi uz i funkcni.....
2011-11-02 02:25:54 +01:00

1213 lines
46 KiB
Text
Raw Blame History

' 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_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 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_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 SUB Form_Open()
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/last_experiment.log") = TRUE THEN
SysLogFile = OPEN "/ratbox/log/last_experiment.log" FOR APPEND
PRINT #SysLogFile, Str(tmp_mils) & ";" & Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & ";" & udalost
Form1.loginfo(Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss") & "_" & udalost)
SysLogFile.Close
ENDIF
END
PUBLIC SUB ExpLogInit()
DIM SysLogFile AS File
SysLogWrite("GENERUJI_LOG_EXPERIMENTU")
IF Exist("/ratbox/log/last_experiment.log") = TRUE THEN
SHELL ("mv /ratbox/log/last_experiment.log /ratbox/log/last_experiment.log.backup")
SHELL ("touch /ratbox/log/last_experiment.log")
ELSE
SHELL ("touch /ratbox/log/last_experiment.log")
ENDIF
SysLogWrite("ZAPISUJI_HLAVICKU_LOGU_EXPERIMENTU")
SysLogFile = OPEN "/ratbox/log/last_experiment.log" FOR APPEND
PRINT #SysLogFile, Format$(Now, "yyyy_mm_dd") & "_" & Format$(Now, "hh:nn:ss")
PRINT #SysLogFile, TxtExperimentID.Text
PRINT #SysLogFile, TxtPotkanID.Text
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 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")
UplatniParametry()
VypisParametry()
SysLogWrite("PARAMETRY_UPLATNENY")
SysLogWrite("UKLADAM_ZAKLADNI_KONFIGURACI")
UlozDefoult()
SysLogWrite("ZAKLADNI_KONFIGURACE_ULOZENA")
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")
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_CIKLUS: " & 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()
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_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)
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)
WAIT
DefKonfFile.Close
END
SUB UlozUserCfg(CfgName AS String)
DIM DefKonfFile AS File
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
Message(Error.Text)
Message(Error.Text)
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)
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"
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()
SysLogWrite("UPLATNUJI_PARAMETRY")
UplatniParametry()
VypisParametry()
SysLogWrite("PARAMETRY_UPLATNENY")
STOP_State = FALSE
tmp_cyklus = 0
IF mod_idx = 0 THEN
SysLogWrite("PRELEARNING_START")
WHILE (tmp_cyklus < konfigurace_pocet_cyklu) AND (STOP_State = FALSE)
' PRELEARNING - KROK 1 - OTEVRENI DVERI START
LabelPre.BackColor = Color.Green
AparaturaOtevriDvere()
Pauza(3)
LabelPre.BackColor = Color.Background
' 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))
IF buffer_sloty_aktual_state = 0 THEN
SysLogWrite("PRELEARNING_TIMEOUT")
GOTO prelearning_reset
ENDIF
IF (buffer_sloty_last_state = buffer_sloty_aktual_state) AND (konfigurace_prelearning_neopakovat = TRUE) THEN
SysLogWrite("PRELEARNING_POTKAN_OPAKOVANI")
LabelPre2.BackColor = Color.Red
Pauza(1)
LabelPre2.BackColor = Color.Background
buffer_sloty_aktual_state = 0
GOTO cekani_potkan_akce
ENDIF
IF (buffer_sloty_aktual_state = 1) AND (konfigurace_experiment_slot_enable_1 = FALSE) THEN
SysLogWrite("PRELEARNING_NEPOVOLENY_SLOT_" & Str(buffer_sloty_aktual_state))
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))
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))
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))
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))
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))
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
Label1.BackColor = Color.Green
Pauza(konfigurace_prelearning_cas_piti)
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
WEND
tmp_cyklus = 0
stav_sloty = 0
SysLogWrite("PRELEARNING_KONEC")
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)
ExpLogWrite("EXPERIMENT_START")
SysLogWrite("EXPERIMENT_START")
WHILE (tmp_cyklus < konfigurace_pocet_cyklu) AND (STOP_State = FALSE)
TimerExperimentMils.Enabled = TRUE
exp_genstim:
ExpLogWrite("EXPERIMENT_ZACATEK_CYKLU: " & tmp_cyklus)
IF konfigurace_experiment_nahoda = TRUE THEN
tmp_stimul_idx = Rnd(1, 7)
ExpLogWrite("EXPERIMENT_NAHODNY_STIMUL: " & tmp_stimul_idx)
ELSE
IF tmp_stimul_idx = 6 THEN tmp_stimul_idx = 0
tmp_stimul_idx = tmp_stimul_idx + 1
ExpLogWrite("EXPERIMENT_LINEARNI_VYBER_STIMULU: " & tmp_stimul_idx)
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
ExpLogWrite("EXPERIMENT_ZOBRAZENI_STIMULU: " & tmp_stimul_idx)
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("EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_casovani_s1)
Label26.BackColor = Color.Green
Pauza(konfigurace_experiment_casovani_s1)
Label26.BackColor = Color.Background
ENDIF
IF tmp_stimul_idx = 2 THEN
ExpLogWrite("EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_casovani_s2)
Label27.BackColor = Color.Green
Pauza(konfigurace_experiment_casovani_s2)
Label27.BackColor = Color.Background
ENDIF
IF tmp_stimul_idx = 3 THEN
ExpLogWrite("EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_casovani_s3)
Label28.BackColor = Color.Green
Pauza(konfigurace_experiment_casovani_s3)
Label28.BackColor = Color.Background
ENDIF
IF tmp_stimul_idx = 4 THEN
ExpLogWrite("EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_casovani_s4)
Label29.BackColor = Color.Green
Pauza(konfigurace_experiment_casovani_s4)
Label29.BackColor = Color.Background
ENDIF
IF tmp_stimul_idx = 5 THEN
ExpLogWrite("EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_casovani_s5)
Label30.BackColor = Color.Green
Pauza(konfigurace_experiment_casovani_s5)
Label30.BackColor = Color.Background
ENDIF
IF tmp_stimul_idx = 6 THEN
ExpLogWrite("EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_casovani_s6)
Label31.BackColor = Color.Green
Pauza(konfigurace_experiment_casovani_s6)
Label31.BackColor = Color.Background
ENDIF
ELSE
Label12.BackColor = Color.Green
ExpLogWrite("EXPERIMENT_CAS_ZOBRAZENI_STIMULU: " & konfigurace_experiment_cas_zobrazeni_stimulu)
Pauza(konfigurace_experiment_cas_zobrazeni_stimulu)
Label12.BackColor = Color.Background
ENDIF
IF konfigurace_experiment_vypni_stimul = TRUE THEN
ChkZhasniStimul.BackColor = Color.Green
ExpLogWrite("EXPERIMENT_ZHASNUTI_STIMULU")
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("EXPERIMENT_CAS_BEZ_STIMULU: " & konfigurace_experiment_cas_zhasnuteho_stimulu)
Pauza(konfigurace_experiment_cas_zhasnuteho_stimulu)
Label13.BackColor = Color.Background
ENDIF
ExpLogWrite("EXPERIMENT_OTEVRENI_DVERI")
LabelPre6.BackColor = Color.Green
AparaturaOtevriDvere()
Pauza(3)
ExpLogWrite("EXPERIMENT_DVERE_OTEVRENY")
LabelPre6.BackColor = Color.Background
LabelPre7.BackColor = Color.Green
stav_sloty = 0
InputBlock = FALSE
ExpLogWrite("EXPERIMENT_CEKANI_NA_REAKCI_POTKANA")
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 buffer_sloty_aktual_state = 0 THEN
ExpLogWrite("EXPERIMENT_TIMEOUT")
GOTO exp_reset
ENDIF
ExpLogWrite("EXPERIMENT_REAKCE_POTKANA: " & buffer_sloty_aktual_state)
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("EXPERIMENT_NASTAVUJI_PITKO: " & tmp_stimul_idx)
LabelPre8.BackColor = Color.Green
AparaturaNastavPitko(tmp_stimul_idx)
Pauza(3)
LabelPre8.BackColor = Color.Background
ExpLogWrite("EXPERIMENT_PAUZA_NA_PITI: " & konfigurace_experiment_cas_piti)
Label36.BackColor = Color.Green
Pauza(konfigurace_experiment_cas_piti)
Label36.BackColor = Color.Background
ENDIF
exp_reset:
ExpLogWrite("EXPERIMENT_RESET_APARATURY")
Label20.BackColor = Color.Green
AparaturaReset()
Pauza(3)
Label20.BackColor = Color.Background
IF konfigurace_experiment_cas_dalsi_ciklus > 0 THEN
ExpLogWrite("EXPERIMENT_PAUZA_PRED_DALSIM_CYKLEM: " & konfigurace_experiment_cas_dalsi_ciklus)
Label25.BackColor = Color.Green
Pauza(konfigurace_experiment_cas_dalsi_ciklus)
Label25.BackColor = Color.Background
ENDIF
ExpLogWrite("EXPERIMENT_KONEC_CYKLU: " & tmp_cyklus)
tmp_cyklus = tmp_cyklus + 1
WEND
ExpLogWrite("EXPERIMENT_KONEC")
SysLogWrite("EXPERIMENT_KONEC")
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"
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
Reference in a new issue View git blame Copy permalink