📄 form1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
BackColor = &H00E0E0E0&
Caption = "操作系统模拟"
ClientHeight = 7815
ClientLeft = 165
ClientTop = 855
ClientWidth = 12795
LinkTopic = "Form1"
ScaleHeight = 7815
ScaleWidth = 12795
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 1000
Left = 2640
Top = 0
End
Begin VB.Frame Frame10
BackColor = &H00E0E0E0&
Caption = "设备使用情况"
Height = 3375
Left = 6480
TabIndex = 298
Top = 3960
Width = 6015
Begin VB.TextBox txtDev
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 2175
Index = 4
Left = 4920
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 163
TabStop = 0 'False
Text = "Form1.frx":0000
Top = 960
Width = 975
End
Begin VB.TextBox txtDev
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 2175
Index = 3
Left = 3720
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 162
TabStop = 0 'False
Text = "Form1.frx":000A
Top = 960
Width = 975
End
Begin VB.TextBox txtDev
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 2175
Index = 2
Left = 2520
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 161
TabStop = 0 'False
Text = "Form1.frx":0014
Top = 960
Width = 975
End
Begin VB.TextBox txtDev
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 2175
Index = 1
Left = 1320
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 160
TabStop = 0 'False
Text = "Form1.frx":001E
Top = 960
Width = 975
End
Begin VB.TextBox txtDev
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Height = 2175
Index = 0
Left = 120
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 159
TabStop = 0 'False
Text = "Form1.frx":0028
Top = 960
Width = 975
End
Begin VB.Label Label15
BackColor = &H00E0E0E0&
Caption = "C1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
TabIndex = 311
Top = 480
Width = 255
End
Begin VB.Label Label14
BackColor = &H00E0E0E0&
Caption = "B2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3960
TabIndex = 310
Top = 480
Width = 255
End
Begin VB.Label Label13
BackColor = &H00E0E0E0&
Caption = "B1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2760
TabIndex = 309
Top = 480
Width = 255
End
Begin VB.Label Label12
BackColor = &H00E0E0E0&
Caption = "A2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1560
TabIndex = 308
Top = 480
Width = 255
End
Begin VB.Label Label11
BackColor = &H00E0E0E0&
Caption = "A1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 307
Top = 480
Width = 255
End
End
Begin VB.Frame Frame6
BackColor = &H00E0E0E0&
Caption = "进程"
Height = 3615
Left = 240
TabIndex = 285
Top = 3960
Width = 6015
Begin VB.CommandButton cmdExit
BackColor = &H00808080&
Caption = "退 出"
Height = 375
Left = 4200
TabIndex = 303
Top = 2880
Width = 975
End
Begin VB.CommandButton cmdPSW
BackColor = &H00E0E0E0&
Caption = "中 断"
Height = 375
Left = 4200
TabIndex = 302
Top = 2400
Width = 975
End
Begin MSComctlLib.Slider TimeSet
Height = 375
Left = 120
TabIndex = 7
Top = 2880
Visible = 0 'False
Width = 30
_ExtentX = 53
_ExtentY = 661
_Version = 393216
LargeChange = 1
SmallChange = 5
Min = 1
Max = 50
SelStart = 2
TickStyle = 3
Value = 2
TextPosition = 1
End
Begin VB.Frame Frame9
BackColor = &H00E0E0E0&
Caption = "已完成进程"
Height = 1695
Left = 3720
TabIndex = 290
Top = 600
Width = 1575
Begin VB.TextBox txtProcEnd
BackColor = &H00FFFFFF&
Height = 1335
Left = 0
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 170
TabStop = 0 'False
Top = 240
Width = 1575
End
End
Begin VB.Frame Frame8
BackColor = &H00E0E0E0&
Height = 1695
Left = 1320
TabIndex = 289
Top = 600
Width = 2295
Begin VB.TextBox txtEvents
BackColor = &H00FFFFFF&
Height = 1335
Left = 1200
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 295
TabStop = 0 'False
Top = 240
Width = 975
End
Begin VB.TextBox txtBlock
BackColor = &H00FFFFFF&
Height = 1335
Left = 0
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 294
TabStop = 0 'False
Top = 240
Width = 1095
End
Begin VB.Label Label10
BackColor = &H00E0E0E0&
Caption = "阻塞原因"
Height = 255
Left = 1200
TabIndex = 292
Top = 0
Width = 855
End
Begin VB.Label Label9
BackColor = &H00E0E0E0&
Caption = "阻塞进程"
Height = 255
Left = 120
TabIndex = 291
Top = 0
Width = 855
End
End
Begin VB.Frame Frame7
BackColor = &H00E0E0E0&
Caption = "就绪进程"
Height = 1695
Left = 120
TabIndex = 288
Top = 600
Width = 1095
Begin VB.TextBox txtReady
BackColor = &H00FFFFFF&
Height = 1335
Left = 0
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 293
Top = 240
Width = 1095
End
End
Begin VB.Label Labeltime
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "5"
ForeColor = &H80000008&
Height = 375
Left = 2280
TabIndex = 297
Top = 2640
Width = 735
End
Begin VB.Label TimePieLen
BackColor = &H00E0E0E0&
Caption = "时间片长度："
Height = 255
Left = 480
TabIndex = 296
Top = 2760
Width = 1335
End
Begin VB.Label lbRunProc
BackColor = &H00E0E0E0&
Caption = "(无)"
Height = 255
Left = 1560
TabIndex = 287
Top = 240
Width = 1575
End
Begin VB.Label Label8
BackColor = &H00E0E0E0&
Caption = "正在运行进程："
Height = 255
Left = 120
TabIndex = 286
Top = 240
Width = 1335
End
End
Begin VB.Frame Frame3
BackColor = &H00E0E0E0&
Caption = "内存管理"
Height = 3375
Left = 6360
TabIndex = 141
Top = 360
Width = 6135
Begin VB.Timer TimerCPU
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -