📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form frmMain
BackColor = &H00C0C0C0&
Caption = "Sluggish Software - Time Series Predictor"
ClientHeight = 8580
ClientLeft = 165
ClientTop = 450
ClientWidth = 11160
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8580
ScaleWidth = 11160
StartUpPosition = 2 'CenterScreen
Begin TabDlg.SSTab SSTab1
Height = 8535
Left = 0
TabIndex = 0
Top = 0
Width = 11175
_ExtentX = 19711
_ExtentY = 15055
_Version = 393216
Tabs = 4
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "Network Parameters"
TabPicture(0) = "frmMain.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label7"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label6"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label5"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label1"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label27"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label26"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label25"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label24"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Dialog"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "txtTestData"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "txtTrainingData"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "txtName"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "txtHiddenUnits"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "txtTimeSeriesDimensions"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "txtRandomNoise"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "txtLearningRate"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "txtCycles"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtBPerror"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "cmdInit"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Inet"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "cmdRun"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).ControlCount= 21
TabCaption(1) = "Display"
TabPicture(1) = "frmMain.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "cmdTrain"
Tab(1).Control(1)= "cmdStop"
Tab(1).Control(2)= "cmdTest"
Tab(1).Control(3)= "Frame1"
Tab(1).Control(4)= "fraDimensions"
Tab(1).Control(5)= "picGraph"
Tab(1).Control(6)= "Label2"
Tab(1).Control(7)= "Line2"
Tab(1).Control(8)= "lblActual"
Tab(1).Control(9)= "Line1"
Tab(1).ControlCount= 10
TabCaption(2) = "Prediction Results"
TabPicture(2) = "frmMain.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "cmdPredictFilename"
Tab(2).Control(1)= "txtPredictFilename"
Tab(2).Control(2)= "picPredictGraph"
Tab(2).Control(3)= "cmdPredict"
Tab(2).Control(4)= "cmdDataSet"
Tab(2).Control(5)= "txtDataset"
Tab(2).Control(6)= "txtPredictSteps"
Tab(2).Control(7)= "PredictGrid"
Tab(2).Control(8)= "Label10"
Tab(2).Control(9)= "Label9"
Tab(2).Control(10)= "Label8"
Tab(2).ControlCount= 11
TabCaption(3) = "Acquire Data"
TabPicture(3) = "frmMain.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "cmdRunSchedule"
Tab(3).Control(1)= "cmdAddToSchedule"
Tab(3).Control(2)= "cmdDelete"
Tab(3).Control(3)= "lstSchedule"
Tab(3).Control(4)= "txtDescription"
Tab(3).Control(5)= "timSchedule"
Tab(3).Control(6)= "chkSchedule(1)"
Tab(3).Control(7)= "txtScheduleTime"
Tab(3).Control(8)= "chkSchedule(0)"
Tab(3).Control(9)= "cmdSave"
Tab(3).Control(10)= "cmbAcquire"
Tab(3).Control(11)= "Frame2"
Tab(3).Control(12)= "txtProxy"
Tab(3).Control(13)= "txtPort"
Tab(3).Control(14)= "txtURL"
Tab(3).Control(15)= "grdData"
Tab(3).Control(16)= "Label31"
Tab(3).Control(17)= "Label30"
Tab(3).Control(18)= "Label20"
Tab(3).Control(19)= "Label12"
Tab(3).Control(20)= "Label11"
Tab(3).ControlCount= 21
Begin VB.CommandButton cmdRun
Caption = "Run Schedule"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 360
TabIndex = 207
Top = 720
Width = 3015
End
Begin VB.CommandButton cmdRunSchedule
Caption = "Run"
Height = 375
Left = -65280
TabIndex = 206
Top = 7920
Width = 1335
End
Begin VB.CommandButton cmdAddToSchedule
Caption = "Add to Schedule"
Height = 375
Left = -67920
TabIndex = 205
Top = 7920
Width = 1335
End
Begin VB.CommandButton cmdDelete
Caption = "Delete"
Height = 375
Left = -66600
TabIndex = 204
Top = 7920
Width = 1335
End
Begin VB.ListBox lstSchedule
Height = 4740
Left = -67920
TabIndex = 203
Top = 3240
Width = 3855
End
Begin VB.TextBox txtDescription
Height = 375
Left = -74760
TabIndex = 201
Text = "FTSE 100"
Top = 720
Width = 6615
End
Begin VB.Timer timSchedule
Interval = 30000
Left = -72240
Top = 2640
End
Begin VB.CheckBox chkSchedule
Caption = "Schedule Daily"
Height = 255
Index = 1
Left = -74760
TabIndex = 200
Top = 2760
Value = 1 'Checked
Width = 1575
End
Begin VB.TextBox txtScheduleTime
Height = 375
Left = -73080
TabIndex = 198
Text = "19:00"
Top = 2640
Width = 855
End
Begin VB.CheckBox chkSchedule
Caption = "Don't Schedule"
Height = 255
Index = 0
Left = -74760
TabIndex = 197
Top = 2520
Width = 1575
End
Begin VB.CommandButton cmdSave
Caption = "Save"
Height = 375
Left = -70440
TabIndex = 196
Top = 2280
Width = 1335
End
Begin VB.CommandButton cmbAcquire
Caption = "Acquire"
Height = 375
Left = -70440
TabIndex = 191
Top = 1800
Width = 1335
End
Begin VB.Frame Frame2
Caption = "Table Parameters"
Height = 1935
Left = -67920
TabIndex = 182
Top = 960
Width = 3735
Begin VB.TextBox txtEndColumn
Height = 375
Left = 1440
TabIndex = 193
Text = "11"
Top = 1320
Width = 855
End
Begin VB.TextBox txtNoOfTables
Height = 375
Left = 480
TabIndex = 192
Top = 600
Width = 495
End
Begin VB.TextBox txtEndRow
Height = 375
Left = 2760
TabIndex = 189
Text = "100"
Top = 1320
Width = 855
End
Begin VB.TextBox txtStartRow
Height = 375
Left = 2760
TabIndex = 187
Text = "1"
Top = 600
Width = 855
End
Begin VB.TextBox txtStartColumn
Height = 375
Left = 1440
TabIndex = 185
Text = "1"
Top = 600
Width = 855
End
Begin VB.TextBox txtTableIndex
Height = 375
Left = 120
TabIndex = 183
Text = "15"
Top = 600
Width = 375
End
Begin VB.Label Label29
Caption = "End Column"
Height = 255
Left = 1440
TabIndex = 194
Top = 1080
Width = 1095
End
Begin VB.Label Label28
Caption = "End Row"
Height = 255
Left = 2760
TabIndex = 190
Top = 1080
Width = 855
End
Begin VB.Label Label23
Caption = "Start Row"
Height = 255
Left = 2760
TabIndex = 188
Top = 360
Width = 855
End
Begin VB.Label Label22
Caption = "Start Column"
Height = 255
Left = 1440
TabIndex = 186
Top = 360
Width = 1095
End
Begin VB.Label Label21
Caption = "Table Index"
Height = 255
Left = 120
TabIndex = 184
Top = 360
Width = 1095
End
End
Begin VB.TextBox txtProxy
Height = 375
Left = -73080
TabIndex = 180
Top = 2040
Width = 2415
End
Begin VB.TextBox txtPort
Height = 375
Left = -74760
TabIndex = 177
Text = "80"
Top = 2040
Width = 855
End
Begin VB.TextBox txtURL
Height = 375
Left = -74760
TabIndex = 175
Text = "http://www.quoteline.com/lis.asp?std_id=65&l=E"
Top = 1320
Width = 6615
End
Begin InetCtlsObjects.Inet Inet
Left = 1200
Top = 6360
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
Protocol = 4
URL = "http://"
End
Begin VB.CommandButton cmdPredictFilename
Height = 255
Left = -65640
TabIndex = 174
Top = 960
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -