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

sp;    b = TextBox2.Text
        c = TextBox3.Text
        d = TextBox4.Text

        If a > 0 And b > 0 And c > 0 And d > 0 Then
            Timer1.Enabled() = True
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        i = a - Label7.Width
        If i < 20 Then
            Label7.Width = Label7.Width + i

            Label18.Visible = False
            Label17.Visible = False
            Label16.Visible = True

            Timer1.Enabled = False
            Timer2.Enabled = True
        End If

If Label7.Width < a Then

Label7.Width = Label7.Width + 10

            Label18.Visible = True
            Label17.Visible = False
            Label16.Visible = False

            Timer1.Enabled = False
            Timer2.Enabled = True
        Else

            Label18.Visible = False
            Label17.Visible = False
            Label16.Visible = True

Timer1.Enabled = False
Timer2.Enabled = True

End If

        If Label8.Width >= b Then
            Label21.Visible = False
            Label20.Visible = False
            Label19.Visible = True
        Else
            Label21.Visible = False
            Lab

首页上一页 2 3 4 5 6 7 8 下一页尾页 5/9/9

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