万年历课程设计Word文档下载推荐.docx

万年历课程设计Word文档下载推荐.docx

《万年历课程设计Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《万年历课程设计Word文档下载推荐.docx（30页珍藏版）》请在冰豆网上搜索。

三．程序系统说明书

1．程序系统总体功能模块调用图及模块功能说明

封面程序的功能是显示欢迎信息，并且显示制

作人的信息的；

验证用户名和密码的程序是验证用

户是否是合法的用户的，该程序要有容错的功能；

万年历程序是主程序，该程序的功能是通过用户输

入年和月，来查询日历的，并且该程序还可以判断

输入的年份是平年还是闰年。

封底程序是用来显示

用户退出万年历系统的时候，一个感谢用户使用万

年历的界面的。

2．程序系统详细的程序框图（每个子程序的流程图）

①封面子程序，封底子程序的框图

注:

以封面程序为例,封底程序与封面程序类似

②用户名和密码子程序框图

注:

以用户名程序为例,密码程序和用户名程序类似

③求某年某月某日是星期几的子程序

④..求某月某日是这一年的第几天的

⑤判断是平年还是闰年的子程序

⑥年份月份转化为真值的子程序

四.程序运行结果

五.系统源程序

.386

DATASEGMENTUSE16

A0DB'

_____◆____◆____◆____◆____◆____◆_____◆_____$'

DB'

※※$'

||$'

◆◆$'

|┏☆━━━━━━━━━━━━━━☆┓|$'

◆☆^ǒ^*☆*^ǒ^*★*^ǒ^*☆*^ǒ^*★*^ǒ^*☆◆$'

|┃欢迎进入万年历系统┃|$'

◆☆^ǒ^*★*^ǒ^*☆*^ǒ^*★*^ǒ^*☆*^ǒ^*☆◆$'

|┗☆━━━━━━━━━━━━━━☆┛|$'

◆制作人：

某某某◆$'

◆班级：

2班◆$'

◆学号：

123456789012◆$'

◆日期：

08.1.15◆$'

|版权所有，请勿仿冒|$'

※____◆____◆____◆____◆____◆____◆____◆____※$'

A1DB'

◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆$'

◇◇$'

◆◆$'

◆┏━☆━━━━━━★━━━━━━☆━┓◆$'

◇┃◆◇┃◇$'

◆┃　请输入用户名和密码┃◆$'

◇┃◇↑↑↑↑↑↑↑↑↑↑↑↑↑◆┃◇$'

◆┗━☆━━━━━━★━━━━━━☆━┛◆$'

◇用户名：

◇$'

◆密码:

◆$'

◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇$'

A2DB'

******★******☆******★*******☆*******★********$'

☆☆$'

||$'

★★$'

|***********************************|$'

☆*欢迎再次使用万年历系统*☆$'

★☆☆★★$'

|如有不足之处，请联系我☆☆|$'

|★★☆|$'

★我们会不断的完善的★$'

||$'

☆^_^☆$'

★ISBN7-300-00528-9★$'

☆********★******☆********★********★*********☆$'

A3DB'

******************万年历*******************$'

********$'

======================================$'

|SUN|MON|TUE|WED|THU|FAI|SAT|$'

|=====|=====|=====|=====|=====|=====|=====|$'

||||||||$'

||||||||$'

||||||||$'

||||||||$'

||||||||$'

||||||||$'

YEARDW?

MONTHDB?

BDW?

C1DW0

D1DW0

EDW0

GDB0

TDW0

SDB0

PDW?

NDW0

YDW0

MDW0

BUF1DB31,?

31,30,31,30,31,31,30,31,30,31

BUF2DB1,2,3,4,5,6,7,8,9,10,11,12

INPUT1DB'

请输入要查询的年份:

$'

INPUT2DB'

请输入要查询的月份:

INPUT3DB'

该年是平年$'

INPUT4DB'

该年是闰年$'

INPUT5DB'

要继续查询?

1.继续查询2.退出万年历系统$'

STR5DB5

DB0

DB5DUP（0）

STR6DB3

DB3DUP（0）

BUF3DB'

1'

0AH,0DH,'

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'

CDB?

DDB?

STR1DB20

DB20DUP（0）

STR2DB20

STR3DB'

admin'

;

用户名

COUNT1EQU$-STR3

STR4DB'

密码

COUNT2EQU$-STR4

BUF4DB'

用户名不正确，请重新输入!

BUF5DB'

密码不正确，请重新输入!

DATAENDS

STACKSEGMENTUSE16STACK

DB200DUP（0）

STACKENDS

CODESEGMENTUSE16

ASSUMECS:

CODE,DS:

DATA,ES:

DATA,SS:

STACK

START:

MOVAX,DATA

MOVDS,AX

MOVES,AX

MOVAH,0;

设置显示方式

MOVAL,3;

彩色文本方式

INT10H

;

************************封面程序************************************

MOVAH,6

MOVAL,0

MOVCH,0

MOVCL,0;

清整个屏幕

MOVDH,24

MOVDL,79

MOVBH,26

MOVCX,24

MOVSI,OFFSETA0

MOVB,000EH

LOPA0:

MOVAH,2

MOVBX,0

MOVDX,B

ADDDX,0100H

MOVB,DX

MOVDX,SI

MOVAH,9

INT21H

ADDSI,52

DECCX

JNZLOPA0

MOVAH,1

*************************用户名，密码程序****************************

MOVBH,30

MOVCX,24;

显示用户名的密码页面，共24行，循环输出24次

MOVSI,OFFSETA1

LOPA1:

MOVAH,2;

定光标位置

MOVBX,1

