📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Frm_Main
BorderStyle = 4 'Fixed ToolWindow
Caption = "进程调度模拟-LinglanX STUDIO-[优先数法]"
ClientHeight = 6585
ClientLeft = 45
ClientTop = 285
ClientWidth = 8865
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6585
ScaleWidth = 8865
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Stop_R
Caption = "暂 停"
Enabled = 0 'False
Height = 375
Left = 4560
TabIndex = 33
Top = 6120
Width = 1815
End
Begin VB.CommandButton Exit
Caption = "退 出"
Height = 375
Left = 6480
TabIndex = 32
Top = 6120
Width = 1815
End
Begin TabDlg.SSTab SSTab1
Height = 1935
Left = 4560
TabIndex = 17
Top = 4080
Width = 4095
_ExtentX = 7223
_ExtentY = 3413
_Version = 393216
TabOrientation = 3
Style = 1
Tabs = 2
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "@宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "操作"
TabPicture(0) = "Frm_Main.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Start"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Simulation"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Comp"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "选项"
TabPicture(1) = "Frm_Main.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Text5"
Tab(1).Control(1)= "Text4"
Tab(1).Control(2)= "Text3"
Tab(1).Control(3)= "Text2"
Tab(1).Control(4)= "Frame1"
Tab(1).Control(5)= "Label15"
Tab(1).Control(6)= "Label14"
Tab(1).Control(7)= "Label13(1)"
Tab(1).Control(8)= "Label13(0)"
Tab(1).Control(9)= "Label9"
Tab(1).ControlCount= 10
Begin VB.CommandButton Comp
BackColor = &H0080C0FF&
Caption = "分别采用两种算法运行同一组数据"
Height = 615
Left = 240
Style = 1 'Graphical
TabIndex = 34
ToolTipText = "分别采用两种算法运行同一组数据"
Top = 1080
Width = 3375
End
Begin VB.TextBox Text5
Height = 270
Left = -72360
TabIndex = 30
Text = "10"
Top = 1560
Width = 975
End
Begin VB.TextBox Text4
Height = 270
Left = -73560
TabIndex = 28
Text = "1"
Top = 1560
Width = 975
End
Begin VB.TextBox Text3
Height = 270
Left = -73680
TabIndex = 25
Text = "2"
Top = 1200
Width = 2295
End
Begin VB.TextBox Text2
Height = 270
Left = -73680
TabIndex = 24
Text = "6"
Top = 840
Width = 2295
End
Begin VB.Frame Frame1
Caption = "调度算法"
Height = 615
Left = -74880
TabIndex = 20
Top = 120
Width = 3495
Begin VB.OptionButton Option1
Caption = "优先数法"
Height = 255
Left = 480
TabIndex = 22
Top = 240
Value = -1 'True
Width = 1215
End
Begin VB.OptionButton Option2
Caption = "轮转法"
Height = 255
Left = 1800
TabIndex = 21
Top = 240
Width = 1335
End
End
Begin VB.CommandButton Simulation
BackColor = &H00FFFFFF&
Caption = "模拟进程"
Height = 375
Left = 240
Style = 1 'Graphical
TabIndex = 19
Top = 120
Width = 3375
End
Begin VB.CommandButton Start
BackColor = &H00FFFFFF&
Caption = "开 始"
Height = 375
Left = 240
Style = 1 'Graphical
TabIndex = 18
Top = 600
Width = 3375
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "~"
Height = 180
Left = -72480
TabIndex = 31
Top = 1560
Width = 90
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "随机时间片范围"
Height = 180
Left = -74880
TabIndex = 29
Top = 1560
Width = 1260
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "时间片数"
Height = 180
Index = 1
Left = -74640
TabIndex = 27
Top = 1320
Width = 720
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "CPU每次分配"
Height = 180
Index = 0
Left = -74760
TabIndex = 26
Top = 1125
Width = 990
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = " 模拟进程数量"
Height = 180
Left = -74880
TabIndex = 23
Top = 885
Width = 1170
End
End
Begin VB.Timer CPU_T
Enabled = 0 'False
Interval = 300
Left = 3000
Top = 4920
End
Begin VB.PictureBox Picture1
Height = 1695
Left = 4680
ScaleHeight = 1635
ScaleWidth = 3915
TabIndex = 6
Top = 840
Width = 3975
Begin MSComctlLib.ProgressBar PB1
Height = 255
Left = 1440
TabIndex = 8
Top = 360
Width = 2295
_ExtentX = 4048
_ExtentY = 450
_Version = 393216
Appearance = 0
End
Begin MSComctlLib.ProgressBar PB2
Height = 255
Left = 1440
TabIndex = 16
Top = 960
Width = 2295
_ExtentX = 4048
_ExtentY = 450
_Version = 393216
Appearance = 0
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = " 优先级："
Height = 180
Left = 240
TabIndex = 15
Top = 1320
Width = 1170
End
Begin VB.Label Label11
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "0"
ForeColor = &H00800000&
Height = 180
Left = 1440
TabIndex = 14
Top = 1320
Width = 2220
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = " 已完成："
Height = 180
Left = 240
TabIndex = 13
Top = 960
Width = 1170
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "占用CPU时间："
Height = 180
Left = 240
TabIndex = 12
Top = 720
Width = 1170
End
Begin VB.Label Label7
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "0"
ForeColor = &H00800000&
Height = 180
Left = 1440
TabIndex = 11
Top = 720
Width = 2220
End
Begin VB.Label Label6
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "0"
ForeColor = &H00800000&
Height = 180
Left = 1440
TabIndex = 10
Top = 120
Width = 2220
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "剩余的时间片："
Height = 180
Left = 120
TabIndex = 9
Top = 400
Width = 1260
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "分配的时间片："
Height = 180
Left = 120
TabIndex = 7
Top = 160
Width = 1260
End
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Left = 240
TabIndex = 4
Top = 720
Visible = 0 'False
Width = 3975
End
Begin MSComctlLib.ListView P_Ready
Height = 2295
Left = 240
TabIndex = 3
Top = 480
Width = 3975
_ExtentX = 7011
_ExtentY = 4048
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "名称"
Object.Width = 988
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -