الگوریتم FIFO
If algolr = "FIFO" Then
For j As Integer = 0 To nom - 1
For k As Integer = 1 To frame 'check kardan jaye khali baraye garar dadan
If arr1(k, j) = "-" Then
arr1(k, j) = arr1(0, j)
arr2(k - 1, j) = arr1(0, j)
arr1(k, j + 1) = arr1(0, j)
arr2(k - 1, j + 1) = arr1(0, j)
pfault = True
fault = fault + 1
arr2(frame, j) = "Fault"
Exit For
End If
If arr1(k, j) = arr1(0, j) Then 'moojood bashad dar hafeze
For g As Integer = 1 To frame
arr1(g, j + 1) = arr1(g, j)
arr2(g - 1, j + 1) = arr1(g, j)
Next
arr1(k, j + 1) = arr1(k, j)
arr2(k - 1, j + 1) = arr1(k, j)
Exit For
Else
If (k = frame) And (p < frame) Then 'khataye safhe rokh dahad
fault = fault + 1 'p mahal taviz ast
pfault = True
arr2(frame, j) = "Fault"
arr1(p, J) = arr1(0, J)
arr2(p - 1, J) = arr1(0, J)
p = p + 1
For kk As Integer = 1 To frame
arr1(kk, J + 1) = arr1(kk, J)
arr2(kk - 1, J + 1) = arr1(kk, J)
Next
Else
If (k = frame) And (p = frame) Then
fault += 1
pfault = True
arr2(frame, j) = "Fault"
arr1(p, J) = arr1(0, J)
arr2(p - 1, j) = arr1(0, J)
p = 1
End If
For kk As Integer = 1 To frame
arr1(kk, J + 1) = arr1(kk, J)
arr2(kk - 1, J + 1) = arr1(kk, J)
Next
End If
End If
Next
Next
'txtfi.Text = fault
End If
هر که را عشق حسیـــــــن نیست زخود بی خیر است