module1.bas

是一个进程调度的程序

Attribute VB_Name = "Module1"

'定义运动轨迹
'运行状态时的位置
Public Const R_Top = 3800
Public Const R_Left = 5640
'就绪状态时的位置
Public Const W_Top = 2760
Public Const W_Left = 5760
'返回就绪队列时的位置
Public Const T1_Top = 3120
Public Const T1_Left = 5760
'返回完成队列时的位置
Public Const T2_Top = 4560
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