进程调度.frm
来自「是关于CPU进程调度的模拟程序」· FRM 代码 · 共 1,572 行 · 第 1/4 页
FRM
1,572 行
Caption = "结束时间"
Height = 255
Index = 3
Left = 2895
TabIndex = 41
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "优先级"
Height = 255
Index = 2
Left = 2260
TabIndex = 40
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "服务时间"
Height = 255
Index = 1
Left = 1485
TabIndex = 39
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "到达时间"
Height = 255
Index = 0
Left = 720
TabIndex = 38
Top = 360
Width = 735
End
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 20
Left = 240
Top = 2280
End
Begin VB.CommandButton Command3
Caption = "退出程序"
Height = 375
Left = 7200
TabIndex = 36
Top = 5160
Width = 975
End
Begin VB.CommandButton Begin
Caption = "开始调度"
Enabled = 0 'False
Height = 375
Left = 7200
TabIndex = 35
Top = 4200
Width = 975
End
Begin VB.CommandButton Create
Caption = "创建进程"
Height = 375
Left = 7200
TabIndex = 34
Top = 3240
Width = 975
End
Begin VB.Frame Frame3
Caption = "调度算法"
Height = 1290
Left = 4200
TabIndex = 31
Top = 4200
Width = 1815
Begin VB.OptionButton Option3
Caption = "优先级算法"
Enabled = 0 'False
Height = 255
Left = 240
TabIndex = 80
Top = 960
Width = 1215
End
Begin VB.OptionButton Option2
Caption = "先来先服务"
Enabled = 0 'False
Height = 255
Left = 240
TabIndex = 33
Top = 240
Value = -1 'True
Width = 1215
End
Begin VB.OptionButton Option1
Caption = "短进程优先"
Enabled = 0 'False
Height = 255
Index = 0
Left = 240
TabIndex = 32
Top = 600
Width = 1455
End
End
Begin VB.TextBox Text2
Alignment = 2 'Center
BackColor = &H000000FF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 4
Left = 2880
Locked = -1 'True
TabIndex = 23
Top = 4560
Width = 345
End
Begin VB.TextBox Text2
Alignment = 2 'Center
BackColor = &H000000FF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 3
Left = 2520
Locked = -1 'True
TabIndex = 22
Top = 4560
Width = 345
End
Begin VB.TextBox Text2
Alignment = 2 'Center
BackColor = &H000000FF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 2
Left = 2160
Locked = -1 'True
TabIndex = 21
Top = 4560
Width = 345
End
Begin VB.TextBox Text2
Alignment = 2 'Center
BackColor = &H000000FF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 1800
Locked = -1 'True
TabIndex = 20
Top = 4560
Width = 345
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H80000008&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Index = 3
Left = 7800
Locked = -1 'True
TabIndex = 14
Text = "0"
Top = 1800
Width = 360
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H80000008&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Index = 2
Left = 7800
Locked = -1 'True
TabIndex = 13
Text = "0"
Top = 1440
Width = 360
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H80000008&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Index = 1
Left = 7800
Locked = -1 'True
TabIndex = 12
Text = "0"
Top = 1080
Width = 360
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Index = 0
Left = 4800
TabIndex = 0
Top = 720
Width = 2415
_ExtentX = 4260
_ExtentY = 450
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Index = 1
Left = 4800
TabIndex = 1
Top = 1080
Width = 2415
_ExtentX = 4260
_ExtentY = 450
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Index = 2
Left = 4800
TabIndex = 2
Top = 1440
Width = 2415
_ExtentX = 4260
_ExtentY = 450
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Index = 3
Left = 4800
TabIndex = 3
Top = 1800
Width = 2415
_ExtentX = 4260
_ExtentY = 450
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin VB.Frame Frame1
Caption = "调度信息"
Height = 2175
Left = 4200
TabIndex = 4
Top = 120
Width = 4215
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 315
Index = 3
Left = 3150
Picture = "进程调度.frx":1E72
ScaleHeight = 285
ScaleWidth = 285
TabIndex = 73
Top = 1645
Visible = 0 'False
Width = 315
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 315
Index = 2
Left = 3150
Picture = "进程调度.frx":2328
ScaleHeight = 285
ScaleWidth = 285
TabIndex = 72
Top = 1283
Visible = 0 'False
Width = 315
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 315
Index = 1
Left = 3150
Picture = "进程调度.frx":27DE
ScaleHeight = 285
ScaleWidth = 285
TabIndex = 71
Top = 925
Visible = 0 'False
Width = 315
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 315
Index = 0
Left = 3150
Picture = "进程调度.frx":2C94
ScaleHeight = 285
ScaleWidth = 285
TabIndex = 70
Top = 570
Visible = 0 'False
Width = 315
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H80000006&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 270
Index = 0
Left = 3600
Locked = -1 'True
TabIndex = 11
Text = "0"
Top = 600
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?