刘凡动画心对Word下载.docx
- 文档编号:22285108
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:28
- 大小:336.75KB
刘凡动画心对Word下载.docx
《刘凡动画心对Word下载.docx》由会员分享,可在线阅读,更多相关《刘凡动画心对Word下载.docx(28页珍藏版)》请在冰豆网上搜索。
本动画先显示一些提示信息,然后按任意键进入,只见一个方框向中
间由大变小,并留下痕迹,然后出现一个心,按空格重复出现心,按其他
键将重复,按Q键退出程序,。
datasegment
fulldb0
buff1db'
Welcomeyoutorunthisprogramme!
'
db'
'
*****Pleasepressanykey*****$'
buff2db'
Myheartbeatswithyours!
*****Pleaseqtoquit*****$'
dataends
codesegment
mainprocfar
assumecs:
code,ds:
data
start:
pushds
subax,ax
pushax
movax,data
movds,ax
movah,00
moval,04
int10h
movah,0bh
movbh,00
movbl,1
movbh,1
movbl,2
movdx,offsetbuff1
;
显示提示信息
movah,09
int21h
movah,08
callclear
cls
sss:
calltext
显示文档
movdi,2
moval,1
画一个大方框
movcx,70
movdx,20
movbx,160
callbox
movcx,71
movdx,21
movbx,158
again:
moval,1
movdi,0
calldelay
moval,0
inccx
incdx
subbx,2
cmpcx,94
jnzagain
movdi,0
画第二个方框
movcx,95
movdx,45
movbx,110
movcx,96
movdx,46
movbx,108
again_00:
cmpcx,114
jnzagain_00
movcx,115
画第三个方框
movdx,65
movbx,70
movcx,116
movdx,66
movbx,68
again_01:
cmpcx,129
jnzagain_01
画最小的方框
movcx,130
movdx,80
movbx,40
moval,3
对角线
movsi,0
movbx,59
callxie_line
movcx,171
movdx,121
movsi,1
movdx,179
movdx,79
movcx,150
十字线
movbx,60
calldraw_line
movcx,150
movdx,120
movdx,100
movcx,170
movdx,60
callmid_line
movdx,110
movsi,2
movcx,110
movbx,30
movcx,160
movsi,3
movdx,140
movdx,90
movsi,4
movdx,180
在画一个大方框
在画一个最小的方框
movcx,130
movcx,95
movcx,115
movdi,1
fill
callfill
callfill_2
callfill_3
movcx,149
bold
moval,2
movcx,151
heart_:
画心
callcls_box
callheart
cmpal,'
q'
jzok
cmpal,20h
jzheart_
callclear
jmpsss
ok:
ret
mainendp
fillprocnear
movfull,0
moval,5
fill_Y:
pushcx
pushdx
pushbx
popbx
popdx
popcx
adddx,2
incfull
cmpfull,30
jnefill_y
fillendp
fill_2procnear
movcx,140
fill_Y1:
deccx
jnefill_y1
fill_2endp
fill_3procnear
re_fill:
cmpfull,9
jnere_fill
movcx,159
re_fill2:
jnere_fill2
fill_3endp
draw_Lineprocnear
画线
cmpsi,0
jzV_line1
addbx,cx
H_line:
movah,0ch
cmpdi,0
jzaa0
cmpdi,1
jzaa1
aa1:
aa0:
cmpcx,bx
jneH_line
jmpexit_line
V_line1:
addbx,dx
V_line:
jzbb0
jzbb1
bb1:
bb0:
cmpdx,bx
jneV_line
exit_line:
draw_Lineendp
xie_lineprocnear
画斜线
cmpsi,1
jzxieline_1
xieline_0:
jnexieline_0
jmpexit_xie
xieline_1:
decdx
jnexieline_1
exit_xie:
xie_lineendp
Mid_lineprocnear
cmpsi,2
jzmidline_2
cmpsi,3
jzmidline_3
cmpsi,4
jzmidline_4
midline_1:
addcx,2
jnemidline_1
jmpexit_lines
midline_2:
jnemidline_2
midline_3:
jnemidline_3
midline_4:
subdx,2
jnemidline_4
exit_lines:
mid_lineendp
boxprocnear
画方框
calldraw_line
顶部
addcx,bx
右边
左边
adddx,bx
底部
boxendp
spaceprocnear
显示一个空间
movah,02
movdl,'
spaceendp
returnprocnear
回车
movah,2
movdl,0ah
movdl,0dh
returnendp
textprocnear
显示文本信息
movbh,0
movdh,0
movdl,0
movdx,offsetbuff2
textendp
heartprocnear
movcx,136
movdx,93
movbx,5
movcx,137
movdx,91
movbx,9
movcx,138
movbx,12
movcx,139
movdx,89
movbx,14
movcx,140
movdx,88
movbx,16
movcx,141
movbx,17
movcx,142
movdx,87
movbx,19
movcx,143
movbx,20
movcx,144
movbx,21
movcx,145
movcx,146
movbx,22
movcx,147
movcx,148
画心
movcx,151
movcx,152
movcx,153
movcx,154
movcx,155
movcx,156
movcx,157
movcx,158
movcx,159
movcx,160
movcx,161
movcx,162
movcx,163
heartendp
delayprocnear
清除
movdx,25
dl2:
movcx,2801
dl3:
loopdl3
jnzdl2
delayendp
clearprocnear
movbx,0
movcx,0
movdx,0
line:
cmpcx,320
jneline
cmpdx,200
clearendp
cls_boxprocnear
movcx,131
movdx,81
s_line:
cmpcx,170
jnes_line
cmpdx,120
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 动画