进程调度算法实现与优化

Private Type PCB
 P_Name As String  '进程名称
 P_CPU As Integer  '已使用的时间片数
 P_NCPU As Integer '需要的时间片数
 P_PRI As Integer  '优先数(优先数法)或分配的CPU单位(轮转法)
 P_State As String '进程状态
End Type
Private Const VV_LEFT = 200
Private Const KK_LEFT = 7200
'定义全局变量
Dim mItem As ListItem   '定义ListItem对象，用于把数据插入ListView控件
Dim PRI As Boolean      '判断是否采用优先数法(PRI=True)
Dim P_Run As PCB        '存放当前运行的进程控制块中的数据
Dim Proc() As PCB       '存放模拟的进程
Dim Proc_B() As PCB     '备份模拟的进程
Dim N, i As Integer     'N存放模拟的进程数
Dim TimeChip As Integer '每个CPU单位分配的时间片
Dim Sum As Integer      '存放总调度次数
Dim NSum As Integer     '存放总时间片数
Dim A, B As Integer     '存放随机数
Dim Pause_R As Integer  '存放被暂停的Timer
Private Function Get_R(ByVal NCPU As Integer, ByVal CPU As Integer) As Integer '计算分配的CPU单位(轮转发)
    Get_R = Int((NCPU - CPU) / 3) + 1
End Function
Private Sub P_Index()   '对进程按优先数进行排序，并加入到P_Ready(ListView控件)中
    Dim T As PCB   '用于在排序过程中临时存放数据
    '用 冒泡排序法按 优先级 降序 进行排序
    For i = 1 To N
        For j = 1 To N - 1
            If Proc(i).P_PRI >= Proc(j).P_PRI Then

                '交换数据
                T = Proc(i)
                Proc(i) = Proc(j)
                Proc(j) = T
            End If
        Next j
    Next i
    '清除就绪队列
    P_Ready.ListItems.Clear
    '向就绪队列中插入进程
    For i = 1 To N
        If Proc(i).P_State <> "F" Then
            '初始化mItem对象，并向P_Ready(ListView控件)中添加数据
            Set mItem = P_Ready.ListItems.Add(, Proc(i).P_Name, Proc(i).P_Name)
            mItem.ListSubItems.Add Key:="A" + Proc(i).P_Name, Text:=Trim(Proc(i).P_CPU)
            mItem.ListSubItems.Add Key:="B" + Proc(i).P_Name, Text:=Trim(Proc(i).P_NCPU)
            mItem.ListSubItems.Add Key:="C" + Proc(i).P_Name, Text:=Trim(Proc(i).P_PRI)
            mItem.ListSubItems.Add Key:="D" + Proc(i).P_Name, Text:=Trim(Proc(i).P_State)
        End If
    Next i
End Sub
Private Sub Start_P()  '开始
    Picture1.Visible = True
    '取得就绪站顶的PCB放入P_Run
    P_Run.P_Name = P_Ready.ListItems(1).Text
    P_Run.P_CPU = CInt(P_Ready.ListItems(1).ListSubItems(1).Text)
    P_Run.P_NCPU = CInt(P_Ready.ListItems(1).ListSubItems(2).Text)
    P_Run.P_PRI = CInt(P_Ready.ListItems(1).ListSubItems(3).Text)
    P_Run.P_State = P_Ready.ListItems(1).ListSubItems(4).Text
    '初始化控件