brmlab/ratbox
4
0
Fork 0
mirror of https://github.com/brmlab/ratbox.git synced 2025-06-08 01:44:35 +02:00
Code Issues Projects Releases Packages Wiki Activity

Conversion gambas2 -> gambas3

Browse source
This commit is contained in:
Petr Baudis 2012-09-15 14:47:00 +02:00
parent 244e19ae5a
commit 57c0ea70d9
10 changed files with 2075 additions and 2014 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
.icon.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 6.6 KiB

After

Width:  |  Height:  |  Size: 3.7 KiB

Before After
Before After

15
.project
View file

@ -1,14 +1,13 @@
# Gambas Project File 2.0 # Gambas Project File 3.0
# Compiled with Gambas 2.23.1 # Compiled with Gambas 3.1.1
Title=RatBox Title=RatBox
Startup=FMain Startup=FMain
Version=0.0.9 Version=0.0.10
Library=gb.gui Component=gb.gui
Library=gb.form Component=gb.form
Library=gb.net Component=gb.net
TabSize=2 TabSize=2
ExecPath=/home/tomsuch/Desktop/RatBox.gambas
SourcePath=/home/tomsuch/Desktop
Maintainer=tomsuch Maintainer=tomsuch
Address=tomsuch@IceSpirit Address=tomsuch@IceSpirit
License=General Public Licence License=General Public Licence
Packager=1

8
.settings
View file

@ -15,11 +15,11 @@ SearchComment=False
SearchString=True SearchString=True
[OpenFile] [OpenFile]
File[1]="FMain.form" File[1]=".src/FMain.form"
File[2]="FMain.class:1393.12"
Active=2 Active=2
File[3]="Form1.form" File[2]=".src/FMain.class:1381.71"
File[4]="Form1.class:0.2" File[3]=".src/Form1.form"
File[4]=".src/Form1.class:14.3"
Count=4 Count=4
[Watches] [Watches]

1825
.src/FMain.class Normal file
View file

File diff suppressed because it is too large Load diff

359
FMain.form → .src/FMain.form
View file

