mirror of
https://github.com/brmlab/ratbox.git
synced 2025-06-07 17:34:07 +02:00
Podpora pro vice sad stimulu, pipnuti, stimul pri prelearningu, logovani nazvu skriptu
Tlacitko fullscreen uz nikdy neprepina z prelearningu do experimentu
This commit is contained in:
Petr Baudis
parent
f4fad832f2
commit
dce5a33018
2 changed files with 105 additions and 17 deletions
|
|
@ -354,6 +354,13 @@ Dim StatTMP As String
|
|||
StatTMP = "FALSE"
|
||||
Endif
|
||||
Print #SysLogFile, "NASTAVENI_NAHODA_ENABLED" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL"
|
||||
|
||||
If konfigurace_experiment_skript.Length > 0 Then
|
||||
StatTMP = TxtSkriptNazev.Text
|
||||
Else
|
||||
StatTMP = "NULL"
|
||||
Endif
|
||||
Print #SysLogFile, "NASTAVENI_SKRIPT" & ";" & StatTMP & ";" & "NULL" & ";" & "NULL"
|
||||
|
||||
If konfigurace_experiment_neopakovat = True Then
|
||||
StatTMP = "TRUE"
|
||||
|
|
@ -1012,7 +1019,18 @@ Sub UlozDefoult()
|
|||
Print #DefKonfFile, TimeoutOpakReset
|
||||
Print #DefKonfFile, konfigurace_experiment_vypni_stimul_prereset
|
||||
Print #DefKonfFile, konfigurace_experiment_vypni_stimul_poakci
|
||||
|
||||
If ChkPipnout.Value Then
|
||||
Print #DefKonfFile, "True"
|
||||
Else
|
||||
Print #DefKonfFile, "False"
|
||||
Endif
|
||||
Print #DefKonfFile, Str(TxtStimulyNazev.Text)
|
||||
If ChkPreUkazStimul.Value Then
|
||||
Print #DefKonfFile, "True"
|
||||
Else
|
||||
Print #DefKonfFile, "False"
|
||||
Endif
|
||||
Print #DefKonfFile, Str(TxtPreStimulyNazev.Text)
|
||||
Wait
|
||||
DefKonfFile.Close
|
||||
End
|
||||
|
|
@ -1080,7 +1098,18 @@ Sub UlozUserCfg(CfgName As String)
|
|||
Print #DefKonfFile, TimeoutOpakReset
|
||||
Print #DefKonfFile, konfigurace_experiment_vypni_stimul_prereset
|
||||
Print #DefKonfFile, konfigurace_experiment_vypni_stimul_poakci
|
||||
|
||||
If ChkPipnout.Value Then
|
||||
Print #DefKonfFile, "True"
|
||||
Else
|
||||
Print #DefKonfFile, "False"
|
||||
Endif
|
||||
Print #DefKonfFile, Str(TxtStimulyNazev.Text)
|
||||
If ChkPreUkazStimul.Value Then
|
||||
Print #DefKonfFile, "True"
|
||||
Else
|
||||
Print #DefKonfFile, "False"
|
||||
Endif
|
||||
Print #DefKonfFile, Str(TxtPreStimulyNazev.Text)
|
||||
Wait
|
||||
DefKonfFile.Close
|
||||
|
||||
|
|
@ -1150,6 +1179,12 @@ Dim arr_strings As String[]
|
|||
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
|
||||
If (linc = 34) And (lin = "True") Then ChkPipnout.Value = True
|
||||
If (linc = 34) And (lin = "False") Then ChkPipnout.Value = False
|
||||
If linc = 35 Then TxtStimulyNazev.Text = lin
|
||||
If (linc = 36) And (lin = "True") Then ChkPreUkazStimul.Value = True
|
||||
If (linc = 36) And (lin = "False") Then ChkPreUkazStimul.Value = False
|
||||
If linc = 37 Then TxtPreStimulyNazev.Text = lin
|
||||
linc = linc + 1
|
||||
Next
|
||||
SysLogWrite("PARAMETRY_OBNOVENY")
|
||||
|
|
@ -1188,6 +1223,13 @@ Dim exp_souhrn_odpoved As Integer
|
|||
PreStatInit()
|
||||
SysLogWrite("PRELEARNING_START")
|
||||
PreLogWrite("START" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN")
|
||||
If ChkPreUkazStimul.Value Then
|
||||
ChkPreUkazStimul.Background = Color.Green
|
||||
PreLogWrite("ZOBRAZENI_STIMULU" & ";" & "pre" & ";" & "SADA_STIMULU" & ";" & TxtPreStimulyNazev.Text)
|
||||
Form1.stimul("/ratbox/stimuls" & TxtPreStimulyNazev.Text & "/pre.bmp")
|
||||
ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls" & TxtPreStimulyNazev.Text & "/pre.bmp")
|
||||
Endif
|
||||
|
||||
While (tmp_cyklus < konfigurace_pocet_cyklu) And (STOP_State = False)
|
||||
PreLogWrite("CYKLUS" & ";" & tmp_cyklus & ";" & "NULL" & ";" & "NaN")
|
||||
' PRELEARNING - KROK 1 - OTEVRENI DVERI START
|
||||
|
|
@ -1223,6 +1265,13 @@ Dim exp_souhrn_odpoved As Integer
|
|||
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 ChkPreUkazStimul.Value Then
|
||||
ChkPreUkazStimul.Background = Color.Background
|
||||
PreLogWrite("ZHASNUTI_STIMULU" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN")
|
||||
Form1.stimul("/ratbox/stimuls" & TxtPreStimulyNazev.Text & "/clear.bmp")
|
||||
ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls" & TxtPreStimulyNazev.Text & "/clear.bmp")
|
||||
Endif
|
||||
|
||||
If buffer_sloty_aktual_state = 0 Then
|
||||
SysLogWrite("PRELEARNING_TIMEOUT")
|
||||
PreLogWrite("TIMEOUT" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN")
|
||||
|
|
@ -1310,6 +1359,13 @@ Dim exp_souhrn_odpoved As Integer
|
|||
Pauza(3)
|
||||
' [GB2:BCOL] LabelPre5.BackColor = Color.Background
|
||||
LabelPre5.Background = Color.Background
|
||||
|
||||
If ChkPreUkazStimul.Value Then
|
||||
ChkPreUkazStimul.Background = Color.Green
|
||||
PreLogWrite("ZOBRAZENI_STIMULU" & ";" & "pre" & ";" & "SADA_STIMULU" & ";" & TxtPreStimulyNazev.Text)
|
||||
Form1.stimul("/ratbox/stimuls" & TxtPreStimulyNazev.Text & "/pre.bmp")
|
||||
ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls" & TxtPreStimulyNazev.Text & "/pre.bmp")
|
||||
Endif
|
||||
|
||||
If konfigurace_prelearning_pauza = True Then
|
||||
' [GB2:BCOL] ChkPrePauza.BackColor = Color.Green
|
||||
|
|
@ -1390,9 +1446,16 @@ Dim exp_souhrn_odpoved As Integer
|
|||
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")
|
||||
If (ChkPipnout.Value) Then
|
||||
ExpLogWrite("AUDIO_SIGNALIZACE_STIMULU" & ";" & 1 & ";" & "NULL" & ";" & "NaN")
|
||||
Shell ("/bin/echo -e '\\a' >/dev/tty12")
|
||||
Else
|
||||
ExpLogWrite("AUDIO_SIGNALIZACE_STIMULU" & ";" & 0 & ";" & "NULL" & ";" & "NaN")
|
||||
Endif
|
||||
|
||||
ExpLogWrite("ZOBRAZENI_STIMULU" & ";" & tmp_stimul_idx & ";" & "SADA_STIMULU" & ";" & TxtStimulyNazev.Text)
|
||||
ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls" & TxtStimulyNazev.Text & "/" & tmp_stimul_idx & ".bmp")
|
||||
Form1.stimul("/ratbox/stimuls" & TxtStimulyNazev.Text & "/" & tmp_stimul_idx & ".bmp")
|
||||
Wait
|
||||
|
||||
If konfigurace_experiment_casovani = True Then
|
||||
|
|
@ -1457,8 +1520,8 @@ Dim exp_souhrn_odpoved As Integer
|
|||
' [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")
|
||||
Form1.stimul("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
' [GB2:BCOL] ChkZhasniStimul.BackColor = Color.Background
|
||||
ChkZhasniStimul.Background = Color.Background
|
||||
Endif
|
||||
|
|
@ -1500,8 +1563,8 @@ Dim exp_souhrn_odpoved As Integer
|
|||
' [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")
|
||||
Form1.stimul("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
' [GB2:BCOL] ChkZhasniStimulPoAkci.BackColor = Color.Background
|
||||
ChkZhasniStimulPoAkci.Background = Color.Background
|
||||
Endif
|
||||
|
|
@ -1551,8 +1614,8 @@ Dim exp_souhrn_odpoved As Integer
|
|||
' [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")
|
||||
Form1.stimul("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
' [GB2:BCOL] ChkZhasniStimulPreReset.BackColor = Color.Background
|
||||
ChkZhasniStimulPreReset.Background = Color.Background
|
||||
Endif
|
||||
|
|
@ -1575,8 +1638,8 @@ Dim exp_souhrn_odpoved As Integer
|
|||
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")
|
||||
Form1.stimul("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
ExperimentPicture.Picture = Picture.Load("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
ExpLogWrite("KONEC" & ";" & "NaN" & ";" & "NULL" & ";" & "NaN")
|
||||
SysLogWrite("EXPERIMENT_KONEC")
|
||||
ExpStatWrite()
|
||||
|
|
@ -1609,11 +1672,11 @@ Public Sub BtnPreStop_Click()
|
|||
End
|
||||
|
||||
Public Sub BtnExpFull_Click()
|
||||
If mod_idx = 0 Then BtnMod_Click()
|
||||
' If mod_idx = 0 Then BtnMod_Click()
|
||||
FMain.Visible = False
|
||||
Form1.FullScreen = True
|
||||
Form1.Visible = True
|
||||
Form1.stimul("/ratbox/stimuls/clear.bmp")
|
||||
Form1.stimul("/ratbox/stimuls" & TxtStimulyNazev.Text & "/clear.bmp")
|
||||
End
|
||||
|
||||
Public Sub BtnKonfUloz_Click()
|
||||
|
|
@ -1788,6 +1851,12 @@ Dim arr_strings As String[]
|
|||
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
|
||||
If (linc = 34) And (lin = "True") Then ChkPipnout.Value = True
|
||||
If (linc = 34) And (lin = "False") Then ChkPipnout.Value = False
|
||||
If linc = 35 Then TxtStimulyNazev.Text = lin
|
||||
If (linc = 36) And (lin = "True") Then ChkPreUkazStimul.Value = True
|
||||
If (linc = 36) And (lin = "False") Then ChkPreUkazStimul.Value = False
|
||||
If linc = 37 Then TxtPreStimulyNazev.Text = lin
|
||||
linc = linc + 1
|
||||
Next
|
||||
SysLogWrite("PARAMETRY_PROFILU_NASTAVENY")
|
||||
|
|
|
|||
|
|
@ -495,11 +495,11 @@
|
|||
Value = CheckBox.True
|
||||
}
|
||||
{ ChkExpNahoda CheckBox
|
||||
Move(16,392,98,21)
|
||||
Move(21,392,98,21)
|
||||
Text = ("NAHODNE")
|
||||
}
|
||||
{ ChkExpNeopakovat CheckBox
|
||||
Move(16,368,128,24)
|
||||
Move(21,371,128,24)
|
||||
Text = ("NEOPAKOVAT")
|
||||
}
|
||||
{ BtnOpenDor Button
|
||||
|
|
@ -756,4 +756,23 @@
|
|||
Move(216,392,175,21)
|
||||
Text = ("NAHRAJ SKRIPT")
|
||||
}
|
||||
{ TxtStimulyNazev TextBox
|
||||
Move(217,602,175,21)
|
||||
}
|
||||
{ Label55 Label
|
||||
Move(217,567,175,21)
|
||||
Text = ("SADA STIMULU:")
|
||||
Alignment = Align.Center
|
||||
}
|
||||
{ ChkPipnout CheckBox
|
||||
Move(21,413,98,21)
|
||||
Text = ("PIPNOUT")
|
||||
}
|
||||
{ ChkPreUkazStimul CheckBox
|
||||
Move(420,238,168,21)
|
||||
Text = ("UKAZ STIMUL, SADA:")
|
||||
}
|
||||
{ TxtPreStimulyNazev TextBox
|
||||
Move(420,273,175,21)
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue