操作系统课程设计报告模拟进程调度程序

True

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

操作系统课程设计报告模拟进程调度程序(四)