📄 yinhan.frm
字号:
VERSION 5.00
Begin VB.Form yinhan
BorderStyle = 0 'None
Caption = "银行家算法"
ClientHeight = 6360
ClientLeft = 0
ClientTop = 0
ClientWidth = 8955
FillStyle = 0 'Solid
LinkTopic = "Form1"
Picture = "yinhan.frx":0000
ScaleHeight = 6360
ScaleWidth = 8955
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.ListBox List4
BackColor = &H00E0E0E0&
Height = 1860
Left = 240
TabIndex = 41
Top = 4065
Width = 1245
End
Begin VB.CommandButton Command2
Caption = "A&dd"
Enabled = 0 'False
Height = 300
Left = 7185
TabIndex = 37
Top = 1215
Width = 735
End
Begin VB.TextBox Text3
BackColor = &H00E0E0E0&
Enabled = 0 'False
Height = 270
Left = 5655
TabIndex = 36
Text = "3"
Top = 1230
Width = 1275
End
Begin VB.CommandButton Command3
Caption = "&Add"
Enabled = 0 'False
Height = 300
Left = 4200
TabIndex = 32
Top = 1230
Width = 735
End
Begin VB.TextBox Text4
BackColor = &H00E0E0E0&
Enabled = 0 'False
Height = 270
Left = 2955
TabIndex = 31
Text = "3"
Top = 1245
Width = 1050
End
Begin VB.Frame Frame4
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
Caption = "系统资源调配"
ForeColor = &H80000008&
Height = 1635
Left = 1695
TabIndex = 18
Top = 2055
Width = 7020
Begin VB.CommandButton Command8
Caption = "还原<&R>"
Enabled = 0 'False
Height = 300
Left = 4080
TabIndex = 42
Top = 1260
Width = 1740
End
Begin VB.Frame Frame6
BackColor = &H00C0FFC0&
Caption = "请求向量"
Enabled = 0 'False
Height = 900
Left = 4020
TabIndex = 25
Top = 300
Width = 2865
Begin VB.ComboBox Combo1
BackColor = &H00C0FFC0&
Height = 300
ItemData = "yinhan.frx":48D6
Left = 1530
List = "yinhan.frx":48D8
TabIndex = 28
Text = "1"
Top = 180
Width = 1080
End
Begin VB.TextBox Text6
BackColor = &H00C0FFC0&
Height = 270
Left = 1560
TabIndex = 27
Text = "1"
Top = 525
Width = 405
End
Begin VB.CommandButton Command6
Caption = ">"
Enabled = 0 'False
Height = 255
Left = 2055
TabIndex = 26
Top = 540
Width = 300
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "请选择进程号"
Height = 270
Left = 360
TabIndex = 30
Top = 240
Width = 1215
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "第1个资源请求"
Height = 255
Left = 345
TabIndex = 29
Top = 585
Width = 1260
End
End
Begin VB.Frame Frame7
BackColor = &H00C0FFC0&
Caption = "系统资源"
Height = 915
Left = 285
TabIndex = 20
Top = 285
Width = 3060
Begin VB.CommandButton Command4
Caption = ">"
Height = 255
Left = 2325
TabIndex = 22
Top = 525
Width = 360
End
Begin VB.TextBox Text5
BackColor = &H00C0FFC0&
Height = 285
Left = 1590
TabIndex = 21
Text = "3"
Top = 510
Width = 630
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "请输入第1类的资源剩余量"
Height = 255
Left = 285
TabIndex = 24
Top = 240
Width = 2655
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "系统资源剩余："
Height = 240
Left = 300
TabIndex = 23
Top = 555
Width = 1320
End
End
Begin VB.CommandButton Command7
BackColor = &H00FFFFFF&
Caption = "安全检测<&S>"
Enabled = 0 'False
Height = 300
Left = 885
TabIndex = 19
Top = 1260
Width = 1740
End
End
Begin VB.Frame Frame5
BackColor = &H00FFFFFF&
Caption = "资源显示列表...."
Height = 2265
Left = 1695
TabIndex = 6
Top = 3720
Width = 7035
Begin VB.ListBox List3
BackColor = &H00E0E0E0&
Height = 1140
Left = 4860
TabIndex = 9
Top = 465
Width = 1470
End
Begin VB.ListBox List2
BackColor = &H00E0E0E0&
Height = 1140
Left = 420
TabIndex = 8
Top = 465
Width = 1470
End
Begin VB.ListBox List1
BackColor = &H00E0E0E0&
Height = 1140
Left = 2715
TabIndex = 7
Top = 465
Width = 1470
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Height = 240
Left = 2160
TabIndex = 13
Top = 1710
Width = 2280
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "：（NEED）"
Height = 255
Left = 4860
TabIndex = 17
Top = 210
Width = 1725
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "最大须求量：（MAX）"
Height = 255
Left = 345
TabIndex = 16
Top = 240
Width = 1725
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "已分配的资源：（AL）"
Height = 255
Left = 2565
TabIndex = 15
Top = 225
Width = 1815
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "当前系统须求剩余量为："
Height = 255
Left = 195
TabIndex = 14
Top = 1695
Width = 2010
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "请求向量进程号为：1，"
Height = 270
Left = 195
TabIndex = 12
Top = 1995
Width = 2040
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "当前资源请求量为："
Height = 255
Left = 2100
TabIndex = 11
Top = 1995
Width = 1620
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Height = 210
Left = 3675
TabIndex = 10
Top = 1980
Width = 1440
End
End
Begin VB.TextBox Text1
BackColor = &H00E0E0E0&
Height = 270
Left = 1530
TabIndex = 3
Text = "5"
Top = 915
Width = 285
End
Begin VB.CommandButton Command1
Caption = "分配>>"
Height = 285
Left = 1860
TabIndex = 2
Top = 1215
Width = 840
End
Begin VB.TextBox Text2
BackColor = &H00E0E0E0&
Height = 270
Left = 1515
TabIndex = 1
Text = "4"
Top = 1215
Width = 300
End
Begin VB.CommandButton Command5
Caption = "De&fault"
Height = 285
Left = 1860
TabIndex = 0
Top = 915
Width = 840
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "MESS:"
Height = 210
Left = 4065
TabIndex = 47
Top = 1755
Width = 4740
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "分配作业数:"
Height = 285
Left = 240
TabIndex = 46
Top = 2790
Width = 1140
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Height = 270
Left = 390
TabIndex = 45
Top = 3030
Width = 480
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Height = 270
Left = 405
TabIndex = 44
Top = 2340
Width = 480
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Caption = "分配进程数:"
Height = 285
Left = 255
TabIndex = 43
Top = 2100
Width = 1140
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "安全情况..."
Height = 255
Left = 180
TabIndex = 40
Top = 3780
Width = 1155
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Height = 210
Left = 8745
TabIndex = 39
Top = 45
Width = 195
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "请添加"
Height = 285
Left = 5610
TabIndex = 38
Top = 915
Width = 3075
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "添加进程--> 已分配资源"
Height = 240
Left = 5610
TabIndex = 35
Top = 615
Width = 2355
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "添加进程--> 最大须求量"
Height = 210
Left = 2925
TabIndex = 34
Top = 600
Width = 2145
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "请添加"
Height = 285
Left = 2940
TabIndex = 33
Top = 915
Width = 2745
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "预分配进程数："
Height = 255
Left = 300
TabIndex = 5
Top = 960
Width = 1260
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "预分配作业数："
Height = 255
Left = 300
TabIndex = 4
Top = 1260
Width = 1260
End
End
Attribute VB_Name = "yinhan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Change()
Combo1.Text = Val(Combo1.Text)
If Val(Combo1.Text) > Mx Then
Call MsgBox("对不起，输入进程非法", vbOKOnly, "错误信息")
Combo1.Text = 1
End If
Label15.Caption = "请求向量进程号为：" & Combo1.Text & "，"
jch = Val(Combo1.Text)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -