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

        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

        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