Disk-Scheduling-Algorithms/FCFS.vb at master · kcjavier21/Disk-Scheduling-Algorithms · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
Public Class FCFS
    Public Sub Execute()
        Dim Index As Integer
        Dim Add As Integer
        Dim ProcList As New List(Of Process)()
        Dim Utils As New Utils

        Dim totalWaitingTime As Integer = 0
        Dim totalTurnAroundTime As Integer = 0
        Dim avgWaitingTime As Double = 0
        Dim avgTurnAroundTime As Double = 0

        Dim processWalkthrough = New ArrayList

        Dim processIds() As String = {"A", "B", "C", "D", "E"}
        Dim TbAtProcesses() As TextBox = {Main.TbAtProcessA, Main.TbAtProcessB, Main.TbAtProcessC, Main.TbAtProcessD, Main.TbAtProcessE}
        Dim TbCbProcesses() As TextBox = {Main.TbCbProcessA, Main.TbCbProcessB, Main.TbCbProcessC, Main.TbCbProcessD, Main.TbCbProcessE}

        Dim numOfProcesses As Integer = processIds.Length

        For i = 0 To (numOfProcesses - 1)
            Dim atIsNotEmpty = Utils.CheckIfTextBoxIsNotEmpty(TbAtProcesses(i))
            If atIsNotEmpty = False Then Return

            Dim atIsNumber = Utils.CheckIfNumber(TbAtProcesses(i))
            If atIsNumber = False Then Return

            Dim atIsPositiveNumber = Utils.CheckIfPositiveNumber(TbAtProcesses(i))
            If atIsPositiveNumber = False Then Return

            Dim cbIsNotEmpty = Utils.CheckIfTextBoxIsNotEmpty(TbCbProcesses(i))
            If cbIsNotEmpty = False Then Return

            Dim cbIsNumber = Utils.CheckIfNumber(TbCbProcesses(i))
            If cbIsNumber = False Then Return

            Dim cbIsPositiveNumber = Utils.CheckIfPositiveNumber(TbCbProcesses(i))
            If cbIsNumber = False Then Return

            ProcList.Add(New Process())
            ProcList(i).Id = processIds(i)
            ProcList(i).ArrivalTime = Val(TbAtProcesses(i).Text)
            ProcList(i).BurstTime = Val(TbCbProcesses(i).Text)
        Next

        'Sort the ProcList from the smallest arrival time
        For i As Integer = 0 To ProcList.Count - 1
            Index = i
            For j As Integer = i + 1 To ProcList.Count - 1

                If (ProcList(j).ArrivalTime < ProcList(Index).ArrivalTime) Then
                    Index = j
                End If
            Next
            Dim temp As Process = ProcList(i)
            ProcList(i) = ProcList(Index)
            ProcList(Index) = temp
        Next

        Dim prevProcessId As String = ""
        Dim eventLog = ""
        Dim currentTime As Integer = 0

        'Create event log
        For i = 0 To (ProcList.Count - 1)
            For j = 0 To (ProcList(i).BurstTime - 1)
                If ProcList(i).Id <> prevProcessId Then
                    If prevProcessId = "" Then
                        eventLog += currentTime.ToString + ": Process " & ProcList(i).Id & " started." & vbCrLf

                        ProcList(i).StartTime = currentTime
                        ProcList(i).WaitingTime = currentTime - ProcList(i).ArrivalTime

                        totalWaitingTime += ProcList(i).WaitingTime
                    Else
                        eventLog += currentTime.ToString + ": Process " & prevProcessId & " done. Process " & ProcList(i).Id & " started" & vbCrLf

                        ProcList(i - 1).CompletionTime = currentTime
                        ProcList(i - 1).TurnAroundTime = currentTime - ProcList(i - 1).ArrivalTime

                        ProcList(i).StartTime = currentTime
                        ProcList(i).WaitingTime = currentTime - ProcList(i).ArrivalTime

                        totalTurnAroundTime += ProcList(i - 1).TurnAroundTime
                        totalWaitingTime += ProcList(i).WaitingTime
                    End If
                Else
                    eventLog += currentTime.ToString + ": Process " & ProcList(i).Id & " running." & vbCrLf
                End If

                processWalkthrough.Add(ProcList(i).Id)

                currentTime += 1
                prevProcessId = ProcList(i).Id
            Next
        Next

        eventLog += currentTime.ToString + ": Process " & prevProcessId & " done."

        ProcList(ProcList.Count - 1).CompletionTime = currentTime
        ProcList(ProcList.Count - 1).TurnAroundTime = currentTime - ProcList(ProcList.Count - 1).ArrivalTime

        totalTurnAroundTime += ProcList(ProcList.Count - 1).TurnAroundTime

        Main.RichTextBox2.Text = eventLog

        For i = 0 To (ProcList.Count - 1)
            Console.WriteLine(ProcList(i).WaitingTime.ToString & vbCrLf)
            Console.WriteLine(ProcList(i).TurnAroundTime.ToString & vbCrLf & vbCrLf)
        Next

        Console.WriteLine(totalTurnAroundTime.ToString)
        Console.WriteLine(totalWaitingTime.ToString)

        avgTurnAroundTime = totalTurnAroundTime / numOfProcesses
        avgWaitingTime = totalWaitingTime / numOfProcesses

        Main.LabelAvgWaitingTime.Text = Math.Round(avgWaitingTime, 2) & " ms"
        Main.LabelAvgTurnaroundTime.Text = Math.Round(avgTurnAroundTime, 2) & " ms"

        Utils.VisualizeProcessWalkthrough(processWalkthrough)
    End Sub
End Class