📄 frmmmas.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmMMAS
BorderStyle = 1 'Fixed Single
Caption = "蚁群算法实验室（陈烨）"
ClientHeight = 8115
ClientLeft = 45
ClientTop = 330
ClientWidth = 11880
Icon = "frmMMAS.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8115
ScaleWidth = 11880
Begin VB.Frame Frame1
Caption = "当前状态"
Height = 1455
Left = 0
TabIndex = 34
Top = 6600
Width = 8775
Begin VB.CommandButton cmdAbout
Caption = "陈烨"
Height = 255
Left = 7920
TabIndex = 87
ToolTipText = "关于本软件"
Top = 1080
Width = 735
End
Begin VB.TextBox txtGlobalBestPath
BackColor = &H8000000F&
Height = 270
Left = 2880
Locked = -1 'True
TabIndex = 50
Top = 720
Width = 5775
End
Begin VB.TextBox txtGlobalBestLen
BackColor = &H8000000F&
Height = 270
Left = 1080
Locked = -1 'True
TabIndex = 49
Top = 1080
Width = 2775
End
Begin VB.TextBox txtGlobalBestIteration
BackColor = &H8000000F&
Height = 270
Left = 600
Locked = -1 'True
TabIndex = 45
Top = 720
Width = 735
End
Begin VB.CheckBox chkAlwaysCleanResult
Caption = "连续计算时每次开始前都清除显示数据"
Height = 375
Left = 120
TabIndex = 60
Top = 360
Value = 1 'Checked
Width = 2415
End
Begin VB.Frame Frame2
Caption = "清除显示的数据"
Height = 2415
Left = -74880
TabIndex = 54
Top = 600
Width = 2655
Begin VB.CommandButton cmdCleanMap
Caption = "清除城市及路径状态图"
Height = 615
Left = 120
TabIndex = 79
Top = 1680
Width = 1095
End
Begin VB.CommandButton cmdCleanList
Caption = "清除最优路径及长度列表框"
Height = 615
Left = 120
Style = 1 'Graphical
TabIndex = 58
Top = 240
Width = 1095
End
Begin VB.CommandButton cmdClearPicBestLen
Caption = "清除最优路径演化图"
Height = 615
Left = 1440
Style = 1 'Graphical
TabIndex = 57
Top = 240
Width = 1095
End
Begin VB.CommandButton cmdCleanPicAvgLen
Caption = "清除平均路径演化图"
Height = 615
Left = 120
Style = 1 'Graphical
TabIndex = 56
Top = 960
Width = 1095
End
Begin VB.CommandButton cmdCleanAll
Caption = "清除所有"
Height = 615
Left = 1440
TabIndex = 55
Top = 960
Width = 1095
End
End
Begin VB.CommandButton cmdStart
Caption = "开始计算(&S)"
Height = 375
Left = 600
TabIndex = 44
Top = 1320
Width = 1695
End
Begin VB.CommandButton cmdStop
Caption = "停止计算(&P)"
Enabled = 0 'False
Height = 375
Left = 600
TabIndex = 43
Top = 1800
Width = 1695
End
Begin VB.TextBox txtCalcTime
Alignment = 2 'Center
Height = 270
Left = 720
TabIndex = 40
Text = "20"
Top = 840
Width = 975
End
Begin VB.CheckBox chkCAvg
Height = 255
Left = 120
TabIndex = 39
Top = 840
Width = 255
End
Begin VB.CheckBox chkUseNew1
Caption = "使用新方法"
Height = 255
Left = 120
TabIndex = 38
Top = 480
Width = 1335
End
Begin VB.TextBox txtAlpha
Alignment = 1 'Right Justify
Height = 270
Left = -74880
TabIndex = 26
Text = "2"
Top = 1920
Width = 1095
End
Begin VB.TextBox txtBeta
Alignment = 1 'Right Justify
Height = 270
Left = -73320
TabIndex = 25
Text = "2"
Top = 1920
Width = 1095
End
Begin VB.TextBox txtRou
Alignment = 1 'Right Justify
Height = 270
Left = -74880
TabIndex = 24
Text = "0.1"
Top = 2520
Width = 2055
End
Begin VB.TextBox txtTaoMax
Alignment = 1 'Right Justify
Height = 270
Left = -74880
TabIndex = 23
Text = "10"
Top = 3120
Width = 2055
End
Begin VB.TextBox txtTaoMin
Alignment = 1 'Right Justify
Height = 270
Left = -74880
TabIndex = 22
Text = "0.01"
Top = 3720
Width = 2055
End
Begin VB.TextBox txtMaxIter
Alignment = 1 'Right Justify
Height = 270
Left = -73200
TabIndex = 21
Text = "1000"
Top = 720
Width = 975
End
Begin VB.TextBox txtW
Alignment = 1 'Right Justify
Height = 270
Left = -74880
TabIndex = 20
Text = "1"
Top = 4320
Width = 2055
End
Begin VB.TextBox txtSigma
Alignment = 1 'Right Justify
Height = 270
Left = -74880
TabIndex = 19
Text = "0.2"
Top = 5760
Width = 2055
End
Begin VB.Label Label20
Caption = "(CopyRighted)蚁群算法实验室——作者："
Height = 255
Left = 4440
TabIndex = 65
Top = 1080
Width = 3375
End
Begin VB.Label Label15
Caption = "正在计算第"
Height = 255
Left = 120
TabIndex = 53
Top = 360
Width = 975
End
Begin VB.Label Label16
Caption = "次中的"
Height = 255
Left = 1800
TabIndex = 52
Top = 360
Width = 615
End
Begin VB.Label lblTimes
Alignment = 2 'Center
Caption = "0"
Height = 255
Left = 1080
TabIndex = 51
Top = 360
Width = 615
End
Begin VB.Label Label13
Caption = "其长度为："
Height = 255
Left = 120
TabIndex = 48
Top = 1080
Width = 1215
End
Begin VB.Label Label8
Caption = "在第"
Height = 255
Left = 120
TabIndex = 47
Top = 720
Width = 375
End
Begin VB.Label Label9
Caption = "代找到最短路径："
Height = 255
Left = 1440
TabIndex = 46
Top = 720
Width = 1455
End
Begin VB.Label lblIteration
Alignment = 2 'Center
Caption = "0"
Height = 255
Left = 2640
TabIndex = 37
Top = 360
Width = 735
End
Begin VB.Label Label11
Height = 480
Left = -74880
TabIndex = 59
Top = 3120
Width = 2655
End
Begin VB.Label Label32
Caption = "："
Height = 255
Left = -73680
TabIndex = 18
Top = 1920
Width = 375
End
Begin VB.Label Label31
Caption = "："
Height = 255
Left = -73680
TabIndex = 35
Top = 1680
Width = 255
End
Begin VB.Label Label30
Caption = "蚂蚁对信息量浓度与到下一个城市距离的重视程度的比："
Height = 375
Left = -74880
TabIndex = 36
Top = 1200
Width = 2655
End
Begin VB.Label Label29
Caption = "蚂蚁选择城市时更具概率进行选择的概率："
Height = 375
Left = -74880
TabIndex = 66
Top = 4680
Width = 2055
End
Begin VB.Label Label28
Caption = "各路径信息量初始值："
Height = 255
Left = -74880
TabIndex = 69
Top = 6120
Width = 2055
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -