End If
If d < a And d < b And d < c Then
Timer4.Enabled = True
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
d = TextBox4.Text
If a < b And a < c And a < d Then
Timer1.Enabled = True
End If
If b < a And b < c And b < d Then
Timer2.Enabled = True
End If
If c < a And c < b And c < d Then
Timer3.Enabled = True
End If
If d < a And d < b And d < c Then
Timer4.Enabled = True
End If
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
Button1.Enabled = False
Button2.Enabled = True
Label18.Visible = True
Label21.Visible = True
Label24.Visible = True
Label27.Visible = True
End Sub
End Class
2轮转法调度源代码
'
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
&nb
首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/9/9
操作系统课程设计报告模拟进程调度程序(四)由毕业论文网(www.huoyuandh.com)会员上传。