@ -1,763 +1,752 @@
# Gambas Form File 2.0 # Gambas Form File 3.0
{ Form Form
{ Form Form
Move(0,0,1400,798) Move(0,0,1400,798)
#(Scaled) = False #Scaled = False
Text = ("") Border = False
Border = Window.None
FullScreen = True FullScreen = True
{ BtnKonec Button { BtnKonec Button
Move(1162,7,70,21) Move(1162,7,70,21)
Text = ("KONEC") Text = ("KONEC")
} }
{ TxtSysTime TextBox { TxtSysTime TextBox
Move(1015,7,140,21) Move(1015,7,140,21)
Text = ("")
Alignment = Align.Center Alignment = Align.Center
} }
{ TimerSystime #Timer { TimerSystime #Timer
#X = 644 #MoveScaled(0,0)
#Y = 315
Enabled = True Enabled = True
Delay = 250 Delay = 250
} }
{ TxtSysLog TextArea { TxtSysLog TextArea
Move(14,49,679,112) Move(14,49,679,112)
Text = ("")
ReadOnly = True ReadOnly = True
Wrap = True Wrap = True
ScrollBar = Scroll.Vertical ScrollBar = Scroll.Vertical
} }
{ TxtWDT TextBox { TxtWDT TextBox
Move(959,7,49,21) Move(959,7,49,21)
Enabled = False Enabled = False
Text = ("WDT") Text = ("WDT")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPre Label { LabelPre Label
Move(35,182,77,35) Move(35,182,77,35)
ToolTip = ("Otevreni dvirek") ToolTip = ("Otevreni dvirek")
Text = ("OTEVRENI\nDVERI") Text = ("OTEVRENI\nDVERI")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPre2 Label { LabelPre2 Label
Move(196,175,63,63) Move(196,175,63,63)
ToolTip = ("Ceka se az potkan zacumakuje") ToolTip = ("Ceka se az potkan zacumakuje")
Text = ("CEKANI\nAKCE\nPOTKAN") Text = ("CEKANI\nAKCE\nPOTKAN")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm2 Label { LabelPreFrm2 Label
Move(266,196,70,14) Move(266,196,70,14)
Text = ("------------>") Text = ("------------>")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPre3 Label { LabelPre3 Label
Move(343,175,84,63) Move(343,175,84,63)
ToolTip = ("Pitko se nastavi do pozice zacumakovani") ToolTip = ("Pitko se nastavi do pozice zacumakovani")
Text = ("NASTAVENI\nPITKA") Text = ("NASTAVENI\nPITKA")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm3 Label { LabelPreFrm3 Label
Move(602,231,28,63) Move(602,231,28,63)
Text = (" |\n |\n |\n") Text = (" |\n |\n |\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ TxtPreCasPiti TextBox { TxtPreCasPiti TextBox
Move(574,189,70,28) Move(574,189,70,28)
Text = ("10") Text = ("10")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label1 Label { Label1 Label
Move(511,189,56,28) Move(511,189,56,28)
Text = ("Cas piti") Text = ("Cas piti")
} }
{ Label2 Label { Label2 Label
Move(658,189,28,28) Move(658,189,28,28)
Text = ("sec") Text = ("sec")
} }
{ LabelPreFrm5 Label { LabelPreFrm5 Label
Move(441,301,189,14) Move(441,301,189,14)
Text = ("<-----------------------------------------\n") Text = ("<-----------------------------------------\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm1 Label { LabelPreFrm1 Label
Move(119,196,70,14) Move(119,196,70,14)
Text = ("------------>") Text = ("------------>")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm7 Label { LabelPreFrm7 Label
Move(434,196,70,14) Move(434,196,70,14)
Text = ("------------>") Text = ("------------>")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPre5 Label { LabelPre5 Label
Move(371,294,63,35) Move(371,294,63,35)
ToolTip = ("Nastaveni pitek do vychozich pozic") ToolTip = ("Nastaveni pitek do vychozich pozic")
Text = ("RESET") Text = ("RESET")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm6 Label { LabelPreFrm6 Label
Move(63,224,28,42) Move(63,224,28,42)
Text = ("|\n|\n") Text = ("|\n|\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ ChkPreNeopakovat CheckBox { ChkPreNeopakovat CheckBox
Move(168,238,119,28) Move(168,238,119,28)
ToolTip = ("Zakaze opakovani stejnych pitek 2x po sobe") ToolTip = ("Zakaze opakovani stejnych pitek 2x po sobe")
Text = ("NEOPAKOVAT") Text = ("NEOPAKOVAT")
} }
{ BtnPreStart Button { BtnPreStart Button
Move(910,315,70,21) Move(910,315,70,21)
Text = ("START") Text = ("START")
} }
{ BtnPreStop Button { BtnPreStop Button
Move(994,315,70,21) Move(994,315,70,21)
Text = ("STOP") Text = ("STOP")
} }
{ BtnSZ1 Button { BtnSZ1 Button
Move(812,154,28,21) Move(812,154,28,21)
ToolTip = ("Simuluje zacumakovani potkana") ToolTip = ("Simuluje zacumakovani potkana")
Text = ("S1") Text = ("S1")
} }
{ BtnSZ2 Button { BtnSZ2 Button
Move(812,182,28,21) Move(812,182,28,21)
ToolTip = ("Simuluje zacumakovani potkana") ToolTip = ("Simuluje zacumakovani potkana")
Text = ("S2") Text = ("S2")
} }
{ BtnSZ3 Button { BtnSZ3 Button
Move(812,210,28,21) Move(812,210,28,21)
ToolTip = ("Simuluje zacumakovani potkana") ToolTip = ("Simuluje zacumakovani potkana")
Text = ("S3") Text = ("S3")
} }
{ BtnSZ4 Button { BtnSZ4 Button
Move(847,154,28,21) Move(847,154,28,21)
ToolTip = ("Simuluje zacumakovani potkana") ToolTip = ("Simuluje zacumakovani potkana")
Text = ("S4") Text = ("S4")
} }
{ BtnSZ5 Button { BtnSZ5 Button
Move(847,182,28,21) Move(847,182,28,21)
ToolTip = ("Simuluje zacumakovani potkana") ToolTip = ("Simuluje zacumakovani potkana")
Text = ("S5") Text = ("S5")
} }
{ BtnSZ6 Button { BtnSZ6 Button
Move(847,210,28,21) Move(847,210,28,21)
ToolTip = ("Simuluje zacumakovani potkana") ToolTip = ("Simuluje zacumakovani potkana")
Text = ("S6") Text = ("S6")
} }
{ TxtPocetCiklu TextBox { TxtPocetCiklu TextBox
Move(714,287,84,21) Move(714,287,84,21)
Text = ("10") Text = ("10")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label5 Label { Label5 Label
Move(714,245,84,21) Move(714,245,84,21)
Text = ("Pocet cyklu:") Text = ("Pocet cyklu:")
Alignment = Align.Center Alignment = Align.Center
} }
{ TxtInfoCasovac TextBox { TxtInfoCasovac TextBox
Move(385,7,70,21) Move(385,7,70,21)
Text = ("0") Text = ("0")
Alignment = Align.Center Alignment = Align.Center
ReadOnly = True ReadOnly = True
} }
{ Label6 Label { Label6 Label
Move(315,7,63,21) Move(315,7,63,21)
Text = ("Casovac") Text = ("Casovac")
Alignment = Align.Center Alignment = Align.Center
} }
{ TxtPrePauza TextBox { TxtPrePauza TextBox
Move(35,301,84,21) Move(35,301,84,21)
Text = ("10") Text = ("10")
Alignment = Align.Center Alignment = Align.Center
} }
{ ChkPrePauza CheckBox { ChkPrePauza CheckBox
Move(35,273,105,21) Move(35,273,105,21)
ToolTip = ("Zapne pauzu mezi visualni stimulaci\na experimentem.\nZa jakou dobu se zacne smicka\nod zobrazeni stimulacniho obrazce") ToolTip = ("Zapne pauzu mezi visualni stimulaci\na experimentem.\nZa jakou dobu se zacne smicka\nod zobrazeni stimulacniho obrazce")
Text = ("Pauza:") Text = ("Pauza:")
} }
{ Label7 Label { Label7 Label
Move(126,301,28,21) Move(126,301,28,21)
Text = ("sec") Text = ("sec")
} }
{ ExperimentPicture PictureBox { ExperimentPicture PictureBox
Move(14,434,161,126) Move(14,434,161,126)
Background = &H0000FF& Background = &H0000FF&
Stretch = True Stretch = True
Alignment = Align.Center Alignment = Align.Center
} }
{ ExperimentTxtTime0 TextBox { ExperimentTxtTime0 TextBox
Move(217,448,63,21) Move(217,448,63,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label8 Label { Label8 Label
Move(182,441,35,28) Move(182,441,35,28)
Text = ("--->") Text = ("--->")
Alignment = Align.Center Alignment = Align.Center
} }
{ ChkZhasniStimul CheckBox { ChkZhasniStimul CheckBox
Move(357,434,70,42) Move(357,434,70,42)
Text = ("Vypni\nstimul") Text = ("Vypni\nstimul")
} }
{ Label9 Label { Label9 Label
Move(315,448,35,14) Move(315,448,35,14)
Text = ("--->") Text = ("--->")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExperimentTxtTime1 TextBox { ExperimentTxtTime1 TextBox
Move(476,448,63,21) Move(476,448,63,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label10 Label { Label10 Label
Move(434,441,28,28) Move(434,441,28,28)
Text = ("--->") Text = ("--->")
} }
{ ChkVypStimulPauza CheckBox { ChkVypStimulPauza CheckBox
Move(469,427,98,14) Move(469,427,98,14)
Text = ("ZAPNUTO") Text = ("ZAPNUTO")
} }
{ Label12 Label { Label12 Label
Move(210,483,112,56) Move(210,483,112,56)
Text = ("CAS\nZOBRAZENI\nSTIMULU") Text = ("CAS\nZOBRAZENI\nSTIMULU")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label13 Label { Label13 Label
Move(476,483,84,56) Move(476,483,84,56)
Text = ("CAS\nBEZ\nSTIMULU") Text = ("CAS\nBEZ\nSTIMULU")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPre6 Label { LabelPre6 Label
Move(602,441,77,35) Move(602,441,77,35)
ToolTip = ("Otevreni dvirek") ToolTip = ("Otevreni dvirek")
Text = ("OTEVRENI\nDVERI") Text = ("OTEVRENI\nDVERI")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label11 Label { Label11 Label
Move(574,448,28,28) Move(574,448,28,28)
Text = ("--->") Text = ("--->")
} }
{ TxtTimeout TextBox { TxtTimeout TextBox
Move(819,287,77,21) Move(819,287,77,21)
Text = ("30") Text = ("30")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label14 Label { Label14 Label
Move(798,245,112,21) Move(798,245,112,21)
Text = ("Cas na reakci:") Text = ("Cas na reakci:")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPre7 Label { LabelPre7 Label
Move(714,427,63,63) Move(714,427,63,63)
ToolTip = ("Ceka se az potkan zacumakuje") ToolTip = ("Ceka se az potkan zacumakuje")
Text = ("CEKANI\nAKCE\nPOTKAN") Text = ("CEKANI\nAKCE\nPOTKAN")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label15 Label { Label15 Label
Move(679,448,28,28) Move(679,448,28,28)
Text = ("--->") Text = ("--->")
} }
{ Label16 Label { Label16 Label
Move(882,448,133,21) Move(882,448,133,21)
Text = ("-----------------------------------------------") Text = ("-----------------------------------------------")
} }
{ LabelPreFrm11 Label { LabelPreFrm11 Label
Move(994,469,28,21) Move(994,469,28,21)
Text = (" |\n") Text = (" |\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm12 Label { LabelPreFrm12 Label
Move(875,469,28,21) Move(875,469,28,21)
Text = (" |\n") Text = (" |\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm13 Label { LabelPreFrm13 Label
Move(938,469,28,21) Move(938,469,28,21)
Text = (" |\n") Text = (" |\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label17 Label { Label17 Label
Move(868,497,42,21) Move(868,497,42,21)
Text = ("OK") Text = ("OK")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label18 Label { Label18 Label
Move(938,497,35,21) Move(938,497,35,21)
Text = ("KO") Text = ("KO")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label19 Label { Label19 Label
Move(973,497,70,21) Move(973,497,70,21)
Text = ("TIMEOUT") Text = ("TIMEOUT")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label20 Label { Label20 Label
Move(511,651,70,21) Move(511,651,70,21)
Text = ("RESET") Text = ("RESET")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm14 Label { LabelPreFrm14 Label
Move(994,525,28,140) Move(994,525,28,140)
Text = ("|\n|\n|\n|\n|\n|\n|\n|\n") Text = ("|\n|\n|\n|\n|\n|\n|\n|\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label21 Label { Label21 Label
Move(749,651,259,14) Move(749,651,259,14)
Text = ("-------------------------------------------------------------------------------------------------") Text = ("-------------------------------------------------------------------------------------------------")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm15 Label { LabelPreFrm15 Label
Move(945,518,28,140) Move(945,518,28,140)
Text = ("|\n|\n|\n|\n|\n|\n|") Text = ("|\n|\n|\n|\n|\n|\n|")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label22 Label { Label22 Label
Move(161,651,336,21) Move(161,651,336,21)
Text = ("----------------------------------------------------------------------------------------------------------") Text = ("----------------------------------------------------------------------------------------------------------")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExperimentTxtTime2 TextBox { ExperimentTxtTime2 TextBox
Move(42,602,84,21) Move(42,602,84,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPre8 Label { LabelPre8 Label
Move(847,553,84,35) Move(847,553,84,35)
ToolTip = ("Pitko se nastavi do pozice zacumakovani") ToolTip = ("Pitko se nastavi do pozice zacumakovani")
Text = ("NASTAVENI\nPITKA") Text = ("NASTAVENI\nPITKA")
Alignment = Align.Center Alignment = Align.Center
} }
{ LabelPreFrm17 Label { LabelPreFrm17 Label
Move(875,525,28,21) Move(875,525,28,21)
Text = (" |\n") Text = (" |\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExperimentTxtTime3 TextBox { ExperimentTxtTime3 TextBox
Move(840,595,70,21) Move(840,595,70,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label23 Label { Label23 Label
Move(126,378,63,49) Move(126,378,63,49)
Font = Font["Bold,+2"] Font = Font["Bold,+2"]
Text = ("0") Text = ("0")
Alignment = Align.Center Alignment = Align.Center
} }
{ TmrCasovac #Timer { TmrCasovac #Timer
#X = 602 #MoveScaled(1,1)
#Y = 315
} }
{ TxtInfoTimeout TextBox { TxtInfoTimeout TextBox
Move(532,7,70,21) Move(532,7,70,21)
Text = ("0") Text = ("0")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label24 Label { Label24 Label
Move(469,7,56,21) Move(469,7,56,21)
Text = ("Timeout") Text = ("Timeout")
} }
{ TxtCommPort TextBox { TxtCommPort TextBox
Move(14,7,140,21) Move(14,7,140,21)
Text = ("/dev/ttyUSB0") Text = ("/dev/ttyUSB0")
} }
{ BtnPripoj Button { BtnPripoj Button
Move(161,7,147,21) Move(161,7,147,21)
Text = ("Pripoj / Odpoj") Text = ("Pripoj / Odpoj")
} }
{ SerialPort1 #SerialPort { SerialPort1 #SerialPort
#X = 518 #MoveScaled(2,2)
#Y = 315
} }
{ Separator1 Separator { Separator1 Separator
Move(14,35,1218,7) Move(14,35,1218,7)
Foreground = &H000000& Foreground = &H000000&
} }
{ Separator2 Separator { Separator2 Separator
Move(7,357,1218,21) Move(7,357,1218,21)
} }
{ Separator3 Separator { Separator3 Separator
Move(700,49,7,301) Move(700,49,7,301)
} }
{ CheckBox2 CheckBox { CheckBox2 CheckBox
Move(770,7,21,21) Move(770,7,21,21)
Text = ("CheckBox2") Text = ("CheckBox2")
} }
{ CheckBox3 CheckBox { CheckBox3 CheckBox
Move(798,7,21,21) Move(798,7,21,21)
Text = ("CheckBox3") Text = ("CheckBox3")
} }
{ CheckBox4 CheckBox { CheckBox4 CheckBox
Move(826,7,21,21) Move(826,7,21,21)
Text = ("CheckBox4") Text = ("CheckBox4")
} }
{ CheckBox5 CheckBox { CheckBox5 CheckBox
Move(854,7,21,21) Move(854,7,21,21)
Text = ("CheckBox5") Text = ("CheckBox5")
} }
{ CheckBox6 CheckBox { CheckBox6 CheckBox
Move(882,7,21,21) Move(882,7,21,21)
Text = ("CheckBox6") Text = ("CheckBox6")
} }
{ CheckBox7 CheckBox { CheckBox7 CheckBox
Move(910,7,21,21) Move(910,7,21,21)
Text = ("CheckBox7") Text = ("CheckBox7")
} }
{ Label25 Label { Label25 Label
Move(42,630,105,56) Move(42,630,105,56)
Text = ("PAUZA\nMEZI\nZOBRAZENIMI") Text = ("PAUZA\nMEZI\nZOBRAZENIMI")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label26 Label { Label26 Label
Move(1043,462,35,21) Move(1043,462,35,21)
Text = ("1") Text = ("1")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label27 Label { Label27 Label
Move(1043,497,35,21) Move(1043,497,35,21)
Text = ("2") Text = ("2")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label28 Label { Label28 Label
Move(1043,532,35,21) Move(1043,532,35,21)
Text = ("3") Text = ("3")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label29 Label { Label29 Label
Move(1043,567,35,21) Move(1043,567,35,21)
Text = ("4") Text = ("4")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label30 Label { Label30 Label
Move(1043,602,35,21) Move(1043,602,35,21)
Text = ("5") Text = ("5")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label31 Label { Label31 Label
Move(1043,637,35,21) Move(1043,637,35,21)
Text = ("6") Text = ("6")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExpTxtS1Time TextBox { ExpTxtS1Time TextBox
Move(1078,462,70,21) Move(1078,462,70,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExpTxtS2Time TextBox { ExpTxtS2Time TextBox
Move(1078,497,70,21) Move(1078,497,70,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExpTxtS3Time TextBox { ExpTxtS3Time TextBox
Move(1078,532,70,21) Move(1078,532,70,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExpTxtS4Time TextBox { ExpTxtS4Time TextBox
Move(1078,567,70,21) Move(1078,567,70,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExpTxtS5Time TextBox { ExpTxtS5Time TextBox
Move(1078,602,70,21) Move(1078,602,70,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExpTxtS6Time TextBox { ExpTxtS6Time TextBox
Move(1078,637,70,21) Move(1078,637,70,21)
Text = ("10000") Text = ("10000")
Alignment = Align.Center Alignment = Align.Center
} }
{ ExpChkSTime CheckBox { ExpChkSTime CheckBox
Move(1190,462,56,28) Move(1190,462,56,28)
Text = ("ZAP") Text = ("ZAP")
Value = CheckBox.True Value = CheckBox.True
} }
{ ExpChkEnableTiming CheckBox { ExpChkEnableTiming CheckBox
Move(1085,427,147,21) Move(1085,427,147,21)
Text = ("Zapnout Casovani") Text = ("Zapnout Casovani")
} }
{ ExpChkSTime2 CheckBox { ExpChkSTime2 CheckBox
Move(1190,497,56,28) Move(1190,497,56,28)
Text = ("ZAP") Text = ("ZAP")
Value = CheckBox.True Value = CheckBox.True
} }
{ ExpChkSTime3 CheckBox { ExpChkSTime3 CheckBox
Move(1190,532,56,28) Move(1190,532,56,28)
Text = ("ZAP") Text = ("ZAP")
Value = CheckBox.True Value = CheckBox.True
} }
{ ExpChkSTime4 CheckBox { ExpChkSTime4 CheckBox
Move(1190,567,56,28) Move(1190,567,56,28)
Text = ("ZAP") Text = ("ZAP")
Value = CheckBox.True Value = CheckBox.True
} }
{ ExpChkSTime5 CheckBox { ExpChkSTime5 CheckBox
Move(1190,602,56,28) Move(1190,602,56,28)
Text = ("ZAP") Text = ("ZAP")
Value = CheckBox.True Value = CheckBox.True
} }
{ ExpChkSTime6 CheckBox { ExpChkSTime6 CheckBox
Move(1190,637,56,28) Move(1190,637,56,28)
Text = ("ZAP") Text = ("ZAP")
Value = CheckBox.True Value = CheckBox.True
} }
{ ChkExpNahoda CheckBox { ChkExpNahoda CheckBox
Move(14,406,98,21) Move(14,406,98,21)
Text = ("NAHODNE") Text = ("NAHODNE")
} }
{ ChkExpNeopakovat CheckBox { ChkExpNeopakovat CheckBox
Move(14,378,119,21) Move(14,378,119,21)
Text = ("NEOPAKOVAT") Text = ("NEOPAKOVAT")
} }
{ BtnOpenDor Button { BtnOpenDor Button
Move(714,98,35,21) Move(714,98,35,21)
Text = ("OD") Text = ("OD")
} }
{ BtnCloseDor Button { BtnCloseDor Button
Move(763,98,35,21) Move(763,98,35,21)
Text = ("CD") Text = ("CD")
} }
{ BtnReset Button { BtnReset Button
Move(714,210,84,21) Move(714,210,84,21)
Text = ("RESET") Text = ("RESET")
} }
{ BtnPitS Button { BtnPitS Button
Move(714,126,35,21) Move(714,126,35,21)
Text = ("S1") Text = ("S1")
} }
{ BtnPitS2 Button { BtnPitS2 Button
Move(714,154,35,21) Move(714,154,35,21)
Text = ("S2") Text = ("S2")
} }
{ BtnPitS3 Button { BtnPitS3 Button
Move(714,182,35,21) Move(714,182,35,21)
Text = ("S3") Text = ("S3")
} }
{ BtnPitS4 Button { BtnPitS4 Button
Move(763,126,35,21) Move(763,126,35,21)
Text = ("S4") Text = ("S4")
} }
{ BtnPitS5 Button { BtnPitS5 Button
Move(763,154,35,21) Move(763,154,35,21)
Text = ("S5") Text = ("S5")
} }
{ BtnPitS6 Button { BtnPitS6 Button
Move(763,182,35,21) Move(763,182,35,21)
Text = ("S6") Text = ("S6")
} }
{ Label32 Label { Label32 Label
Move(728,49,140,42) Move(728,49,140,42)
Text = ("Manu\xC3\xA1ln\xC3\xAD ovl\xC3\xA1d\xC3\xA1n\xC3\xAD\naparatury") Text = ("Manu\xC3\xA1ln\xC3\xAD ovl\xC3\xA1d\xC3\xA1n\xC3\xAD\naparatury")
Alignment = Align.Center Alignment = Align.Center
} }
{ Separator4 Separator { Separator4 Separator
Move(707,238,189,7) Move(707,238,189,7)
} }
{ BtnExpFull Button { BtnExpFull Button
Move(14,567,161,21) Move(14,567,161,21)
Text = ("FULLSCREEN") Text = ("FULLSCREEN")
} }
{ LabelPreFrm4 Label { LabelPreFrm4 Label
Move(168,301,189,14) Move(168,301,189,14)
Text = ("<-----------------------------------------\n") Text = ("<-----------------------------------------\n")
Alignment = Align.Center Alignment = Align.Center
} }
{ Separator5 Separator { Separator5 Separator
Move(805,98,7,140) Move(805,98,7,140)
} }
{ Label3 Label { Label3 Label
Move(812,98,70,14) Move(812,98,70,14)
Text = ("SIMULACE") Text = ("SIMULACE")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label4 Label { Label4 Label
Move(812,112,70,14) Move(812,112,70,14)
Text = ("AKCE") Text = ("AKCE")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label35 Label { Label35 Label
Move(812,126,70,21) Move(812,126,70,21)
Text = ("POTKANA") Text = ("POTKANA")
Alignment = Align.Center Alignment = Align.Center
} }
{ ChkTimeout CheckBox { ChkTimeout CheckBox
Move(812,266,91,14) Move(812,266,91,14)
Text = ("ZAPNUTO") Text = ("ZAPNUTO")
Value = CheckBox.True Value = CheckBox.True
} }
{ TxtInfoCyklus TextBox { TxtInfoCyklus TextBox
Move(672,7,70,21) Move(672,7,70,21)
Text = ("0") Text = ("0")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label33 Label { Label33 Label
Move(609,7,56,21) Move(609,7,56,21)
Text = ("Cyklus") Text = ("Cyklus")
Alignment = Align.Center Alignment = Align.Center
} }
{ BtnMod Button { BtnMod Button
Move(910,287,154,21) Move(910,287,154,21)
Text = ("PreLearning") Text = ("PreLearning")
} }
{ BtnKonfUloz Button { BtnKonfUloz Button
Move(896,105,175,21) Move(896,105,175,21)
Text = ("ULOZ PARAMETRY") Text = ("ULOZ PARAMETRY")
} }
{ TxtKonfigNazev TextBox { TxtKonfigNazev TextBox
Move(896,77,175,21) Move(896,77,175,21)
Text = ("")
} }
{ Label34 Label { Label34 Label
Move(896,49,175,21) Move(896,49,175,21)
Text = ("N\xC3\xA1zev konfigurace:") Text = ("N\xC3\xA1zev konfigurace:")
Alignment = Align.Center Alignment = Align.Center
} }
{ BtnNahrajKonfiguraci Button { BtnNahrajKonfiguraci Button
Move(896,133,175,21) Move(896,133,175,21)
Text = ("NAHRAJ PARAMETRY") Text = ("NAHRAJ PARAMETRY")
} }
{ BtnNastav Button { BtnNastav Button
Move(714,315,182,21) Move(714,315,182,21)
Text = ("UPLATNI PARAMETRY") Text = ("UPLATNI PARAMETRY")
} }
{ TxtSessionID TextBox { TxtSessionID TextBox
Move(616,385,126,21) Move(616,385,126,21)
Text = ("SessionID") Text = ("SessionID")
} }
{ TxtExperimentID TextBox { TxtExperimentID TextBox
Move(392,385,112,21) Move(392,385,112,21)
Text = ("ExperimentID") Text = ("ExperimentID")
} }
{ TmrTimeout #Timer { TmrTimeout #Timer
#X = 644 #MoveScaled(3,3)
#Y = 273
} }
{ ListBox1 ListBox { ListBox1 ListBox
Move(1085,49,147,259) Move(1085,49,147,259)
} }
{ Button1 Button { Button1 Button
Move(1085,315,147,21) Move(1085,315,147,21)
Text = ("OBNOV SEZNAM") Text = ("OBNOV SEZNAM")
} }
{ BtnSmazKonfiguraci Button { BtnSmazKonfiguraci Button
Move(896,161,175,21) Move(896,161,175,21)
Text = ("SMAZAT KONFIGURACI") Text = ("SMAZAT KONFIGURACI")
} }
{ Label36 Label { Label36 Label
Move(833,623,105,21) Move(833,623,105,21)
Text = ("PAUZA NA PITI") Text = ("PAUZA NA PITI")
Alignment = Align.Center Alignment = Align.Center
} }
{ TimerExperimentMils #Timer { TimerExperimentMils #Timer
#X = 644 #MoveScaled(4,4)
#Y = 231
Delay = 10 Delay = 10
} }
{ PictureLogo1 PictureBox { PictureLogo1 PictureBox
Move(903,196,161,35) Move(903,196,161,35)
Stretch = True Stretch = True
} }
{ Label38 Label { Label38 Label
Move(910,238,161,42) Move(910,238,161,42)
Text = ("Tom\xC3\xA1\xC5\xA1 Suchan 2011\ntomsuch@tomsuch.net") Text = ("Tom\xC3\xA1\xC5\xA1 Suchan 2011\ntomsuch@tomsuch.net")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label39 Label { Label39 Label
Move(518,385,91,21) Move(518,385,91,21)
Text = ("SESSION ID:") Text = ("SESSION ID:")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label40 Label { Label40 Label
Move(259,385,126,21) Move(259,385,126,21)
Text = ("EXPERIMENT ID:") Text = ("EXPERIMENT ID:")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label37 Label { Label37 Label
Move(749,385,91,21) Move(749,385,91,21)
Text = ("OBJECT ID:") Text = ("OBJECT ID:")
Alignment = Align.Center Alignment = Align.Center
} }
{ TxtOjectID TextBox { TxtOjectID TextBox
Move(847,385,126,21) Move(847,385,126,21)
Text = ("ObjectID") Text = ("ObjectID")
} }
{ TimerMilis #Timer { TimerMilis #Timer
#X = 560 #MoveScaled(5,5)
#Y = 315
Delay = 10 Delay = 10
} }
{ Label41 Label { Label41 Label
Move(287,455,28,14) Move(287,455,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label42 Label { Label42 Label
Move(546,455,28,14) Move(546,455,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label43 Label { Label43 Label
Move(1155,574,28,14) Move(1155,574,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label44 Label { Label44 Label
Move(1155,609,28,14) Move(1155,609,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label45 Label { Label45 Label
Move(1155,539,28,14) Move(1155,539,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label46 Label { Label46 Label
Move(1155,504,28,14) Move(1155,504,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label47 Label { Label47 Label
Move(1155,469,28,14) Move(1155,469,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label48 Label { Label48 Label
Move(1155,644,28,14) Move(1155,644,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label49 Label { Label49 Label
Move(917,602,28,14) Move(917,602,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label50 Label { Label50 Label
Move(133,609,35,14) Move(133,609,35,14)
Text = ("ms") Text = ("ms")
} }
{ TxtInfoCasovacMilis TextBox { TxtInfoCasovacMilis TextBox
Move(1106,385,84,21) Move(1106,385,84,21)
Text = ("0") Text = ("0")
Alignment = Align.Center Alignment = Align.Center
} }
{ Label51 Label { Label51 Label
Move(1197,392,28,14) Move(1197,392,28,14)
Text = ("ms") Text = ("ms")
} }
{ Label52 Label { Label52 Label
Move(1015,392,84,14) Move(1015,392,84,14)
Text = ("Casovac(ms):") Text = ("Casovac(ms):")
} }
{ ChkTimeoutOpakReset CheckBox { ChkTimeoutOpakReset CheckBox
Move(168,273,217,14) Move(168,273,217,14)
Text = ("TIMEOUT = RESET OPAKOVANI") Text = ("TIMEOUT = RESET OPAKOVANI")
} }
{ ChkZhasniStimulPreReset CheckBox { ChkZhasniStimulPreReset CheckBox
Move(672,637,70,42) Move(672,637,70,42)
Text = ("Vypni\nstimul") Text = ("Vypni\nstimul")
} }
{ Label53 Label { Label53 Label
Move(588,651,63,14) Move(588,651,63,14)
Text = ("-------------------------------------------------------------------------------------------------") Text = ("-------------------------------------------------------------------------------------------------")
Alignment = Align.Center Alignment = Align.Center
} }
{ ChkZhasniStimulPoAkci CheckBox { ChkZhasniStimulPoAkci CheckBox
Move(805,441,70,42) Move(805,441,70,42)
Text = ("Vypni\nstimul") Text = ("Vypni\nstimul")
} }
{ Label54 Label { Label54 Label
Move(770,448,28,28) Move(770,448,28,28)
Text = ("--->") Text = ("--->")
} }
} }

46
.src/Form1.class Normal file
View file

@ -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

22
Form1.form → .src/Form1.form
View file

@ -1,28 +1,24 @@
# Gambas Form File 2.0 # Gambas Form File 3.0
{ Form Form
{ Form Form
MoveScaled(0,0,149,64) MoveScaled(0,0,149,64)
Background = &H000000& Background = &H000000&
Mouse = Mouse.Blank Mouse = Mouse.Blank
Text = ("") Border = False
Border = Window.None
FullScreen = True FullScreen = True
{ PictureBox1 PictureBox { PictureBox1 PictureBox
MoveScaled(2,2,34,31) MoveScaled(2,2,34,31)
Mouse = Mouse.Blank Mouse = Mouse.Blank
Stretch = True Stretch = True
Alignment = Align.Center Alignment = Align.Center
} }
{ Label1 Label { Label1 Label
MoveScaled(1,1,60,2) MoveScaled(1,1,60,3)
Font = Font["-1"] Font = Font["-1"]
Foreground = &HE0E0E0& Foreground = &HE0E0E0&
Text = ("")
} }
{ Label2 Label { Label2 Label
MoveScaled(62,1,45,2) MoveScaled(62,1,45,3)
Font = Font["-1"] Font = Font["-1"]
Foreground = &HE0E0E0& Foreground = &HE0E0E0&
Text = ("")
} }
} }

10
.startup Normal file
View file

@ -0,0 +1,10 @@
FMain
RatBox
0
0
0.0.9
gb.gui
gb.form
gb.net

1758
FMain.class
View file

File diff suppressed because it is too large Load diff

46
Form1.class
View file

@ -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