module1.bas

algo rithm sdsa d adsa dsdsa dsad sad sadsdsad sadsa

Attribute VB_Name = "Module1"
Global TotalProcess As Integer
Global CurrentTime As Integer
Global queue(50) As Integer
Global qcount As Integer
Global chosen As Integer
Global finish As Boolean


Public Type Process
    ProcessID As String
    BurstTime As Integer
    ArrivalTime As Integer
    EndTime As Integer
    StartTime As Integer
    RemainTime As Integer
    

End Type

Global Proc(50) As Process