MOVDX,SI;

显示字符串

JNZLOPA1

MOVC,3;

容错三次

LOPA2:

设置用户名光标位置

MOVBH,0;

页号为1（帧屏号）

MOVDX,0D21H

LEADX,STR1;

输入用户名，保存在缓冲区STR1中

MOVAH,10

MOVAL,STR1+1;

用户名的长度送到AL中

CMPAL,COUNT1;

比较输入的用户名是否和指定的用户名长度一样

JNER;

长度不一样，跳转到P

LEASI,STR1+2

LEADI,STR3

MOVCX,COUNT1

REPZCMPSB;

逐一比较两串的对应字符是否相等

不相等，跳转到P否则程序往下执行，输入密码

MOVD,3

LOPA3:

设置密码光标位置

MOVDX,1021H

LEADX,STR2;

输入密码，保存在缓冲区STR2中

MOVAL,STR2+1;

密码的长度送到AL中

CMPAL,COUNT2;

比较输入的密码是否和指定的密码长度一样

JNEQ;

长度不一样，跳转到Q

LEASI,STR2+2

LEADI,STR4

MOVCX,COUNT2

不相等，转Q

JMPT1;

相等，转LOPA4

R:

设置显示用户名错误信息光标位置

MOVDX,1521H

LEADX,BUF4;

输出用户名错误信息

MOVAL,1

MOVCH,13

MOVCL,33;

清用户名输入行的屏幕

MOVDH,13

MOVDL,53

MOVCH,21

清用户名出错行的屏幕

MOVDH,21

MOVDL,60

MOVBH,20

DECC;

循环次数减1

JNZLOPA2;

跳转到LOPA2，重新输入用户名

JEEXIT

Q:

设置显示密码错误信息光标位置

LEADX,BUF5;

输出密码错误信息

MOVCH,16

清密码输入行的屏幕

MOVDH,16

清密码出错行的屏幕

DECD;

JNZLOPA3;

跳转到LOPA3，重新输入密码

***********************显示万年历程序*******************************

T1:

MOVT,0

MOVBH,27

MOVCX,17

MOVSI,OFFSETA3

MOVB,0411H

LOPA4:

ADDSI,44

JNZLOPA4

定输入年份提示信息的光标

MOVDH,1

MOVDL,17

LEADX,INPUT1;

提示信息，请输入要查询的年份

定输入年份的光标

MOVDH,5

MOVDL,19

LEADX,STR5;

输入年份，保存在缓冲区STR1中

LEADI,STR5+2;

DI指向年份输入串的首地址

MOVCL,STR5+1;

输入年份字符串的长度送到CL

MOVAX,0;

年份转化为真值

P1:

MOVBL,[DI];

取字符送到BL

SUBBL,30H;

字符减去30H,转化为真值

MOVBH,0

MOVP,10

MULP

ADDAX,BX

INCDI;

DI指向下一个字符

DECCX;

长度减一

JNZP1

MOVYEAR,AX;

把年送到YEAR中

CALLPR;

调用判断平年还是闰年的程序

JCL1;

有进位,借位,跳转到L1,输出闰年,否则顺序执行,是平年

输出平年信息的光标

MOVDL,36

LEADX,INPUT3;

输出平年

LEADI,BUF1

MOV[DI+1],BYTEPTR28;

平年把28送入BUF1中

JMPJ0

L1:

输出闰年信息的光标

LEADX,INPUT4;

输出闰年

MOV[DI+1],BYTEPTR29;

闰年把29送入BUF1中

J0:

定输入月份提示信息的光标

MOVDH,2

LEADX,INPUT2;

提示信息，请输入要查询的月份

定输入月份的光标

MOVDL,56

LEADX,STR6;

输入月份，保存在缓冲区STR2中

LEADI,STR6+2;

DI指向月份输入串的首地址

MOVCL,STR6+1;

月份输入串的长度送到CL中

MOVAX,0

P2:

取字符送到BL中

字符减去30H

MOVS,10

MULS

JNZP2

MOVWORDPTRMONTH,AX;

月份值送到MONTH中

CALLDTOB1;

显示日历，调用DTOB1子程序返回N侄

MOVDI,OFFSETBUF1

DECMONTH

ADDDI,WORDPTRMONTH;

取出每个月的天数

MOVCL,[DI]

MOVG,CL

MOVSI,OFFSETBUF3

MOVAL,6

MULN

ADDAX,19

MOVB,AX

MOVC1,9

J1:

确定每个月的一号的光标位置,即确定初始输入位置

MOVBX,0

MOVDH,BYTEPTRC1

MOVDL,BYTEPTRB

CMPDL,55

JBEJ2;

DL<

33,跳转到J2,否则行加1列从3开始

ADDC1,2

MOVB,19

JMPJ1

J2:

MOVAH,9;

在当前光标位置显示数字

ADDSI,5

ADDB,6

DECG

JNZJ1

MOVDH,22

LEADX,INPUT5

CMPAL,31H

JET1

JMPT2

DTOB1PROCNEAR;

求某年某月某日是星期几子程序

PUSHAX

PUSHBX

PUSHCX

PUSHDX

PUSHSI

PUSHDI

MOVCX,0

DECYEAR

MOVAX,YEAR;

YEAR-1送入AX中

MOVCX,YEAR

MOVDX,0

MOVBL,4

DIVBX

MOVC1,AX;

（YEAR-1）/4送入C1中

ADDCX,C1

MOVAX,YEAR

MOVBL,100

MOVD1,AX;

（YEAR-1）/100送入D中

SUBCX,D1

MOVBX,400

MOVE,AX;

（YEAR-1）/400