资源描述：
《操作系统处理机调度实验(vb实现)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、武汉科技大学城市学院《操作系统》实验报告院系＿＿信息工程学部＿＿＿学生专业＿信息管理与信息系统＿年级班＿＿＿＿1班＿＿＿＿课程名称＿＿＿操作系统＿＿＿实验题目＿＿＿处理机调度＿＿学生姓名＿＿＿＿张康＿＿＿＿1.实验目的：进程调度是操作系统最重要的概念之一，是操作系统核心内容。调度算法好坏将直接影响操作系统的性能。本实验可以加深对进程调度和各种调度算法的理解。要求到达的进程数、各进程到达的时间可以任意选择。通过实验，求出平均周转时间和加权均周转时间3.流程图：开始添加4个进程，计算各进程提交时间按先来先服务算法执行进程，求出完成时间；周转时间；计算平均周转
2、时间、带权平均周转时间。结束，输出结果是否还存在进程？是否执行下一进程4.部分代码及截图：PrivateSubok()pb1.Max=(lv2.ListItems(1).ListSubItems(2).Text)*40pb1.Value=pb1.Value+0.5Ifpb1.Value>=pb1.MaxThent2.Enabled=Falsepb1.Value=0Setitem=lv1.ListItems.add(,lb2.Caption,lb2.Caption)item.SubItems(lv1.ColumnHeaders("tjsj").SubIte
3、mIndex)=lv2.ListItems(1).ListSubItems(1).Textitem.SubItems(lv1.ColumnHeaders("yxsj").SubItemIndex)=lv2.ListItems(1).ListSubItems(2).Textitem.SubItems(lv1.ColumnHeaders("kssj").SubItemIndex)=Lbks.Captionb=Format(Now,"hh:mm:ss")HT(0)=Val(Left(a,2))MT(0)=Val(Mid(a,4,2))ST(0)=Val(Rig
4、ht(a,2))HT(1)=Val(Left(b,2))MT(1)=Val(Mid(b,4,2))ST(1)=Val(Right(b,2))c=Format(Str((HT(1)-HT(0))*3600+(MT(1)-MT(0))*60+(ST(1)-ST(0))),"0.00")item.SubItems(lv1.ColumnHeaders("wcsj").SubItemIndex)=bIflb2.Caption="pc1"Thenc=c+3ElseIflb2.Caption="pc2"Thenc=c+2ElseIflb2.Caption="pc3"T
5、henc=c+1EndIfitem.SubItems(lv1.ColumnHeaders("zzsj").SubItemIndex)=cIflv1.ListItems.Count=2ThenEndIflv2.ListItems.Remove(1)EndIfLb6.Caption=CInt(((pb1.Value)/(pb1.Max))*100)&"%"Iflv2.ListItems.Count=0Thenstart.Enabled=Falselb2.Visible=Falsem1=CInt(lv1.ListItems(1).ListSubItems(5)
6、.Text)m2=CInt(lv1.ListItems(2).ListSubItems(5).Text)m3=CInt(lv1.ListItems(3).ListSubItems(5).Text)m4=CInt(lv1.ListItems(4).ListSubItems(5).Text)dqzzsj=(m1+m2+m3+m4)/4tdq.Caption=dqzzsjEndIfEndSubPrivateSubt3_Timer()Pb2.Max=100Pb2.Value=Pb2.Value+10IfPb2.Value=10ThenSetitem=lv2.Li
7、stItems.add(1,"p1","pc1")a=Format(Now,"hh:mm:ss")item.SubItems(lv2.ColumnHeaders("tjsj").SubItemIndex)=aitem.SubItems(lv2.ColumnHeaders("yxsj").SubItemIndex)="2.0"ElseIfPb2.Value=30ThenSetitem=lv2.ListItems.add(2,"p2","pc2")a=Format(Now,"hh:mm:ss")item.SubItems(lv2.ColumnHeaders(
8、"tjsj").SubItemIndex)=aitem.SubItems(lv2
