📄 frmmmas.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmMMAS
Caption = "Ant System & Its Improved Algorithms(Experiment - ChenYe)"
ClientHeight = 8115
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
LinkTopic = "Form1"
ScaleHeight = 8115
ScaleWidth = 11880
Begin VB.Frame Frame1
Caption = "当前状态"
Height = 1455
Left = 0
TabIndex = 35
Top = 6600
Width = 8775
Begin VB.CommandButton cmdAbout
Caption = "ChenYe"
Height = 255
Left = 7920
TabIndex = 88
ToolTipText = "关于本软件"
Top = 1080
Width = 735
End
Begin VB.TextBox txtGlobalBestPath
BackColor = &H8000000F&
Height = 270
Left = 2880
Locked = -1 'True
TabIndex = 51
Top = 720
Width = 5775
End
Begin VB.TextBox txtGlobalBestLen
BackColor = &H8000000F&
Height = 270
Left = 1080
Locked = -1 'True
TabIndex = 50
Top = 1080
Width = 2775
End
Begin VB.TextBox txtGlobalBestIteration
BackColor = &H8000000F&
Height = 270
Left = 600
Locked = -1 'True
TabIndex = 46
Top = 720
Width = 735
End
Begin VB.Label Label20
Caption = "(CopyRighted)For Experiment Only - Written by"
Height = 255
Left = 3840
TabIndex = 66
Top = 1080
Width = 4095
End
Begin VB.Label Label15
Caption = "正在计算第"
Height = 255
Left = 120
TabIndex = 54
Top = 360
Width = 975
End
Begin VB.Label Label16
Caption = "次中的"
Height = 255
Left = 1800
TabIndex = 53
Top = 360
Width = 615
End
Begin VB.Label lblTimes
Alignment = 2 'Center
Caption = "0"
Height = 255
Left = 1080
TabIndex = 52
Top = 360
Width = 615
End
Begin VB.Label Label13
Caption = "其长度为："
Height = 255
Left = 120
TabIndex = 49
Top = 1080
Width = 1215
End
Begin VB.Label Label8
Caption = "在第"
Height = 255
Left = 120
TabIndex = 48
Top = 720
Width = 375
End
Begin VB.Label Label9
Caption = "代找到最短路径："
Height = 255
Left = 1440
TabIndex = 47
Top = 720
Width = 1455
End
Begin VB.Label lblIteration
Alignment = 2 'Center
Caption = "0"
Height = 255
Left = 2640
TabIndex = 38
Top = 360
Width = 735
End
Begin VB.Label Label11
Caption = "第"
Height = 255
Left = 2400
TabIndex = 37
Top = 360
Width = 255
End
Begin VB.Label Label12
Caption = "代"
Height = 255
Left = 3360
TabIndex = 36
Top = 360
Width = 255
End
End
Begin TabDlg.SSTab SSTab2
Height = 7935
Left = 8880
TabIndex = 19
Top = 120
Width = 2895
_ExtentX = 5106
_ExtentY = 13996
_Version = 393216
Tab = 1
TabHeight = 520
TabCaption(0) = "参数设置"
TabPicture(0) = "frmMMAS.frx":0000
Tab(0).ControlEnabled= 0 'False
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)= "Label4"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label3"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label2"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label1"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label19"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label22"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label28"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label29"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "txtSigma"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "txtW"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "txtMaxIter"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "txtTaoMin"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "txtTaoMax"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "txtRou"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtBeta"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "txtAlpha"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "txtMaxAnts"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "txtTao0"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "txtQ0"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "chkInitRan"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).ControlCount= 23
TabCaption(1) = "计算控制"
TabPicture(1) = "frmMMAS.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label14"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label10"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label21"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "chkUseNew1"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "chkCAvg"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "txtCalcTime"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "cmdStop"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "cmdStart"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "lstCityData"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "cmdNextStep"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "cmdStopStep_by_Step"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).ControlCount= 11
TabCaption(2) = "结果显示"
TabPicture(2) = "frmMMAS.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame2"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Frame3"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Frame4"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).ControlCount= 3
Begin VB.CheckBox chkInitRan
Caption = "Init by Randomize Number"
Height = 255
Left = -74880
TabIndex = 102
Top = 7200
Width = 2535
End
Begin VB.TextBox txtQ0
Height = 270
Left = -74880
TabIndex = 101
Text = "0"
Top = 5640
Width = 1575
End
Begin VB.TextBox txtTao0
Height = 270
Left = -74880
TabIndex = 99
Text = "0.1"
Top = 6840
Width = 1575
End
Begin VB.CommandButton cmdStopStep_by_Step
Caption = "停止一步一步地显示"
Enabled = 0 'False
Height = 375
Left = 360
TabIndex = 97
Top = 2760
Width = 2175
End
Begin VB.CommandButton cmdNextStep
Caption = "下一步(&N)"
Enabled = 0 'False
Height = 375
Left = 600
TabIndex = 84
Top = 2280
Width = 1695
End
Begin VB.Frame Frame4
Caption = "图表绘制控制"
Height = 2415
Left = -74880
TabIndex = 73
Top = 4080
Width = 2655
Begin VB.CheckBox chkStepByStep
Caption = "一步一步地显示结果"
Height = 255
Left = 120
TabIndex = 83
Top = 2040
Width = 2295
End
Begin VB.CheckBox chkDrawTao
Caption = "在城市地图中动态绘制信息量变化情况"
Height = 375
Left = 120
TabIndex = 81
Top = 1680
Value = 1 'Checked
Width = 2295
End
Begin VB.CheckBox chkDrawPath
Caption = "在城市地图中动态绘制最优个体路径"
Height = 375
Left = 120
TabIndex = 79
Top = 1320
Value = 1 'Checked
Width = 2295
End
Begin VB.CheckBox chkDrawTogether
Caption = "将最优路径演化图与平均路径演化图绘制在同一副图中"
Height = 615
Left = 120
TabIndex = 76
Top = 720
Value = 2 'Grayed
Width = 2295
End
Begin VB.CheckBox chkDrawAvgLen
Caption = "绘制平均路径演化图"
Height = 255
Left = 120
TabIndex = 75
Top = 480
Value = 1 'Checked
Width = 1935
End
Begin VB.CheckBox chkDrawBestLen
Caption = "绘制最优路径演化图"
Height = 255
Left = 120
TabIndex = 74
Top = 240
Value = 1 'Checked
Width = 1935
End
End
Begin VB.TextBox txtMaxAnts
Height = 270
Left = -74880
TabIndex = 70
Text = "10"
Top = 720
Width = 1575
End
Begin VB.ListBox lstCityData
Height = 4200
ItemData = "frmMMAS.frx":0054
Left = 120
List = "frmMMAS.frx":008E
Sorted = -1 'True
TabIndex = 67
Top = 3480
Width = 2655
End
Begin VB.Frame Frame3
Caption = "连续计算显示控制"
Height = 855
Left = -74880
TabIndex = 60
Top = 3120
Width = 2655
Begin VB.CheckBox chkAlwaysCleanResult
Caption = "连续计算时每次开始前都清除显示数据"
Height = 375
Left = 120
TabIndex = 61
Top = 360
Value = 1 'Checked
Width = 2415
End
End
Begin VB.Frame Frame2
Caption = "清除显示的数据"
Height = 2415
Left = -74880
TabIndex = 55
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -