操作系统B实验报告(华北电力大学科技学院)

课程设计报告

( 2011-- 2012年度第1学期)

名称：操作系统原理课程设计B 院系：信息工程系

班级：软件09k2

学号：0919********

学生姓名：闫雪峰

指导教师：郭丰娟张琦

设计周数： 1

成绩：

日期：2011年11 月25日

《操作系统原理课程设计B》课程设计

任务书

一、目的与要求

1. 理解和掌握操作系统的基本概念、基本组成与工作原理；

2. 理解和掌握操作系统中主要功能模块的工作原理及其实现算法；

3. 掌握软件模块设计技能；熟悉并能较好地利用软件开发环境独立编程、调试和分

析程序运行情况，逐渐形成创新思维和从事系统软件的研究和开发能力。

二、主要内容

采用某种程序设计语言，设计与开发一个仿真操作系统，要求具备进程调度、存储器管理、文件及设备管理等基本功能，具体内容包括：

1.模拟单处理器系统的进程调度，加深对进程的概念及进程调度算法的理解；

2.编写一个多线程程序，加深对现代操作系统中线程的理解；

3.编写和调试一个银行家算法程序，加深了解有关资源申请、避免死锁等概念，并体

会和了解死锁和避免死锁的具体实施方法；

4.用可变分区算法模拟主存的分配和回收，加深对存储器管理的理解，熟悉各种主存

分配方法；

5.模拟虚拟存储管理中缺页中断及页面置换算法，加深对虚拟存储器管理的理解，熟

悉各种页面淘汰算法；模拟设备的分配与回收，加深对设备管理的理解；模拟文件

管理的工作过程，从而对各种文件操作命令的实质内容和执行过程有比较深入的了

解；模拟磁盘调度的过程，加深对磁盘存储器管理的理解，熟悉各种磁盘调度算法。

6.综合以上实验的结果，并进行集成与设计，开发出一个小型虚拟操作系统。

对以上课程设计内容，将根据学生的专业与实际情况进行调整，某些题目为选作题目。

三、进度计划

序号设计(实验)内容完成时间备注

1 熟悉开发环境及程序设计语言1天

2 系统的分析、设计2天

3 调试与集成1天

4 验收，提交实验报告1天

四、设计（实验）成果要求

至少完成主要内容中的3项，统一使用课程设计报告书，文字清楚、工整。

五、考核方式

实验结果（60％）+实验报告（30％）+实验过程表现（10％）

学生姓名：

指导教师：

2011年11 月25日

一、课程设计(综合实验)的目的与要求

1. 理解和掌握操作系统的基本概念、基本组成与工作原理；

2. 理解和掌握操作系统中主要功能模块的工作原理及其实现算法；

3. 掌握软件模块设计技能；熟悉并能较好地利用软件开发环境独立编程、调试和分

析程序运行情况，逐渐形成创新思维和从事系统软件的研究和开发能力。

二、设计正文

实验1：单处理器系统的进程调度

1.1实验目的

在采用多道程序设计的系统中，往往有若干个进程同时处于就绪状态。当就绪进程个数大于处理器数时，就必须依照某种策略来决定哪些进程优先占用处理器。本实验模拟在单处理器情况下的处理器调度，帮助学生加深了解处理器调度的工作。

1.2实验要求

1．设计一个按时间片轮转法实现处理器调度的程序，每个程序由一个PCB表示。

2．程序执行中应能在屏幕上显示出各进程的状态变化，以便于观察调度的整个过程。

1.3实验原理和设计

进程控制块PCB的格式为：

进程名

指针

要求运行时间

已运行时间

状态

指针——进程按顺序排成循环队列，用指针指出下一个进程的进程控制块的首地址，最后一个进程的指针指出第一个进程的进程控制块首地址。

要求运行时间——假设进程需要运行的单位时间数。

已运行时间——假设进程已经运行的单位时间数，初始值为“0”。

状态——有两种状态，“就绪”和“结束”，初始状态都为“就绪”，用0表示。当一个进程运行结束后，它的状态为“结束”，用1表示。

(1) 运行处理器调度程序前，输入进程数并且为每个进程设置所需的服务时间；

(2) 把各个进程按顺序排成循环队列，用指针指出队列连接情况；

(3)由于是模拟程序，在时间片轮转的前提下，每次使得相应进程：执行时间=已执

行时间+1；

(4)输出运行细节。

1.4实验结果

0 5k 10k 14k 26k 32k

实验2：主存储器空间的分配和回收

2.1实验目的

一个好的计算机系统不仅要有一个足够容量的、存取速度高的、稳定可靠的主存储器，而且要能合理地分配和使用这些存储空间。当用户提出申请存储器空间时，存储管理必须根据申请者的要求，按一定的策略分析主存空间的使用情况，找出足够的空闲区域分配给申请者。当作业撤离或主动归还主存资源时，则存储管理要收回作业占用的主存空间或归还部分主存空间。主存的分配和回收的实现虽与主存储器的管理方式有关的，通过本实验帮助学生理解在不同的存储管理方式下应怎样实现主存空间的分配和回收。

2.2实验要求

1．在可变分区管理方式下采用最先适应算法实现主存分配和实现主存回收。 2．打印空闲区说明表的初始状态，作业4的申请量以及为作业4分配后的空闲区说明表状态；再依次打印作业3和作业2的归还量以及回收作业3，作业2所占主存后的空闲区说明表。 2.3实验原理和设计

1. 可变分区方式是按作业需要的主存空间大小来分割分区的。当要装入一个作业时，根据作业需要的主存量查看是否有足够的空闲空间，若有，则按需要量分割一个分区分配给该作业；若无，则作业不能装入。随着作业的装入、撤离，主存空间被分成许多个分区，有的分区被作业占用，而有的分区是空闲的。例如：

操作系统 作业1 作业3

空闲区

作业2

空闲区

其中，起址——指出一个空闲区的主存起始地址。

长度——指出从起始地址开始的一个连续空闲的长度。

2.4运行结果

实验3：多线程游戏（贪吃蛇）

3.1实验目的

（1）任何语言，实现多线程游戏，如龟兔赛跑，摇奖机等。

3.2实验原理和设计

（1）vb实现贪吃蛇游戏，用到timer控件实现多线程的控制，实现贪吃蛇的基本功能（2）连接access数据库，将最高分信息存到数据库。

3.2实验结果

三、课程设计（综合实验）总结

通过本次课程综合实验，我对存储器内部进程调度、空间管理和页面置换等相关算法有了更加深刻的理解，同时锻炼了动手能力，为以后更加深入地学习操作系统这门课程打下了良好的基础。

值得一提的是，本次实验对设计多线程游戏有了些许心得，兴趣所致，今后当加强这方面的学习，开发出一些好玩的小游戏。

计算机相关的学科离不开上机实践，只有通过实践，才能更好地掌握知识，自己以后当主动上机实践相关理论知识。

四、参考文献

[1] 《计算机操作系统》，西安电子科技大学出版社，2007年5月第3版；汤小丹梁红兵哲凤屏汤子嬴编著。

[2]https://www.360docs.net/doc/0219468973.html,/游戏开发教程

附录

实验一

// timer.cpp : 定义控制台应用程序的入口点

#include"stdafx.h"

int _tmain(int argc, _TCHAR* argv[])

{

return 0;

}

#include

#include

#include

#define TIME 1

typedef struct procuder

{

int chrName;//进程名字

int intRoundTime;

int intRunningTime;//已经运行时间

char chrFlag;

struct procuder *pointerNext;

} procuder;

int main()

