📄 frmswarm.frm
字号:
VERSION 5.00
Begin VB.Form frmSwarm
BackColor = &H8000000A&
BorderStyle = 3 'Fixed Dialog
Caption = "Particle Swarm Optimizer"
ClientHeight = 7350
ClientLeft = 45
ClientTop = 330
ClientWidth = 8460
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmSwarm.frx":0000
ScaleHeight = 7350
ScaleWidth = 8460
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.ListBox List_fun
Height = 840
ItemData = "frmSwarm.frx":0582
Left = 5280
List = "frmSwarm.frx":0595
TabIndex = 26
Top = 1080
Width = 2895
End
Begin VB.Timer Timer1
Enabled = 0 'False
Left = 6960
Top = 3480
End
Begin VB.TextBox OutFileText
Height = 288
Left = 1200
TabIndex = 25
Text = "psoutfil.txt"
ToolTipText = "Output file name"
Top = 1080
Width = 2835
End
Begin VB.TextBox InertiaWText
Alignment = 1 'Right Justify
Height = 288
Left = 7320
TabIndex = 24
Text = "0.9"
ToolTipText = "Inertia weight"
Top = 600
Width = 800
End
Begin VB.TextBox MaxIterText
Alignment = 1 'Right Justify
Height = 288
Left = 5280
TabIndex = 23
Text = "2000"
ToolTipText = "Maximum number of generations"
Top = 600
Width = 800
End
Begin VB.TextBox MaxPText
Alignment = 1 'Right Justify
Height = 288
Left = 3240
TabIndex = 22
Text = "100"
ToolTipText = "Maximum position"
Top = 600
Width = 800
End
Begin VB.TextBox MaxVText
Alignment = 1 'Right Justify
Height = 288
Left = 1200
TabIndex = 21
Text = "10"
ToolTipText = "Maximum velocity"
Top = 600
Width = 800
End
Begin VB.TextBox MinErrorText
Alignment = 1 'Right Justify
Height = 288
Left = 7320
TabIndex = 20
Text = "0.00001"
ToolTipText = "Minimum error"
Top = 120
Width = 800
End
Begin VB.TextBox GloLocText
Alignment = 1 'Right Justify
Height = 288
Left = 5280
TabIndex = 19
Text = "0"
ToolTipText = "Global/Local"
Top = 120
Width = 800
End
Begin VB.TextBox DimensionText
Alignment = 1 'Right Justify
Height = 288
Left = 3240
TabIndex = 18
Text = "2"
ToolTipText = "Dimension of the problem space"
Top = 120
Width = 800
End
Begin VB.TextBox PopSizeText
Alignment = 1 'Right Justify
Height = 288
Left = 1200
TabIndex = 17
Text = "40"
ToolTipText = "Number of Agents"
Top = 120
Width = 800
End
Begin VB.CommandButton cmdHelp
Caption = "About"
CausesValidation= 0 'False
Height = 435
Left = 7080
TabIndex = 6
Top = 6720
Width = 1215
End
Begin VB.CommandButton cmdExit
Caption = "Exit"
CausesValidation= 0 'False
Height = 435
Left = 5760
TabIndex = 5
Top = 6720
Width = 1215
End
Begin VB.CommandButton cmdStop
Caption = "Stop"
Enabled = 0 'False
Height = 435
Left = 4440
TabIndex = 4
Top = 6720
Width = 1215
End
Begin VB.CommandButton cmdPause
Caption = "Pause"
Enabled = 0 'False
Height = 435
Left = 3000
TabIndex = 3
Top = 6720
Width = 1215
End
Begin VB.CommandButton cmdStart
Caption = "Set Para."
Height = 435
Left = 240
TabIndex = 0
Top = 6720
Width = 1215
End
Begin VB.CommandButton cmdSwarm
Caption = "Run"
Enabled = 0 'False
Height = 435
Left = 1560
TabIndex = 1
Top = 6720
Width = 1335
End
Begin VB.PictureBox picSwarm1
DrawWidth = 3
Height = 4695
Left = 120
ScaleHeight = 4635
ScaleWidth = 4995
TabIndex = 2
ToolTipText = "Initialization"
Top = 1680
Width = 5055
End
Begin VB.Label Label_fun
BackColor = &H8000000E&
Height = 300
Left = 5760
TabIndex = 34
Top = 3120
Width = 2385
End
Begin VB.Label Label14
BackColor = &H8000000B&
Caption = "Function Type:"
Height = 255
Left = 5520
TabIndex = 33
Top = 2760
Width = 1155
End
Begin VB.Label Label_bfit
BackColor = &H8000000E&
Height = 300
Left = 5745
TabIndex = 32
Top = 6000
Width = 2385
End
Begin VB.Label Label_binx
BackColor = &H8000000E&
Height = 300
Left = 5745
TabIndex = 31
Top = 5040
Width = 2385
End
Begin VB.Label Label_gen
BackColor = &H8000000E&
Height = 300
Left = 5745
TabIndex = 30
Top = 4080
Width = 2385
End
Begin VB.Label Label13
Caption = "Best Fitness:"
Height = 255
Left = 5520
TabIndex = 29
Top = 5640
Width = 1005
End
Begin VB.Label Label12
Caption = "Best Particle:"
Height = 255
Left = 5520
TabIndex = 28
Top = 4680
Width = 1005
End
Begin VB.Label Label10
BackColor = &H8000000B&
Caption = "Generation:"
Height = 255
Left = 5520
TabIndex = 27
Top = 3720
Width = 1005
End
Begin VB.Label Label11
Caption = "Output File"
Height = 240
Left = 120
TabIndex = 16
Top = 1080
Width = 900
End
Begin VB.Label Label9
Caption = "Fun. Type"
Height = 240
Left = 4200
TabIndex = 15
Top = 1080
Width = 900
End
Begin VB.Label Label8
Caption = "Inertia Wei."
Height = 252
Left = 6240
TabIndex = 14
Top = 600
Width = 900
End
Begin VB.Label Label7
Caption = "Max. No. Iter"
Height = 240
Left = 4200
TabIndex = 13
Top = 600
Width = 900
End
Begin VB.Label Label6
Caption = "Max. Pos."
Height = 240
Left = 2160
TabIndex = 12
Top = 600
Width = 900
End
Begin VB.Label Label5
Caption = "Max. Vel."
Height = 240
Left = 120
TabIndex = 11
Top = 600
Width = 900
End
Begin VB.Label Label4
Caption = "Min Error"
Height = 240
Left = 6240
TabIndex = 10
Top = 120
Width = 900
End
Begin VB.Label Label3
Caption = "Glo/Loc"
Height = 240
Left = 4200
TabIndex = 9
Top = 120
Width = 900
End
Begin VB.Label Label2
Caption = "Dimension"
Height = 240
Left = 2160
TabIndex = 8
Top = 120
Width = 900
End
Begin VB.Label Label1
Caption = " Popu. Size"
Height = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -