分页存储管理算法VB程序演示.docx

1、分页存储管理算法VB程序演示计算机与信息工程学院计算机科学与技术专业02级操作系统原理课程设计课题名称：分页存储管理算法VB程序演示 姓 名：高远班 级：计算机02-13班 学 号：26课程设计起止时间：2005.1.32005.1.8指导教师：杨兆楠 成绩：课程设计任务书操作系统原理课程设计任务书（同学填写）设计题目：分页存储管理算法VB程序演示任务下达时间：2005-1-3任务完成时间：2005-1-7指导教师：杨兆楠 指导教师评语（教师填写）一、所得结果：二、存在问题：成绩评阅人一 设计说明 这个程序是由Visual Basic 6.0所编，它主要演示了关于分页存储管理中的随机分页的过程

2、，程序可演示4个作业的分配，但总长度不可打于64，它可以显示作业号、页表长度、作业长度、状态（空项、已分配）。通过点击按键“我有作业要分配”来激活分配。程序共由两个表格、一个按键组成。关于不同的作业运用了不同的颜色，可以让读者看出这个页分配给了哪个作业。“空项”表示该作业还不存在，“已分配”表示该作业已分配完了，对照作业号上的颜色，可以看出哪几页是被分配给该作业的。二、详细设计：1）主要系统函数说明：无2）流程图： N Y N3）程序代码：全局变量声明：Public p1 As IntegerPublic p2 As IntegerPublic p3 As IntegerPublic p4 A

3、s IntegerPublic p5 As IntegerPublic p6 As IntegerPublic p7 As IntegerPublic p8 As IntegerPublic p9 As IntegerPublic p10 As IntegerPublic p11 As IntegerPublic p12 As IntegerPublic p13 As IntegerPublic p14 As IntegerPublic p15 As IntegerPublic p16 As IntegerPublic colora As Single 颜色值Dim m As Integer

4、作业信号量Dim sssyyy As IntegerDim ssyy As String 剩余页信号量1Dim y As IntegerPublic nnn As Integer 剩余页信号量2窗体声明：Private Sub Command1_Click()Dim n As IntegerDim nn As IntegerDim acount As IntegerDim rrrr As Integerm = m + 1剩余字节数的显示If sssyyy = 0 Then y = 64ssyy = yMsgBox (可分配的剩余字节数为 + ssyy)作业分配激活n = InputBox(请求

5、分配的字节大小（064）, 作业分配)nnn = n + nnnnn = n 4单次分配大小限定,超过则退出If n 64 ThenMsgBox (对不起 你要求分配的字节数太大)EndEnd If总分配大小限定,超出则退出If nnn 64 ThenMsgBox (对不起 容量不够)nnn = nnn - nEndEnd If作业表If n Mod 4 0 Thennn = nn + 1End IfIf aa = 0 Then If Label15.Caption = 空项 Then Label8.Caption = nn Label12.Caption = n Label15.Captio

6、n = 已分配 aa = 1 GoTo h End IfEnd IfIf aaa = 0 Then If Label16.Caption = 空项 Then Label13.Caption = n Label10.Caption = nn Label16.Caption = 已分配 aaa = 1 GoTo h End IfEnd IfIf aaaa = 0 Then If Label17.Caption = 空项 Then Label11.Caption = nn Label14.Caption = n Label17.Caption = 已分配 aaaa = 1 GoTo h End If

7、End IfIf aaaaa = 0 Then If Label20.Caption = 空项 Then Label18.Caption = nn Label19.Caption = n Label20.Caption = 已分配 aaaaa = 1 GoTo h End IfEnd If页面变换表存储分块表h:acount = nnGoTo aa: If acount 0 Then rrrr = Rnd() * 15 Select Case rrrr Case 0 If p1 1 Then Call p Picture1.BackColor = colora p1 = 1 acount =

8、acount - 1 GoTo a: End If Case 1 If p2 1 Then Call p Picture2.BackColor = colora p2 = 1 acount = acount - 1 GoTo a: End If Case 2 If p3 1 Then Call p Picture3.BackColor = colora p3 = 1 acount = acount - 1 GoTo a: End If Case 3 If p4 1 Then Call p Picture4.BackColor = colora p4 = 1 acount = acount -

9、1 GoTo a: End If Case 4 If p5 1 Then Call p Picture5.BackColor = colora p5 = 1 acount = acount - 1 GoTo a: End If Case 5 If p6 1 Then Call p Picture6.BackColor = colora p6 = 1 acount = acount - 1 GoTo a: End If Case 6 If p7 1 Then Call p Picture6.BackColor = colora p7 = 1 acount = acount - 1 GoTo a:

10、 End If Case 7 If p8 1 Then Call p Picture7.BackColor = colora p8 = 1 acount = acount - 1 GoTo a: End If Case 8 If p9 1 Then Call p Picture8.BackColor = colora p9 = 1 acount = acount - 1 GoTo a End If Case 9 If p10 1 Then Call p Picture9.BackColor = colora p10 = 1 acount = acount - 1 GoTo a End If C

11、ase 10 If p11 1 Then Call p Picture10.BackColor = colora p11 = 1 acount = acount - 1 GoTo a: End If Case 11 If p12 1 Then Call p Picture11.BackColor = colora p12 = 1 acount = acount - 1 GoTo a End If Case 12 If p13 1 Then Call p Picture12.BackColor = colora p13 = 1 acount = acount - 1 GoTo a End If

12、Case 13 If p14 1 Then Call p Picture13.BackColor = colora p14 = 1 acount = acount - 1 GoTo a: End If Case 14 If p15 1 Then Call p Picture14.BackColor = colora p15 = 1 acount = acount - 1 GoTo a End If Case 15 If p16 1 Then Call p Picture15.BackColor = colora p16 = 1 acount = acount - 1 GoTo a End If

13、 End Select If acount 0 Then GoTo a: End IfEnd IfEnd Sub颜色分配子程序Public Sub p()If m = 1 Thencolora = &HFF80FFElseIf m = 2 Thencolora = &HFFFF00ElseIf m = 3 Thencolora = &H80FF80ElseIf m = 4 Thencolora = &HFF00FFEnd Ify = y - 4sssyyy = 1End Sub4）关键语句注释：见程序代码 粗斜体字三、运行结果：四、分析结果：连续分配方式会形成许多“碎片”，虽然可通过“紧凑”方

14、法将许多碎片拼接成可用的大块空间，但须为之付出很大开销。如果允许将一个进程直接分散地装入到许多不相邻的分区中，则无须再进行“紧凑”。基于这一思想而产生了离散分配方式。如果离散分配的基本单位是页，则称为分页存储管理方式。（1） 作业表（JT） 整个系统一张表。每个作业在作业表中对应一个表目，包括该作业的页表始址、页表长度和状态信息。当该作业调度程序调度到某个作业时，如果存储要求可以得到满足，就在此表上进行登记。当作业轮到处理时，就在此表把也表始址和页表长度送到状态控制寄存器中。（2） 存储分块表（MBT） 整个系统一张表。该表中每一表目对应一个存储块，记录了该块的状态：已分配或空闲。（3） 页表

15、变换表（PMT）每个作业一张表。页面变换表，用于该作业的地址变换，该作业有多少页面就有多少表目，表目内记录对应的存储块号。分页存储管理仍然存在如下严重缺点：1采用动态地址变换会增加计算机成本和降低处理机的速度2各种表格要占用一定容量的主存空间，而且还要花费一部分处理机时间来建立和管理这些表格3虽然说碎片消除了，但每个作业的最后一页一般都有不能充分利用的空白区。例如，页面大小为4KB，作业需要3KB，则为其分配一个物理存储块，但有1KB空间被浪费了。4存储扩充问题仍未得到解决。当没有足够的可用空间能装下整个作业地址空间时，该作业还是无法运行的。五、参考文献操作系统教程2004版 西北工业大学出版社Visual Basic 程序设计教程（第二版） 刘炳文 清华大学出版社