📄 mdiform1.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 3
Left = 720
TabIndex = 31
Top = 1560
Width = 135
End
Begin VB.Label label
AutoSize = -1 'True
Caption = "C"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 2
Left = 720
TabIndex = 30
Top = 1200
Width = 135
End
Begin VB.Label label
AutoSize = -1 'True
Caption = "B"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 1
Left = 720
TabIndex = 29
Top = 840
Width = 135
End
Begin VB.Label label
AutoSize = -1 'True
Caption = "A"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = 720
TabIndex = 28
Top = 480
Width = 135
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "进程 到达时间 服务时间"
Height = 180
Left = 600
TabIndex = 9
Top = 240
Width = 3240
End
End
Begin VB.Timer Timer1
Left = 120
Top = 0
End
Begin VB.Label Label4
Caption = "Label4"
Height = 255
Left = 240
TabIndex = 24
Top = 4200
Width = 5175
End
Begin VB.Label Label1
Caption = "信息管理1班 于洋（16号） —— 制作完成"
Height = 900
Left = 4320
TabIndex = 23
Top = 1320
Width = 1095
End
Begin VB.Label t1
AutoSize = -1 'True
Caption = "请输入进程信息："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 2
Top = 840
Width = 1680
End
Begin VB.Label title
AutoSize = -1 'True
Caption = "Label1"
Height = 180
Left = 3000
TabIndex = 1
Top = 480
Width = 540
End
Begin VB.Line Line1
X1 = 0
X2 = 5520
Y1 = 720
Y2 = 720
End
Begin VB.Label topic
AutoSize = -1 'True
Caption = "调度算法的演示程序"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1560
TabIndex = 0
Top = 120
Width = 2295
End
Begin VB.Menu file
Caption = "文件"
Begin VB.Menu new
Caption = "新建"
Shortcut = ^N
End
Begin VB.Menu yun
Caption = "运行"
Shortcut = ^C
End
Begin VB.Menu line
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出"
Shortcut = ^E
End
End
Begin VB.Menu metic
Caption = "算法"
Begin VB.Menu FCFS
Caption = "FCFS方式"
End
Begin VB.Menu HRRN
Caption = "HRRN方式"
End
Begin VB.Menu SJF
Caption = "SPF(非抢占)方式"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim m As Integer, j As Integer, i As Integer
Dim back As Integer
Dim xs As Integer
Private Sub botton_add_Click()
xs = xs + 1
Select Case xs
Case 1
Check1.Value = 1
botton_back.Enabled = True
Case 2
Check2.Value = 1
Case 3
Check3.Value = 1
Case 4
Check4.Value = 1
Case 5
Check5.Value = 1
Case 6
Check6.Value = 1
botton_add.Enabled = False
End Select
End Sub
Private Sub botton_back_Click()
Select Case xs
Case 6
Check6.Value = 0
botton_add.Enabled = True
Case 5
Check5.Value = 0
Case 4
Check4.Value = 0
Case 3
Check3.Value = 0
Case 2
Check2.Value = 0
Case 1
Check1.Value = 0
botton_back.Enabled = False
End Select
xs = xs - 1
End Sub
Private Sub button_ok_Click()
num.Text = m
If m > 0 Then
If MDIForm1.title.Caption = "——请先选择调度方式" Then
MsgBox "请先选择调度算法！"
Else
Run.Show
End If
Else
MsgBox "请先选择进程！"
End If
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
label(0).Visible = True
reach(0).Visible = True
service(0).Visible = True
m = m + 1
Else
label(0).Visible = False
reach(0).Visible = False
service(0).Visible = False
m = m - 1
End If
Label4.Caption = "系统中共有" & m & "个进程。"
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
label(1).Visible = True
reach(1).Visible = True
service(1).Visible = True
m = m + 1
Else
label(1).Visible = False
reach(1).Visible = False
service(1).Visible = False
m = m - 1
End If
Label4.Caption = "系统中共有" & m & "个进程。"
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
label(2).Visible = True
reach(2).Visible = True
service(2).Visible = True
m = m + 1
Else
label(2).Visible = False
reach(2).Visible = False
service(2).Visible = False
m = m - 1
End If
Label4.Caption = "系统中共有" & m & "个进程。"
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
label(3).Visible = True
reach(3).Visible = True
service(3).Visible = True
m = m + 1
Else
label(3).Visible = False
reach(3).Visible = False
service(3).Visible = False
m = m - 1
End If
Label4.Caption = "系统中共有" & m & "个进程。"
End Sub
Private Sub Check5_Click()
If Check5.Value = 1 Then
label(4).Visible = True
reach(4).Visible = True
service(4).Visible = True
m = m + 1
Else
label(4).Visible = False
reach(4).Visible = False
service(4).Visible = False
m = m - 1
End If
Label4.Caption = "系统中共有" & m & "个进程。"
End Sub
Private Sub Check6_Click()
If Check6.Value = 1 Then
label(5).Visible = True
reach(5).Visible = True
service(5).Visible = True
m = m + 1
Else
label(5).Visible = False
reach(5).Visible = False
service(5).Visible = False
m = m - 1
End If
Label4.Caption = "系统中共有" & m & "个进程。"
End Sub
Private Sub HRRN_Click()
title.Caption = "——HRRN方式"
End Sub
Private Sub new_Click()
Unload Run
Call Form_Load
End Sub
Private Sub SJF_Click()
title.Caption = "——SPF(非抢占)方式"
End Sub
Private Sub fcfs_Click()
title.Caption = "——FCFS方式"
End Sub
Private Sub Timer1_Timer()
MDIForm1.Caption = Now
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub yun_Click()
num.Text = m
If m > 0 Then
If MDIForm1.title.Caption = "——请先选择调度方式" Then
MsgBox "请先选择调度算法！"
Else
Run.Show
End If
Else
MsgBox "请先选择进程！"
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
m = 0
Timer1.Interval = 1000
Label4.Caption = "系统中共有" & m & "个进程。"
title.ForeColor = QBColor(12)
title.Caption = "——请先选择调度方式"
MDIForm1.Width = 5625
MDIForm1.Height = 5445
For i = 0 To 5
label(i).Visible = False
reach(i).Visible = False
service(i).Visible = False
Next i
botton_back.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -