Attribute VB_Name = "LinglanX"
'**********************************************************
'*                    LingLanX STUDIO                     *
'*               E_Mail：LianLan1@sian.com                *
'*                    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