linglanx.bas

简单的进程调度算法

Attribute VB_Name = "LinglanX"
'**********************************************************
'*                    LingLanX STUDIO                     *
'*               E_Mail：[e-mail]                *
'*                    OICQ： 64775590                     *
'*                       2002-5-13                        *
'*                  操作系统进程调度模拟                  *
'**********************************************************
'*                      姓名：王煜冬                      *
'*                      班级：9901-8                      *
'*                      学号：19992161                    *
'**********************************************************

'定义运动轨迹
'运行状态时的位置
Public Const R_Top = 480
Public Const R_Left = 4680
'就绪状态时的位置
Public Const W_Top = 720
Public Const W_Left = 240
'返回就绪队列时的位置
Public Const T1_Top = 2520
Public Const T1_Left = 240
'返回完成队列时的位置
Public Const T2_Top = 3600
Public Const T2_Left = 240
'定义进程控制块类型
Public 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