{

int intTotal;//进程总数

int i;

int intCounter=1;//计数标记

procuder *pNew;//新申请的节点

procuder *pPointer;//当前程序指针

procuder *pPrevious;//当前指针的前一个指针

procuder *pPrint;//输出打印的指针

pPointer=(procuder *)malloc(sizeof(procuder));//初始化指针节点

pPrevious=pPointer;//将俩个指针初始化在一起

printf("请输入总数total：");

scanf("%d",&intTotal);

for(i=1;i<=intTotal;i++)//初始化各个进程

{

pNew=(procuder *)malloc(sizeof(procuder));//申请新节点

pPrevious->pointerNext=pNew;//将新申请节点与前一个节点连接起来

pPrevious=pNew;//将指示指针移到新申请的指针

printf("请输入第%d进程名字：",i);

scanf("%d",&(pNew->chrName));

printf("请输入第%d要求运行时间：",i);

scanf("%d",&(pNew->intRoundTime));

pNew->chrFlag='R';

pNew->intRunningTime=0;//初始化标记为和运行时间

}

pPrevious->pointerNext=pPointer->pointerNext;//设成循环队列

pPointer=pPointer->pointerNext;

while(pPointer->pointerNext!=pPointer)//运行完剩一个进程结束

{

pPointer->intRunningTime=pPointer->intRunningTime+TIME;//模拟进程运行

//输出当前的状态，代码自己写把

printf(" 第%d次运行：当前运行的程序为%d\n",intCounter++,pPointer->chrName);

printf("\n 就绪队列情况\n\n 进程名字需要时间运行时间状态\n");

if (pPointer->intRunningTimeintRoundTime)//判断当前进程是否完成未完成

{

pPointer=pPointer->pointerNext;//轮转到下一个时间片

pPrevious=pPrevious->pointerNext;//previous后移

}

else{//完成了将当前节点剔除

pPointer->chrFlag='E';//设置标志位

pPrevious->pointerNext=pPointer->pointerNext;//剔除当前节点

pPointer=pPointer->pointerNext;//运行指针后移

}

pPrint=pPrevious;

while(pPrint->pointerNext!=pPrevious)//输出各个进程的状态

{

printf(" %d %d %d

%c\n",pPrint->chrName,pPrint->intRoundTime,pPrint->intRunningTime,pPrint->chrFlag);

pPrint=pPrint->pointerNext;//后移

}

printf(" %d %d %d

%c\n",pPrint->chrName,pPrint->intRoundTime,pPrint->intRunningTime,pPrint->chrFlag);

printf("\n");//换行

}

while(pPointer->intRunningTimeintRoundTime)

{

pPointer->intRunningTime=pPointer->intRunningTime+TIME;//模拟进程运行

printf(" 第%d次运行：当前运行的程序为%d\n",intCounter++,pPointer->chrName);

printf("\n 就绪队列情况\n\n 进程名字需要时间运行时间状态\n");

printf(" %d %d %d

%c\n\n",pPointer->chrName,pPointer->intRoundTime,pPointer->intRunningTime,pPointer->chrFlag) ;

}

system("pause");

return 0;

}

实验二

// MemoryControl.cpp : 定义控制台应用程序的入口点。

#include"stdafx.h"

int _tmain(int argc, _TCHAR* argv[])

{

return 0;

}

#include

#include

#include

typedef struct memorytable//空间去说明表结构体

{

int intStartAddress;//起始地址

int intLength;//空间长度

int intFlag;//标记为为空表目为未分配

}memorytable;

struct process//进程的属性包括名字所需时间以运行时间

{

int intName;

int iEndFlag;//标记为标记是否已经卸载过

int iSuccessfullyFitMemory;//是否成功分配内存标记

int intStartTime;

int intNeedTime;

int intRoundTime;

int intNeedMemorySize;

int intStartAddress;

struct process *sNext;

};

int PrintMemoryTable(struct memorytable sSubMemoryTable[],struct process *sSubPointer,int intSubTotal)//输出空间说明表的情况

{

int i;

int iCounter=0;//计数器计算总共有多少个自由表项

printf("\n空间说明表：当前内存分区表总大小为%d个表项\n\n",intSubTotal*2);

printf("栏目地址长度状态\n");

for(i=0;i

{

if(sSubMemoryTable[i].intFlag==1) iCounter++;//计数器++有一个自由表项计数器加一

printf("%d %d %d

%d\n",i,sSubMemoryTable[i].intStartAddress,sSubMemoryTable[i].intLength,sSubMemoryTable[i].intFlag );

}

printf("当前共有%d个能分配表目，分别从~%d号内存栏目\n",iCounter,iCounter-1);

return 0;

}

int Crimple(struct memorytable sSubMemoryTable[],struct process *sSubPointer,int intSubTotal)//内存缩紧代码{

int i,j;//计数器

for(i=0;i

{

for(j=i+1;j<2*intSubTotal;j++)

{

if(sSubMemoryTable[i].intFlag==1)//如果i不是空表目

{

if((sSubMemoryTable[j].intFlag==1)&&(sSubMemoryTable[i].intStartAddress>sSubMemoryTable[j].intStar tAddress))//若j不为空表目且j的开始地址小于i的开始地址，交换

{

sSubMemoryTable[2*intSubTotal]=sSubMemoryTable[i];

sSubMemoryTable[i]=sSubMemoryTable[j];

sSubMemoryTable[j]=sSubMemoryTable[2*intSubTotal];

}

}

else//i为空表目，交换i和j的值

{

if(sSubMemoryTable[j].intFlag==1)//且j不是空表目

{

sSubMemoryTable[2*intSubTotal]=sSubMemoryTable[i];

sSubMemoryTable[i]=sSubMemoryTable[j];

sSubMemoryTable[j]=sSubMemoryTable[2*intSubTotal];

}

}

}

}

//打印输出代码

PrintMemoryTable(sSubMemoryTable,sSubPointer,intSubTotal);

return(0);

}

int FitMemory(struct memorytable sSubMemoryTable[],struct process *sSubPointer,int intSubTotal)

{

int i=-1;//计数器

while(++i<(2*intSubTotal))//循环找出满足要求的内存块

{

if(sSubMemoryTable[i].intFlag==1)//判断是否表项为未分配

{

if(sSubMemoryTable[i].intLength>sSubPointer->intNeedMemorySize)//判断当前栏的大小是否能放下进程

{

printf("将%d号内存[起始地址%d,内存大小%d] 分配给%d进程[占用内存大小%d]\n",i,sSubMemoryTable[i].intStartAddress,sSubMemoryTable[i].intLength,sSubPointer->intName,sSubPoin ter->intNeedMemorySize);

sSubPointer->intStartAddress=sSubMemoryTable[i].intStartAddress;

sSubMemoryTable[i].intStartAddress=sSubMemoryTable[i].intStartAddress+sSubPointer->intNeedMemory Size;

sSubMemoryTable[i].intLength=sSubMemoryTable[i].intLength-sSubPointer->intNeedMemorySize;

//输出空间说明表

PrintMemoryTable(sSubMemoryTable,sSubPointer,intSubTotal);

return 1;

}

if(sSubMemoryTable[i].intLength==sSubPointer->intNeedMemorySize)//刚好相等

{

printf("将%d号内存[起始地址%d,内存大小%d] 分配给%d进程[占用内存大小%d]\n",i,sSubMemoryTable[i].intStartAddress,sSubMemoryTable[i].intLength,sSubPointer->intName,sSubPoin ter->intNeedMemorySize);

sSubPointer->intStartAddress=sSubMemoryTable[i].intStartAddress;

sSubMemoryTable[i].intFlag=0;

sSubMemoryTable[i].intStartAddress=0;

sSubMemoryTable[i].intLength=0;

//缩紧分区说明表，输出空间说明表

Crimple(sSubMemoryTable,sSubPointer,intSubTotal);

return 2;

}

}

}

printf("内存分配失败%d号进程：需要内存空间为%d 在内存空闲说明表中无满足要求者\n",sSubPointer->intName,sSubPointer->intNeedMemorySize);//内存分配失败

PrintMemoryTable(sSubMemoryTable,sSubPointer,intSubTotal);

sSubPointer->iSuccessfullyFitMemory=0;//内存分配失败回受时不回收

return 0;

}

int RemoveMemory(struct memorytable sSubMemoryTable[],struct process *sSubPointer,int intSubTotal)//从内存卸载函数

{

int i;//计数器

int j;

int intFlag=0;//标位位

int intStartAddress;

int intLength;//定义起始地址和长度临时变量

intStartAddress=sSubPointer->intStartAddress;

intLength=sSubPointer->intNeedMemorySize;//初始化长度

for(i=intSubTotal*2-1;i>=0;i--)

{

if((sSubMemoryTable[i].intFlag==1)&&(sSubMemoryTable[i].intStartAddress==intStartAddress+intLength ))//如果有与归还区下临的空闲分区表

{

printf("有与%d号进程下邻的空闲分区表%d号内存[起始地址%d，长度%d]\n",sSubPointer->intName,i,sSubMemoryTable[i].intStartAddress,sSubMemoryTable[i].intLength);

intLength+=sSubMemoryTable[i].intLength;

intFlag=1;//设置标记位

for(j=i-1;j>=0;j--)//判断是否有与当前表目上临的空闲去

{

if(sSubMemoryTable[j].intFlag=1)//上临的区域不为空表目

{

if(sSubMemoryTable[j].intStartAddress+sSubMemoryTable[j].intLength==intStartAddress)//有上林空闲区

{

//有上邻空闲区代码,将下邻空闲区置为空表目，修改上邻空闲区的长度

printf("有与%d号进程上邻的空闲分区表%d号内存[起始地址%d，长度%d]\n",sSubPointer->intName,j,sSubMemoryTable[j].intStartAddress,sSubMemoryTable[j].intLength);

sSubMemoryTable[i].intFlag=0;

sSubMemoryTable[i].intLength=0;

sSubMemoryTable[i].intStartAddress=0;//将下邻空闲表目初始化

sSubMemoryTable[j].intLength+=intLength;

Crimple(sSubMemoryTable,sSubPointer,intSubTotal);//缩紧代码

return(1);

}

}

}

//无上邻空闲区代码，修改下邻空闲区的起始地址和长度

printf("无与%d号进程上邻的空闲分区\n",sSubPointer->intName);

sSubMemoryTable[i].intStartAddress=intStartAddress;

sSubMemoryTable[i].intLength=intLength;

Crimple(sSubMemoryTable,sSubPointer,intSubTotal);

return(2);//无上邻空闲区

}

}

//没有有与归还区下临的空闲分区表

if(intFlag==0)

{

printf("无与%d号进程下邻的空闲分区\n",sSubPointer->intName);

for(i=0;i

{

if((sSubMemoryTable[i].intFlag==1)&&(sSubMemoryTable[i].intStartAddress+sSubMemoryTable[i].intLen gth==intStartAddress))//判断是否有与归还区上邻的空闲区

{

printf("有与%d号进程上邻的空闲分区表目%d号内存[起始地址%d，长度%d]\n",sSubPointer->intName,i,sSubMemoryTable[i].intStartAddress,sSubMemoryTable[i].intLength);

sSubMemoryTable[i].intLength+=intLength;

Crimple(sSubMemoryTable,sSubPointer,intSubTotal);//

return(3);//有与归还区上邻的空闲区

}

}

printf("无与%d号进程上邻的空闲分区表目\n",sSubPointer->intName,i);

for(i=intSubTotal*2-1;i>0;i--)//查找表找到一个空表目

{

if(sSubMemoryTable[i].intFlag==0)

{

sSubMemoryTable[i].intFlag=1;

sSubMemoryTable[i].intStartAddress=intStartAddress;

sSubMemoryTable[i].intLength=intLength;

Crimple(sSubMemoryTable,sSubPointer,intSubTotal);

return(4);//没有归还区上邻的空闲区

}

}

}

//回收失败

printf("sorry 回收失败\n");

return(0);

}

int main()

{

int i;//计数器

int intMemorySize;

int intTotal;//内存分成N份

int intStartAddress;//内存起始地址

int intProcessTotal;//进程总数

int intTime=0;

int intEndTime;//结束时间

struct memorytable sMemoryTable[100];//定义空间说明变总共有个空间

struct memorytable *sTemp; //定义变量

struct process *sHead;

struct process *sPointer;//定义进程数据

struct process *sNew;

for (i=0;i<100;i++)//初始化说明表

{

sTemp=(memorytable *)malloc(sizeof(struct memorytable));//申请新空间

if (!sTemp) exit(1);//判断是否申请成功

sMemoryTable[i]=*sTemp;

sMemoryTable[i].intFlag=0;

sMemoryTable[i].intLength=0;

sMemoryTable[i].intStartAddress=0;

}

printf("请输出内存大小*KB:");//输入内存总大小，本程序采用固定分配即将内存等分成n分请让内存大小能整除分区的个数

scanf("%d",&intMemorySize);

printf("请输入将内存等分成多少分:");//内寸等分成n分

scanf("%d",&intTotal);

printf("请输入内存起始地址:");//输入内存起始地址

scanf("%d",&intStartAddress);

printf("请输入共有多少个进程要装入内存:");//输入进程数

scanf("%d",&intProcessTotal);

printf("请输入程序运行的最终结束时间:");//输入运行时间

scanf("%d",&intEndTime);

//初始化内存数组的代码

for(i=0;i

{

sMemoryTable[i].intFlag=1;

sMemoryTable[i].intLength=intMemorySize/intTotal;

sMemoryTable[i].intStartAddress=intStartAddress+i*sMemoryTable[i].intLength;

}

//初始化进程的一些属性,sHead为进程队列的头指针

sHead=(struct process *)malloc(sizeof(struct process));

sPointer=sHead;

for(i=0;i

{

sNew=(struct process *)malloc(sizeof(struct process));//新建一个节点

if(!sNew) exit(1);

sPointer->sNext=sNew;

sPointer=sNew;

sPointer->sNext=NULL;

//以下为初始化进程的属性

printf("请输入进程%d的名字:",i);

scanf("%d",&(sPointer->intName));

printf("请输入进程%d开始装入内存的时间:",i);

scanf("%d",&(sPointer->intStartTime));

printf("请输入进程%d将要运行的时间:",i);

scanf("%d",&(sPointer->intNeedTime));

printf("请输出进程%d需要的内存大小:",i);

scanf("%d",&(sPointer->intNeedMemorySize));

sPointer->intRoundTime=0;

sPointer->iEndFlag=0;

sPointer->iSuccessfullyFitMemory=1;//默认成功分配内存标记为能分配分配失败时置零}

//开始模拟将程序装入内存,注视进程开始时间必须大于

while(++intTime)//运行一次时间加一

{

sPointer=sHead;//初始化队列指针

while((sPointer=sPointer->sNext)!=NULL)

{

if(sPointer->intStartTime==intTime)//如果到了开始时间

{

//装入内存代码

printf("\n 正在装入%d号进程,当前逻辑时间%d\n",sPointer->intName,intTime);

//printf(" %d号进程所需内存大小为%d\n",sPointer->intName,sPointer->intNeedMemorySize);//打印进程信息

FitMemory(sMemoryTable,sPointer,intTotal);

}

if((intTime>=sPointer->intStartTime)&&(sPointer->intRoundTimeintNeedTime))//若程序已经装入，并且为运行完模拟时间加一

{

sPointer->intRoundTime++;//已经运行时间加一

}

if((sPointer->intRoundTime==sPointer->intNeedTime)&&(sPointer->iEndFlag==0))//时间到达从内训卸载

{

//进程从内训卸载代码

printf("\n 正在卸载%d号进程【装入时间%d 需要时间%d 运行时间%d】,当前逻辑时

间%d\n",sPointer->intName,sPointer->intStartTime,sPointer->intNeedTime,sPointer->intRoundTime,intTime);

sPointer->iEndFlag=1;//设置进程完成运行标记位为即运行结束

if(sPointer->iSuccessfullyFitMemory==1)//判断分配内存是否成功，若分配成功才回收

{

printf(" %d号进程从%d地址开始，占用内存大小为%d\n",sPointer->intName,sPointer->intStartAddress,sPointer->intNeedMemorySize);//打印进程信息

RemoveMemory(sMemoryTable,sPointer,intTotal);

}

else

{

printf("%d号进程:需内存空间为%d 分配时未能成功分配此处不回收\n",sPointer->intName,sPointer->intNeedMemorySize);

}

}

}

//此处添加跳出运行代码

if(intTime>intEndTime) break;

}

system("pause");

return 0;//主函数结束

}

实验三

Dim Score As Integer

Dim Speed As Integer

Dim EatTag As Integer

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim aspect As Integer

Dim PassTag As Integer

Dim WallTag As Integer

Public Sub CloseAccess()

rs.Close

conn.Close

Set conn = Nothing

Set rs = Nothing

End Sub

Public Sub LinkAccess() '链接数据库过程

Set conn = New ADODB.Connection

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db3.mdb"

Set rs = New ADODB.Recordset

rs.Open "select * from 排行榜where 标记='" & CboWall.ListIndex & CboPass.ListIndex & "'", conn

End Sub

Public Sub RankPage() '生成最高分过程

Dim Name As String

Call LinkAccess

If Score > rs.Fields("分数") Then

Name = InputBox("恭喜恭喜，请输入姓名", "破纪录啦", , Screen.Width / 2, Screen.Height / 2)

conn.Execute ("update 排行榜set 姓名='" & Name & "',分数='" & Score & "' where 标记='" & CboWall.ListIndex & CboPass.ListIndex & "'")

LblSort.Caption = rs.Fields("姓名") & " " & rs.Fields("分数") & "分" '重新显示最高分End If

Call CloseAccess

End Sub

Public Sub IsWall(WallTagSub As Integer, PassTagSub As Integer)

If WallTagSub = 0 Then '判断是否有围墙

If aspect = 2 And Pic(0).Left + Pic(0).Width > PicRect.ScaleWidth Then

PicHead.Left = 0

ElseIf aspect = 1 And PicHead.Left < 0 Then

PicHead.Left = PicHead.Left + PicRect.Width

ElseIf aspect = 4 And PicHead.Top + Pic(0).Height > PicRect.ScaleHeight Then

PicHead.Top = 0

ElseIf aspect = 3 And PicHead.Top < 0 Then

PicHead.Top = PicHead.Top + PicRect.Height

End If

Else

If PicHead.Left < 250 Or PicHead.Left + PicHead.Width > PicRect.ScaleWidth - 250 Or PicHead.Top < 250 Or PicHead.Top + PicHead.Height > PicRect.ScaleHeight Then '舌头碰到墙壁

Call GameOver

End If

End If

Select Case PassTagSub

Case 1

If (PicHead.Left >= 1500 And PicHead.Left <= 5250) And (PicHead.Top = 1750 Or PicHead.Top = 3250) Then

Call GameOver

End If

End Select

End Sub

Public Sub GameSelect()

Dim ProblemTag As Integer, i As Integer

ProblemTag = CboProblem.ListIndex

If WallTag = 1 Then '判断是否有围墙

For i = 1 To 112 '卸载围墙

Unload PicWall(i)

Next i

End If

WallTag = CboWall.ListIndex '重新赋值围墙标记

If WallTag = 1 Then '判断是否有围墙

For i = 1 To 28 '初始化围墙

Load PicWall(i)

PicWall(i).Visible = True

PicWall(i).Left = (i - 1) * 250 '左上角坐标为00

PicWall(i).Top = 0

Load PicWall(i + 28)

PicWall(i + 28).Visible = True

PicWall(i + 28).Left = (i - 1) * 250

PicWall(i + 28).Top = 4750

Load PicWall(i + 56) '竖向围墙

PicWall(i + 56).Visible = True

PicWall(i + 56).Left = 0

PicWall(i + 56).Top = (i - 1) * 250

Load PicWall(i + 84)

PicWall(i + 84).Visible = True

PicWall(i + 84).Left = 6750

PicWall(i + 84).Top = (i - 1) * 250

Next i

End If

Select Case ProblemTag '选择难度

Case 0

Timer1.Interval = 500

Case 1

Timer1.Interval = 200

Case 2

Timer1.Interval = 100

Case 3

Timer1.Interval = 50

Case 4

Timer1.Interval = 25

End Select

Select Case PassTag '卸载上局迷宫

Case 0

Case 1

For i = 1 To 16

Unload PicWall(i + 112) '先卸载窗体

Unload PicWall(i + 128)

Next i

End Select

PassTag = CboPass.ListIndex '初始化本局迷宫状态Select Case PassTag '加载迷宫

Case 1

For i = 1 To 16

Load PicWall(i + 112)

PicWall(i + 112).Visible = True

PicWall(i + 112).Left = 1250 + i * 250

PicWall(i + 112).Top = 1750

Load PicWall(i + 128)

PicWall(i + 128).Visible = True

PicWall(i + 128).Left = 1250 + i * 250

PicWall(i + 128).Top = 3250

Next i

Case 2

Case 3

End Select

End Sub

Public Sub GameStart()

Dim i As Integer

Speed = 0 '提速标记初始化

EatTag = 0 '显示什么食物标记初始化

aspect = 2

IgeOver.Picture = LoadPicture(App.Path & "\image\GameOver.gif") '初始化结束图标IgeOver.Visible = False '隐藏标志结束

IgeOver.Visible = False '隐藏提示标签

PicOver.Visible = False '隐藏爆炸效果

Score = 0 '初始化分数为0

Call LinkAccess

LblSort.Caption = rs.Fields("姓名") & " " & rs.Fields("分数") & "分" '初始化最高分Call CloseAccess

LblScore.Caption = "分数：" & Score '初始化分数

For i = 4 To Pic.UBound '初始化蛇身

Unload Pic(i)

Next i

PicHead.Left = 1500 '初始化蛇头位置

PicHead.Top = 500

Pic(0).Left = PicHead.Left - 250 '初始化第一节蛇身位置

Pic(0).Top = PicHead.Top

For i = 1 To 3 '初始化初始蛇身位置

Pic(i).Left = Pic(i - 1).Left - 250

Pic(i).Top = Pic(0).Top

Next i

IgeStop.Enabled = True '初始化暂停键

End Sub

Public Sub GameOver()